Previous  Up  

Module Camlp4.Printers.OCaml.Make.Lexer


module Lexer: Camlp4.Struct.Lexer.Make(Token)
module Loc: Token.Loc
module Token: Token
module Error: sig .. end

type context = {
   loc : Loc.t;
   in_comment : bool;
   quotations : bool;
   antiquots : bool;
   lexbuf : Lexing.lexbuf;
   buffer : Buffer.t;
} 
val default_context : Lexing.lexbuf -> context
val store : context -> unit
val istore_char : context -> int -> unit
val buff_contents : context -> string
val loc : context -> Loc.t
val quotations : context -> bool
val antiquots : context -> bool
val is_in_comment : context -> bool
val in_comment : context -> context
val set_start_p : context -> unit
val move_start_p : int -> context -> unit
val update_loc : context ->
       string option -> int -> bool -> int -> unit
val with_curr_loc : (context -> Lexing.lexbuf -> 'a) ->
       context -> 'a
val parse_nested : (context -> Lexing.lexbuf -> 'a) ->
       context -> string
val shift : int -> context -> context
val store_parse : (context -> Lexing.lexbuf -> 'a) ->
       context -> 'a
val parse : (context -> Lexing.lexbuf -> 'a) ->
       context -> 'a
val mk_quotation : (context -> Lexing.lexbuf -> 'a) ->
       context ->
       string -> string -> int -> Camlp4.Sig.camlp4_token
val update_loc : context ->
       string option -> int -> bool -> int -> unit
val err : Error.t -> Loc.t -> 'a
val warn : Error.t -> Loc.t -> unit
val __ocaml_lex_tables : Lexing.lex_tables
val token : context -> Lexing.lexbuf -> Camlp4.Sig.camlp4_token
val __ocaml_lex_token_rec : context ->
       Lexing.lexbuf -> int -> Camlp4.Sig.camlp4_token
val comment : context -> Lexing.lexbuf -> unit
val __ocaml_lex_comment_rec : context -> Lexing.lexbuf -> int -> unit
val string : context -> Lexing.lexbuf -> unit
val __ocaml_lex_string_rec : context -> Lexing.lexbuf -> int -> unit
val symbolchar_star : string ->
       context -> Lexing.lexbuf -> Camlp4.Sig.camlp4_token
val __ocaml_lex_symbolchar_star_rec : string ->
       context ->
       Lexing.lexbuf -> int -> Camlp4.Sig.camlp4_token
val maybe_quotation_at : context -> Lexing.lexbuf -> Camlp4.Sig.camlp4_token
val __ocaml_lex_maybe_quotation_at_rec : context ->
       Lexing.lexbuf -> int -> Camlp4.Sig.camlp4_token
val maybe_quotation_colon : context -> Lexing.lexbuf -> Camlp4.Sig.camlp4_token
val __ocaml_lex_maybe_quotation_colon_rec : context ->
       Lexing.lexbuf -> int -> Camlp4.Sig.camlp4_token
val quotation : context -> Lexing.lexbuf -> unit
val __ocaml_lex_quotation_rec : context -> Lexing.lexbuf -> int -> unit
val dollar : context -> Lexing.lexbuf -> Camlp4.Sig.camlp4_token
val __ocaml_lex_dollar_rec : context ->
       Lexing.lexbuf -> int -> Camlp4.Sig.camlp4_token
val antiquot : string ->
       context -> Lexing.lexbuf -> Camlp4.Sig.camlp4_token
val __ocaml_lex_antiquot_rec : string ->
       context ->
       Lexing.lexbuf -> int -> Camlp4.Sig.camlp4_token
val lexing_store : char Stream.t -> string -> int -> int
val from_context : context ->
       (Camlp4.Sig.camlp4_token * Loc.t) Stream.t
val from_lexbuf : ?quotations:bool ->
       Lexing.lexbuf ->
       (Camlp4.Sig.camlp4_token * Loc.t) Stream.t
val setup_loc : Lexing.lexbuf -> Loc.t -> unit
val from_string : ?quotations:bool ->
       Loc.t ->
       string -> (Camlp4.Sig.camlp4_token * Loc.t) Stream.t
val from_stream : ?quotations:bool ->
       Loc.t ->
       char Stream.t ->
       (Camlp4.Sig.camlp4_token * Loc.t) Stream.t
val mk : unit ->
       Loc.t ->
       char Stream.t ->
       (Camlp4.Sig.camlp4_token * Loc.t) Stream.t