version 0.7.1

[helm.git] / helm / ocaml / cic_transformations / box.mli

diff --git a/helm/ocaml/cic_transformations/box.mli b/helm/ocaml/cic_transformations/box.mli
index 2c98b296938d1772c2deaab199a3d9bfa3715071..296b14c156b50f3bac62d42a7147473ccb13dff5 100644 (file)
--- a/helm/ocaml/cic_transformations/box.mli
+++ b/helm/ocaml/cic_transformations/box.mli
@@ -36,8 +36,11 @@ type
   'expr box =
     Text of attr * string
   | Space of attr
+  | Ink of attr
   | H of attr * ('expr box) list
   | V of attr * ('expr box) list
+  | HV of attr * ('expr box) list
+  | HOV of attr * ('expr box) list
   | Object of attr * 'expr
   | Action of attr * ('expr box) list
 
@@ -47,5 +50,22 @@ val smallskip : 'expr box
 val skip: 'expr box
 val indent : 'expr box -> 'expr box
 
+val box2xml:
+  obj2xml:('a -> Xml.token Stream.t) -> 'a box ->
+    Xml.token Stream.t
 
+val map: ('a -> 'b) -> 'a box -> 'b box
+
+(*
+val document_of_box :
+  ~obj2xml:('a -> Xml.token Stream.t) -> 'a box -> Xml.token Stream.t
+*)
+
+val b_h: attr -> 'expr box list -> 'expr box
+val b_v: attr -> 'expr box list -> 'expr box
+val b_text: attr -> string -> 'expr box
+val b_object: 'expr -> 'expr box
+val b_indent: 'expr box -> 'expr box
+val b_space: 'expr box
+val b_kw: string -> 'expr box