10 # include "syntax.tab.h"
15 extern YYSTYPE yylval;
16 extern FILE *fc, *fhs;
17 #undef ECHO /* partain */
18 #define ECHO /*fprintf(stderr, "%s", yytext)*/
22 ";" { ECHO; return(SEMICOL); }
23 ":" { ECHO; return(COLON); }
24 "<" { ECHO; return(STDEF); }
25 ">" { ECHO; return(ENDDEF); }
26 "type" { ECHO; return(TYPE); }
27 "end" { ECHO; return(END); }
28 [A-Za-z][A-Za-z0-9_]* {
30 yylval = (YYSTYPE) installid(yytext);
35 "/*"([^*]|"*"[^/]|\n)*"*/" ECHO;
36 "%{{"([^%]|"%"[^}]|\n)*"%}}" { /* partain: for Haskell includes */
38 yytext[yyleng-3] = '\0';
39 fprintf(fhs, "\n%s", &yytext[3]);
41 "%{"([^%]|"%"[^}]|\n)*"%}" {
43 yytext[yyleng-2] = '\0';
44 fprintf(fc, "\n%s", &yytext[2]);