Zoals beloofd!
(Ja ik weet het, wel een beetje laat)
Hier de source code zoals ik hem geschreven heb.
Hierbij wil ik wel zeggen dat de code niks voorstelt op het gedeelte na waar de environment van het parent programma opgevraagd wordt. Dat is de moeilijkste code. Tenminste naar mijn idee. Hiervoor bedank ik hierbij iedereen die me hierbij heeft geholpen.
De code is een beetje rommelig.
Om het iets of wat op te schonen heb ik de code voor het zoeken naar een bestaande variabelen en het wijzigen van een variabelen in aparte functie gezet.
Oh ja, ik ben heel slecht met het voorkomen van errors
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
| #include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <dos.h>
#include <ctype.h>
#define MAXSTRING 300
int envexist( char *envvar, char* myvar );
int envchange( char *envvar, char *myvar, char *myvalue );
int verbose = 0;
int main( int argc, char *argv[] )
{
char string[MAXSTRING];
char *final;
int i = 0;
int psp, parentpsp, envseg;
char *var1;
char far *env;
if( argc <= 2 )
{
printf("%s <Question> <Env.Variable>", argv[0]);
return 254;
}
if( argc == 4 && strcmp( argv[3], "-verbose") == 0 )
verbose = 1;
printf("%s",argv[1]);
gets(string);
if((final = (char *) malloc(strlen(string) + strlen(argv[2]) + 2)) == NULL)
return 254;
for( i = 0; i < strlen(argv[2]); i++ )
argv[2][i] = toupper(argv[2][i]);
strcpy( final, argv[2]);
strcat( final, "=");
strcat( final, string);
psp = getpsp ();
parentpsp = *(int far *)MK_FP (psp, 0x16);
envseg = *(int far *)MK_FP (parentpsp, 0x2c);
env = (char far *)MK_FP (envseg, 0);
if(verbose == 1)
printf("\npsp = %d\nparentpsp = %d\nenvseg = %d\n", psp, parentpsp, envseg );
var1 = (char*) env;
while( ( var1 = var1 + strlen(var1) + 1) != NULL )
{
if( envexist( var1, argv[2]) == 1 )
{
if( verbose == 1 )
printf("------------- Found variable with same name -----------------\n");
envchange(var1,argv[2],string);
break;
}
if( strcmp( var1, "\0" ) == 0 )
{
if( verbose == 1 )
printf("------------- Adding new variable ---------------------------\n");
strcpy(var1, final);
var1 = var1 + strlen(var1);
strcpy(var1,"\0");
var1 = var1 + 1;
strcpy(var1,"\0");
var1 = var1 + strlen(var1);
strcpy(var1,"\0");
break;
}
}
free(final);
return 0;
}
int envexist( char *envvar, char *myvar )
{
char *temp;
int i;
if( ( temp = (char *) malloc(strlen(envvar)+1)) == NULL )
return -1;
for( i = 0; i < strlen( envvar ); i++ )
{
if( envvar[i] == '=' )
{
temp[i] = NULL;
break;
}
temp[i] = toupper(envvar[i]);
}
if( strcmp( temp, myvar ) == 0 )
{
free(temp);
return 1;
}
else
{
free(temp);
return 0;
}
}
int envchange( char *envvar, char *myvar, char *myvalue )
{
char *envvar2 = envvar + strlen(envvar) + 1;
char *temp = (char *) malloc(strlen(myvar) + strlen(myvalue) + 1);
if( verbose == 1 )
printf("------------- Moving variables --------------\n");
while( strcmp( envvar2, "\0" ) != 0 )
{
if( verbose == 1 )
printf("%s <- %s\n",envvar, envvar2);
strcpy( envvar, envvar2 );
envvar = envvar + strlen( envvar );
strcpy( envvar, "\0");
envvar = envvar + 1;
envvar2 = envvar + strlen( envvar ) + 1;
}
strcpy( temp, myvar);
strcat( temp, "=");
strcat( temp, myvalue);
strcpy( envvar, temp);
if( verbose == 1 )
printf("%s\n", temp);
envvar = envvar + strlen( envvar );
strcpy( envvar, "\0" );
envvar = envvar + 1;
strcpy( envvar, "\0" );
envvar = envvar + 1;
strcpy( envvar, "\0" );
envvar = envvar + 1;
strcpy( envvar, "\0" );
free(temp);
return 0;
} |
Let wel op:
Deze code werkt alleen in pure dosmodus omdat het 16bit code is.
edit:
Dit is afgehandeld, er mag een slotje op
[
Voor 0% gewijzigd door
cobratbq op 22-08-2002 22:38
. Reden: Sluiten van de topic ]
One ring to rule them all, one ring to find them, one ring to bring them all, and in darkness bind them...
/u/2801/crop5ccb23f820755.png?f=community)
:strip_icc():strip_exif()/u/12461/crop65b195553d948.jpg?f=community)
/u/43807/ZwartGat.png?f=community)
:strip_exif()/u/11874/clownsmall.gif?f=community)
