X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fgrammar2.mli;h=c884ff1359e6ab730b7b3e0ce21a81122f0f4570;hb=577e04ded43baa0582530316da40777884031dc8;hp=a775780f01071f6018b2ce800eb75e7a755c5991;hpb=071e25c710e9a48116f66ddf51bfdca25e20502b;p=SXSI%2Fxpathcomp.git

diff --git a/src/grammar2.mli b/src/grammar2.mli
index a775780..c884ff1 100644
--- a/src/grammar2.mli
+++ b/src/grammar2.mli
@@ -12,11 +12,14 @@ type n_symbol = n_type Node.t
 type t_symbol = t_type Node.t
 type tn_symbol = [ any_type ] Node.t
 
+type 'a partial =
+  | Cache of 'a
+  | Leaf of int*int * StateSet.t array * node
+  | Node0 of tn_symbol (* No parameters *)
+  | Node1 of tn_symbol * 'a partial
+  | Node2 of tn_symbol * 'a partial * 'a partial
 
-type partial =
-    Leaf of node
-  | Node of tn_symbol * partial array
-
+type conf = C0 | C1 | C2 | C3 | C4 | C5 | C6
 
 val parse : string -> t
 val save : t -> string -> unit
@@ -33,9 +36,21 @@ val tag : t_symbol -> Tag.t
 val start_first_child : t -> node -> node
 val start_next_sibling : t -> node -> node
 val get_rule : t -> n_symbol -> rhs
+val get_conf : rhs ->  conf
 val get_rank : rhs -> int
 val get_id1_rank : rhs -> int
 val get_id2_rank : rhs -> int
 val get_id2_pos : rhs -> int
 val get_id1 : rhs -> tn_symbol
 val get_id2 : rhs -> tn_symbol
+
+val is_attribute : t -> Tag.t -> bool
+(*
+val start_skip : t -> node -> int -> int
+val rule_skip : t -> n_symbol -> 'a partial -> 'a partial -> int -> int
+*)
+val dummy_param : 'a partial
+(*
+val dispatch_param0 : conf -> tn_symbol -> 'a partial -> 'a partial -> 'a partial
+val dispatch_param1 : conf -> tn_symbol -> 'a partial -> 'a partial -> 'a partial
+*)