src/ulexer.mli

   1 (******************************************************************************)
   2 (*  SXSI : XPath evaluator                                                    *)
   3 (*  Kim Nguyen (Kim.Nguyen@nicta.com.au)                                      *)
   4 (*  Copyright NICTA 2008                                                      *)
   5 (*  Distributed under the terms of the LGPL (see LICENCE)                     *)
   6 (******************************************************************************)
   7 open Camlp4.Sig
   8
   9 exception Error of int*int*string
  10 type token =
  11       TAG of string
  12     | STRING of string
  13     | INT of int
  14     | KWD of string
  15     | ATT of string
  16     | EOI
  17 module Loc   : Loc with type t = int * int
  18 module Token : Token with module Loc = Loc and type t = token
  19 module Error : Error
  20
  21 val mk : unit -> (Loc.t -> char Stream.t -> (Token.t * Loc.t) Stream.t)