From 53138f4c83d18423a0aa539138acab8af4e04c0b Mon Sep 17 00:00:00 2001 From: simonm Date: Fri, 22 Nov 1996 13:19:06 +0000 Subject: [PATCH] [project @ 1996-11-22 13:19:06 by simonm] lex.l still hanging around? --- ghc/utils/ugen/lex.l | 51 -------------------------------------------------- 1 file changed, 51 deletions(-) delete mode 100644 ghc/utils/ugen/lex.l diff --git a/ghc/utils/ugen/lex.l b/ghc/utils/ugen/lex.l deleted file mode 100644 index 3d0e95e..0000000 --- a/ghc/utils/ugen/lex.l +++ /dev/null @@ -1,51 +0,0 @@ -%{ -#define YYSTYPE long - -#ifdef __STDC__ -#define PROTO(x) x -#else -#define PROTO(x) () -#endif - -# include "syntax.tab.h" -# include -# include "id.h" -# include "tree.h" -# include "funs.h" -extern YYSTYPE yylval; -extern FILE *fc, *fhs; -#undef ECHO /* partain */ -#define ECHO /*fprintf(stderr, "%s", yytext)*/ - -%} -%% -";" { ECHO; return(SEMICOL); } -":" { ECHO; return(COLON); } -"<" { ECHO; return(STDEF); } -">" { ECHO; return(ENDDEF); } -"type" { ECHO; return(TYPE); } -"end" { ECHO; return(END); } -[A-Za-z][A-Za-z0-9_]* { - ECHO; - yylval = (YYSTYPE) installid(yytext); - return(ID); - } -. ECHO; -"\n" ECHO; -"/*"([^*]|"*"[^/]|\n)*"*/" ECHO; -"%{{"([^%]|"%"[^}]|\n)*"%}}" { /* partain: for Haskell includes */ - ECHO; - yytext[yyleng-3] = '\0'; - fprintf(fhs, "\n%s", &yytext[3]); - } -"%{"([^%]|"%"[^}]|\n)*"%}" { - ECHO; - yytext[yyleng-2] = '\0'; - fprintf(fc, "\n%s", &yytext[2]); - } -%% -int -yywrap() -{ - return(1); -} -- 1.7.10.4