- common/entity: new format for kernel entities

[helm.git] / helm / software / lambda-delta / common / library.mli

diff --git a/helm/software/lambda-delta/common/library.mli b/helm/software/lambda-delta/common/library.mli
index 68325f3d98b931e3cc6c2a821de8c3049bad1c9f..95d5ba9b1fa167ed620232cce053c5b86a4cc6d6 100644 (file)
--- a/helm/software/lambda-delta/common/library.mli
+++ b/helm/software/lambda-delta/common/library.mli
@@ -9,6 +9,50 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
+type och = string -> unit
+
+type attr = string * string
+
+type 'a pp = (och -> int -> 'a) -> och -> int -> 'a
+
 val export_entity:
-   (Format.formatter -> 'bind Entity.entry -> unit) -> 
-   bool -> Hierarchy.graph -> 'bind Entity.entity -> unit
+   (unit ->'a) -> ('term -> 'a pp) -> 
+   bool -> Hierarchy.graph -> 'term Entity.entity -> 'a
+
+val tag: string -> attr list -> ?contents:'a pp -> 'a pp 
+
+val sort: string
+
+val lref: string
+
+val gref: string
+
+val cast: string
+
+val appl: string
+
+val proj: string
+
+val abst: string
+
+val abbr: string
+
+val void: string
+
+val position: int -> attr
+
+val offset: int -> attr
+
+val uri: Entity.uri -> attr
+
+val arity: int -> attr
+
+val name: Entity.attrs -> attr
+
+val mark: Entity.attrs -> attr
+
+val old_export_entity:
+   (Format.formatter -> 'term -> unit) -> 
+   bool -> Hierarchy.graph -> 'term Entity.entity -> unit
+
+val old_name: Format.formatter -> Entity.attrs -> unit