* http://helm.cs.unibo.it/
*)
+open Uwobo_common ;;
+
exception Stylesheet_not_found of string ;;
exception Stylesheet_already_in of string ;;
- (** libxslt's message *)
-type xslt_msg =
- | LibXsltErrorMsg of string (** libxslt's error messages *)
- | LibXsltDebugMsg of string (** libxslt's debugging messages *)
-type log = xslt_msg list ;;
-
(** hold UWOBO styles at runtime *)
class styles:
object
@param key key to which the stylesheets will be bound
@param uri uri of the stylesheet to be loaded
@raise Stylesheet_already_in if key is already bound *)
- method add: string -> string -> log
+ method add: string -> string -> unit
(** remove the stylesheet bound to a given key *)
- method remove: string -> log
+ method remove: string -> unit
(** remove all loaded stylesheet *)
- method removeAll: log
+ method removeAll: unit
(** reload the stylesheet bound to a given key *)
- method reload: string -> log
+ method reload: string -> unit
(** reload all stylesheets *)
- method reloadAll: log
+ method reloadAll: unit
(** {2 Stylesheets usage} *)
at least stylesheet's key and URI *)
method list: string list
- (** @param key_list list of keys
- @return a pair. First component of the returned pair is an association
- list that maps given keys to gdome2-xslt processed stylesheets. Second
- component of the returned pair is an unprocessed version of the
- stylesheets corresponding to the latest key provided *)
+ (**
+ @param key_list non empty list of keys
+ @param props list of prop
+ @param logger the logger to be used to report errors and warnings
+ @return a pair. The first argument of the pair is an association list
+ that maps given keys to gdome2-xslt processed stylesheets. The last
+ stylesheet xsl:output element is modified according to the given
+ properties. The second argument of the pair is the last unprocessed
+ stylesheet.
+ *)
method get:
- string list ->
+ string list -> (string * string) list -> Uwobo_logger.sysLogger ->
(string * I_gdome_xslt.processed_stylesheet) list * Gdome.document
end