Initial revision

This commit is contained in:
ceriel
1987-02-24 17:05:53 +00:00
parent a731f979b0
commit bc94559e4d
16 changed files with 3123 additions and 0 deletions

19
lang/occam/comp/report.c Normal file
View File

@@ -0,0 +1,19 @@
#include <stdio.h>
extern int err, yylineno;
extern char *curr_file;
report(fmt, arg1, arg2, arg3) char *fmt;
{
fprintf(stderr, "%s (%d) F: ", curr_file, yylineno);
fprintf(stderr, fmt, arg1, arg2, arg3);
putc('\n', stderr);
err=1;
}
warning(fmt, arg1, arg2, arg3) char *fmt, *arg1;
{
fprintf(stderr, "%s (%d) E: ", curr_file, yylineno);
fprintf(stderr, fmt, arg1, arg2, arg3);
putc('\n', stderr);
}