ulexer.mli 577 Bytes
Newer Older
1 2 3 4 5 6 7
open Camlp4.Sig

type token =
  | KEYWORD of string
  | IDENT of string
  | ANY_IN_NS of string
  | INT of string
8
  | STRING1 of string
9
  | STRING2 of string
Pietro Abate's avatar
Pietro Abate committed
10
  | PVAR of string
11 12
  | EOI

13 14
exception Error of int * int * string

15 16 17 18 19
module Loc   : Loc with type t = int * int
module Token : Token with module Loc = Loc and type t = token
module Error : Error

val mk : unit -> (Loc.t -> char Stream.t -> (Token.t * Loc.t) Stream.t)
20 21 22 23

val in_comment: bool ref
val lexbuf: Ulexing.lexbuf option ref
val enc: Ulexing.enc ref
24
val sync: Ulexing.lexbuf -> unit
25 26

val dump_file: string -> unit