1(***********************************************************************) 2(* *) 3(* HEVEA *) 4(* *) 5(* Luc Maranget, projet PARA, INRIA Rocquencourt *) 6(* *) 7(* Copyright 1998 Institut National de Recherche en Informatique et *) 8(* Automatique. Distributed only by permission. *) 9(* *) 10(***********************************************************************) 11 12(* For text-level elements *) 13type text = 14 Style of string 15| Font of int 16| Color of string 17| StyleAttr of string * string 18let pretty_text = function 19 Style s -> "Style: "^s 20| Font i -> "Font size: "^string_of_int i 21| Color s -> "Font color: "^s 22| StyleAttr (t,a) -> "Style with attributes: "^t^" ["^a^"]" 23;; 24