summaryrefslogtreecommitdiff
path: root/cparser/Parse_aux.ml
blob: 6592245319ca796de6fbf7a9dcdc277fadd0bfc8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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 ""