2006-06-29 01:12:46 -07:00
|
|
|
(****************************************************************************)
|
|
|
|
(* *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* OCaml *)
|
2006-06-29 01:12:46 -07:00
|
|
|
(* *)
|
|
|
|
(* INRIA Rocquencourt *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 2006 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 *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* exception on linking described in LICENSE at the top of the OCaml *)
|
|
|
|
(* source tree. *)
|
2006-06-29 01:12:46 -07:00
|
|
|
(* *)
|
|
|
|
(****************************************************************************)
|
|
|
|
|
|
|
|
(* Authors:
|
|
|
|
* - Daniel de Rauglaudre: initial version
|
|
|
|
* - Nicolas Pouillard: refactoring
|
|
|
|
*)
|
|
|
|
|
2007-11-21 10:11:24 -08:00
|
|
|
let ocaml_standard_library = Camlp4_import.Config.standard_library;;
|
2007-02-07 02:09:29 -08:00
|
|
|
|
|
|
|
let camlp4_standard_library =
|
|
|
|
try Sys.getenv "CAMLP4LIB"
|
2010-01-22 04:48:24 -08:00
|
|
|
with Not_found ->
|
2007-02-07 02:09:29 -08:00
|
|
|
Filename.concat ocaml_standard_library "camlp4";;
|
|
|
|
|
|
|
|
let version = Sys.ocaml_version;;
|
|
|
|
let program_name = ref "camlp4";;
|
|
|
|
let constructors_arity = ref true;;
|
|
|
|
let unsafe = ref false;;
|
|
|
|
let verbose = ref false;;
|
2007-10-08 07:19:34 -07:00
|
|
|
let antiquotations = ref false;;
|
2007-02-07 02:09:29 -08:00
|
|
|
let quotations = ref true;;
|
|
|
|
let inter_phrases = ref None;;
|
2012-02-15 01:30:45 -08:00
|
|
|
let camlp4_ast_impl_magic_number = "Camlp42006M002";;
|
|
|
|
let camlp4_ast_intf_magic_number = "Camlp42006N002";;
|
2007-11-21 10:11:24 -08:00
|
|
|
let ocaml_ast_intf_magic_number = Camlp4_import.Config.ast_intf_magic_number;;
|
|
|
|
let ocaml_ast_impl_magic_number = Camlp4_import.Config.ast_impl_magic_number;;
|
2007-02-07 02:09:29 -08:00
|
|
|
let current_input_file = ref "";;
|