]> matita.cs.unibo.it Git - helm.git/blob - helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/gdome_xslt.ml
ported to ocaml 3.09.1
[helm.git] / helm / DEVEL / gdome_xslt / ocaml / gdome_xslt / gdome_xslt.ml
1 (* This file is part of an ocaml binding of an XSLT engine working on Gdome
2  * documents.
3  * 
4  * The code is largely based on the code of T.J. Mather's XML::GDOME::XSLT
5  * Perl module (http://kobesearch.cpan.org/search?dist=XML-GDOME-XSLT)
6  *
7  * Copyright (C) 2002:
8  *      Claudio Sacerdoti Coen  <sacerdot@cs.unibo.it>
9  *      Stefano Zacchiroli      <zack@cs.unibo.it>
10  * 
11  * This library is free software; you can redistribute it and/or
12  * modify it under the terms of the GNU Lesser General Public
13  * License as published by the Free Software Foundation; either
14  * version 2.1 of the License, or (at your option) any later version.
15  * 
16  * This library is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19  * Lesser General Public License for more details.
20  * 
21  * You should have received a copy of the GNU Lesser General Public
22  * License along with this library; if not, write to the Free Software
23  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
24  *
25  * For more information, please send an email to {sacerdot,zack}@cs.unibo.it
26  *)
27
28 let processStylesheet style =
29  I_gdome_xslt.processStylesheet style#as_Document
30 ;;
31
32 let applyStylesheet ~source ~stylesheet ~params =
33  let res =
34   I_gdome_xslt.applyStylesheet ~source:(source#as_Document) ~stylesheet
35    ~params
36  in
37   new Gdome.document res
38 ;;
39
40 let saveResultToChannel ~outchan ~result ~stylesheet =
41   I_gdome_xslt.saveResultToChannel
42     ~outchan
43     ~result:result#as_Document
44     ~stylesheet
45 ;;
46
47 let setErrorCallback = function
48   | None -> I_gdome_xslt.disableErrorCallback ()
49   | Some (callback: string -> unit) ->
50       Callback.register "error_callback" callback;
51       I_gdome_xslt.enableErrorCallback ()
52 ;;
53 let setDebugCallback = function
54   | None -> I_gdome_xslt.disableDebugCallback ()
55   | Some (callback: string -> unit) ->
56       Callback.register "debug_callback" callback;
57       I_gdome_xslt.enableDebugCallback ()
58 ;;
59