X-Git-Url: http://matita.cs.unibo.it/gitweb/?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=6ca611cb36e0c320a2ffb9e089da4d1554254d48;hb=0474bcec6d3bb8972eec0964a34872712122f340;hp=0000000000000000000000000000000000000000;hpb=53571c5ca8c4354f9df5880f445aa63de4979a5d;p=helm.git

diff --git a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.ml b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.ml
new file mode 100644
index 000000000..6ca611cb3
--- /dev/null
+++ b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.ml
@@ -0,0 +1,36 @@
+(* 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>
+ * 
+ * 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@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
+;;