1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(***********************************************************************)
(* *)
(* HEVEA *)
(* *)
(* Luc Maranget, projet Moscova, INRIA Rocquencourt *)
(* *)
(* Copyright 2001 Institut National de Recherche en Informatique et *)
(* Automatique. Distributed only by permission. *)
(* *)
(* $Id: util.mli,v 1.5 2001-05-28 17:28:56 maranget Exp $ *)
(***********************************************************************)
val cost : ('a -> int * int) -> 'a Tree.t -> int * int
val costs : ('a -> int * int) -> 'a Tree.t list -> int * int
val cost_compare : int * int -> int * int -> int
val there : Htmltext.t_style -> Htmltext.style -> bool
val inter : Htmltext.style -> Htmltext.style -> Htmltext.style
val union : Htmltext.style -> Htmltext.style -> Htmltext.style
val sub : Htmltext.style -> Htmltext.style -> Htmltext.style
val neutral : Htmltext.style -> Htmltext.style * Htmltext.style
val is_blank : 'a Tree.t -> bool
val is_blanks : 'a Tree.t list -> bool
val nodes :
Htmltext.style -> Htmltext.style Tree.t list -> Htmltext.style Tree.t list
val node :
Htmltext.style -> Htmltext.style Tree.t list -> Htmltext.style Tree.t
|
