1 files changed, 0 insertions, 48 deletions
diff --git a/test/Lex/testmain.ml b/test/Lex/testmain.ml
deleted file mode 100644
index 96d10a4533..0000000000
--- a/test/Lex/testmain.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(***********************************************************************)
-(*                                                                     *)
-(*                           Objective Caml                            *)
-(*                                                                     *)
-(*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         *)
-(*                                                                     *)
-(*  Copyright 1996 Institut National de Recherche en Informatique et   *)
-(*  en Automatique.  All rights reserved.  This file is distributed    *)
-(*  under the terms of the Q Public License version 1.0.               *)
-(*                                                                     *)
-(***********************************************************************)
-
-(* $Id$ *)
-
-(* The lexer generator. Command-line parsing. *)
-
-#open "syntax";;
-#open "testscanner";;
-#open "grammar";;
-#open "lexgen";;
-#open "output";;
-
-let main () =
-  ic := stdin;
-  oc := stdout;
-  let lexbuf = lexing.from_channel ic in
-  let (Lexdef(header,_) as def) =
-    try
-      grammar.lexer_definition testscanner.main lexbuf
-    with
-      parsing.Parse_error x ->
-        prerr_string "Syntax error around char ";
-        prerr_int (lexing.lexeme_start lexbuf);
-        prerr_endline ".";
-        sys.exit 2
-    | scan_aux.Lexical_error s ->
-        prerr_string "Lexical error around char ";
-        prerr_int (lexing.lexeme_start lexbuf);
-        prerr_string ": ";
-        prerr_string s;
-        prerr_endline ".";
-        sys.exit 2 in
-  let ((init, states, acts) as dfa) = make_dfa def in
-  output_lexdef header dfa
-;;
-
-main(); sys.exit 0
-;;