14 |
|
#include <stdio.h> |
15 |
|
|
16 |
|
#include "platform.h" |
17 |
+ |
#include "paths.h" |
18 |
|
#include "standard.h" |
19 |
|
#include "object.h" |
20 |
|
#include "otypes.h" |
30 |
|
{ |
31 |
|
OBJECT lastobj; |
32 |
|
FILE *infp; |
33 |
< |
char buf[1024]; |
33 |
> |
char buf[2048]; |
34 |
|
register int c; |
35 |
|
|
36 |
|
lastobj = nobjects; |
88 |
|
/* get modifier */ |
89 |
|
strcpy(sbuf, "EOF"); |
90 |
|
fgetword(sbuf, MAXSTR, fp); |
91 |
+ |
if (strchr(sbuf, '\t')) { |
92 |
+ |
sprintf(errmsg, "(%s): illegal tab in modifier \"%s\"", |
93 |
+ |
name, sbuf); |
94 |
+ |
error(USER, errmsg); |
95 |
+ |
} |
96 |
|
if (!strcmp(sbuf, VOIDID)) |
97 |
|
objp->omod = OVOID; |
98 |
|
else if (!strcmp(sbuf, ALIASMOD)) |
111 |
|
/* get identifier */ |
112 |
|
sbuf[0] = '\0'; |
113 |
|
fgetword(sbuf, MAXSTR, fp); |
114 |
+ |
if (strchr(sbuf, '\t')) { |
115 |
+ |
sprintf(errmsg, "(%s): illegal tab in identifier \"%s\"", |
116 |
+ |
name, sbuf); |
117 |
+ |
error(USER, errmsg); |
118 |
+ |
} |
119 |
|
objp->oname = savqstr(sbuf); |
120 |
|
/* get arguments */ |
121 |
|
if (objp->otype == MOD_ALIAS) { |