Imported Upstream version 0.1

[pkg-cerco/acc-trusted.git] / cparser / Parse_aux.ml

diff --git a/cparser/Parse_aux.ml b/cparser/Parse_aux.ml
new file mode 100755 (executable)
index 0000000..6592245
--- /dev/null
+++ b/cparser/Parse_aux.ml
@@ -0,0 +1,46 @@
+(* *********************************************************************)
+(*                                                                     *)
+(*              The Compcert verified compiler                         *)
+(*                                                                     *)
+(*          Xavier Leroy, INRIA Paris-Rocquencourt                     *)
+(*                                                                     *)
+(*  Copyright Institut National de Recherche en Informatique et en     *)
+(*  Automatique.  All rights reserved.  This file is distributed       *)
+(*  under the terms of the GNU General Public License as published by  *)
+(*  the Free Software Foundation, either version 2 of the License, or  *)
+(*  (at your option) any later version.  This file is also distributed *)
+(*  under the terms of the INRIA Non-Commercial License Agreement.     *)
+(*                                                                     *)
+(* *********************************************************************)
+
+open Format
+open Errors
+open Cabshelper
+
+(* Report parsing errors *)
+
+let parse_error msg =
+  error "%a: %s" format_cabsloc (currentLoc()) msg
+
+(* Are we parsing msvc syntax? *)
+
+let msvcMode = ref false
+
+(* We provide here a pointer to a function. It will be set by the lexer and 
+ * used by the parser. In Ocaml lexers depend on parsers, so we we have put 
+ * such functions in a separate module. *)
+let add_identifier: (string -> unit) ref = 
+  ref (fun _ -> assert false)
+
+let add_type: (string -> unit) ref = 
+  ref (fun _ -> assert false)
+
+let push_context: (unit -> unit) ref = 
+  ref (fun _ -> assert false)
+
+let pop_context: (unit -> unit) ref = 
+  ref (fun _ -> assert false)
+
+(* Keep here the current pattern for formatparse *)
+let currentPattern = ref ""
+