| 10 |
|
*/ |
| 11 |
|
|
| 12 |
|
#include <stdio.h> |
| 13 |
– |
|
| 13 |
|
#include <stdlib.h> |
| 15 |
– |
|
| 14 |
|
#include <math.h> |
| 17 |
– |
|
| 15 |
|
#include <ctype.h> |
| 16 |
|
|
| 17 |
+ |
#include "rtprocess.h" |
| 18 |
+ |
#include "rtmisc.h" |
| 19 |
+ |
#include "rtio.h" |
| 20 |
|
#include "mgvars.h" |
| 21 |
|
|
| 22 |
|
#define MAXLINE 512 |
| 25 |
|
|
| 26 |
|
#define isnum(c) (isdigit(c)||(c)=='-'||(c)=='+'||(c)=='.'||(c)=='e'||(c)=='E') |
| 27 |
|
|
| 28 |
< |
char *findfile(), *emalloc(), *ecalloc(), *erealloc(), *savestr(), *strcpy(); |
| 29 |
< |
FILE *fopen(), *popen(); |
| 28 |
> |
char *findfile(); |
| 29 |
> |
|
| 30 |
|
extern char *progname, *libpath[]; |
| 31 |
|
|
| 32 |
|
#ifdef DCL_ATOF |
| 330 |
|
} |
| 331 |
|
if (!*s) { |
| 332 |
|
loaddata(fname, fp, &vp->v.d); |
| 333 |
– |
#ifdef UNIX |
| 333 |
|
} else if (*s == '!') { |
| 334 |
|
if ((fp2 = popen(s+1, "r")) == NULL) { |
| 335 |
|
fprintf(stderr, "%s\n", string); |
| 340 |
|
} |
| 341 |
|
loaddata(s, fp2, &vp->v.d); |
| 342 |
|
pclose(fp2); |
| 344 |
– |
#endif |
| 343 |
|
} else { |
| 344 |
|
if ((fp2 = fopen(s, "r")) == NULL) { |
| 345 |
|
fprintf(stderr, "%s\n", string); |
