summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2004-06-21 00:00:00 +0200
committerHans Hagen <pragma@wxs.nl>2004-06-21 00:00:00 +0200
commit6b30d8eb0ad7be8b7581f54e5cbcfc3ea413a804 (patch)
treef402fe31c75149270f447c95bdc75d4eebf05cb0
parent0bfaf7db3a4495c91871b17e20cebecdff4a5dde (diff)
downloadcontext-6b30d8eb0ad7be8b7581f54e5cbcfc3ea413a804.tar.gz
stable 2004.06.21
-rw-r--r--context/config/texexec.rme4
-rw-r--r--scripts/context/perl/texexec.rme4
-rw-r--r--scripts/context/ruby/textools.rb2
-rw-r--r--scripts/context/ruby/xmltools.rb81
-rw-r--r--tex/context/base/context.tex2
-rw-r--r--tex/context/base/core-fig.tex7
-rw-r--r--tex/context/base/hand-def.tex21
-rw-r--r--tex/context/base/hand-ini.tex71
-rw-r--r--tex/context/base/java-exa.tex11
-rw-r--r--tex/context/base/spec-tpd.tex2
-rw-r--r--tex/context/base/supp-mps.tex17
-rw-r--r--tex/context/base/type-buy.tex9
-rw-r--r--tex/context/base/x-mathml.tex32
-rw-r--r--tex/context/base/xtag-xsl.tex9
14 files changed, 163 insertions, 109 deletions
diff --git a/context/config/texexec.rme b/context/config/texexec.rme
index ff3d3ae26..5ccf1f645 100644
--- a/context/config/texexec.rme
+++ b/context/config/texexec.rme
@@ -115,12 +115,12 @@ for fptex set MpPassString to -progname=mpost -translate-file=natural
for miktex set TeXHashExecutable to initexmf --update-fndb
for miktex set TeXExecutable to pdfetex
for miktex set TeXVirginFlag to --initialize
-for miktex set TeXPassString to --alias=context --8bit
+for miktex set TeXPassString to --alias=context --translate-file=natural.tcx
for miktex set TeXBatchFlag to --interaction=batchmode
for miktex set TeXNonStopFlag to --interaction=nonstopmode
for miktex set MpToTeXExecutable to mptotex
for miktex set MpVirginFlag to --initialize
-for miktex set MpPassString to --alias=mpost
+for miktex set MpPassString to --alias=mpost --translate-file=natural.tcx
for miktex set MpBatchFlag to --interaction=batchmode
for miktex set MpNonStopFlag to --interaction=nonstopmode
diff --git a/scripts/context/perl/texexec.rme b/scripts/context/perl/texexec.rme
index ff3d3ae26..5ccf1f645 100644
--- a/scripts/context/perl/texexec.rme
+++ b/scripts/context/perl/texexec.rme
@@ -115,12 +115,12 @@ for fptex set MpPassString to -progname=mpost -translate-file=natural
for miktex set TeXHashExecutable to initexmf --update-fndb
for miktex set TeXExecutable to pdfetex
for miktex set TeXVirginFlag to --initialize
-for miktex set TeXPassString to --alias=context --8bit
+for miktex set TeXPassString to --alias=context --translate-file=natural.tcx
for miktex set TeXBatchFlag to --interaction=batchmode
for miktex set TeXNonStopFlag to --interaction=nonstopmode
for miktex set MpToTeXExecutable to mptotex
for miktex set MpVirginFlag to --initialize
-for miktex set MpPassString to --alias=mpost
+for miktex set MpPassString to --alias=mpost --translate-file=natural.tcx
for miktex set MpBatchFlag to --interaction=batchmode
for miktex set MpNonStopFlag to --interaction=nonstopmode
diff --git a/scripts/context/ruby/textools.rb b/scripts/context/ruby/textools.rb
index 379964dde..fec093cf3 100644
--- a/scripts/context/ruby/textools.rb
+++ b/scripts/context/ruby/textools.rb
@@ -11,7 +11,7 @@
banner = ['TeXTools', 'version 1.2', '2002/2004', 'PRAGMA ADE/POD']
unless defined? ownpath
- ownpath = $0.sub(/[\\\/]\w*?\.rb/i,'')
+ ownpath = $0.sub(/[\\\/][a-z0-9\-]*?\.rb/i,'')
$: << ownpath
end
diff --git a/scripts/context/ruby/xmltools.rb b/scripts/context/ruby/xmltools.rb
index e1803daf6..0c2367068 100644
--- a/scripts/context/ruby/xmltools.rb
+++ b/scripts/context/ruby/xmltools.rb
@@ -11,7 +11,7 @@
banner = ['XMLTools', 'version 1.0', '2002/2004', 'PRAGMA ADE/POD']
unless defined? ownpath
- ownpath = $0.sub(/[\\\/]\w*?\.rb/i,'')
+ ownpath = $0.sub(/[\\\/][a-z0-9\-]*?\.rb/i,'')
$: << ownpath
end
@@ -114,12 +114,84 @@ class Commands
alias ls :dir
+ def mmlpages
+
+ file = @commandline.argument('first')
+ eps = @commandline.option('eps')
+ png = @commandline.option('png')
+ style = @commandline.option('style')
+ modes = @commandline.option('modes')
+
+ file = file.sub(/\.xml/io, '')
+ long = "#{file}-mmlpages"
+ if FileTest.file?(file+'.xml') then
+ style = "--arg=\"style=#{style}\"" unless style.empty?
+ modes = "--mode=#{modes}" unless modes.empty?
+ if system("texmfstart texexec.pl --batch --pdf --once --result=#{long} --use=mmlpag #{style} #{modes} #{file}.xml") then
+ if f = open("#{file}-mmlpages.txt") then
+ while line = f.gets do
+ data = Hash.new
+ if fields = line.split then
+ fields.each do |fld|
+ key, value = fld.split('=')
+ data[key] = value if key && value
+ end
+ if data.key?('p') then
+ page = data['p']
+ name = "#{long}-#{page}"
+ if eps then
+ report("generating eps file #{name}")
+ if system("pdftops -eps -f #{page} -l #{page} #{long}.pdf #{name}.eps") then
+ if data.key?('d') then
+ if epsfile = IO.read("#{name}.eps") then
+ epsfile.sub!(/^(\%\%BoundingBox:.*?$)/i) do
+ newline = $1 + "\n%%Baseline: #{data['d']}\n"
+ if data.key?('w') && data.key?('h') then
+ newline += "%%PositionWidth: #{data['w']}\n"
+ newline += "%%PositionHeight: #{data['h']}\n"
+ newline += "%%PositionDepth: #{data['d']}"
+ end
+ newline
+ end
+ if g = File.open("#{name}.eps",'wb') then
+ g.write(epsfile)
+ g.close
+ end
+ end
+ end
+ else
+ report("error in generating eps from #{name}")
+ end
+ end
+ if png then
+ report("generating png file #{name}")
+ system("imagemagick #{name}.eps #{name}.png")
+ end
+ end
+ end
+ end
+ f.close
+ else
+ report("missing data log file #{filename}")
+ end
+ else
+ report("error in processing file #{filename}")
+ end
+ system("texmfstart texutil --purge")
+ else
+ report("error in processing file #{filename}")
+ end
+
+ end
+
end
logger = EXA::ExaLogger.new(banner.shift)
commandline = CommandLine.new
-commandline.registeraction('dir','generate directory listing')
+commandline.registeraction('dir', 'generate directory listing')
+commandline.registeraction('mmlpages','generate graphic from mathml')
+
commandline.registeraction('ls')
commandline.registeraction('help')
@@ -133,6 +205,11 @@ commandline.registervalue('url')
commandline.registervalue('output')
commandline.registervalue('root')
+commandline.registerflag('eps')
+commandline.registerflag('png')
+commandline.registervalue('style')
+commandline.registervalue('modes')
+
commandline.expand
Commands.new(commandline,logger,banner).send(commandline.action || 'help') \ No newline at end of file
diff --git a/tex/context/base/context.tex b/tex/context/base/context.tex
index 8a79f50eb..ccd439213 100644
--- a/tex/context/base/context.tex
+++ b/tex/context/base/context.tex
@@ -15,7 +15,7 @@
\catcode`\{=1 \catcode`\}=2
-\def\contextversion{2004.6.20}
+\def\contextversion{2004.6.21}
%D Welcome to the main module. When this module is ran through
%D \type{initex} or \type{tex -i} or \type{whatevertex} using
diff --git a/tex/context/base/core-fig.tex b/tex/context/base/core-fig.tex
index 9132763f2..628200837 100644
--- a/tex/context/base/core-fig.tex
+++ b/tex/context/base/core-fig.tex
@@ -194,8 +194,7 @@
%D filetype is specified, we scan for the next set of files.
%D As one can see, we prefer outlines over bitmaps.
-\def\figuretypes%
- {\c!eps,\c!mps,\c!pdf,\c!png,\c!jpg,\c!tif} % ,\c!tex,\c!tmp} % \c!mov
+\def\figuretypes{\c!eps,\c!mps,\c!pdf,\c!png,\c!jpg,\c!tif} % ,\c!tex,\c!tmp} % \c!mov
%D Instead of using a comma separated list, we could have use a
%D faster alternative, but the current implementation is not
@@ -950,6 +949,10 @@
\newif\ifgridfigure
+% the preset for mov/avi should move to the driver
+%
+% this whole mess needs a clean up anyway
+
\def\calculateexternalfigure[#1][#2][#3][#4][#5][#6]%
{\mindermeldingen
\setupexternalfigures
diff --git a/tex/context/base/hand-def.tex b/tex/context/base/hand-def.tex
index a928e30a0..5da5b9d94 100644
--- a/tex/context/base/hand-def.tex
+++ b/tex/context/base/hand-def.tex
@@ -357,22 +357,25 @@
\unprotect
% beware: extended extends the preceding vector (both protruding and
-% adjusting) but as loign as the normal ascii characters are not set
+% adjusting) but as long as the normal ascii characters are not set
% beforehand, they default to normal
% protruding variants -- slanted/italic is yet incomplete
-\definefonthandling [pure] [pure]
-\definefonthandling [normal] [punctuation,alpha,extended]
-\definefonthandling [bold] [punctuation,alpha,extended]
-\definefonthandling [slanted] [punctuation] [\c!rechts=1.5]
-\definefonthandling [italic] [punctuation] [\c!rechts=1.5]
-\definefonthandling [boldslanted] [punctuation] [\c!rechts=1.5]
-\definefonthandling [bolditalic] [punctuation] [\c!rechts=1.5]
+\definefonthandling [pure] [pure] [\c!type=\v!hangend]
+\definefonthandling [normal] [punctuation,alpha,extended] [\c!type=\v!hangend]
+\definefonthandling [bold] [punctuation,alpha,extended] [\c!type=\v!hangend]
+\definefonthandling [slanted] [punctuation] [\c!type=\v!hangend,\c!rechts=1.5]
+\definefonthandling [italic] [punctuation] [\c!type=\v!hangend,\c!rechts=1.5]
+\definefonthandling [boldslanted] [punctuation] [\c!type=\v!hangend,\c!rechts=1.5]
+\definefonthandling [bolditalic] [punctuation] [\c!type=\v!hangend,\c!rechts=1.5]
% hz variants
-\definefonthandling [hz] [hz,extended]
+\definefonthandling [hz] [hz,extended] [\c!type=\v!hz]
+
+% combined variants
+
\definefonthandling [quality] [hz,extended,pure]
% A special case of guillemots, beware: when used ungrouped,
diff --git a/tex/context/base/hand-ini.tex b/tex/context/base/hand-ini.tex
index 6d451befd..a8a87db7e 100644
--- a/tex/context/base/hand-ini.tex
+++ b/tex/context/base/hand-ini.tex
@@ -135,33 +135,16 @@
\def\@@pdfexpandbonus{autoexpand}%
\fi
- \beginTEX
-
- \def\setfontadjusting#1%
- {\expandafter\ifx\csname\@fha@\@fha@#1\c!stap\endcsname\relax\else
- \iftracefonthandling\showfontadjusting{#1}\fi
- \pdffontexpand\handledfont
- \csname\@fha@\@fha@#1\c!min \endcsname\space
- \csname\@fha@\@fha@#1\c!max \endcsname\space
- \csname\@fha@\@fha@#1\c!stap\endcsname\space
- \@@pdfexpandbonus\relax
- \fi}
-
- \endTEX
-
- \beginETEX
-
- \def\setfontadjusting#1%
- {\ifcsname\@fha@\@fha@#1\c!stap\endcsname
- \iftracefonthandling\showfontadjusting{#1}\fi
- \pdffontexpand\handledfont
- \csname\@fha@\@fha@#1\c!min \endcsname\space
- \csname\@fha@\@fha@#1\c!max \endcsname\space
- \csname\@fha@\@fha@#1\c!stap\endcsname\space
- \@@pdfexpandbonus\relax
- \fi}
-
- \endETEX
+ \def\setfontadjusting#1%
+ {\doifvalue{\@fha@\@fha@#1\c!type}\v!hz{\dosetfontadjusting{#1}}}
+
+ \def\dosetfontadjusting#1%
+ {\iftracefonthandling\showfontadjusting{#1}\fi
+ \pdffontexpand\handledfont
+ \csname\@fha@\@fha@#1\c!min \endcsname\space
+ \csname\@fha@\@fha@#1\c!max \endcsname\space
+ \csname\@fha@\@fha@#1\c!stap\endcsname\space
+ \@@pdfexpandbonus\relax}
\def\showfontadjusting#1%
{\writestatus\m!handlings{[adjust]\space#1\space
@@ -194,31 +177,15 @@
\lproddimen1000\onepoint \divide\lproddimen\maxcard
\rproddimen1000\onepoint \divide\rproddimen\maxcard
- \beginTEX
-
- \def\setprotrudingfactor#1% mo \onepoint instead of pt
- {\expandafter\ifx\csname\@fha@\@fha@#1\c!links\endcsname\relax\else
- \lproddimen\csname\@fha@\@fha@#1\c!links\endcsname\s!pt
- \multiply\lproddimen\plusthousand\divide\lproddimen\maxcard\relax
- \rproddimen\csname\@fha@\@fha@#1\c!rechts\endcsname\s!pt
- \multiply\rproddimen\plusthousand\divide\rproddimen\maxcard\relax
- \iftracefonthandling\showprotrudingfactor{#1}\fi
- \fi}
-
- \endTEX
-
- \beginETEX
+ \def\setprotrudingfactor#1%
+ {\doifvalue{\@fha@\@fha@#1\c!type}\v!hangend{\dosetprotrudingfactor{#1}}}
- \def\setprotrudingfactor#1% mo \onepoint instead of pt
- {\ifcsname\@fha@\@fha@#1\c!links\endcsname
- \lproddimen\csname\@fha@\@fha@#1\c!links\endcsname\s!pt
- \multiply\lproddimen\plusthousand\divide\lproddimen\maxcard\relax
- \rproddimen\csname\@fha@\@fha@#1\c!rechts\endcsname\s!pt
- \multiply\rproddimen\plusthousand\divide\rproddimen\maxcard\relax
- \iftracefonthandling\showprotrudingfactor{#1}\fi
- \fi}
-
- \endETEX
+ \def\dosetprotrudingfactor#1% mo \onepoint instead of pt
+ {\lproddimen\csname\@fha@\@fha@#1\c!links\endcsname\s!pt
+ \multiply\lproddimen\plusthousand\divide\lproddimen\maxcard\relax
+ \rproddimen\csname\@fha@\@fha@#1\c!rechts\endcsname\s!pt
+ \multiply\rproddimen\plusthousand\divide\rproddimen\maxcard\relax
+ \iftracefonthandling\showprotrudingfactor{#1}\fi}
\def\showprotrudingfactor#1%
{\writestatus\m!handlings{[protrude]\space#1\space
@@ -357,7 +324,7 @@
\def\dodefinefonthandling[#1][#2][#3]%
{\setvalue{\@fha@\@fha@#1}{#2}%
- \getparameters[\@fha@\@fha@#1][\c!links=1,\c!rechts=1,\c!min=20,\c!max=20,\c!stap=5,#3]}
+ \getparameters[\@fha@\@fha@#1][\c!type=\v!hangend,\c!links=1,\c!rechts=1,\c!min=20,\c!max=20,\c!stap=5,#3]}
\def\setupfonthandling
{\dodoubleempty\dosetupfonthandling}
diff --git a/tex/context/base/java-exa.tex b/tex/context/base/java-exa.tex
index caad5a175..52c26bf10 100644
--- a/tex/context/base/java-exa.tex
+++ b/tex/context/base/java-exa.tex
@@ -143,7 +143,8 @@
if (example_file != "") {
url = url + "/" + example_file ;
}
- this.submitForm({cURL : url, cSubmitAs : example_method}) ;
+ % we need the bFDF for acrobat 5
+ this.submitForm({cURL : url, bFDF : false, cSubmitAs : example_method}) ;
}
function submit_example_form ( ) {
@@ -230,7 +231,7 @@
}
} else { if (exa_multiple) {
for (i=1;i<=100;i++) {
-console.println("file field "+i) ;
+ % console.println("file field "+i) ;
f = this.getField("filename-"+ i) ;
% if (f) { if (f.value != "") {
% if (g) { if (g.value == "") {
@@ -245,13 +246,13 @@ console.println("file field "+i) ;
fls = fls + "<exa:entry" ;
g = this.getField("dataname-"+ i) ;
if (g) { if (g.value == "") {
-console.println("a") ;
+ % console.println("a") ;
fls = fls + ">" ;
} else {
-console.println("b") ;
+ % console.println("b") ;
fls = fls + " label='" + g.value + "'>" ;
} } else {
-console.println("c") ;
+ % console.println("c") ;
fls = fls + ">" ;
}
fls = fls + f.value + "</exa:entry>" ;
diff --git a/tex/context/base/spec-tpd.tex b/tex/context/base/spec-tpd.tex
index d0be1067b..1de624c76 100644
--- a/tex/context/base/spec-tpd.tex
+++ b/tex/context/base/spec-tpd.tex
@@ -1201,7 +1201,7 @@
%D File embedding. Storing the stream identifier is needed
%D to get access to the number. When typeset, the user can
-%D use feed this number to \type {pdftosrc} and filter the
+%D feed this number to \type {pdftosrc} and filter the
%D file from the \PDF\ file.
\let\PDFlaststreamobject \s!unknown
diff --git a/tex/context/base/supp-mps.tex b/tex/context/base/supp-mps.tex
index 4f44c3518..cd795eca2 100644
--- a/tex/context/base/supp-mps.tex
+++ b/tex/context/base/supp-mps.tex
@@ -103,7 +103,7 @@
\MPruntrue
\doifsomething{#1}{\def\MPgraphicfile{#1}}%
\startwritingMPgraphic
- \writecheckMPgraphic{#2}%
+ \writecheckedMPgraphic{#2}%
\stopwritingMPgraphic
\egroup}
@@ -383,7 +383,7 @@
%D The next alternative permits extensions in other modules
%D without the need to know the details of testing.
-\newtoks\MPTEXgrapicchecks
+\newtoks\MPTEXgraphicchecks
% \long\def\checkMPTEXgraphic#1%
% {\ifforceMPTEXgraphic
@@ -391,7 +391,7 @@
% \else
% \global\MPTEXgraphicfalse
% \expandafter\convertargument#1\to\MPascii
-% \the\MPTEXgrapicchecks\relax % \relax is end condition!
+% \the\MPTEXgraphicchecks\relax % \relax is end condition!
% \fi}
\long\def\writecheckedMPgraphic#1%
@@ -400,8 +400,9 @@
\else
\global\MPTEXgraphicfalse
\expandafter\convertargument#1\to\MPascii
- \the\MPTEXgrapicchecks\relax % \relax is end condition!
+ \the\MPTEXgraphicchecks\relax % \relax is end condition!
\fi
+ \flushMPTEXgraphic % verbatimtex etc
\writeMPgraphic{#1}}
%D We could have used a kind of array approach using a
@@ -415,7 +416,7 @@
\@EA\appendtoks
\@EA\doifincsnameelse\csname MPascii#1\endcsname\MPascii
{\global\MPTEXgraphictrue\gobbleuntil\relax}\donothing
- \to \MPTEXgrapicchecks}
+ \to \MPTEXgraphicchecks}
\forceMPTEXcheck{etex}
\forceMPTEXcheck{textext}
@@ -434,9 +435,9 @@
%D \stoptypen
\def\flushMPTEXgraphic
- {\ifMPTEXgraphic \ifx\everyMPTEXgraphic\emptytoks \else
+ {\ifMPTEXgraphic
\immediate\write\MPwrite{verbatimtex \the\everyMPTEXgraphic\space etex;}%
- \fi \fi}
+ \fi}
\long\def\flushMPgraphicline#1#2;%
{\ifx#1\relax \else
@@ -616,7 +617,7 @@
\theMPinclusions
\global\let\theMPinclusions\relax
\fi
- \flushMPTEXgraphic
+ %\flushMPTEXgraphic
\ifMPrun \else
\immediate\write\MPwrite{let mprunend = end ;}%
\immediate\write\MPwrite{beginfig(\the\currentMPgraphic);}%
diff --git a/tex/context/base/type-buy.tex b/tex/context/base/type-buy.tex
index 7fdb11bbc..8fff2a0f1 100644
--- a/tex/context/base/type-buy.tex
+++ b/tex/context/base/type-buy.tex
@@ -94,13 +94,6 @@
\definefontsynonym [MathBeta] [LucidaNewMath-Roman]
\stoptypescript
- \definefontsynonym [LucidaNewMath-AltDemiItalic] [lbmdo]
- \definefontsynonym [LucidaNewMath-Arrows-Demi] [lbmad]
- \definefontsynonym [LucidaNewMath-Extension] [lbme]
- \definefontsynonym [LucidaNewMath-Demibold] [lbmd]
- \definefontsynonym [LucidaNewMath-DemiItalic] [lbmdi]
- \definefontsynonym [LucidaNewMath-Symbol-Demi] [lbmsd]
-
\starttypescript [boldmath] [lucida] [name]
\definefontsynonym [MathRoman] [LucidaBright-Demi]
\definefontsynonym [MathExtension] [LucidaNewMath-Extension]
@@ -140,7 +133,7 @@
\starttypescript [sans] [lucida] [texnansi,ec,8r]
\definefontsynonym [LucidaSans] [\typescriptthree-lsr] [encoding=\typescriptthree]
\definefontsynonym [LucidaSans-Demi] [\typescriptthree-lsd] [encoding=\typescriptthree]
- \definefontsynonym f[LucidaSans-DemiItalic] [\typescriptthree-lsdi] [encoding=\typescriptthree]
+ \definefontsynonym [LucidaSans-DemiItalic] [\typescriptthree-lsdi] [encoding=\typescriptthree]
\definefontsynonym [LucidaSans-Italic] [\typescriptthree-lsi] [encoding=\typescriptthree]
\definefontsynonym [LucidaSans-Bold] [\typescriptthree-lsb] [encoding=\typescriptthree]
\definefontsynonym [LucidaSans-BoldItalic] [\typescriptthree-lsbi] [encoding=\typescriptthree]
diff --git a/tex/context/base/x-mathml.tex b/tex/context/base/x-mathml.tex
index 5c36c35fb..ed8e25866 100644
--- a/tex/context/base/x-mathml.tex
+++ b/tex/context/base/x-mathml.tex
@@ -2,47 +2,47 @@
%D [ file=m-mathml,
%D version=1999.12.20,
%D title=\CONTEXT\ XML Modules,
-%D subtitle=Loading \MATHML\ Filters,
+%D subtitle=Loading \MATHML\ Filters,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
-%C details.
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
-%D We have to make sure that some basic entities are
+%D We have to make sure that some basic entities are
%D loaded:
-\useXMLfilter[ent]
+\useXMLfilter[ent]
-%D Then we load the math:
+%D Then we load the math:
-\useXMLfilter[mml,mmp,mmc]
+\useXMLfilter[mml,mmp,mmc]
-%D And we also load the whole bunch of entities:
+%D And we also load the whole bunch of entities:
% \useXMLfilter[mea,meb,mec,meh,men,meo,mer]
% \useXMLfilter[mxa,mxb,mxc,mxh,mxn,mxo,mxr]
-%D For simple inline math, we first provide:
+%D For simple inline math, we first provide:
-\newcount\xmlmathlevel % todo : nesting ! ! ! !
+\newcount\xmlmathlevel % todo : nesting ! ! ! !
-\defineXMLenvironment [m] \startXMLinlinemath \stopXMLinlinemath
+\defineXMLenvironment [m] \startXMLinlinemath \stopXMLinlinemath
-\def\startXMLinlinemath
+\def\startXMLinlinemath
{\ifmmode
- \advance\xmlmathlevel1\relax
+ \advance\xmlmathlevel1\relax
\else
\xmlmathlevel1$%
- \fi}
+ \fi}
-\def\stopXMLinlinemath
+\def\stopXMLinlinemath
{\ifcase\xmlmathlevel\or
$\xmlmathlevel0\relax
\else
\advance\xmlmathlevel-1\relax
\fi}
-\endinput
+\endinput \ No newline at end of file
diff --git a/tex/context/base/xtag-xsl.tex b/tex/context/base/xtag-xsl.tex
index 2ebb15e9b..4d844c8e1 100644
--- a/tex/context/base/xtag-xsl.tex
+++ b/tex/context/base/xtag-xsl.tex
@@ -11,6 +11,15 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
+% FOR THIS TO WORK YOU NEED A PROPER cp8bit VECTOR
+%
+% 8 bit support has been messed up in a couple of distributions
+%
+% 0x00 0x00
+% 0x01 0x01
+% 0x02 0x02
+% etc
+
%D This module is rather experimental so users may expect
%D changes in the interface.