This is the mail archive of the
cygwin@cygwin.com
mailing list for the Cygwin project.
Re: docbook xml toolchain
- From: Patrick Eisenacher <eisenacher at fillmore-labs dot com>
- To: cygwin at cygwin dot com
- Cc: news dot Andreas at gmx dot net
- Date: Fri, 09 May 2003 13:54:05 +0200
- Subject: Re: docbook xml toolchain
- Organization: Fillmore Labs GmbH <http://www.fillmore-labs.com/>
Andreas,
to setup an xml toolchain, you need the docbook dtd, the stylesheets,
libxml2 and libxslt packages. The packages contain xmllint - your xml
validator - and xsltproc - the processor that applies the xsl stylesheet
to your xml source to produce your output result.
For generating PDF output, I use passivetex together with xmltex which
require the tex packages as well. Note that PDF generation via the xsl
stylesheets is still in its early days and require a good deal of
stylesheet customization. You get better results for PDF when you use
the more mature dsssl stylesheets together with the sgml toolchain. The
sgml toolchain can also be used on xml source.
passivetex and xmltex is available via the following link:
http://www.tei-c.org.uk/Software/passivetex/
I use the following script excerpt to install the pdf toolchain:
update_tex()
{
#install xmltex and passivetex
if [ -d /usr/share/texmf.local ]; then
rm -R -f /usr/share/texmf.local
fi
if [ -d /usr/share/texmf-var ]; then
rm -R -f /usr/share/texmf-var
fi
mkdir /usr/share/texmf.local
mkdir /usr/share/texmf-var
mkdir /usr/share/texmf.local/tex
mkdir /usr/share/texmf.local/tex/xmltex
unzip DocbookCygwinXmlTex.zip -d /usr/share/texmf.local/tex/xmltex
unzip DocbookCygwinPassiveTex.zip -d /usr/share/texmf.local/tex/xmltex
cp -f DocbookXmltex.tex /usr/share/texmf.local/tex/xmltex/base/xmltex.tex
patch -N -u /usr/share/texmf/web2c/fmtutil.cnf DocbookCygwinFmtutil.diff
patch -N -u /usr/share/texmf/web2c/texmf.cnf DocbookCygwinTexmf.diff
mktexlsr
texconfig confall
texconfig rehash
texconfig init
#install dbxml script
if ! [ -d $HOME/bin ]; then
mkdir $HOME/bin
fi
cp -f DocbookXml.sh $HOME/bin/dbxml
if ! [ -L /usr/local/bin/pdfxmltex.exe ]; then
ln -s /usr/bin/pdftex.exe /usr/local/bin/pdfxmltex.exe
fi
}
I attached the patches for fmtutil.cnf and texmf.cnf. They are for the
following versions: XmlTex 2000-01-18, PassiveTeX 2000-05-06. You have
to check yourself whether newer versions of those distributions are
available and whether the patches still apply. The other 2 files
required for the script are attached as well. If those shouldn't come
through, feel free to mail me in private.
Make sure, $HOME/bin is in your path before you run the script, eg. edit
your personal /home/{username}/.profile to include the following lines:
PATH="$PATH:$HOME/bin"
export PATH
After the installation you can convert your xml file to html or pdf with
the following commands:
dbxml -t html filename.xml
dbxml -t pdf filename.xml
call dbxml -h for help
The problems you witnessed with processing entities are caused by
xsltproc. Cygwin's version of xsltproc is pretty old and does choke on
the latest xsl stylesheets. If you go back to the v1.52.1 xsl
stylesheets you should get the results that you're looking for. Unless
those require features that are only available via later versions of the
stylesheets, of course. Elfyn is currently updating the libxml2 and
libxslt packages, so once those are available, your entity problems
should go away.
More docbook help is available on the docbook and docbook-apps mailing
lists: http://www.oasis-open.org/docbook/mailinglist/
HTH,
Patrick
Hello,
I got some docbook sources and I am trying to set-up a docbook xml toolchain
under cygwin. I read some package announcements months ago but they didn´t
make it in the netdistro.
Are those good souls still working on a release? Is there still work in
progress?
I am using Marcel Telkas approach [1] to generate html. It uses xmlto to
generate different formats. Unfortunately it does not support the processing
of entities.
I find it quite hard to put the pieces together to come up with a printable
document (pdf) toolchain which is up to date.
Could someone with a wider horizon please share his/her experience in
setting up such a thing?
Any pointer would be highly appreciated!
Thanks in advance,
Andy
[1] <http://www.cygwin.com/ml/cygwin-apps/2003-02/msg00148.html>
--- texmf.cnf Sun May 5 23:43:58 2002
+++ texmf.cnf.patched Sun May 5 23:52:30 2002
@@ -1,4 +1,4 @@
-% original texmf.cnf -- runtime path configuration file for kpathsea.
+% texmf.cnf -- runtime path configuration file for kpathsea.
% (If you change or delete `original' on the previous line, the
% distribution won't install its version over yours.)
% Public domain.
@@ -58,11 +58,11 @@
TEXMFMAIN = /usr/share/texmf
% A place for local additions to a "standard" texmf tree. For example:
-% TEXMFLOCAL = /usr/share/texmf.local
+TEXMFLOCAL = /usr/share/texmf.local
% If defined, teTeX's texconfig stores modifications here (instead of the
% TEXMFMAIN tree).
-% VARTEXMF = /usr/share/texmf-var
+VARTEXMF = /usr/share/texmf-var
% User texmf trees can be catered for like this...
% HOMETEXMF = $HOME/texmf
@@ -73,7 +73,7 @@
% The braces are necessary. If you set VARTEXMF, you also have to
% - list $VARTEXMF in the TEXMF definition;
% - make sure that $VARTEXMF precedes $TEXMFMAIN in the TEXMF definition.
-TEXMF = $TEXMFMAIN
+TEXMF = {!!$TEXMFLOCAL,!!$VARTEXMF,!!$TEXMFMAIN}
% The system trees. These are the trees that are shared by all the users.
SYSTEXMF = $TEXMF
@@ -166,6 +166,7 @@
TEXINPUTS.pdfmex = .;$TEXMF/{pdftex,tex}/{mex,plain,generic,}//
TEXINPUTS.pdftex = .;$TEXMF/{pdftex,tex}/{plain,generic,}//
TEXINPUTS.pdftexinfo = .;$TEXMF/{pdftex,tex}/{texinfo,plain,generic,}//
+TEXINPUTS.pdfxmltex = .;$TEXMF/{pdftex,tex}/{xmltex,passivetex,plain,generic,}//
% pdfeTeX.
TEXINPUTS.pdfelatex = .;$TEXMF/{pdfetex,pdftex,etex,tex}/{latex,generic,}//
@@ -462,3 +463,28 @@
error_line = 79
half_error_line = 50
max_print_line = 79
+
+% hugelatex settings
+main_memory.hugelatex = 1100000
+param_size.hugelatex = 1500
+stack_size.hugelatex = 1500
+hash_extra.hugelatex = 15000
+string_vacancies.hugelatex = 670000
+pool_free.hugelatex = 47500
+nest_size.hugelatex = 500
+save_size.hugelatex = 32768
+pool_size.hugelatex = 700000
+max_strings.hugelatex = 100000
+font_mem_size.hugelatex = 400000
+
+% pdfxmltex settings
+main_memory.pdfxmltex = 2500000
+param_size.pdfxmltex = 1500
+stack_size.pdfxmltex = 1500
+hash_extra.pdfxmltex = 50000
+string_vacancies.pdfxmltex = 45000
+pool_free.pdfxmltex = 47500
+nest_size.pdfxmltex = 500
+save_size.pdfxmltex = 10000
+pool_size.pdfxmltex = 500000
+max_strings.pdfxmltex = 55000
--- fmtutil.cnf Sun May 5 23:37:31 2002
+++ fmtutil.cnf.patched Sun May 5 23:40:58 2002
@@ -38,6 +38,7 @@
pdfelatex pdfetex language.dat *pdfelatex.ini
omega omega language.dat omega.ini
lambda omega language.dat lambda.ini
+hugelatex tex language.dat latex.ini
# The amstex format:
# amstex tex - amstex.ini
@@ -80,3 +81,6 @@
# Other formats:
# eplain tex language.dat eplain.ini
+
+# Formats that depend on previously created formats
+pdfxmltex pdftex language.dat &pdflatex pdfxmltex.ini
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% xmltex.tex
%% Copyright 2000 David Carlisle, NAG Ltd.
%% This file is distributed under the LaTeX Project Public License
%% (LPPL) as found at http://www.latex-project.org/lppl.txt
%% Either version 1.0, or at your option, any later version.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\catcode`\{=1 \catcode`\}=2 \catcode`\@=11 \catcode`\#=6
\gdef\XML@tempa#1: #2.tex,v #3 #4 #5 #6 #7${
\def\xmltexversion{#4 v#3 (#6)}}
\XML@tempa
$Id: xmltex.tex,v 1.8y 2000/09/07 davidc Exp $
% initial version
% \def\xmltexversion{2000-01-03 v0.01 DPC}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% initial setup so that xmltex independent of any existing format
% even if normally built on top of latex
\endlinechar-1
\catcode`\&=4
\catcode`\^=7
\catcode`\_13
\catcode`\|=14 %
\catcode`\~=13 %
\ifx\count@\@undefined
\countdef\count@200 % fingers crossed
\countdef\XML@ns@count201\relax
\expandafter\def\csname newcount\endcsname#1{}
\expandafter\def\csname newtoks\endcsname#1{}
\toksdef\toks@200\relax
\toksdef\XML@catalogue201\relax
\toksdef\XML@attribute@toks202\relax
\def\maxdimen{16383.99999pt}
\def\space{ }
\chardef\active13 %
\countdef\z@0 %
\fi
\ifx\@tempcnta\@undefined
\countdef\@tempcnta202 % fingers crossed
\countdef\@tempcntb203 % fingers crossed
\edef\@spaces{\space\space\space\space}
\begingroup
\catcode`\>12
\gdef\strip@prefix#1>{}
\endgroup
\fi
% set up 7bit range
\count@0
\catcode0=13
\gdef\XML@tempa{
\begingroup
\uccode0\count@
\uppercase{\endgroup
\edef^^@{
\ifnum\catcode\count@=11 %
\noexpand\utfeightay\else\noexpand\utfeightax\fi
\noexpand^^@}
\expandafter\edef\csname 8:\string^^@\endcsname{\string^^@}}
\ifnum\count@<127\advance\count@1 \expandafter\XML@tempa\fi}
\XML@tempa
\catcode0=9
\begingroup
\catcode`\^^M=\active\gdef^^M{\utfeightay^^M}
\catcode`\^=\active\gdef^{\utfeightay^}
\catcode`\_=\active\gdef_{\utfeightay_}
\catcode`\~=\active\gdef~{\utfeightay~}
\catcode`\%=\active\gdef%{\utfeightay%}
\catcode`\$=\active\gdef${\utfeightay$}
\catcode`\#=\active\gdef#{\utfeightay#}
\catcode`\(=1
\catcode`\)=2
\catcode`\{=\active\gdef{(\utfeightay{)
\catcode`\}=\active\gdef}(\utfeightay})
\catcode`\/0 \catcode`\\=\active /gdef\(/utfeightay\)
/endgroup
\long\def\@gobble#1{}
\def\@empty{}
\ifx\@@end\@undefined
\let\@@end\end
\fi
\ifx\nfss@catcodes\@undefined
\def\nfss@catcodes{
\catcode`\\0
\catcode`\{1
\catcode`\}2
\catcode`\%14
\catcode`\@11
\catcode`\#6
\catcode`\"12
\catcode`\'12
\catcode`\<12
\catcode`\=12
\catcode`\>12
\catcode`\^7 %
}
\fi
% This is standard in LaTeX.
\ifx\zap@space\@undefined
\def\zap@space#1 {#1}
\fi
\newlinechar`\^^J
\ifx\@@input\@undefined
\let\@@input\input
\def\input#1{\@@input#1 }
\fi
\chardef\active=13
\chardef\@ne=1
%
\ifx\IfFileExists\@undefined
\def\IfFileExists#1#2#3{\def\@filef@und{#1 }#2}
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\immediate\write20{xmltex version: \xmltexversion}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\let\tabcellsep&
\def\afterfi#1\fi{\fi#1}
% set catcodes of low chars to 12 and hight 10 13.
\gdef\XML@tempa#1#2{
\catcode\count@#2\relax
\ifnum\count@<#1\relax
\advance\count@\@ne
\afterfi
\XML@tempa{#1}{#2}
\fi
}
\count@0\relax
\XML@tempa{`\^^K}{12}
\count@127\relax
\XML@tempa{255}{13}
\def\XML@catcodes{
% white
\catcode`\ \active
\catcode`\^^M\active
\catcode`\^^I\active
% xml
\catcode`\<\active
\catcode`\>\active
\catcode`\:\active
\catcode`\[\active
\catcode`\]\active
\catcode`\%\active
\catcode`\&\active
\catcode`\"\active
\catcode`\'\active
\catcode`\=\active
% tex
\catcode`\/\active
\catcode`\!\active
\catcode`\?\active
\catcode`\-\active
\catcode`\$\active
\catcode`\{\active
\catcode`\}\active
\catcode`\#\active
\catcode`\_\active
\catcode`\\\active
\catcode`\~\active\def~{\utfeightay~}
% and these are not catcodes
\let\XML@ns@a@\XML@ns@a@xml
\let\XML@ns\XML@ns@xml
}
\catcode`\/\active
\catcode`\!\active
\catcode`\?\active
\catcode`\"\active
\catcode`\'\active
\catcode`\<\active
\catcode`\>\active
\catcode`\&\active
\catcode`\_\active
\catcode`\ 10
\catcode`\^^M\active
%% half baked bom and utf-16 support
\catcode`^^ff\active
\catcode`^^fe\active
\catcode0=9
% do this also in everyjob incase a <?xmltex dump?> has turned it iff.
\def^^ff^^fe{
\def\XML@thisencoding{utf-16}}
\def^^fe^^ff{
\def\XML@thisencoding{utf-16}}
%%%%%%%%%%%%%%%%%%%%%%%%%%
%% warnings
\def\XML@warnNI#1{
{\let\protect\string\utfeight@protect@typeout\message{^^J#1}}}
\def\XML@warn#1{
{\let\protect\string\utfeight@protect@typeout\message{^^J\XML@w@#1}}}
\let\XML@trace@warn\XML@warn
\let\XML@trace@warnNI\XML@warnNI
\let\XML@trace@warnE\message
\let\XML@w@\@empty
% quoted literals
% " or '
% #1 command to call, gets quoted string as #1
% #2 " or '
% " and ' assumed active
\def\XML@quoted#1#2{
\ifx#2"\expandafter\XML@qq
\else\ifx#2'\expandafter\expandafter\expandafter\XML@q
\else
\ERROR#2
\fi
\fi
#1}
\def\XML@qq#1#2"{#1{#2}}
\def\XML@q#1#2'{#1{#2}}
%%%%%%%%%%%%%%%%%
% < handler
% / ! ? assumed active
\def\XML@lt@markup#1{
\catcode`\^^I=10 %
\catcode`\^^M=10 %
\catcode`\ =10 %
\ifx/#1\XML@getend
\else\ifx!#1\XML@getdecl
\else\ifx?#1\XML@getpi
\else\XML@getname#1\@}
\def\XML@first@lt{
\let<\XML@lt@markup
\let^^ff\@undefined
\let^^fe\@undefined
\XML@lt@markup}
%% reset catcodes
\def\XML@reset{
\nfss@catcodes
\catcode`\$3
\catcode`\&4
\catcode`\^7
\catcode`\_8
\catcode`\:12
\catcode`\!12
\catcode`\=12
\catcode`\=12
\catcode`\|12
\catcode`\ =10
\catcode`\~\active\def~{\nobreakspace{}}
% catcodes?
\let\XML@ns@a@\XML@ns@a@tex
\let\XML@ns\XML@ns@tex}
%% begin tag
\begingroup
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
%
% #1 first char of name
% grab the name into an xdef so that derminating string can
% be any of whitespace / or >
\gdef\XML@getname#1\@{
\fi\fi\fi
\begingroup
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
\def {\iffalse{\fi}\XML@getname@}
\let^^M %
\let^^I %
\def/{\iffalse{\fi}\XML@getname@/}
\def>{\iffalse{\fi}\XML@getname@>}
\unrestored@protected@xdef\XML@tempa{\iffalse}\fi#1}
\endgroup
% finish the special group for the name xdef, start an XML@begingroup
% for the element, and begin processing any attributes.
\def\XML@getname@{
\endgroup
\XML@begingroup
\edef\XML@w@{ \XML@w@}
\let\begintag\XML@tempa
\let\XML@parent\XML@this@element
\XML@attribute@toks{}
\XML@getattrib}
% elements put in an \XML@begingroup which is a not a group at the
% outer level to save save stack, but turns itself into a group
% for nexted elements.
\def\XML@begingroup{
\def\XML@begingroup{
\begingroup
\let\XML@begingroup\begingroup
\let\XML@endgroup\endgroup}}
\let\XML@endgroup\@@end
%% attributes
% #1 first letter of attribute name, or / or > to finish.
\def\XML@getattrib#1{
\ifx#1/
\expandafter\XML@endempty
\else
\ifx#1>
\expandafter\expandafter\expandafter\XML@startelement
\else
\XML@getattrib@a#1
\fi
\fi}
\let\XML@@getattrib\XML@getattrib
\begingroup
\catcode`\:\active
\catcode`\<12
\catcode`\>12
% restore normal XML whitespace regime
% namespace check element name (has to be done after attribute handling)
% trace the element start then `do' the element which might be
% noop, execute package code, or grab, depending.
\gdef\XML@startelement{
\XML@default@attributes
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
\XML@ns\begintag
\edef\XML@this@element{
\csname XMLNS@\XML@this@prefix\expandafter\endcsname\noexpand:
\XML@this@local}
\XML@trace@warn{<\XML@this@element}
\XML@checkknown
\XML@attrib@trace
\XML@doelement}
\endgroup
% This is a noop if tracing turned off, otherwise loop through
% attlist with a typeout on each.
\def\XML@attrib@trace{
\begingroup
\let\XML@doattribute\XML@doattribute@warn
\def\XMLNS@{0}
\utfeight@protect@typeout
\the\XML@attribute@toks
\XML@trace@warnE{ >}
\endgroup}
% execute package code for an element start.
\def\XML@doelement{
\csname
E:\XML@this@element
\endcsname
}
\begingroup
\catcode`\:\active
\uccode`\~`\^^I%
% grab element content into a token register.
% has to pass through xdef to normalise encodings.
\uppercase{
\gdef\XML@grabelement{
\catcode`\ \active\catcode`\^^M\active\catcode`\^^I\active
\global\XMLgrabtoks\expandafter{
\the\expandafter\XMLgrabtoks
\expandafter<\XML@this@element~}
% check if I can switch this just once, where grabelement switched.
\begingroup
\let\XML@doattribute\XML@grabattribute
\def\XMLNS@{0}
\expandafter\let\csname XMLNS@0\endcsname\XMLNS@
\the\XML@attribute@toks
\endgroup
%
\catcode`\ \active\catcode`\^^M\active\catcode`\^^I\active
\global\XMLgrabtoks\expandafter{
\the\XMLgrabtoks
>}
\XMLgrab@}
}
% #1 namespace
% #2 local name
% #3 value
\catcode`\=\active
\gdef\XML@grabattribute#1#2#3{
\protected@xdef\XML@tempa{\csname XMLNS@#1\endcsname:#2}
\global\XMLgrabtoks\expandafter{
\the\expandafter\XMLgrabtoks
\XML@tempa="#3" }}
\endgroup
% #1 should be empty, between the / and the >
% probably should put some internal form here rather than literally adding
% end tag to be reparsed, but this simplifies grab code.
\def\XML@endempty#1>{
\expandafter\XML@startelement
\expandafter<\expandafter/\begintag>}
%% check we know what to do with an element
\def\XML@checkknown{
\expandafter\ifx
% catcode :? \csname E:\XML@this@element\endcsname
\csname E:\csname XMLNS@\XML@this@prefix\endcsname:\XML@this@local\endcsname
\relax
\let\XML@use\@empty
\ifnum0=\csname XMLNS@\XML@this@prefix\endcsname
\let\XML@NAME\XML@this@local
% prerun catalogue in this case which might coerce element into a new namespace
\the\XML@catalogue
\else
\edef\XML@NAMESPACE{\csname XMLNS@\XML@this@prefix\endcsname}
\fi
\let\XML@NAME\relax
\the\XML@catalogue
\inputonce\XML@use
\expandafter\ifx\csname E:\csname
XMLNS@\XML@this@prefix\endcsname:\XML@this@local\endcsname\relax
\XML@trace@warnE{Undefined}
\fi
\fi}
%% end tag
\def\XML@getend#1\@#2>{
\fi
\catcode`\ \active
% removed by Peter Housel housel@acm.org 2000/09/06
% \catcode`\^^M\active\catcode`\^^I\active
\XML@getend@a#2 \@}
\begingroup
\catcode`\/=12
\catcode`\<=12
\catcode`\>=12
\catcode`\:=12
% namespace normalise element name in end tag.
\gdef\XML@getend@a#1 #2\@{
\catcode`\ \active\catcode`\^^M\active\catcode`\^^I\active
\def\endtag{#1}
\XML@ns\endtag
\XML@trace@warn{</\csname XMLNS@\XML@this@prefix\endcsname:\XML@this@local>}
\XML@doend
}
% execute package code for element end.
\gdef\XML@doend{
\csname
E/:\csname XMLNS@\XML@this@prefix\endcsname:\XML@this@local
\endcsname
\XML@endgroup
% added by Peter Housel housel@acm.org 2000/09/06
\catcode`\^^M\active \catcode`\^^I\active \catcode`\ \active}
\endgroup
% flag children: put \@empty after every child element
% used by \xmltextwochildren and friends
% need active and non active : and / so...
\begingroup
\catcode`\:\active
\uccode`\*=`\:
\uccode`\.=`\/
\uccode`\a\z@
\uccode`\b\z@
\uccode`\c\z@
\uccode`\d\z@
\uccode`\e\z@
\uccode`\n\z@
\uccode`\r\z@
\uccode`\o\z@
\uccode`\t\z@
\uppercase{
\gdef\XML@grabend{
\ifx\XML@this@level\XML@w@
% end inner group to restore \XML@doelement and friends
\endgroup
\XML@trace@warn{Grabbed content}
\csname
E.*\csname XMLNS@\XML@this@prefix\endcsname
*\XML@this@local
\expandafter\endcsname\expandafter{
\the\XMLgrabtoks}
\XML@trace@warn{End grabbed content}
\XML@endgroup
% \XMLstring usage means catcode restoring varies
% must fix this one day, for now use ifnum avoidance
\ifnum\catcode`\^^M=10
\catcode`\ \active\catcode`\^^M\active\catcode`\^^I\active
\fi
\else
\xdef\XML@tempa{\noexpand<\noexpand/
\csname XMLNS@\XML@this@prefix\expandafter\endcsname\noexpand:
\XML@this@local
\noexpand>
\ifx\XML@next@level\XML@w@\noexpand\@empty\fi}
\global\XMLgrabtoks\expandafter{
\the\expandafter\XMLgrabtoks
\XML@tempa}
\XML@endgroup
\expandafter
\XMLgrab@
\fi}}
\endgroup
%%%
% syntax for these will probably change.
\def\xmltexfirstchild#1\@empty#2\@{
#1}
\def\xmltextwochildren#1#2#3\@empty#4\@empty{
#1{#3}#2{#4}}
\def\xmltexthreechildren#1#2#3#4\@empty#5\@empty#6\@empty{
#1{#4}#2{#5}#3{#6}}
\def\xmltexforall#1#2{
\xmltexf@rall#1#2< >\@empty}
\def\xmltexf@rall#1#2<#3 #4>#5\@empty{
\ifx\relax#3\relax
\else
\def\xml@name{#3}#1{<#3 #4>#5}
\expandafter\xmltexf@rall\expandafter#1
\fi}
% #1 entity name (or tex macro holding same, eg from an attrbute)
% #2 #3 inserted before each compontent
% so #2{GIF}#3{xxx/yyy.gif}
\begingroup
\catcode`\&12
\catcode`\+12
\gdef\NDATAEntity#1{
\expandafter\expandafter\expandafter
\XML@ndataentity\csname+\endcsname}
\gdef\XML@ndataentity#1#2#3#4{
#3{#1}#4{#2}}
\endgroup
%%%%%%%
% this relies on = being catcode 13.
\begingroup
\catcode`\=\active
\gdef\XML@getattrib@a#1\fi\fi#2={
\fi\fi
\XML@set@this@attribute#1#2 \@
\XML@quoted\XML@attribval}
\endgroup
%% remove trailing space from `foo ='
\def\XML@set@this@attribute#1 #2\@{
% should probably do an edef at this point, and optimise
% later code
\def\XML@this@attribute{#1}}
% #1 = attribute value
\def\XML@attribval#1{
% allow for arbitrary catcodes.
\xdef\XML@tempa{\expandafter\strip@prefix\meaning\XML@this@attribute}
\ifx\XML@tempa\XML@ns@decl
\XML@ns@uri{}{#1}
\else
\XML@ns\XML@this@attribute
% catcode avoidance
\edef\XML@this@prefix{\expandafter\strip@prefix\meaning\XML@this@prefix}
\ifx\XML@this@prefix\XML@ns@decl
\XML@ns@uri\XML@this@local{#1}
\else
\begingroup
% check if this still needed with protect setting?
% \def"{\noexpand"}
\utfeight@protect@internal
\xdef\XML@tempa{
\the\XML@attribute@toks
\noexpand\XML@doattribute{\XML@this@prefix}{\XML@this@local}{#1}}
\endgroup
\XML@attribute@toks\expandafter{\XML@tempa}
\fi
\fi
\XML@getattrib}
%% activate attributes
% this seems over complicated and perhaps I should re-implement.
% currently tries to avoid making a csname for each attribute.
% declaration of attributes provides a normal tex command name
% to access the value in the element code, could have instead
% just had declaration of attribute name and default and used something
% like \attributevalue{html:href} but would need to work out a way
% of resolving prefixes at definition time if this was embedded in
% the element code. (The prefix such as `html' used in the definition
% file isn't known by the time the code is run.)
\def\XML@doattribute@warn#1#2#3{
\XML@trace@warn{\@spaces\csname XMLNS@#1\endcsname:#2 = \string"#3\string"}}
% #1 element specific attribute defaults, first token is
% macro for namespace-global attributes (hence \expandafter)
\def\XML@setattributes#1{
\let\XMLNS@@\XMLNS@
\def\XMLNS@{0}
\the\expandafter\XML@attribute@toks#1\relax\relax
\let\XMLNS@\XMLNS@@}
% #1 prefix
% #2 local name
% #3 value
\def\XML@doattribute#1#2#3{
\xdef\XML@tempa##1{\noexpand##1{
\noexpand\XML@attrib\csname XMLNS@#1\endcsname:#2\relax}}
\XML@tempa\XML@attrib@x{#3}
\XML@tempa\XML@attrib@y}
% #1 \XML@attrib qname\relax
% #2 value given in document instance
\def\XML@attrib@x#1#2{
\gdef\XML@tempb##1#1##2##3##4\relax\relax{
\def##2{#2}
##1##4\relax\relax}}
% #1 \XML@attrib qname\relax
% #2 original attribute defaults
\def\XML@attrib@y#1#2\relax\relax{
\XML@tempb#2#1\XML@temp@l{6}\relax\relax}
% if default is inherit, set it to \relax the first time, otherwise
% let whatever value it has drop through. Note this is inheritance of the
% tex csname declared as the internal access, not of the xml attribute name.
% #1 = junk
% #2 = tex csname
% #3 = attribute default (should be encoding neutral: not normalised)
\def\XML@attrib#1\relax#2#3{
\ifx\inherit#3\relax% #3 might be empty
\ifx#2\@undefined
\def#2{\relax}
\fi
\else
\def#2{#3}
\fi}
% any distinguishing value would do...
\let\inherit\XML@attrib
\newtoks\XML@attribute@toks
%%%%% namespace declarations
\newcount\XML@ns@count
% need to protect against active chars
\def\XML@ns@decl{xmlns}
\edef\XML@ns@decl{\expandafter\strip@prefix\meaning\XML@ns@decl}
% #1 prefix (or empty)
% #2 uri
% globally allocate number to uri if new
% locally alocate prefix to number
% globally allocate number as a prefix (canonical form)
\def\XML@ns@uri#1#2{
\utfeight@protect@chars
\XML@ns@alloc{#2}
\expandafter\edef\csname XMLNS@#1\endcsname
{\csname XML:#2\endcsname}
\XML@trace@warn{xmlns:#1 = \csname XMLNS@#1\endcsname}
\unprotect@utfeight
}
% and the same without any prefix
% always use in scope of utfeight protect
% #1 uri
\def\XML@ns@alloc#1{
\expandafter\ifx\csname XML:#1\endcsname\relax
\global\advance\XML@ns@count\@ne
\expandafter\xdef\csname XML:#1\endcsname{\the\XML@ns@count}
\global\expandafter\let\csname A:\the\XML@ns@count\endcsname\@empty
\XML@trace@warnNI{URI: \csname XML:#1\endcsname\space = #1}
\expandafter\xdef\csname XMLNS@\the\XML@ns@count\endcsname
{\the\XML@ns@count}
\fi}
% and version for xmt files
\let\DeclareNamespace\XML@ns@uri
%% namespace support
%% : is active in xml state but inactive in tex state, so need to do
%% this twice, grrr...
\begingroup
\catcode`\:\active
% #1 = qname to be split on :
\gdef\XML@ns@xml#1{
\expandafter\XML@ns@a@xml#1:\@:\\}
% #1 = prefix (or empty)
% #2 = local name or \@ if no prefix
\gdef\XML@ns@a@xml#1:#2:#3\\{
\ifx\@#2
\XML@ns@b{}{#1}
\else
\XML@ns@b{#1}{#2}
\fi}
\endgroup
% same with inactive :
% #1 = qname to be split on :
\def\XML@ns@tex#1{
\expandafter\XML@ns@a@tex#1:\@:\\}
% #1 = prefix (or empty)
% #2 = local name or \@ if no prefix
\def\XML@ns@a@tex#1:#2:#3\\{
\ifx\@#2
\XML@ns@b{}{#1}
\else
\XML@ns@b{#1}{#2}
\fi}
\let\XML@ns@a@\XML@ns@a@tex
\let\XML@ns\XML@ns@tex
%%%%%%%%%%%%%%%%%%%%
% nullnamespace
\expandafter\def\csname XML:\endcsname{0}
\expandafter\let\csname A:0\endcsname\@empty
\def\XMLNS@{0}
\expandafter\gdef\csname XMLNS@0\endcsname{0}
% xml namespace
\let\utfeightax\string
\expandafter\def\csname XML:http://www.w3.org/1998/xml\endcsname{1}
\expandafter\let\csname A:1\endcsname\@empty
\def\XMLNS@xml{1}
\expandafter\gdef\csname XMLNS@1\endcsname{1}
\XML@ns@count1
% #1 = prefix or empty
% #2 = local name
\def\XML@ns@b#1#2{
\begingroup
\utfeight@protect@chars
\xdef\XML@tempa{#1}
\xdef\XML@tempb{#2}
\endgroup
\let\XML@this@prefix\XML@tempa
\let\XML@this@local\XML@tempb
}
%%%%%
% pi
\begingroup
\catcode`\?\active
\catcode`\ \active
\catcode`\^^M\active
\catcode`\^^I\active
\gdef\XML@getpi#1\@{
\fi\fi\fi
\begingroup
\utfeight@protect@chars
\catcode`\ \active
\catcode`\^^M\active
\catcode`\^^I\active
\def?{\endcsname?}
\let \endcsname
\let^^M\endcsname
\let^^I\endcsname
\expandafter\XML@getpi@\csname
Q:}
\endgroup
\def\XML@getpi@#1{
\endgroup
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
\ifx#1\@undefined
\expandafter\XML@getpi@x
\fi
#1}
\def\XML@getpi@x#1#2?>{
\XML@dopi{Undefined}{}}
% currently ? not reset by XML@reset
\expandafter\def \csname Q:xmltex\endcsname{
\begingroup
\XML@reset
\catcode`\>\active
\XML@xmltexpi}
\gdef\XML@xmltexpi#1?>{
\endgroup
\XML@dopi{xmltex}{#1}}
% #1 = piname or `piname Undefined'
\def\XML@dopi#1#2{
\XML@trace@warn{\string<?#1?>}
#2}
\begingroup
\catcode`\^^I\active
\gdef\XML@grabpi#1#2{
\global\XMLgrabtoks\expandafter{
\the\XMLgrabtoks<?#1^^I#2?>}
\XMLgrab@}
\endgroup
%% XML and declarations
% only care about encoding. Ignore version and standalone.
% #1 content
% #2 end of test code
\begingroup
\catcode`\=\active
\expandafter\gdef \csname Q:xml\endcsname{
\catcode`\^^M10
\catcode`\^^I10
\catcode`\ 10 %
\XML@xmldecl}
\gdef\XML@xmldecl#1?>{
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
\XML@encoding#1 e="utf-8"\relax}
% actually encoding supposed to be after version if it comes at all
% so I could simplify this and get rid of the loop.
\gdef\XML@encoding#1 #2{
\if\noexpand#2e
\expandafter\XML@encoding@aux
\else
\expandafter\XML@encoding
\fi}
\gdef\XML@encoding@aux#1={
\XML@quoted\XML@setenc}
\endgroup
% do nothing if newly specied encoding is same as old one
% #1 is name of encoding (upper or lower case, and dubious catcodes
% #2 is junk
\def\XML@setenc#1#2\relax{
\lowercase{\gdef\XML@tempa{#1}}
\xdef\XML@tempa{\expandafter\strip@prefix\meaning\XML@tempa}
\ifx\XML@tempa\XML@thisencoding
\else
\ifx\XML@utfeight\XML@tempa
\XML@setutfeight
\else
\let\XML@thisencoding\XML@tempa
\XML@trace@warnNI{Encoding = \XML@thisencoding}
\begingroup
\XML@reset\input{\XML@thisencoding.xmt}
\endgroup
\fi
\fi}
% public version of same
\def\FileEncoding#1{
\XML@setenc{#1}\relax}
% catcode neutral lowercase utf-8
\def\XML@utfeight{utf-8}
\edef\XML@utfeight{\expandafter\strip@prefix\meaning\XML@utfeight}
%% internalise utf8 encoding as needed before every file include.
\begingroup
\catcode`\~13
\catcode`\"12
\catcode`\<12
\gdef\utfeightloop{
\uccode`\~\count@
\expandafter\uppercase\XML@tempa
\advance\count@\@ne
\ifnum\count@<\@tempcnta
\expandafter\utfeightloop
\fi}
\gdef\XML@setutfeight{
\ifx\XML@utfeight\XML@thisencoding
\else
\let\XML@thisencoding\XML@utfeight
\XML@trace@warnNI{Encoding = \XML@thisencoding}
%
\begingroup
%
\count@"C2
\@tempcnta"E0
\gdef\XML@tempa{{
\xdef~####1{\noexpand\utfeightb\string~####1}}}
\utfeightloop
%
\count@"E0
\@tempcnta"F0
\gdef\XML@tempa{{
\xdef~####1####2{\noexpand\utfeightc\string~####1####2}}}
\utfeightloop
%
\@tempcnta"F4
\gdef\XML@tempa{{
\xdef~####1####2####3{\noexpand\utfeightd\string~####1####2####3}}}
\utfeightloop
%
\endgroup
\fi}
\endgroup
\def\xmlinput#1{
\IfFileExists{#1}
{\expandafter\XML@xmlinput\expandafter
\XML@setenc\expandafter{\XML@thisencoding}\relax
}{\XML@warn{No file: #1}}}
\def\XML@xmlinput{
\def^^ff^^fe{\XML@setenc{utf-16}\relax}
\def^^fe^^ff{\XML@setenc{utf-16}\relax}
% in principle a parsed entity might just be text with no markup
% but the utf16 is so broken anyway don't worry about that.
\let<\XML@first@lt
\XML@setutfeight
\@@input\@filef@und\relax}
%%%%%%%%%%%%%
%% declarations
% made safe against active chars.
% #1 = rest of if test
% #2#3 = first two characters after <!
\def\XML@getdecl#1\@#2#3{
\fi\fi
\if-\noexpand#2\XML@comment % --
\else\if N\noexpand#3\XML@entity% EN TITY
\else\if L\noexpand#3\XML@dec@e% EL EMENT
\else\if A\noexpand#2\XML@dec@a% AT TLIST
\else\if D\noexpand#2\XML@doctype% DO CTYPE
\else\if C\noexpand#3\XML@cdata% [C DATA
\else \XML@dec@n% NO TATION
% could also pick up [IGNORE/[INCLUDE
% but they not allowed in internal subset.
@}
%% Just skip element declarations
% #1 = rest of \if
% #2 ELEMENT declaration
\def\XML@dec@e#1@#2>{
\fi\fi\fi
\XML@checkend@subset}
% attribute declarations
% #1 = rest of if test + TLIST
% #2 = element name
\def\XML@dec@a#1 #2 {
\fi\fi\fi\fi
\protected@xdef\XML@tempa{#2}
\XML@dec@a@x}
\gdef\XML@dec@a@x#1 #2{
\protected@xdef\XML@tempb{#1}
\if(\noexpand#2
\begingroup
\catcode`\(\active
\expandafter\XML@dec@a@brack
\else
\expandafter\XML@dec@a@type
\fi}
\begingroup
\catcode`\(\active
% #1 = enumerated attribute type tokens, up to )
\gdef\XML@dec@a@brack#1){
\endgroup
\XML@dec@a@hash}
\endgroup
% #1 = junk up to next space token
\def\XML@dec@a@type#1 {
\XML@dec@a@hash}
\begingroup
\catcode`\$=\catcode`\#
\catcode`\#=12
% #1 = nextchar after space, if it is # step to next space
% otherwise look for possible " or ' or >
\gdef\XML@dec@a@hash$1{
\if\noexpand$1#
\expandafter\XML@dec@a@type
\else
\ifx$1>
\let\ERROR\@undefined
\expandafter\expandafter\expandafter\XML@checkend@subset
\else
\let\ERROR\XML@dec@a@nodef
\XML@dec@a@def$1
\fi
\fi}
\endgroup
\gdef\XML@dec@a@nodef#1\fi\fi#2{
\fi\fi
\XML@dec@a@x#1}
\def\XML@dec@a@def#1\fi\fi{
\fi\fi
\XML@quoted\XML@dec@a@default#1}
\def\XML@dec@a@default#1#2{
\XML@warn{Default: \XML@tempa\space\XML@tempb="#1"}
\ifx\XML@default@attributes\relax
\let\XML@default@attributes\@empty
\fi
\toks@\expandafter{\XML@default@attributes}
\protected@xdef\XML@default@attributes{
\the\toks@\noexpand\XML@add@attrib{\XML@tempa}{\XML@tempb}{#1}}
% reusing this wastes some tests but only done in local subset
\XML@dec@a@hash#2
}
\let\XML@default@attributes\relax
% this comparison is encoding normalised, but namespace unaware, grr.
\def\XML@add@attrib#1#2#3{
\gdef\XML@tempa{#1}
\ifx\XML@tempa\begintag
\def\XML@this@attribute{#2}
% stop getattrib looking for nexted xml syntax attribute setting.
\let\XML@getattrib\relax
\XML@attribval{#3}
\let\XML@getattrib\XML@@getattrib
\fi}
%% comment
% - is active
% #1 = rest of if test
% #2 = comment text
\begingroup
\catcode`\-\active
\uppercase{\endgroup
\def\XML@comment#1@#2-->}{
\fi
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
\XML@trace@warn{\string<!-- -->}
\XML@comment@}
\def\XML@comment@{
\XML@checkend@subset}
\def\XML@grabcomment@{
\XMLgrab@}
%% entity defs
% #1 = rest of \if test + TITY
% #2 = % or entity name
\begingroup
\catcode`\&=12
\catcode`\%=13
\gdef\XML@entity#1 #2 {
\fi\fi
\ifx%#2
\def\XML@input{
\ifx\XML@use\XML@SYSTEM\expandafter\@gobble\else
\noexpand\inputonce\fi}
\expandafter\XML@p@ent
\else
\def\XML@input{\noexpand\xmlinput}
{\utfeight@protect@chars\xdef\XML@ename{}}
\XML@trace@warn{\XML@ename; = }
\expandafter\XML@ent
\fi}
\endgroup
% input some file at most once (and ignore arguments that
% expand to empty)
% done in a local group
\def\inputonce#1{
\expandafter\ifx\csname xmt:#1\endcsname\relax
\global\expandafter\let\csname xmt:#1\endcsname\@ne
\begingroup
\XML@reset
% package files should have their own namespace declarations
% don't want to inherit from some random point when file is loaded.
% in principle should clear all prefix assignments in local scope
% but I don't currently maintain a list of those, and not needed as long
% as package files declare all prefixes used. But do set the default
% namespace back to the null namespace.
%
% should force utf-8 as well.
\def\XMLNS@{0}
\input{#1}
\endgroup
\fi}
% ignore include of empty filename
\expandafter\let\csname xmt:\endcsname\@ne
% \noexpand protect against active ascii
\begingroup
\catcode`\%12
\gdef\XML@p@ent#1 #2{
{\utfeight@protect@chars\xdef\XML@ename{%#1}}
\XML@trace@warn{\XML@ename; = }
\if\noexpand#2P\XML@E@public
\else\if\noexpand#2S\XML@E@system
\else\XML@E@internal#2}
\endgroup
% #1 = next char( P or S for external entities)
\def\XML@ent#1{
\if\noexpand#1P\XML@E@public
\else\if\noexpand#1S\XML@E@system
\else\XML@E@internal#1}
\begingroup
\catcode`\:\active
% special `prefix' that just removes following colon.
\expandafter\gdef\csname XMLNS@*\endcsname#1{}
\endgroup
\begingroup
\catcode`\:=12
%#1 = " or '
\gdef\XML@E@internal#1{
\fi\fi
\begingroup
\let\XML@trace@warn\@gobble
\let\XML@endgroup\endgroup
\let\XML@begingroup\begingroup
% make " or ' close the grab `element'. the nameless close tag is completed
% by the > coming from the ENTITY declaration syntax.
% Using a mangled grab code is a bit complicated but it allows
% catcode 10 simplification in the normal case of element handling
% and allows characters to be correctly normalised to utf8.
\def#1{</}
\expandafter\def\csname
E\string/:\endcsname{
\afterassignment\XML@E@internal@x
\expandafter\gdef\csname+\XML@ename\endcsname}
\begingroup
% stop xmlns `attribute' being recognised
\let\XML@ns@decl\relax
\let\XML@this@local\@empty
% set up special prefix to gobble colon
\def\XML@this@prefix{*}
% disable these as nothing will be known until namespaces reenabled
\let\XML@checkknown\relax
\let\XML@attrib@trace\relax
% hobble namespace code to put all name in local part.
\def\XML@ns##1{
\protected@edef\XML@this@local{##1}
\def\XML@this@prefix{*}}
\xmlgrab}
\endgroup
% expandafter away an \else clause in grabelement then check for ]
\def\XML@E@internal@x{
\endgroup
\aftergroup\XML@trace@warn
\expandafter\aftergroup\csname+\XML@ename\endcsname
\aftergroup\fihack
}
% this hack has to undo the one above moarked by
% % \XMLstring usage means catcode restoring varies
% must fix this as well one day
\def\fihack#1\fi{\expandafter\XML@checkend@subset}
% need to add (somewhere) a replacement of " to " so that
% xxx='a"b"c' doesn't end up as xxx="a"b"c"
% #1 replacement text
% #2 white space and >
\begingroup
\uccode`\~`\#
\catcode`\~\active
\uppercase{\endgroup
\def\XML@E@internal@#1#2>{
\expandafter\protected@xdef\csname+\XML@ename\endcsname{#1}
\XML@trace@warn{\@spaces\string"#1\string"}
\XML@checkend@subset}}
%% check for ]> that ends internal subset
\begingroup
\catcode`\]\active
% #1 is next token in local subset (normally < or >)
% after subset finishes % stops being markup, and the package
% relating to any external entity in the doctype is loaded.
\gdef\XML@checkend@subset{
\catcode`\^^M10
\catcode`\^^I10
\catcode`\ 10 %
\XML@checkend@subset@}
% #1 = next character
\catcode`\%\active
\gdef\XML@checkend@subset@#1#2#3#4{
\ifx]#1
\let\XML@w@\@empty
\XML@trace@warn{]}
\gdef%{\utfeightay%}
\let\XML@checkend@subset\relax
\expandafter\XML@loaddoctype
\fi
#1#2#3#4}
\endgroup
%% #1#2 just gobble ]>
\def\XML@loaddoctype#1#2{
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
\ifx\XML@D@dtd\relax\else
\XML@trace@warn{Doctype Package: \XML@D@dtd}
\inputonce\XML@D@dtd
\fi}
% #1 = rest of \if test + PUBLIC
\def\XML@E@public#1 {
\fi
\XML@quoted\XML@E@pubid}
% #1 = FPI
\def\XML@E@pubid#1{
\def\XML@PUBLIC{#1}
\edef\XML@PUBLIC{\expandafter\strip@prefix\meaning\XML@PUBLIC}
\XML@quoted\XML@E@systemid}
% #1 = rest of if test up to SYSTEM
\def\XML@E@system#1 {
\fi\fi
\def\XML@PUBLIC{}
\XML@quoted\XML@E@systemid}
% #1 URL
% #2 next token, N or >
\def\XML@E@systemid#1#2{
\def\XML@SYSTEM{#1}
\let\XML@use\XML@SYSTEM
\XML@trace@warn{\@spaces Public: \XML@PUBLIC}
\XML@trace@warn{\@spaces System: \XML@SYSTEM}
\the\XML@catalogue
\if\noexpand#2N
\expandafter\XML@E@ndata
\else
\afterfi
\XML@E@internal@{\XML@input{\XML@use}}#2
\fi}
% NDATA token terminated by > or white space
% #1 = DATA
% #2 ndata token with possible extra space
\def\XML@E@ndata#1 #2>{\XML@ndata@#2 >}
% #1 = ndata toke
% #2 = junk
\def\XML@ndata@#1 #2>{
\XML@E@internal@{{#1}{\XML@use}}>}
%% DOCTYPE
% #1 rest of \if test + OCTYPE
% #2 document element name
% #3 P or S or [ or >
% noexpand for P and S, [ assumed active
\begingroup
\catcode`\[\active
\gdef\XML@doctype#1 #2 #3{
\fi\fi\fi\fi\fi
\def\documentelement{#2}
\let\XML@D@dtd\relax
\XML@trace@warn{Document Element: \documentelement}
\if\noexpand#3P\XML@D@public
\else\if\noexpand#3S\XML@D@system
\else\ifx#3[\XML@D@internal
\else%must be > the end
\XML@D@empty
@}
\gdef\XML@D@empty @{
\fi\fi\fi}
% #1 = rest of \if test + UBLIC
\gdef\XML@D@public#1 {
\fi
\XML@quoted\XML@pubid}
% #1 = FPI
\gdef\XML@pubid#1{
\def\XML@PUBLIC{#1}
\edef\XML@PUBLIC{\expandafter\strip@prefix\meaning\XML@PUBLIC}
\XML@quoted\XML@systemid}
% #1 = rest of \if test + YSTEM
\gdef\XML@D@system#1 {
\fi\fi
\def\XML@PUBLIC{}
\XML@quoted\XML@systemid}
% #1 = URI
\gdef\XML@systemid#1{
\protected@edef\XML@SYSTEM{#1}
\edef\XML@SYSTEM{\expandafter\strip@prefix\meaning\XML@SYSTEM}
\XML@trace@warn{Doctype Public: \XML@PUBLIC}
\XML@trace@warn{Doctype System: \XML@SYSTEM}
\let\XML@use\@empty
\the\XML@catalogue
\let\XML@D@dtd\XML@use
\XML@D@internal@}
% #1 = rest of if test
\gdef\XML@D@internal#1@{
\fi\fi\fi
\XML@D@internal@[}
% #1 = [ for local subset or > for the end.
\catcode`\%\active
\gdef\XML@D@internal@#1{
\ifx[#1
\XML@trace@warn{Internal Subset[}
\let%\XML@pcent
\edef\XML@w@{ \XML@w@}
\expandafter\XML@checkend@subset
\else
| it had better be the closing >
\fi}
\endgroup
%%%%%%%%%%%%%%%
%% catalogue support
\newtoks\XML@catalogue
%% should rationalise this code
% #1 = FPI
% #2 = xmltex package file
\def\PUBLIC#1#2{
\xdef\XML@tempa{#1}
\xdef\XML@tempa{\noexpand\the\XML@catalogue\noexpand\XML@@PUBLIC
{\expandafter\strip@prefix\meaning\XML@tempa}}
\global\XML@catalogue\expandafter\expandafter\expandafter{
\XML@tempa{#2}}}
% #1 = URI
% #2 = xmltex package file
\def\SYSTEM#1#2{
\xdef\XML@tempa{#1}
\xdef\XML@tempa{\noexpand\the\XML@catalogue\noexpand\XML@@SYSTEM
{\expandafter\strip@prefix\meaning\XML@tempa}}
\global\XML@catalogue\expandafter\expandafter\expandafter{
\XML@tempa{#2}}}
% #1 = namespace URI
% #2 = xmltex package file
\def\NAMESPACE#1#2{
\utfeight@protect@chars
\XML@ns@alloc{#1}
\edef\@tempa{{\csname XML:#1\endcsname}}
\global\XML@catalogue\expandafter{\the\expandafter\XML@catalogue
\expandafter\XML@@NAMESPACE\@tempa{#2}}
\unprotect@utfeight}
% #1 = unprefixed element name
% #2 = xmltex package file
\def\NAME#1#2{
\global\XML@catalogue\expandafter{\the\XML@catalogue\XML@@NAME{#1}{#2}}}
% #1 = unprefixed element name
% #2 = namespace URI
\def\XMLNS#1#2{
\utfeight@protect@chars
\XML@ns@alloc{#2}
\edef\@tempa{{#1}{\csname XML:#2\endcsname}}
\global\XML@catalogue\expandafter{\the\expandafter\XML@catalogue
\expandafter\XML@@XMLNS\@tempa}
\unprotect@utfeight}
\def\XML@@PUBLIC#1#2{
\gdef\XML@tempa{#1}
\ifx\XML@tempa\XML@PUBLIC
\def\XML@use{#2}
\fi}
\def\XML@@SYSTEM#1#2{
\def\@tempa{#1}
\ifx\@tempa\XML@SYSTEM
\def\XML@use{#2}
\fi}
\def\XML@@NAMESPACE#1#2{
\def\@tempa{#1}
\ifx\@tempa\XML@NAMESPACE
\def\XML@use{#2}
\fi}
\def\XML@@NAME#1#2{
\def\@tempa{#1}
\ifx\@tempa\XML@NAME
\def\XML@use{#2}
\fi}
\begingroup
\catcode`\:\active
\def\XML@@XMLNS#1#2{
\def\@tempa{#1}
\ifx\@tempa\XML@NAME
\edef\XMLNS@{#2}
\edef\XML@this@element{
\XMLNS@\noexpand:\XML@this@local}
\XML@trace@warn{ \XML@this@element}
\let\XML@NAMESPACE\XMLNS@
\fi}
\endgroup
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% entity refs
\begingroup
\catcode`\$=\catcode`\#
\catcode`\#=\active
\gdef\XML@amp@markup$1$2;{
\ifx#$1\@empty
\XML@charref$2;
\XML@tempa
\else
\begingroup\utfeight@protect@chars
\expandafter\aftergroup
\csname+\string&$1$2\expandafter\endcsname
\endgroup
\fi}
\endgroup
\let&\XML@amp@markup
\begingroup
\catcode`\%=12
\catcode`\&=12
\gdef\XML@pcent#1;{
\csname+%#1\endcsname
\XML@checkend@subset}
\gdef\XMLentity#1#2{
\expandafter\gdef\csname+\endcsname{#2}}
\endgroup
% predefined definitions
\begingroup
\XMLentity{amp}{\utfeightaz&}
\XMLentity{quot}{\utfeightax"}
\XMLentity{apos}{\utfeightax'}
\XMLentity{lt}{\utfeightaz<}
\XMLentity{gt}{\utfeightax>}
\endgroup
%% character refs
% longwinded way so can share code later, also need to do d case.
% this does up to x1F FFFF which is higher than needed for XML
% (x10 FFFF)
\begingroup
\catcode`\"=12
\catcode`\<=12
\catcode`\.=12
\catcode`\,=12
\catcode`\;=12
\catcode`\!=12
\catcode`\~=13
% definition is of form
% \utfeightX <non active char>+
% except for non active chars below 128 which are just def of catcode 12 version.
\gdef\XML@charref#1#2;{
\begingroup
\uppercase{\count@\if x\noexpand#1"\else#1\fi#2}\relax
\ifnum\count@<"80\relax
\uccode`\~\count@
\uppercase{
\ifnum\catcode\count@=\active
\gdef\XML@tempa{\utfeightay~}
\else
\gdef\XML@tempa{~}
\fi}
\else\ifnum\count@<"800\relax
\XML@utfeight@a,
\XML@utfeight@b C\utfeightb.,
\else\ifnum\count@<"10000\relax
\XML@utfeight@a;
\XML@utfeight@a,
\XML@utfeight@b E\utfeightc.{,;}
\else
\XML@utfeight@a;
\XML@utfeight@a,
\XML@utfeight@a!
\XML@utfeight@b F\utfeightd.{!,;}
\fi
\fi
\fi
\endgroup}
% while I support mixed tex/xml files I need to have a version
% of { that always fetches the definition even if
% character is currently non active
\global\let\XML@@charref\XML@charref
\gdef\XML@charref@tex#1#2;{
\begingroup
\uppercase{\count@\if x\noexpand#1"\else#1\fi#2}\relax
\ifnum\count@<"80\relax
\uccode`\~\count@
\uppercase{
\gdef\XML@tempa{\utfeightay~}}
\else\ifnum\count@<"800\relax
\XML@utfeight@a,
\XML@utfeight@b C\utfeightb.,
\else\ifnum\count@<"10000\relax
\XML@utfeight@a;
\XML@utfeight@a,
\XML@utfeight@b E\utfeightc.{,;}
\else
\XML@utfeight@a;
\XML@utfeight@a,
\XML@utfeight@a!
\XML@utfeight@b F\utfeightd.{!,;}
\fi
\fi
\fi
\endgroup}
\gdef\XML@utfeight@a#1{
\@tempcnta\count@
\divide\count@64
\@tempcntb\count@
\multiply\count@64
\advance\@tempcnta-\count@
\advance\@tempcnta"80
\uccode`#1\@tempcnta
\count@\@tempcntb}
\gdef\XML@utfeight@b#1#2#3#4{
\advance\count@"#10\relax
\uccode`#3\count@
\uppercase{\gdef\XML@tempa{#2#3#4}}}
%%%%%%%%%%%%%%%%
% #1 unicode slot, either 123 decimal or xA23 hex
% #2 tex definition of character when used as character data.
% code for chars below 127 somewhat experimental
\gdef\UnicodeCharacter#1#2{
\begingroup
% suppress active test in charref
\def\active{\catcode\count@}
\XML@charref#1;
\expandafter\expandafter\expandafter
\expandafter\expandafter\expandafter
\expandafter
\gdef\XML@tempa{#2}
\endgroup}
\endgroup
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newtoks\XMLgrabtoks
\def\xmlgrab{
\begingroup
\global\XMLgrabtoks{}
\let\XML@this@level\XML@w@
\edef\XML@next@level{ \XML@w@}
\let\XML@doelement\XML@grabelement
\let\XML@doend\XML@grabend
\let\XML@docdata\XML@grabcdata
\let\XML@comment@\XML@grabcomment@
\let\XML@dopi\XML@grabpi
\XMLgrab@}
\def\XMLgrab@{
\utfeight@protect@internal
\def<{\iffalse{\fi}\XMLgrab@@}
\xdef\XML@tempa{\iffalse}\fi}
\def\XMLgrab@@{
\global\XMLgrabtoks\expandafter{\the\expandafter\XMLgrabtoks\XML@tempa}
\XML@lt@markup}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% cdata
\begingroup
\catcode`\[\active
\catcode`\]\active
% #1 = DATA
\gdef\XML@cdata #1[{
\fi\fi\fi\fi\fi\fi
\catcode`\^^M\active
\catcode`\^^I\active
\catcode`\ \active
\XML@cdata@a}
% #1 = CDADA section text
\gdef\XML@cdata@a#1]]>{
\begingroup
\XML@trace@warn{CDATA}
\edef<{\noexpand\utfeightaz\string<}
\edef&{\noexpand\utfeightaz\string&}
\XML@docdata{#1}}
\endgroup
% #1 = CDADA section text
\def\XML@docdata#1{#1\endgroup}
% #1 = CDADA section text
\def\XML@grabcdata#1{
\utfeight@protect@internal
\edef<{\noexpand\utfeightaz\string<}
\edef&{\noexpand\utfeightaz\string&}
\xdef\XML@tempa{#1}
\endgroup
\expandafter\XMLgrab@\XML@tempa}
%%%%%%%%%%
% notation
% parse past the public and system ids
% in case they contain a >.
% unlike entities PUBLIC need not have a system id
% #1 junk
% #2 notation name
% #3 PUBLIC or SYSTEM
\def\XML@dec@n#1N #2 #3 {
\fi\fi\fi\fi\fi\fi
\XML@trace@warn{NOTATION #2}
\XML@quoted\XML@notation
}
\def\XML@notation#1#2{
\ifx>#2
\expandafter\XML@checkend@subset
\else
\afterfi
\XML@quoted\XML@notation#2
\fi}
%%%%%%%%
%% xmt definitions
%% #1 element, may use prefix : using prefixes in current scope
%% #2 attlist
%% #3 begin code
%% #4 end code
%% if #3 is \xmlgrab, #4 may access the content of the element as #1
\long\def\XMLelement#1#2#3#4{
\XML@ns{#1}
\xdef\XML@tempc{:\csname
XMLNS@\XML@this@prefix\endcsname:\XML@this@local}
% attlist
\toks@\expandafter{\csname A:\csname
XMLNS@\XML@this@prefix\endcsname\endcsname}
#2
\expandafter\gdef\csname E\XML@tempc\expandafter\endcsname
\expandafter{\expandafter\XML@setattributes\expandafter{\the\toks@}#3}
\gdef\XML@tempa{#3}
\ifx\XML@tempa\XML@xmlgrab
\expandafter\gdef\csname E\string/\XML@tempc\endcsname##1
{#4}
\else
\expandafter\gdef\csname E\string/\XML@tempc\endcsname
{#4}
\fi}
\def\XML@xmlgrab{\xmlgrab}
%% #1 attribute, may use prefix : using prefixes in current scope
%% #2 macro to access attribute in begin or end code
%% #3 default
\long\def\XMLattribute#1#2#3{
{\def\XMLNS@{0}
\XML@ns{#1}
\xdef\XML@tempa{\noexpand\XML@attrib
\csname XMLNS@\XML@this@prefix\endcsname
:\XML@this@local\relax\noexpand#2}}
\toks@\expandafter{\the\expandafter\toks@\XML@tempa{#3}}}
\long\def\XMLattributeX#1#2#3{
{\def\XMLNS@{0}
\XML@ns{#1}
\xdef\XML@tempa{\noexpand\XML@attrib
\csname XMLNS@\XML@this@prefix\endcsname
:\XML@this@local\relax\noexpand#2}}
\toks@\expandafter{\the\expandafter\toks@\XML@tempa{#3}\utfeight@chardef#2}}
\def\utfeight@chardef#1{
\begingroup
\utfeight@protect@chars
\xdef\x@temp{#1}
\endgroup
\let#1\x@temp}
% version for namespace global attributes, used at top level.
%% #1 prefix for namespace this is for. using prefixes in current scope
%% #2 attribute, may use prefix : using prefixes in current scope
%% #3 macro to access attribute in begin or end code
%% #4 default
\long\def\XMLnamespaceattribute#1#2#3#4{
\toks@\expandafter\expandafter\expandafter{\csname A:\csname
XMLNS@#1\endcsname\endcsname}
\XMLattribute{#2}{#3}{#4}
\expandafter\xdef\csname A:\csname
XMLNS@#1\endcsname\endcsname{\the\toks@}}
\long\def\XMLnamespaceattributeX#1#2#3#4{
\toks@\expandafter\expandafter\expandafter{\csname A:\csname
XMLNS@#1\endcsname\endcsname}
\XMLattributeX{#2}{#3}{#4}
\expandafter\xdef\csname A:\csname
XMLNS@#1\endcsname\endcsname{\the\toks@}}
%% #1 QName, may use prefix : using prefixes in current scope
%% #2 macro to access attribute in begin or end code
\begingroup
\catcode`\:\active
\long\gdef\XMLname#1#2{{
\XML@ns{#1}
\xdef#2{
\csname XMLNS@\XML@this@prefix\endcsname
\noexpand:\XML@this@local}}}
\endgroup
\begingroup
\catcode`\<=12
\catcode`\>=12
\catcode`\:=12
\catcode`\/=12
\gdef\XMLstring#1#2<>{
\begingroup
\let\XML@endgroup\endgroup
\let\XML@this@local\@empty
\let\XML@this@prefix\@empty
\expandafter\def\csname
E/:\XMLNS@:\endcsname{
\gdef#1}
\XML@catcodes
\xmlgrab}
\gdef\XMLstringX#1#2<>{
\begingroup
\let\XML@endgroup\endgroup
\let\XML@this@local\@empty
\let\XML@this@prefix\@empty
\expandafter\def\csname
E/:\XMLNS@:\endcsname{
\xdef#1}
\XML@catcodes
\utfeight@protect@chars
\xmlgrab}
\endgroup
%% #1 name
%% #2 code, gets data as #1
\long\def\XMLProcessInstruction#1#2{
\expandafter\gdef\csname P:#1\endcsname##1{#2}}
%%%%%%%%%%%
%% xmltex format support
\everyjob\expandafter{\the\everyjob
\immediate\write20{xmltex version: \xmltexversion:}
\def^^ff^^fe{\XML@setenc{utf-16}\relax}
\def^^fe^^ff{\XML@setenc{utf-16}\relax}
\ActivateASCII{45}% -
\UnicodeCharacter{45}{-\kern\z@}
\let<\XML@first@lt
\IfFileExists{xmltex.cfg}
{\begingroup
\XML@reset
\@@input\@filef@und
\endgroup}{\XML@warn{No File: xmltex.cfg}}
\IfFileExists{\jobname.cfg}
{\begingroup
\XML@reset
\@@input\@filef@und
\endgroup}{\XML@warn{No File: \jobname.cfg}}
}
%%%%%%%%%%%
%% not currently used
%
%\def\XML@setlatexcodes{
%\ifnum\catcode`\&\active
% \let\XML@restore\XML@catcodes
% \let\XML@setlatexcodes\relax
%\fi}
%
%\let\XML@restore\relax
%% allow package and class loading with normal latex catcodes
\def\@fileswith@pti@ns#1[#2]#3[#4]{
\XML@reset
\catcode`\^^M5 %
\let\@fileswith@pti@ns\@@fileswith@pti@ns
\@@fileswith@pti@ns{#1}[{#2}]{#3}[{#4}]
\XML@catcodes
\let\@fileswith@pti@ns\XML@@fileswith@pti@ns}
\let\XML@@fileswith@pti@ns\@fileswith@pti@ns
% and similar for input of aux files
\def\@input#1{
\XML@reset
\catcode`\^^I\active
\catcode`\<\active
\catcode`\>\active
\catcode`\&\active
\catcode`\#\active
\catcode`\/\active
\catcode`\:\active
\catcode`\=\active
\let\XML@charref\XML@charref@tex
\IfFileExists{#1}{\@@input\@filef@und}{\typeout{No file #1.}}
\XML@catcodes
\let\XML@charref\XML@@charref
}
% and end doc
\def\enddocument{
\@enddocumenthook
\@checkend{document}
\clearpage
\begingroup
\if@filesw
\immediate\closeout\@mainaux
\let\@setckpt\@gobbletwo
\let\@newl@bel\@testdef
\@tempswafalse
\XML@reset
\catcode`\^^I\active
\catcode`\<\active
\catcode`\>\active
\catcode`\&\active
\catcode`\#\active
\catcode`\/\active
\catcode`\:\active
\catcode`\=\active
\let\XML@charref\XML@charref@tex
\makeatletter \input\jobname.aux
\fi
\@dofilelist
\ifdim \font@submax \string>\fontsubfuzz\relax
\@font@warning{Size substitutions with differences\MessageBreak
up to \font@submax\space have occured.\@gobbletwo}
\fi
\@defaultsubs
\@refundefined
\if@filesw
\ifx \@multiplelabels \relax
\if@tempswa
\@latex@warning@no@line{Label(s) may have changed.
Rerun to get cross-references right}
\fi
\else
\@multiplelabels
\fi
\fi
\endgroup
\deadcycles\z@\@@end}
%% protected write
\long\def \protected@write#1#2#3{
\begingroup
\let\thepage\relax
#2
\utfeight@protect@external
\let\protect\@unexpandable@protect
\edef\reserved@a{\write#1{#3}}
\reserved@a
\endgroup
\if@nobreak\ifvmode\nobreak\fi\fi
}
%% typeout etc
\def\set@display@protect{
\let\protect\string
\utfeight@protect@typeout}
%%%%%%%%%%%%%%%%%%%%%%%%%%%
% xmltex namespace
\expandafter\def\csname
XML:http://www.dcarlisle.demon.co.uk/xmltex\endcsname{2}
\expandafter\let\csname A:2\endcsname\@empty
\expandafter\gdef\csname XMLNS@2\endcsname{2}
\XML@ns@count2
\iffalse
% this is some currently used code aiming at having an aux file
% in xml syntax using commands from the xmltex namespace.
% this would avoid some of the problems involved in having
% mixed xml/tex aux files.
\def\addcontentsline#1#2#3{
\addtocontents{#1}{
<2:contentsline level="#2">
<2:toctitle>#3</2:toctitle>
<2:page>\thepage</2:page>
</2:contentsline>}}
\long\def\addtocontents#1#2{
\protected@write\@auxout
{\let\label\@gobble \let\index\@gobble \let\glossary\@gobble}
{<2:@writefile ext="#1">#2</2:@writefile>}}
\def\numberline#1{<2:numberline>#1</2:numberline>}
\fi
% end of xml-aux code.
%%%%%%%%%%%%%%%%%%
% tracing
\long\def\@gobble#1{}
\long\def\@gobbletwo#1#2{}
\long\def\@gobblethree#1#2#3{}
\def\xmltraceonly{
\global\hfuzz\maxdimen
\global\nullfont
\global\everypar{}
\global\let\XML@doelement\relax
\global\let\wrong@fontshape\relax
\global\let\selectfont\relax
\expandafter\gdef\expandafter\XML@catcodes\expandafter{\XML@catcodes
\gdef\unprotect@utfeight{
\let<\XML@lt@markup
\let&\XML@amp@markup
\global\let\utfeightax\@gobble
\global\let\utfeightay\@gobble
\global\let\utfeightaz\@gobble
\global\let\utfeightb\@gobbletwo
\global\let\utfeightc\@gobblethree
\global\let\utfeightd\@gobblefour}
\unprotect@utfeight}
\gdef\XML@doend{\XML@endgroup}
\gdef\XML@docdata##1{\endgroup}
\global\let\XML@dopi\@gobbletwo
}
\def\xmltraceoff{
\global\let\XML@trace@warn\@gobble
\global\let\XML@trace@warnNI\@gobble
\global\let\XML@trace@warnE\@gobble
\global\let\XML@attrib@trace\relax}
%%%%%
%% xmltex PI
%% <?xmltex tracingall ?>
%% <?xmltex typeout {hello world!} ?>
%% content of pi may be a latex command.
%% Arguments may be given in {} as usual
%% Do not use \ . First `word' (ignoring white space) taken as a tex
%% command name. May be a standard latex command, as here,
%% or some special command defined in a cfg file or package.
\begingroup
\catcode`[=1
\catcode`]=2
\catcode`\{\active
\catcode`\}\active
\XMLProcessInstruction[xmltex][
\XML@pi#1{\relax}]
\gdef\XML@pi#1{#2}[
\ifx\relax#2
\csname\zap@space#1 \@empty\expandafter\endcsname
\else
\afterfi
\expandafter
\XML@pi@b\csname\zap@space#1 \@empty\endcsname[#2]
\fi]
\gdef\XML@pi@b#1{#2}[
\ifx\relax#2
#1
\else
\afterfi
\XML@pi@b#1[#2]
\fi]
\endgroup
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% unicode support
% \utfeighta#1 1 byte utf8 char
% \utfeightb#1#2 2 byte utf8 char
% \utfeightc#1#2#3 3 byte utf8 char
% \utfeightd#1#2#3#4 4 byte utf8 char
\def\unprotect@utfeight{
\let<\XML@lt@markup
\let&\XML@amp@markup
\def\utfeightax##1{
\csname 8:\string##1\endcsname}
\let\utfeightay\utfeightax
\let\utfeightaz\utfeightax
\def\utfeightb##1##2{
\csname 8:##1\string##2\endcsname}
\def\utfeightc##1##2##3{
\csname 8:##1\string##2\string##3\endcsname}
\def\utfeightd##1##2##3##4{
\csname 8:##1\string##2\string##3\string##4\endcsname}}
\unprotect@utfeight
% do this also in everyjob
\let<\XML@first@lt
% for moving internal arguments (not writes)
\def\utfeight@protect@internal{
\let\utfeightax\noexpand
\let\utfeightay\noexpand
\def\utfeightaz{
\noexpand\utfeightaz\noexpand}
\let<\relax\let&\relax
\def\utfeightb##1##2{
\noexpand\utfeightb##1\string##2}
\def\utfeightc##1##2##3{
\noexpand\utfeightc##1\string##2\string##3}
\def\utfeightd##1##2##3##4{
\noexpand\utfeightd##1\string##2\string##3\string##4}}
% for external files (expands one in an edef and once in a write
\def\utfeight@protect@external{
\def\utfeightax{
\noexpand\noexpand\noexpand}
\let\utfeightay\utfeighta@ref
\let\utfeightaz\utfeighta@ref
\edef<{\string<}
\edef&{\string&}
\def\utfeightb##1##2{
##1\string##2}
\def\utfeightc##1##2##3{
##1\string##2\string##3}
\def\utfeightd##1##2##3##4{
##1\string##2\string##3\string##4}}
% for typeouts and immediate writes and messages
%\def\utfeight@protect@typeout{
% \let\utfeightax\noexpand
% \let\utfeightay\noexpand
% \let\utfeightaz\utfeighta@ref
% \let<\relax\let&\relax
% \def\utfeightb##1##2{##1\string##2}
% \def\utfeightc##1##2##3{##1\string##2\string##3}
% \def\utfeightd##1##2##3##4{##1\string##2\string##3\string##4}}
% plan b
\def\utfeight@protect@typeout{
\utfeight@protect@chars
\let<\relax
\let&\relax}
% for csname (will fall over < or & but they should not be there)
\def\utfeight@protect@chars{
\let\utfeightax\string
\let\utfeightay\string
\let\utfeightaz\string
\def\utfeightb##1##2{
##1\string##2}
\def\utfeightc##1##2##3{
##1\string##2\string##3}
\def\utfeightd##1##2##3##4{
##1\string##2\string##3\string##4}}
\def\utfeighta@ref#1{
\string&\string##\number\expandafter`\string#1\string;}
%%%%%%%%%%%%%%%%%%%%
%% mapping input encodings to unicode.
\begingroup
\catcode`\"=12\relax
\gdef\InputCharacter#1#2{
\begingroup
\XML@charref#2;
\count@"0\if\noexpand x#1\relax\else\count@#1\fi\relax
\uccode`\~\count@
\uppercase{
\global\let~\XML@tempa}
\endgroup}
\endgroup
%%%%%%%%%%%%%%%%%%%%%%%%
% default encoding
%% need to change this default if hit BOM or xml or text decl,
\XML@setutfeight
%%%%%%%%%%%%%%%%%%%%%
% adding xmltex style protection to standard latex commands.
% if xmltex being used with other formats this does no harm
% except take up a bit of space.
\begingroup
\catcode`\:\active
\catcode`\/\active
\gdef\markboth#1#2{\gdef\@themark{{#1}{#2}}{
\utfeight@protect@internal
\let\protect\@unexpandable@protect
\let\label\relax \let\index\relax \let\glossary\relax
\mark{\@themark}}\if@nobreak\ifvmode\nobreak\fi\fi}
\gdef\markright#1{{\let\protect\@unexpandable@protect
\utfeight@protect@internal
\let\label\relax \let\index\relax \let\glossary\relax
\expandafter\@markright\@themark
{#1}\mark{\@themark}}\if@nobreak\ifvmode\nobreak\fi\fi}
\endgroup
% this one not safe, restore not complete
\def\protected@edef{
\let\@@protect\protect
\let\protect\@unexpandable@protect
\utfeight@protect@internal
\afterassignment\restore@protect
\edef
}
\def\protected@xdef{
\begingroup
\utfeight@protect@internal
\let\protect\@unexpandable@protect
\afterassignment\endgroup
\xdef
}
\def\unrestored@protected@xdef{
\utfeight@protect@internal
\let\protect\@unexpandable@protect
\xdef
}
% should really save and restore, not always back to markup
\def\restore@protect{\let\protect\@@protect
\unprotect@utfeight
}
%%%%% stop this doing damage, also stops it working
\def\MakeUppercase#1{#1}
%%%%%%%%%%%%%%%%%%%%%
% support for making 7bit characters active
\begingroup
\catcode`\"=12\relax
\gdef\ActivateASCII#1{
\uppercase{\count@"0\if x\noexpand#1\relax\else\count@#1\fi\relax}
\toks@\expandafter{\nfss@catcodes}
\xdef\nfss@catcodes{
\catcode\the\count@=\the\catcode\the\count@\relax\the\toks@}
\toks@\expandafter{\XML@catcodes}
\xdef\XML@catcodes{
\catcode\the\count@\active\the\toks@}
\expandafter\ifx\csname8:"\endcsname\relax
\expandafter\gdef\csname8:"\endcsname{"}
\fi}
\endgroup
% some of these should not be active by default, but OK for now.
% could use \ActivateASCII for most if not all of these now.
% should probably use \UnicodeCharacter for these now
\expandafter\def\csname8:\string<\endcsname{\ifmmode\langle\else\textless\fi}
\expandafter\def\csname8:\string>\endcsname{\ifmmode\rangle\else\textgreater\fi}
\expandafter\def\csname8:\string{\endcsname{\{}
\expandafter\def\csname8:\string}\endcsname{\}}
% activateacii would use ax code, want ay code so ^ not written to aux files
% and clash with tex usage. so locally lie and make it a letter
\ActivateASCII{94}% ^ for tex ^^ notation in aux files
\UnicodeCharacter{94}{\textasciicircum}
\ActivateASCII{x5C}% \
\UnicodeCharacter{x5C}{\textbackslash}
\ActivateASCII{x5F}% \
\UnicodeCharacter{x5F}{\textunderscore}
\ActivateASCII{123}% {
\ActivateASCII{125}% {
%%%%%%%%%%%%%%%%
% white space
\UnicodeCharacter{13}{ \ignorespaces}
\UnicodeCharacter{32}{ \ignorespaces}
\UnicodeCharacter{9}{ \ignorespaces}
\expandafter\def\expandafter\obeylines\expandafter{
\expandafter\def\csname 8:\string^^M\endcsname{\leavevmode\hfil \break\null}}
\expandafter\def\expandafter\xmlnewlineaction\expandafter{
\expandafter\def\csname 8:\string^^M\endcsname}
\expandafter\def\expandafter\obeyspaces\expandafter{
\expandafter\def\csname 8: \endcsname{\nobreakspace}}
% tabs just do whatver the current space does.
\catcode`\^^I\active
\expandafter\def\csname 8:\string^^I\expandafter\endcsname
\expandafter{\csname 8: \endcsname}
% tex conventions
\XML@reset
\IfFileExists{xmltex.cfg}
{
\@@input\expandafter\@filef@und\expandafter\relax
\expandafter\XML@setenc\expandafter{\XML@thisencoding}\relax
}{\XML@warn{No File: xmltex.cfg}}
% get xmltex in catcode 12, for comparing with \jobname
\gdef\XML@tempa#1>{}
\gdef\XML@tempb{xmltex}
\xdef\XML@tempb{\expandafter\XML@tempa\meaning\XML@tempb}
%
\gdef\XML@tempc{pdfxmltex}
\xdef\XML@tempc{\expandafter\XML@tempa\meaning\XML@tempc}
%
\xdef\XML@tempa{\lowercase{\gdef\noexpand\XML@tempa{\jobname}}}
\XML@tempa
% if jobname is xmltex or pdfxmltex dump the format, otherwise
% try to load \jobname.cfg and input \xmlfile
% put white space back so the filename can be read off the command line
\ifx\XML@tempa\XML@tempc
\let\XML@tempb\XML@tempc
\fi
\ifx\XML@tempa\XML@tempb
\def\XML@tempa{
\catcode`\ =10\relax
\catcode`\^^M=10\relax
\catcode`\^^I=10\relax
\dump}
\else
\IfFileExists{\jobname.cfg}
{
\@@input\expandafter\@filef@und\expandafter\relax
\expandafter\XML@setenc\expandafter{\XML@thisencoding}\relax
}{\XML@warn{No File: \jobname.cfg}}
\ifx\xmlfile\@undefined
\def\XML@tempa{\catcode`\-12\relax}
\else
\def\XML@tempa{\catcode`\-12\relax\input\xmlfile\relax}
\fi
\fi
\endlinechar`\^^M \expandafter\XML@catcodes\XML@tempa
#!/bin/bash
# dbxml - creates formatted output from XML documents
# code was tested on WinNT/Cygwin but should run on Linux/Unix as well
# Markus Hoenicka <hoenicka_markus@compuserve.com> 2001-10-10
# $Id$
# OPTIONS: -d (stylesheet) -h (invoke help), -p (processor), -t (output format)
# relies on these external programs: SUN JRE, xerces/xalan, xp/xt, xsltproc, passivetex, xmltex
### start user-customizable section
# stylesheets; you can define additional driver files here
htmldb="/usr/local/lib/xml/stylesheets/docbook-xsl/html/docbook.xsl"
fodb="/usr/local/lib/xml/stylesheets/docbook-xsl/fo/docbook.xsl"
# the default processor: xalan, xt, saxon, or xsltproc
processor="xsltproc"
# the path to the Java class repository. This assumes that all necessary .jar
# files are in this directory
classpath_root="/cygdrive/d/Win32App/java"
### end user-customizable section
# some defaults
stylesheet="d"
outformat="html"
# function definitions
# creates fo output from xml. Arguments: input_filename out_filename
process_fo () {
case $processor in
xalan ) java -cp "$classpath" org.apache.xalan.xslt.Process -in $1 -xsl $jfosheet -out $2;;
xt ) java -cp "$classpath" com.jclark.xsl.sax.Driver $1 $jfosheet > $2;;
saxon ) java -cp "$classpath" com.icl.saxon.StyleSheet $1 $jfosheet -o $2;;
xsltproc ) xsltproc $fosheet $1 > $2;;
esac
}
# creates html output from xml. Arguments: input_filename out_filename
process_html () {
case $processor in
xalan ) java -cp "$classpath" org.apache.xalan.xslt.Process -in $1 -xsl $jhtmlsheet -out $2;;
xt ) java -cp "$classpath" com.jclark.xsl.sax.Driver $1 $jhtmlsheet > $2;;
saxon ) java -cp "$classpath" com.icl.saxon.StyleSheet $1 $jhtmlsheet -o $2;;
xsltproc ) xsltproc $htmlsheet $1 > $2;;
esac
}
# read the command line options
while getopts ":d:hi:p:t:" opt; do
case $opt in
d ) stylesheet=$OPTARG;;
h ) echo "creates formatted output from a DocBook XML source"
echo 'usage: dbxml [-d style] [-h] [-i name] [-p prefix] [-t outformat] file1 [file2...]'
echo "Options: -d select stylesheet (d=default, m=m4, s=dbslide)"
echo " -h print this help and exit"
echo " -p specify processor: xalan, xt, saxon, or xsltproc"
echo " -t select the output format. Possible values are html, rtf, pdf."
exit 0 ;;
p ) processor=$OPTARG;;
t ) outformat=$OPTARG;;
\? ) echo 'usage: dbxml [-d style] [-h] [-p processor] [-t outformat] file1 [file2...]'
echo 'type dbxml -h to invoke help'
exit 1;;
esac
done
# correct the index so the filename argument is always $1
shift $(($OPTIND - 1))
# pick stylesheet; the case 'm' shows how you could include your own driver files here
case $stylesheet in
d ) htmlsheet=$htmldb
fosheet=$fodb;;
# m ) htmlsheet=$htmlm4
# fosheet=$printm4;;
\? ) echo 'usage of the -d switch: d selects stock DocBook'
exit 1;;
esac
# test for valid arguments
if [ ! $outformat = html ] && [ ! $outformat = rtf ] && [ ! $outformat = pdf ]; then
echo "specify one of 'html', 'rtf', 'pdf' with the -t option"
exit 1
fi
if [ ! $processor = "xalan" ] && [ ! $processor = "xt" ] && [ ! $processor = "xsltproc" ] && [ ! $processor = "saxon" ]; then
echo "specify one of 'xalan', 'xt', 'saxon', 'xsltproc' with the -p option"
exit 1;
fi
# on Win32-cygwin, the native Win32 tools want the DOS path
if [ $OSTYPE = "cygwin" ]; then
# get the full dos path of the classpath root
osclasspath_root=$(cygpath -w $classpath_root)
classpath="$osclasspath_root\avalon-framework-4.0.jar;$osclasspath_root\batik.jar;$osclasspath_root\fop.jar;$osclasspath_root\jfor-0.5.1.jar;$osclasspath_root\jimi-1.0.jar;$osclasspath_root\logkit-1.0b4.jar;$osclasspath_root\sax.jar;$osclasspath_root\xalan.jar;$osclasspath_root\xerces.jar;$osclasspath_root\xp.jar;$osclasspath_root\xt.jar"
jfosheet=$(cygpath -w $fosheet)
jhtmlsheet=$(cygpath -w $htmlsheet)
else
classpath="$classpath_root/avalon-framework-4.0.jar:$classpath_root/batik.jar:$classpath_root/fop.jar:$classpath_root/jfor-0.5.1.jar:$classpath_root/jimi-1.0.jar:$classpath_root/logkit-1.0b4.jar:$classpath_root/sax.jar:$classpath_root/xalan.jar:$classpath_root/xerces.jar:$classpath_root/xp.jar:$classpath_root/xt.jar"
jfosheet=$fosheet
jhtmlsheet=$htmlsheet
fi
for filename in $*; do
if [ $OSTYPE = "cygwin" ]; then
# get the full dos path of the file
mypath=$(cygpath -w $filename)
else
mypath=$filename
fi
# extract the basename from the argument
basename=${mypath%.*}
case $outformat in
rtf ) java -cp "$classpath" ch.codeconsult.jfor.main.CmdLineConverter $basename.fo $basename.rtf;;
html) process_html $mypath $basename.html;;
pdf ) process_fo $mypath $basename.fo
if [ $? -ne 0 ]; then
exit 1
fi
if [ ! -e $basename.aux ]; then
touch $basename.aux
fi
cp $basename.aux $basename.aux.$$
pdfxmltex $basename.fo
if [ $? -ne 0 ]; then
exit 1
fi
until diff --brief $basename.aux $basename.aux.$$; do
cp $basename.aux $basename.aux.$$
pdfxmltex $basename.fo
done
rm $basename.aux.$$;;
esac
done
exit 0
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Problem reports: http://cygwin.com/problems.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/