d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

changed UnGetChar() to ChPushBack() in domacro.c

Browse source
This commit is contained in:
eck 1990-01-05 09:28:54 +00:00
parent 369a99fe3a
commit abcaa3e669
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lang/cem/cemcom.ansi/domacro.c
View file

@ -336,7 +336,8 @@ do_define()
/* read the replacement text if there is any */ /* read the replacement text if there is any */
ch = skipspaces(ch,0); /* find first character of the text */ ch = skipspaces(ch,0); /* find first character of the text */
ASSERT(ch != EOI); ASSERT(ch != EOI);
UnGetChar(); /* UngetChar() is not right when replacement starts with a '/' */
ChPushBack(ch);
repl_text = get_text((nformals > 0) ? formals : 0, &length); repl_text = get_text((nformals > 0) ? formals : 0, &length);
macro_def(id, repl_text, nformals, length, NOFLAG); macro_def(id, repl_text, nformals, length, NOFLAG);
LineNumber++; LineNumber++;
@ -626,11 +627,10 @@ get_text(formals, length)
c = GetChar(); c = GetChar();
if (c == '*') { if (c == '*') {
skipcomment(); skipcomment();
if(blank++) add2repl(repl, ' '); if (!blank++) add2repl(repl, ' ');
c = GetChar(); c = GetChar();
continue; continue;
} } else add2repl(repl, '/');
else add2repl(repl, '/');
} else if (formals } else if (formals
&& (class(c) == STIDF || class(c) == STELL)) { && (class(c) == STIDF || class(c) == STELL)) {
char id_buf[IDFSIZE + 1]; char id_buf[IDFSIZE + 1];

3
lang/cem/cpp.ansi/domacro.c
View file

@ -347,7 +347,8 @@ do_define()
/* read the replacement text if there is any */ /* read the replacement text if there is any */
ch = skipspaces(ch,0); /* find first character of the text */ ch = skipspaces(ch,0); /* find first character of the text */
assert(ch != EOI); assert(ch != EOI);
UnGetChar(); /* UngetChar() is not right when replacement starts with a '/' */
ChPushBack(ch);
repl_text = get_text((nformals > 0) ? formals : 0, &length); repl_text = get_text((nformals > 0) ? formals : 0, &length);
macro_def(str2idf(str, 0), repl_text, nformals, length, NOFLAG); macro_def(str2idf(str, 0), repl_text, nformals, length, NOFLAG);
LineNumber++; LineNumber++;