This commit was manufactured by cvs2svn to create branch

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

diff --git a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.ml b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.ml
deleted file mode 100644 (file)
index b64a006..0000000
--- a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.ml
+++ /dev/null
@@ -1,59 +0,0 @@
-(* This file is part of an ocaml binding of an XSLT engine working on Gdome
- * documents.
- * 
- * 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>
- *     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
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- * 
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- * 
- * You should have received a copy of the GNU Lesser General Public
- * 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,zack}@cs.unibo.it
- *)
-
-let processStylesheet style =
- I_gdome_xslt.processStylesheet style#as_Document
-;;
-
-let applyStylesheet ~source ~stylesheet ~params =
- let res =
-  I_gdome_xslt.applyStylesheet ~source:(source#as_Document) ~stylesheet
-   ~params
- in
-  new Gdome.document res
-;;
-
-let saveResultToChannel ~outchan ~result ~stylesheet =
-  I_gdome_xslt.saveResultToChannel
-    ~outchan
-    ~result:result#as_Document
-    ~stylesheet
-;;
-
-let setErrorCallback = function
-  | None -> I_gdome_xslt.disableErrorCallback ()
-  | Some (callback: string -> unit) ->
-      Callback.register "error_callback" callback;
-      I_gdome_xslt.enableErrorCallback ()
-;;
-let setDebugCallback = function
-  | None -> I_gdome_xslt.disableDebugCallback ()
-  | Some (callback: string -> unit) ->
-      Callback.register "debug_callback" callback;
-      I_gdome_xslt.enableDebugCallback ()
-;;
-