15 |
|
|
16 |
|
#include "platform.h" |
17 |
|
#include "calcomp.h" |
18 |
+ |
#include "rterror.h" |
19 |
|
|
19 |
– |
#ifdef CPM |
20 |
– |
#define getc agetc /* text files only, right? */ |
21 |
– |
#endif |
22 |
– |
|
20 |
|
#define isnum(c) (isdigit(c) || (c)=='-' || (c)=='.' \ |
21 |
|
|| (c)=='+' || (c)=='e' || (c)=='E') |
22 |
|
|
613 |
|
register struct field *f |
614 |
|
) |
615 |
|
{ |
616 |
< |
static char buf[MAXWORD+1]; /* no recursion! */ |
616 |
> |
static char buf[RMAXWORD+1]; /* no recursion! */ |
617 |
|
int delim, inword; |
618 |
|
double d; |
619 |
|
char *np; |
658 |
|
*cp++ = ipb.chr; |
659 |
|
scaninp(); |
660 |
|
} |
661 |
< |
} while (inword && cp < &buf[MAXWORD]); |
661 |
> |
} while (inword && cp < &buf[RMAXWORD]); |
662 |
|
*cp = '\0'; |
663 |
|
if (f->f.sv->val == NULL) |
664 |
|
f->f.sv->val = savqstr(buf); /* first setting */ |
687 |
|
*cp++ = ipb.chr; |
688 |
|
scaninp(); |
689 |
|
} |
690 |
< |
} while (inword && cp < &buf[MAXWORD]); |
690 |
> |
} while (inword && cp < &buf[RMAXWORD]); |
691 |
|
*cp = '\0'; |
692 |
|
d = np==NULL ? 0. : atof(np); |
693 |
|
if (!vardefined(f->f.nv)) |