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

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

diff --git a/ghc/compiler/parser/hsclink.c b/ghc/compiler/parser/hsclink.c
deleted file mode 100644 (file)
index a42a667..0000000
--- a/ghc/compiler/parser/hsclink.c
+++ /dev/null
@@ -1,57 +0,0 @@
-/* This is the "top-level" file for the *linked-into-the-compiler* parser.
-   See also main.c.  (WDP 94/10)
-*/
-
-#include <stdio.h>
-
-#include "hspincl.h"
-#include "constants.h"
-#include "utils.h"
-
-/**********************************************************************
-*                                                                     *
-*                                                                     *
-*     The main program                                                *
-*                                                                     *
-*                                                                     *
-**********************************************************************/
-
-extern long  prog_argc;        
-extern char  **prog_argv;
-
-#define MAX_HSP_ARGS 64
-long hsp_argc;
-char *hsp_argv[MAX_HSP_ARGS];  /* sigh */
-
-tree
-hspmain()
-{
-    int hsp_i, prog_i;
-
-    Lnil = mklnil();   /* The null list -- used in lsing, etc. */
-
-    /* copy the args we're interested in (first char: comma)
-       to hsp_argv; arrange to point after the comma!
-    */
-    hsp_i = 0;
-    for (prog_i = 0; prog_i < prog_argc; prog_i++) {
-       if (prog_argv[prog_i][0] == ',') {
-           hsp_argv[hsp_i] = &(prog_argv[prog_i][1]);
-           hsp_i++;
-       }
-    }
-    hsp_argc = hsp_i; /* set count */
-
-    process_args(hsp_argc, hsp_argv); /* HACK */
-
-    hash_init();
-    yyinit();
-
-    if (yyparse() != 0) {
-       /* There was a syntax error. */
-       printf("\n");
-       exit(1);
-    }
-
-    return(root);
-}