godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

many bug fixes

Browse Source
This commit is contained in:
ceriel
1987-02-11 14:29:27 +00:00
parent f18da9078c
commit a6d90aaeec
6 changed files with 64 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lang/basic/src.old/util.c
View File

@@ -12,29 +12,35 @@ int errorcnt;
warning(str)
char *str;
{
printf("WARNING:%s\n",str);
if (! wflag) Xerror("WARNING",str);
}
error(str)
char *str;
{
extern int listing,yylineno;
if( !listing) printf("LINE %d:",yylineno);
printf("ERROR:%s\n",str);
Xerror("ERROR",str);
errorcnt++;
}
Xerror(type,str)
char *str;
char *type;
{
extern int listing,yylineno;
if( !listing) fprintf(stderr,"LINE %d:",yylineno);
fprintf(stderr,"%s:%s\n",type,str);
}
fatal(str)
char *str;
{
printf("FATAL:%s\n",str);
Xerror("FATAL",str);
exit(-1);
}
notyetimpl()
{
printf("WARNING: not yet implemented\n");
warning("not yet implemented");
}
illegalcmd()
{
printf("WARNING: illegal command\n");
warning("illegal command");
}
char *itoa(i)
int i;