EVOLUTION-MANAGER

Edit File: xml2tex.Sxml

<?xml version="1.0"?>
<!DOCTYPE SSource SYSTEM "/home/duncan/Projects/org/omegahat/XML/RS/examples/SSource.dtd"
  [
    <!ENTITY lt    "<" >
     
    <!ENTITY sgets "<-" >
    <!ENTITY Latex "LaTex" >
  ]>

The functions in this file are an initial attempt to define some
filters for an XML document to produce &Latex; output by translating
the contents of the XML document.

Note that using XSL is slightly problematic because the result needs
to be a valid XML document, which no &Latex; document ever is.

</overview>

<function lang="S">
<sname>xml2tex</sname>
<def>
function(node, mappings=.XMLTexMappings) {
   n &sgets; 10
   x &sgets; <fragmentRef id="frag1" />
   print(x+10)
   x
}
</def>
</function>

<?R cat("A processing instruction\n") ?>

<function>
<sname>xml2texUnderline</sname>
<def>
function(node, tex)
{

}
</def>
</function>

<function>
<def>
xml2texCode &sgets;
function(node, tex)
{

}
</def>
</function>

<Sexpression>
 xml2tex.map &sgets;
  list("i"="textit",
    "b"="textbf",
    "sfunction"="SFunction",
    "item"="item",
    "label"=c("[", "]"),
    "cite"=function(x) { paste("\cite{", xmlAttrs(x)["id"], "}", collapse="")},
    "bibitem"="",
    "bibliography"=""
   )
</Sexpression>

<function>
    <sname>mapXML2TeX</sname>
    <def>
      function(node, attr) {
        name &sgets; xmlName(node)
        el &sgets; xml2tex.map[[name]]
        if(!is.null(el)) {
          if(mode(el) == "character") {
            
          } else if(mode(el) == "function") {
            el(node)
          }
        }
      }
    </def>
  </function>
</SSource>