[project @ 1996-11-22 13:19:06 by simonm]

lex.l still hanging around?

diff --git a/ghc/utils/ugen/lex.l b/ghc/utils/ugen/lex.l
deleted file mode 100644 (file)
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 <stdio.h>
-# 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);
-}