helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/i_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 type processed_stylesheet
  29
  30 external setXsltMaxDepth:
  31   int ->
  32     unit
  33   = "setXsltMaxDepth"
  34
  35 external processStylesheet:
  36   [> `Document] GdomeT.t ->
  37     processed_stylesheet
  38   = "ml_processStylesheet"
  39
  40 external applyStylesheet:
  41   source: [> `Document] GdomeT.t ->
  42   stylesheet: processed_stylesheet ->
  43   params: (string * string) list ->
  44     TDocument.t
  45   = "ml_applyStylesheet"
  46
  47 external saveResultToChannel:
  48   outchan: out_channel ->
  49   result: TDocument.t ->
  50   stylesheet: processed_stylesheet ->
  51     unit
  52   = "ml_saveResultToChannel"
  53
  54 external enableErrorCallback  :  unit -> unit = "ml_enableErrorCallback"
  55 external disableErrorCallback :  unit -> unit = "ml_disableErrorCallback"
  56 external enableDebugCallback  :  unit -> unit = "ml_enableDebugCallback"
  57 external disableDebugCallback :  unit -> unit = "ml_disableDebugCallback"
  58