ocaml 3.09 transition

[helm.git] / helm / DEVEL / gdome_xslt / ocaml / gdome_xslt / gdome_xslt.mli

diff --git a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.mli b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.mli
index a67fdd61e9eacbc066067936465232af5ba02d91..8115457f33778299e86c1c2bbcb842284d8a57cc 100644 (file)
--- a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.mli
+++ b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.mli
@@ -4,7 +4,9 @@
  * The code is largely based on the code of T.J. Mather's XML::GDOME::XSLT
  * Perl module (http://kobesearch.cpan.org/search?dist=XML-GDOME-XSLT)
  *
- * Copyright (C) 2002 Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
+ * Copyright (C) 2002:
+ *     Claudio Sacerdoti Coen  <sacerdot@cs.unibo.it>
+ *     Stefano Zacchiroli      <zack@cs.unibo.it>
  * 
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -20,19 +22,38 @@
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
- * For more information, please send an email to <sacerdot@cs.unibo.it>
+ * For more information, please send an email to {sacerdot,zack}@cs.unibo.it
  *)
 
-(* processStylesheet stylesheet                             *)
-(* Process a stylesheet so that it can be subsequently used *)
-(* with applyStylesheet.                                    *)
-val processStylesheet :
- Gdome.document -> I_gdome_xslt.processed_stylesheet
+(* processStylesheet stylesheet                               *)
+(* Process a stylesheet so that it can be subsequently used   *)
+(* with applyStylesheet.                                      *)
+val processStylesheet:
+ Gdome.document ->
+   I_gdome_xslt.processed_stylesheet
 
 (* applyStylesheet source stylesheet params                   *)
 (* Applies a processed stylesheet to a source document, using *)
 (* the given list of parameters (couples name,value)          *)
-val applyStylesheet :
+val applyStylesheet:
  source: Gdome.document ->
  stylesheet:I_gdome_xslt.processed_stylesheet ->
- params:(string * string) list -> Gdome.document
+ params:(string * string) list ->
+   Gdome.document
+
+(* output the result of a previous XSLT transformation to an  *)
+(* output channel                                             *)
+val saveResultToChannel:
+  outchan: out_channel ->
+  result: Gdome.document ->
+  stylesheet: I_gdome_xslt.processed_stylesheet ->
+    unit
+
+(** set error callback, that is a function invoked each time an error message is
+generated. If None is passed, libxslt default error callback is used *)
+val setErrorCallback: (string -> unit) option -> unit
+
+(** set debug callback, that is a function invoked each time a debugging message
+is generated. If None is passed, libxslt default error callback is used *)
+val setDebugCallback: (string -> unit) option -> unit
+