diff options
Diffstat (limited to 'camlp4/examples/parse_files.ml')
| -rw-r--r-- | camlp4/examples/parse_files.ml | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/camlp4/examples/parse_files.ml b/camlp4/examples/parse_files.ml deleted file mode 100644 index 46cf8420b..000000000 --- a/camlp4/examples/parse_files.ml +++ /dev/null @@ -1,43 +0,0 @@ -(****************************************************************************) -(* *) -(* OCaml *) -(* *) -(* INRIA Rocquencourt *) -(* *) -(* Copyright 2007 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License, with the special *) -(* exception on linking described in LICENSE at the top of the OCaml *) -(* source tree. *) -(* *) -(****************************************************************************) - -open Camlp4.PreCast;; - -module Caml = - Camlp4.Printers.OCaml.Make - (Camlp4OCamlParser.Make - (Camlp4OCamlRevisedParser.Make - (Camlp4.OCamlInitSyntax.Make(Ast)(Gram)(Quotation))));; - -let parse f = - let ic = open_in f in - let strm = Stream.of_channel ic in - let res = Caml.parse_implem (Loc.mk f) strm in - close_in ic; res;; - -let ghost = Loc.ghost;; - -let main () = - let a = parse "apply_operator_test.ml" in - let b = parse "global_handler_test.ml" in - Caml.print_implem - <:str_item@ghost< - module Apply_operator_test = struct $a$ end;; - module Global_handler_test = struct $b$ end >> -;; - -try main () -with e -> - Format.eprintf "error: %a@." Camlp4.ErrorHandler.print e; - exit 1;; |