* Copyright (c) 1987 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
"@(#) Copyright (c) 1987 Regents of the University of California.\n\
static char sccsid
[] = "@(#)checkeq.c 4.3 (Berkeley) %G%";
main(argc
, argv
) char **argv
; {
if ((fin
= fopen(*++argv
, "r")) == NULL
) {
int start
, line
, eq
, ndel
, totdel
;
start
= eq
= line
= ndel
= totdel
= 0;
while (fgets(in
, 600, f
) != NULL
) {
if (*in
=='.' && *(in
+1)=='E' && *(in
+2)=='Q') {
printf(" Spurious EQ, line %d\n", line
);
printf(" EQ in %c%c, line %d\n", delim
, delim
, line
);
} else if (*in
=='.' && *(in
+1)=='E' && *(in
+2)=='N') {
printf(" Spurious EN, line %d\n", line
);
printf(" EN in %c%c, line %d\n", delim
, delim
, line
);
} else if (eq
&& *in
=='d' && *(in
+1)=='e' && *(in
+2)=='l' && *(in
+3)=='i' && *(in
+4)=='m') {
if (*p
== 'o' && *(p
+1) == 'f')
printf(" Delim off, line %d\n", line
);
printf(" New delims %c%c, line %d\n", delim
, delim
, line
);
printf(" %c%c in EQ, line %d\n", delim
, delim
, line
);
printf(" %d line %c%c, lines %d-%d\n", line
-start
+1, delim
, delim
, start
, line
);
printf(" %d line %c%c, lines %d-%d\n", line
-start
+1, delim
, delim
, start
, line
);
printf(" Unfinished %c%c\n", delim
, delim
);
printf(" Unfinished EQ\n");