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

first, almost complete, version

Browse Source
This commit is contained in:
ceriel
1986-06-04 09:01:48 +00:00
parent db795bc07a
commit 9e0ab0029b
19 changed files with 458 additions and 309 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lang/m2/comp/main.c
View File

@@ -111,27 +111,27 @@ Compile(src, dst)
#ifdef DEBUG
LexScan()
{
register int symb;
char *symbol2str();
register struct token *tkp = ˙
extern char *symbol2str();
while ((symb = LLlex()) > 0) {
print(">>> %s ", symbol2str(symb));
switch(symb) {
while (LLlex() > 0) {
print(">>> %s ", symbol2str(tkp->tk_symb));
switch(tkp->tk_symb) {
case IDENT:
print("%s\n", dot.TOK_IDF->id_text);
print("%s\n", tkp->TOK_IDF->id_text);
break;
case INTEGER:
print("%ld\n", dot.TOK_INT);
print("%ld\n", tkp->TOK_INT);
break;
case REAL:
print("%s\n", dot.TOK_REL);
print("%s\n", tkp->TOK_REL);
break;
case STRING:
print("\"%s\"\n", dot.TOK_STR);
print("\"%s\"\n", tkp->TOK_STR);
break;
default: