| 15 |
|
|
| 16 |
|
#include "platform.h" |
| 17 |
|
#include "calcomp.h" |
| 18 |
+ |
#include "rterror.h" |
| 19 |
|
|
| 20 |
|
#ifdef CPM |
| 21 |
|
#define getc agetc /* text files only, right? */ |
| 617 |
|
register struct field *f |
| 618 |
|
) |
| 619 |
|
{ |
| 620 |
< |
static char buf[MAXWORD+1]; /* no recursion! */ |
| 620 |
> |
static char buf[RMAXWORD+1]; /* no recursion! */ |
| 621 |
|
int delim, inword; |
| 622 |
|
double d; |
| 623 |
|
char *np; |
| 662 |
|
*cp++ = ipb.chr; |
| 663 |
|
scaninp(); |
| 664 |
|
} |
| 665 |
< |
} while (inword && cp < &buf[MAXWORD]); |
| 665 |
> |
} while (inword && cp < &buf[RMAXWORD]); |
| 666 |
|
*cp = '\0'; |
| 667 |
|
if (f->f.sv->val == NULL) |
| 668 |
|
f->f.sv->val = savqstr(buf); /* first setting */ |
| 691 |
|
*cp++ = ipb.chr; |
| 692 |
|
scaninp(); |
| 693 |
|
} |
| 694 |
< |
} while (inword && cp < &buf[MAXWORD]); |
| 694 |
> |
} while (inword && cp < &buf[RMAXWORD]); |
| 695 |
|
*cp = '\0'; |
| 696 |
|
d = np==NULL ? 0. : atof(np); |
| 697 |
|
if (!vardefined(f->f.nv)) |