Initial version.

[helm.git] / helm / DEVEL / gdome_xslt / ocaml / gdome_xslt / ml_gdome_xslt.c

diff --git a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c
new file mode 100644 (file)
index 0000000..e9af428
--- /dev/null
+++ b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c
@@ -0,0 +1,126 @@
+/* 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>
+ */
+
+#include <assert.h>
+
+#include <caml/memory.h>
+#include <caml/custom.h>
+#include <caml/callback.h>
+
+#include <libxslt/xsltconfig.h>
+#include <libxslt/imports.h>
+
+#include "mlgdomevalue.h"
+#include "gdome_xslt.h"
+
+xsltStylesheetPtr XsltStylesheetPtr_val(value);
+
+static void ml_xsltFreeStylesheet(value v)
+{
+   xsltFreeStylesheet(XsltStylesheetPtr_val(v));
+}
+
+xsltStylesheetPtr XsltStylesheetPtr_val(value v)
+{
+   CAMLparam1(v);
+   xsltStylesheetPtr res = *((xsltStylesheetPtr*) Data_custom_val(v));
+   CAMLreturn(res);
+}
+
+value Val_XsltStylesheetPtr(xsltStylesheetPtr obj)
+{
+   CAMLparam0();
+   CAMLlocal1(v);
+   static struct custom_operations ops = {
+      "http://www.cs.unibo.it/helm/gdome_xslt/XsltStylesheetPtr",
+      ml_xsltFreeStylesheet,
+      custom_compare_default,
+      custom_hash_default,
+      custom_serialize_default,
+      custom_deserialize_default
+   };
+
+   v = alloc_custom(&ops, sizeof(xsltStylesheetPtr), 0, 1);
+   *((xsltStylesheetPtr*) Data_custom_val(v)) = obj;
+
+   CAMLreturn(v);
+}
+
+value ml_processStylesheet(value style)
+{
+   CAMLparam1(style);
+   xsltStylesheetPtr res;
+   res = processStylesheet(Document_val(style));
+   if (res == NULL) {
+      value* excp;
+      excp = caml_named_value("ProcessStylesheetException");
+      assert(excp != NULL);
+      raise_constant(*excp);
+   }
+   CAMLreturn(Val_XsltStylesheetPtr(res));
+}
+
+value setXsltMaxDepth(value depth)
+{
+   CAMLparam1(depth);
+   xsltMaxDepth = Int_val(depth);
+   CAMLreturn0;
+}
+
+value ml_applyStylesheet(value source, value style, value params)
+{
+   CAMLparam3(source,style,params);
+   CAMLlocal1(list);
+   GdomeDocument* res;
+   int i;
+   const char** c_params;
+
+   i = 0 ; list = params;
+   while(list != Val_int(0)) {
+      list = Field(list,1);
+      i++;
+   }
+   c_params = (const char **)malloc(sizeof(char *) * (i * 2 + 1));
+
+   i = 0; list = params;
+   while(list != Val_int(0)) {
+      c_params[i]   = String_val(Field(Field(list,0),0));
+      c_params[i+1] = String_val(Field(Field(list,0),1));
+      list = Field(list,1);
+      i+=2;
+   }
+   c_params[i] = NULL;
+   res = applyStylesheet(Document_val(source),
+                        XsltStylesheetPtr_val(style),
+                        c_params);
+   free(c_params);
+   if (res == NULL) {
+      value* excp;
+      excp = caml_named_value("ApplyStylesheetException");
+      assert(excp != NULL);
+      raise_constant(*excp);
+   }
+   CAMLreturn(Val_Document(res));
+}