Usable version:

[tatoo.git] / src / ulexer.mli

diff --git a/src/ulexer.mli b/src/ulexer.mli
new file mode 100644 (file)
index 0000000..6fdac83
--- /dev/null
+++ b/src/ulexer.mli
@@ -0,0 +1,21 @@
+(******************************************************************************)
+(*  SXSI : XPath evaluator                                                    *)
+(*  Kim Nguyen (Kim.Nguyen@nicta.com.au)                                      *)
+(*  Copyright NICTA 2008                                                      *)
+(*  Distributed under the terms of the LGPL (see LICENCE)                     *)
+(******************************************************************************)
+open Camlp4.Sig
+
+exception Error of int*int*string
+type token =
+      TAG of string
+    | STRING of string
+    | INT of int
+    | KWD of string
+    | ATT of string
+    | EOI 
+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)