2002-03-27 08:20:32 -08:00
|
|
|
(***********************************************************************)
|
2012-08-01 05:09:31 -07:00
|
|
|
(* *)
|
2002-03-27 08:20:32 -08:00
|
|
|
(* 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. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
2010-01-22 04:48:24 -08:00
|
|
|
(** The types and functions to create a html table representing a dag.
|
2002-03-27 08:20:32 -08:00
|
|
|
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 :
|
2010-01-22 04:48:24 -08:00
|
|
|
Odoc_info.Class.t_class list ->
|
|
|
|
|
Odoc_info.Class.t_class_type list ->
|
2002-07-23 07:12:03 -07:00
|
|
|
(Odoc_info.Name.t * Odoc_info.Class.cct option) dag
|
