Add #pragma newdecls required|optional.

This commit is contained in:
David Anderson
2014-07-05 01:08:14 -07:00
parent bfc65b086a
commit da33c79d8b
7 changed files with 277 additions and 258 deletions
+10 -10
View File
@@ -1110,12 +1110,6 @@ static int command(void)
}
}
} /* if */
#if 0 /* more unused */
} else if (strcmp(str,"pack")==0) {
cell val;
preproc_expr(&val,NULL); /* default = packed/unpacked */
sc_packstr=(int)val;
#endif
} else if (strcmp(str,"rational")==0) {
char name[sNAMEMAX+1];
cell digits=0;
@@ -1151,10 +1145,16 @@ static int command(void)
cell val;
preproc_expr(&val,NULL);
sc_needsemicolon=(int)val;
} else if (strcmp(str, "require_newdecls")==0) {
cell val;
preproc_expr(&val,NULL);
sc_require_newdecls = (int)val;
} else if (strcmp(str, "newdecls")==0) {
while (*lptr<=' ' && *lptr!='\0')
lptr++;
if (strncmp((char *)lptr, "required", 8) == 0)
sc_require_newdecls = 1;
else if (strncmp((char *)lptr, "optional", 8) == 0)
sc_require_newdecls = 0;
else
error(146);
lptr=(unsigned char*)strchr((char*)lptr,'\0'); /* skip to end (ignore "extra characters on line") */
} else if (strcmp(str,"tabsize")==0) {
cell val;
preproc_expr(&val,NULL);