|
Lines 111-116
Link Here
|
| 111 |
if (debugflag == 1) |
111 |
if (debugflag == 1) |
| 112 |
return; |
112 |
return; |
| 113 |
k = strlen(tmpdir) + 24; |
113 |
k = strlen(tmpdir) + 24; |
|
|
114 |
#ifdef MSDOS |
| 114 |
c_functions = (char *)ckalloc(7*k); |
115 |
c_functions = (char *)ckalloc(7*k); |
| 115 |
initfname = c_functions + k; |
116 |
initfname = c_functions + k; |
| 116 |
initbname = initfname + k; |
117 |
initbname = initfname + k; |
|
Lines 118-123
Link Here
|
| 118 |
p1_file = blkdfname + k; |
119 |
p1_file = blkdfname + k; |
| 119 |
p1_bakfile = p1_file + k; |
120 |
p1_bakfile = p1_file + k; |
| 120 |
sortfname = p1_bakfile + k; |
121 |
sortfname = p1_bakfile + k; |
|
|
122 |
#else |
| 123 |
char *c_functions; |
| 124 |
char *initfname; |
| 125 |
char *initbname; |
| 126 |
char *blkdfname; |
| 127 |
char *p1_file; |
| 128 |
char *p1_bakfile; |
| 129 |
char *sortfname; |
| 130 |
#endif |
| 121 |
{ |
131 |
{ |
| 122 |
#ifdef MSDOS |
132 |
#ifdef MSDOS |
| 123 |
char buf[64], *s, *t; |
133 |
char buf[64], *s, *t; |
|
Lines 156-171
Link Here
|
| 156 |
sprintf(p1_file, "%s%sp1f", t, f2c); |
166 |
sprintf(p1_file, "%s%sp1f", t, f2c); |
| 157 |
sprintf(p1_bakfile, "%s%sp1fb", t, f2c); |
167 |
sprintf(p1_bakfile, "%s%sp1fb", t, f2c); |
| 158 |
sprintf(sortfname, "%s%ssort", t, f2c); |
168 |
sprintf(sortfname, "%s%ssort", t, f2c); |
|
|
169 |
sprintf(initbname, "%s.b", initfname); |
| 159 |
#else |
170 |
#else |
| 160 |
long pid = getpid(); |
171 |
c_functions = tempnam(tmpdir,"f2c_func"); |
| 161 |
sprintf(c_functions, "%s/f2c%ld_func", tmpdir, pid); |
172 |
initfname = tempnam(tmpdir,"f2c_rc"); |
| 162 |
sprintf(initfname, "%s/f2c%ld_rd", tmpdir, pid); |
173 |
initbname = tempnam(tmpdir,"f2c_rc.b"); |
| 163 |
sprintf(blkdfname, "%s/f2c%ld_blkd", tmpdir, pid); |
174 |
blkdfname = tempnam(tmpdir,"f2c_blkd"); |
| 164 |
sprintf(p1_file, "%s/f2c%ld_p1f", tmpdir, pid); |
175 |
p1_file = tempnam(tmpdir,"f2c_p1f"); |
| 165 |
sprintf(p1_bakfile, "%s/f2c%ld_p1fb", tmpdir, pid); |
176 |
p1_bakfile = tempnam(tmpdir,"f2c_p1fb"); |
| 166 |
sprintf(sortfname, "%s/f2c%ld_sort", tmpdir, pid); |
177 |
sortfname = tempnam(tmpdir,"f2c_sort"); |
| 167 |
#endif |
178 |
#endif |
| 168 |
sprintf(initbname, "%s.b", initfname); |
|
|
| 169 |
} |
179 |
} |
| 170 |
if (debugflag) |
180 |
if (debugflag) |
| 171 |
fprintf(diagfile, "%s %s %s %s %s %s\n", c_functions, |
181 |
fprintf(diagfile, "%s %s %s %s %s %s\n", c_functions, |