X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2FDEVEL%2Fgdome_xslt%2Focaml%2Fgdome_xslt%2Fgdome_xslt.ml;fp=helm%2FDEVEL%2Fgdome_xslt%2Focaml%2Fgdome_xslt%2Fgdome_xslt.ml;h=0000000000000000000000000000000000000000;hp=b64a006b4c312baace2ea2a7cd5a05e01412abf0;hb=3ef089a4c58fbe429dd539af6215991ecbe11ee2;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff

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
index b64a006b4..000000000
--- 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 ()
-;;
-