convert.f

   1
   2 REQUIRE XSLT ~ac/lib/lin/xml/xslt.f
   3 REQUIRE TYPE>STR ~ygrek/lib/typestr.f
   4 REQUIRE tag ~ygrek/lib/xmltag.f
   5 REQUIRE re_split ~ygrek/lib/re/ext.f
   6 REQUIRE FINE-HEAD ~pinka/samples/2005/lib/split-white.f
   7 REQUIRE SPLIT ~pinka/samples/2005/lib/split.f
   8 REQUIRE AsQWord ~pinka/spf/quoted-word.f
   9 REQUIRE /STRING lib/include/string.f
  10
  11 REQUIRE EMPTY? utils.f
  12 REQUIRE parse-wiki-my parse.f
  13
  14 MODULE: convert
  15
  16 MODULE: detail
  17 \ XSLTm leaks
  18 : XSLTm ( `xml `xslfile -- s ) ['] XSLTm CATCH IF 2DROP 2DROP "" ELSE >STR THEN ;
  19
  20 EXPORT
  21
  22 : xml2wiki ( a u -- s ) S" xml2wiki.xsl" XSLTm ;
  23 : xml2html ( a u -- s ) S" xml2html.xsl" XSLTm ;
  24
  25 DEFINITIONS
  26
  27
  28 EXPORT
  29
  30 : wiki2xml my::['] (wiki2xml) TYPE>STR ;
  31
  32 ;MODULE
  33
  34 ;MODULE
  35