diff options
Diffstat (limited to 'Build/source/texk/web2c/web2c/web2c-lexer.l')
-rw-r--r-- | Build/source/texk/web2c/web2c/web2c-lexer.l | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/web2c/web2c-lexer.l b/Build/source/texk/web2c/web2c/web2c-lexer.l index a7576ee96f5..5f41f8d4fcf 100644 --- a/Build/source/texk/web2c/web2c/web2c-lexer.l +++ b/Build/source/texk/web2c/web2c/web2c-lexer.l @@ -1,5 +1,5 @@ %{ -/* web2c.l -- lexical analysis for Tangle output. Public domain. */ +/* web2c-lexer.l -- lexical analysis for Tangle output. Public domain. */ #include "web2c.h" #include "web2c-parser.h" @@ -133,6 +133,7 @@ HHB1 ("hh"{WW}"."{WW}"b1") "if" return last_tok=if_tok; "label" return last_tok=label_tok; "mod" return last_tok=mod_tok; +"noreturn" return last_tok=noreturn_tok; "not" return last_tok=not_tok; "of" return last_tok=of_tok; "or" return last_tok=or_tok; @@ -150,7 +151,7 @@ HHB1 ("hh"{WW}"."{WW}"b1") "while" return last_tok=while_tok; "others" return last_tok=others_tok; -{REAL} { +{REAL} { sprintf (temp, "%s%s", negbuf, yytext); negbuf[0] = '\0'; return last_tok=r_num_tok; @@ -186,7 +187,7 @@ HHB1 ("hh"{WW}"."{WW}"b1") int c; while ((c = webinput()) == ' ' || c == '\t') ; - unput(c); + unput(c); if (c < '0' || c > '9') { return last_tok = unary_minus_tok; } @@ -270,7 +271,7 @@ get_result_type (char *s) bad status. */ int -yyerror (string s) +yyerror (const_string s) { /* This is so the convert script can delete the output file on error. */ puts ("@error@"); |