This commit was manufactured by cvs2svn to create branch 'jocamltrunk'.

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/jocamltrunk@6332 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 31 insertions, 0 deletions

diff --git a/ocamldoc/odoc_dag2html.mli b/ocamldoc/odoc_dag2html.mli
new file mode 100644
index 0000000000..0f21e745d2
--- /dev/null
+++ b/ocamldoc/odoc_dag2html.mli
@@ -0,0 +1,31 @@
+(***********************************************************************)
+(*                             OCamldoc                                *)
+(*                                                                     *)
+(*            Maxence Guesdon, projet Cristal, INRIA Rocquencourt      *)
+(*                                                                     *)
+(*  Copyright 2001 Institut National de Recherche en Informatique et   *)
+(*  en Automatique.  All rights reserved.  This file is distributed    *)
+(*  under the terms of the Q Public License version 1.0.               *)
+(*                                                                     *)
+(***********************************************************************)
+
+(* $Id$ *)
+
+(** The types and functions to create a html table representing a dag. 
+   Thanks to Daniel de Rauglaudre. *)
+
+type 'a dag = { mutable dag : 'a node array }
+and 'a node =
+  { mutable pare : idag list; valu : 'a; mutable chil : idag list }
+and idag = int
+
+(** This function returns the html code to represent the given dag. *)
+val html_of_dag : string dag -> string
+
+(** This function takes a list of classes and a list of class types and creates the associate dag. *)
+val create_class_dag :
+    Odoc_info.Class.t_class list -> 
+      Odoc_info.Class.t_class_type list -> 
+        (Odoc_info.Name.t * Odoc_info.Class.cct option) dag
+
+