1 (***********************************************************************)
4 (* Maxence Guesdon, projet Cristal, INRIA Rocquencourt *)
6 (* Copyright 2001 Institut National de Recherche en Informatique et *)
7 (* en Automatique. All rights reserved. This file is distributed *)
8 (* under the terms of the Q Public License version 1.0. *)
10 (***********************************************************************)
14 (** The types and functions to create a html table representing a dag.
15 Thanks to Daniel de Rauglaudre. *)
17 type 'a dag
= { mutable dag
: 'a node array
}
19 { mutable pare
: idag list
; valu
: 'a
; mutable chil
: idag list
}
22 (** This function returns the html code to represent the given dag. *)
23 val html_of_dag
: string dag
-> string
25 (** This function takes a list of classes and a list of class types and creates the associate dag. *)
26 val create_class_dag
:
27 Odoc_info.Class.t_class list
->
28 Odoc_info.Class.t_class_type list
->
29 (Odoc_info.Name.t
* Odoc_info.Class.cct
option) dag