[project @ 1999-06-01 16:40:41 by simonmar]

[ghc-hetmet.git] / ghc / compiler / parser / util.c

diff --git a/ghc/compiler/parser/util.c b/ghc/compiler/parser/util.c
deleted file mode 100644 (file)
index 6c0ebfb..0000000
--- a/ghc/compiler/parser/util.c
+++ /dev/null
@@ -1,133 +0,0 @@
-/**********************************************************************
-*                                                                     *
-*                                                                     *
-*      Declarations                                                   *
-*                                                                     *
-*                                                                     *
-**********************************************************************/
-
-#include "hspincl.h"
-#include "constants.h"
-#include "utils.h"
-
-tree root;             /* The root of the built syntax tree. */
-list Lnil;
-
-BOOLEAN nonstandardFlag = FALSE;  /* Set if non-std Haskell extensions to be used. */
-BOOLEAN etags = FALSE;           /* Set if we're parsing only to produce tags.    */
-BOOLEAN hashIds = FALSE;         /* Set if Identifiers should be hashed.          */
-                                 
-BOOLEAN ignoreSCC = TRUE;         /* Set if we ignore/filter scc expressions.      */
-BOOLEAN warnSCC = FALSE;          /* Set if we want to inform the user what _scc_s are
-                                     being ignored. */
-                                 
-/**********************************************************************
-*                                                                     *
-*                                                                     *
-*     Utility Functions                                               *
-*                                                                     *
-*                                                                     *
-**********************************************************************/
-
-# include <stdio.h>
-# include "constants.h"
-# include "hspincl.h"
-# include "utils.h"
-
-void
-process_args(argc,argv)
-  int argc;
-  char **argv;
-{
-    BOOLEAN keep_munging_option = FALSE;
-
-    while (argc > 0 && argv[0][0] == '-') {
-
-       keep_munging_option = TRUE;
-
-       while (keep_munging_option && *++*argv != '\0') {
-           switch(**argv) {
-
-           case 'D':
-#ifdef HSP_DEBUG
-                   { extern int yydebug;
-                     yydebug = 1;
-                   }
-#endif
-                   break;
-
-           case 'E':
-                   etags = TRUE;
-                   break;
-
-           /* -Hn -- Use Hash Table, Size n (if given) */
-           case 'H':
-                   hashIds = TRUE;
-                   if(*(*argv+1)!= '\0')
-                     hash_table_size = atoi(*argv+1);
-                   break;
-           case 'N':
-                   nonstandardFlag = TRUE;
-                   break;
-
-           case 'S':
-                   ignoreSCC = FALSE;
-                   break;
-
-           case 'W':
-                   warnSCC = TRUE;
-                   break;
-
-           }
-       }
-       argc--, argv++;
-    }
-
-    if(argc >= 1 && freopen(argv[0], "r", stdin) == NULL) {
-           fprintf(stderr, "Cannot open %s.\n", argv[0]);
-           exit(1);
-    }
-
-    if(argc >= 2 && freopen(argv[1], "w", stdout) == NULL) {
-           fprintf(stderr, "Cannot open %s.\n", argv[1]);
-           exit(1);
-    }
-}
-
-void
-error(s)
-  char *s;
-{
-       fprintf(stderr, "PARSER: Error %s\n", s);
-       exit(1);
-}
-
-/* lconc l1 l2 appends l2 to the end of l1 */
-list
-lconc(l1, l2)
-  list l1;
-  list l2;
-{
-       list t;
-
-       if (tlist(l1) == lnil)
-               return(l2);
-       for(t = l1; tlist(ltl(t)) != lnil; t = ltl(t))
-               ;
-       ltl(t) = l2;
-       return(l1);
-}
-
-/* lapp( l, x ) appends [x] to the end of list l */
-list
-lapp(list l1, VOID_STAR l2)
-{
-       list t;
-
-       if (tlist(l1) == lnil)
-               return(mklcons(l2, mklnil()));
-       for(t = l1; tlist(ltl(t)) != lnil; t = ltl(t))
-               ;
-       ltl(t) = mklcons(l2, mklnil());
-       return(l1);
-}