+ (** {2 LibXSLT logging} *)
+
+ (** libxslt's message *)
+type xslt_msg =
+ | LibXsltErrorMsg of string (** libxslt's error messages *)
+ | LibXsltDebugMsg of string (** libxslt's debugging messages *)
+
+ (** pretty print a xslt_msg *)
+val string_of_xslt_msg: xslt_msg -> string
+
+ (** libxslt's message reporting mode. That is: how to report libxslt's
+ messages during apply method *)
+type xslt_msg_mode =
+ | LibXsltMsgIgnore (** Ignore some kind of messages *)
+ | LibXsltMsgComment (** Embed in XML comments some kind of messages *)
+ | LibXsltMsgEmbed (** Embed in XML elements some kind of messages *)
+
+class libXsltLogger:
+ object
+
+ method clearMsgs: unit
+ method clearErrorMsgs: unit
+ method clearDebugMsgs: unit
+
+ method msgs: xslt_msg list
+ method errorMsgs: string list
+ method debugMsgs: string list
+
+ end
+