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