shithub: scc

Info  •  Files  •  Log  •  Branches

Added correct handling of numline and numcolum

These variables indicate where the lexical analyser is reading in a moment
in the input file. So it is necessary begin the count in column and line 1,
and each time that you find a new line, increment the count of lines and
reset the column count.

--- a/lex.c

+++ b/lex.c

@@ -211,8 +211,12 @@

 	register unsigned char ch;

 	extern char parser_out_home;

-	while (isspace(c = getc(yyin)))

-		/* nothing */;

+	while (isspace(c = getc(yyin))) {

+		if ((char) c == '\n')

+			++linenum, columnum = 1;

+		else

+			++columnum;

+	}

 	if (c == EOF) {

 		if (parser_out_home)

 			error("Find EOF while parsing");

@@ -343,4 +347,5 @@

 	if ((yyin = fopen(file, "r")) == NULL)

 		die("file '%s' not found", file);

 	filename = file;

+	columnum = linenum = 1;

 }