exception Eof
exception InternalError of string
val version : string
module HashString :
  sig type t = string val equal : t -> t -> bool val hash : t -> int end
module StringHashtbl :
  sig
    type key = HashString.t
    type 'a t = 'a Hashtbl.Make(HashString).t
    val create : int -> 'a t
    val clear : 'a t -> unit
    val copy : 'a t -> 'a t
    val add : 'a t -> key -> 'a -> unit
    val remove : 'a t -> key -> unit
    val find : 'a t -> key -> 'a
    val find_all : 'a t -> key -> 'a list
    val replace : 'a t -> key -> 'a -> unit
    val mem : 'a t -> key -> bool
    val iter : (key -> 'a -> unit) -> 'a t -> unit
    val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
    val length : 'a t -> int
  end
val lexicon : Cparser.token StringHashtbl.t
val init_lexicon : 'a -> unit
val add_type : StringHashtbl.key -> unit
val context : StringHashtbl.key list list ref
val push_context : 'a -> unit
val pop_context : 'a -> unit
val add_identifier : StringHashtbl.key -> unit
val rem_quotes : string -> string
val scan_ident : StringHashtbl.key -> Cparser.token
type handle =
    bool * in_channel * string * string * int * int * out_channel * string
val current_handle : handle ref
val interactive : handle -> bool
val in_channel : handle -> in_channel
val buffer : handle -> string
val pos : handle -> int
val real_pos : int -> handle -> int
val lineno : handle -> int
val out_channel : handle -> out_channel
val file_name : handle -> string
val set_line : int -> unit
val set_name : string -> unit
val underline_error : string -> int -> int -> string
val display_error : string -> int -> int -> unit
val error : string -> 'a
val scan_escape : string -> string
val get_value : char -> int
val scan_hex_escape : string -> string
val scan_oct_escape : string -> string
val __ocaml_lex_tables : Lexing.lex_tables
val initial : Lexing.lexbuf -> Cparser.token
val __ocaml_lex_initial_rec : Lexing.lexbuf -> int -> Cparser.token
val comment : Lexing.lexbuf -> unit
val __ocaml_lex_comment_rec : Lexing.lexbuf -> int -> unit
val line : Lexing.lexbuf -> Cparser.token
val __ocaml_lex_line_rec : Lexing.lexbuf -> int -> Cparser.token
val file : Lexing.lexbuf -> Cparser.token
val __ocaml_lex_file_rec : Lexing.lexbuf -> int -> Cparser.token
val endline : Lexing.lexbuf -> Cparser.token
val __ocaml_lex_endline_rec : Lexing.lexbuf -> int -> Cparser.token
val str : Lexing.lexbuf -> string
val __ocaml_lex_str_rec : Lexing.lexbuf -> int -> string
val chr : Lexing.lexbuf -> string
val __ocaml_lex_chr_rec : Lexing.lexbuf -> int -> string
val get_buffer : handle ref -> string -> int -> int
val init : handle -> unit