| 23 |
|
#include "platform.h" |
| 24 |
|
#include "paths.h" |
| 25 |
|
#include "ranimove.h" |
| 26 |
+ |
#include "func.h" |
| 27 |
|
|
| 28 |
|
int NVARS = NV_INIT; /* total number of variables */ |
| 29 |
|
|
| 85 |
|
int i; |
| 86 |
|
|
| 87 |
|
progname = argv[0]; /* get arguments */ |
| 88 |
+ |
/* initialize calcomp */ |
| 89 |
+ |
initfunc(); |
| 90 |
|
gargc = argc; |
| 91 |
|
gargv = argv; |
| 92 |
|
for (i = 1; i < argc && argv[i][0] == '-'; i++) |
| 173 |
|
|
| 174 |
|
void |
| 175 |
|
eputs( /* put string to stderr */ |
| 176 |
< |
char *s |
| 176 |
> |
const char *s |
| 177 |
|
) |
| 178 |
|
{ |
| 179 |
|
static int midline = 0; |
| 196 |
|
quit(int ec) /* make sure exit is called */ |
| 197 |
|
{ |
| 198 |
|
if (ray_pnprocs > 0) /* close children if any */ |
| 199 |
< |
ray_pclose(0); |
| 199 |
> |
ray_pclose(0); |
| 200 |
> |
else if (ray_pnprocs < 0) |
| 201 |
> |
_exit(ec); /* avoid flush in child */ |
| 202 |
|
exit(ec); |
| 203 |
|
} |
| 204 |
|
|
| 542 |
|
int n |
| 543 |
|
) |
| 544 |
|
{ |
| 540 |
– |
extern char *fskip(); |
| 545 |
|
static char expval[32]; |
| 546 |
|
static FILE *expfp = NULL; |
| 547 |
|
static int curfrm = 0; |
