Commit 7c0ef81a authored by sewardj's avatar sewardj
Browse files

[project @ 1999-12-06 16:20:26 by sewardj]

Only detect (# and #) as special tokens when parsing interface files.
parent d5b9dfff
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
* included in the distribution. * included in the distribution.
* *
* $RCSfile: input.c,v $ * $RCSfile: input.c,v $
* $Revision: 1.16 $ * $Revision: 1.17 $
* $Date: 1999/12/03 12:39:39 $ * $Date: 1999/12/06 16:20:26 $
* ------------------------------------------------------------------------*/ * ------------------------------------------------------------------------*/
#include "prelude.h" #include "prelude.h"
...@@ -1400,8 +1400,10 @@ static Int local yylex() { /* Read next input token ... */ ...@@ -1400,8 +1400,10 @@ static Int local yylex() { /* Read next input token ... */
* Now try to identify token type: * Now try to identify token type:
* --------------------------------------------------------------------*/ * --------------------------------------------------------------------*/
if (readingInterface) {
if (c0 == '(' && c1 == '#') { skip(); skip(); return UTL; }; if (c0 == '(' && c1 == '#') { skip(); skip(); return UTL; };
if (c0 == '#' && c1 == ')') { skip(); skip(); return UTR; }; if (c0 == '#' && c1 == ')') { skip(); skip(); return UTR; };
}
switch (c0) { switch (c0) {
case EOF : return 0; /* End of file/input */ case EOF : return 0; /* End of file/input */
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment