LCHECK displays to the user the nesting level number of each
BEGIN/END ({/}) group, thereby helping him to identify problem areas
in his C programs. It recognizes quoted material and comments and
ignores { and } within these.
*/
#define vers 12 /* Version Number */
#include "a:bdscio.h"
#define SSCROLL TRUE /* Set TRUE for Smooth Scrolling on TVI 950 */
#define quote 0x27 /* Single Quote */
#define dquote 0x22 /* Double Quote */
#define BS 0x08 /* Back Space Char */
#define TAB 0x09 /* Tab Char */
#define LF 0x0a /* Line Feed Char */
#define CR 0x0d /* Carriage Return Char */
#define YES 'Y'
#define NO 'N'
#define ovfl YES /* Line Overflow */
#define noovfl NO /* No Line Overflow */
char iobuf[BUFSIZ];
int level, chval, pos, nroutines;
main(argc,argv)
int argc;
char **argv;
{
int done;
if (argc == 1) {
printf("LCHECK, Version %d.%d\n",vers/10,vers%10);
printf("Format of Command Line is --\n");
printf(" LCHECK filename.typ");
exit(FALSE);
}
if (fopen(argv[1],iobuf) == ERROR) {
printf("Cannot Find File %s\n",argv[1]);
exit(FALSE);
}
if (SSCROLL) printf("%c%c",ESC,'8'); /* Smooth Scroll */
printf("LCHECK, Version %d.%d -- File: %s\n",vers/10,
vers%10,argv[1]);
level = 0; nroutines = 0; /* Init nesting level, routine count */
prlevel(); /* Print level number */
do {
getit(); /* Get next char */
if (chval == quote) do { /* If quote, flush to end quote */
getit();
} while (chval != quote);
if (chval == dquote) do { /* If dquote, flush to dquote */
getit();
} while (chval != dquote);
if (chval == '/') { /* Possible comment */
getit();
if (chval == '*') { /* Yes, it is a comment */
getit();
done = FALSE;
do {
if (chval == '*') { /* End comment? */
getit();
if (chval == '/') /* Yes */
done = TRUE;
}
else getit();
} while (!done);
}
}
if (chval == '{') level++; /* BEGIN */
if (chval == '}') { /* END */
level--;
if (level == 0) {
nroutines++;
printf("\n** Routine %d **", nroutines);
}
}
} while ((chval != CPMEOF) && (chval != ERROR));
printf("\nProgram Level Check is ");
if (level == 0) printf("OK");
else printf("NOT OK");
printf("\nNumber of Routines Encountered: %d",--nroutines);
if (SSCROLL) printf("%c%c",ESC,'9'); /* Hard Scroll */
}
getit() /* Get and Echo Character */
{
chval = getc(iobuf);
if ((pos >= TWIDTH) & (chval != CR)) prlevel(ovfl);
if (chval != CPMEOF) echo(chval);
}
echo(chval) /* Echo Char with tabulation */
char chval;
{
switch (chval) {
case TAB : putchar(' '); pos++;
while (pos%9 != 0) {
putchar(' ');
pos++;
}
break;
case BS : putchar(BS);
pos--;
break;
case LF : prlevel(noovfl);
break;
case CR : putchar(CR);
pos = 0;
break;
default : if (chval >= ' ') {
putchar(chval);
pos++;
}
break;
}
}
prlevel(ovfl_flag) /* Print Level Number and Set Col Count */
char ovfl_flag;
{
putchar(LF);
if (level < 10) printf(" %d",level);
else printf("%d",level);
if (ovfl_flag == YES) putchar('-');
else putchar(':');
putchar(' ');
pos = 5;
}
