summaryrefslogtreecommitdiff
path: root/tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex')
-rw-r--r--tex/context/base/cont-new.tex37
-rw-r--r--tex/context/base/context.tex2
-rw-r--r--tex/context/base/core-fld.tex5
-rw-r--r--tex/context/base/core-ltb.tex58
-rw-r--r--tex/context/base/core-mat.tex2
-rw-r--r--tex/context/base/core-sec.tex8
-rw-r--r--tex/context/base/page-set.tex8
-rw-r--r--tex/context/base/setupb.tex12
-rw-r--r--tex/context/base/spec-dvi.tex2
-rw-r--r--tex/context/base/xtag-ini.tex3
10 files changed, 96 insertions, 41 deletions
diff --git a/tex/context/base/cont-new.tex b/tex/context/base/cont-new.tex
index 627a4f6d3..540bb32de 100644
--- a/tex/context/base/cont-new.tex
+++ b/tex/context/base/cont-new.tex
@@ -21,8 +21,45 @@
\writestatus{\m!systems}{beware: some patches loaded from cont-new.tex!}
+\long\def\preservePSpar#1\to#2%
+ {\bgroup
+ \def\par{\rawcharacter{12}\rawcharacter{12}}%
+ \expanded{\egroup\noexpand\def\noexpand#2{#1}}}
+
\appendtoks\optimizeverbatimfalse\to\everytabulate
+\def\processlinetableXMLfile#1%
+ {\bgroup
+ \let\startlinetable\donothing
+ \let\stoplinetable \donothing
+ \startlinetableanalysis\processXMLfile{#1}\stoplinetableanalysis
+ \startlinetablerun \processXMLfile{#1}\stoplinetablerun
+ \egroup}
+
+\def\startlinetablepart
+ {\global\linetablesubcol\zerocount
+ \setbox\scratchbox\hbox\bgroup
+ \doconvertfont{\linetablerparameter\c!letter}%
+ \startcolor[\linetablerparameter\c!kleur]%
+ \ignorespaces}
+
+\def\stoplinetablepart
+ {\ifnum\linetablepart>\zerocount
+ \unskip \unskip % remove last intercolumn skip (distance+fill)
+ \fi
+ \stopcolor
+ \egroup
+ \iflinetablepreroll \else
+ \ifcase\linetablepart
+ % we're collecting the repeater
+ \else
+ \scratchdimen\hsize \advance\scratchdimen-\wd\scratchbox\relax
+ \ifdim\scratchdimen>\linetableparameter\c!rek\else
+ \setbox\scratchbox\hbox to \hsize{\unhbox\scratchbox}%
+ \fi
+ \fi
+ \fi}
+
\def\centertogrid % meant for special situations
{\ifgridsnapping
\dowithnextboxcontent
diff --git a/tex/context/base/context.tex b/tex/context/base/context.tex
index a168370ae..d4bdaa905 100644
--- a/tex/context/base/context.tex
+++ b/tex/context/base/context.tex
@@ -15,7 +15,7 @@
\catcode`\{=1 \catcode`\}=2
-\def\contextversion{2003.4.22}
+\def\contextversion{2003.4.29}
%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-fld.tex b/tex/context/base/core-fld.tex
index 9bdc263a1..d27ad4e47 100644
--- a/tex/context/base/core-fld.tex
+++ b/tex/context/base/core-fld.tex
@@ -642,7 +642,7 @@
\egroup
\fi}
-\def\typesetfield%
+\def\typesetfield
{\useJSscripts[fld]%
\ifx\@@FieldRoot\empty \else
\let\@@SavedFieldName\@@FieldName
@@ -747,6 +747,9 @@
\newif\ifVerticalField
\newif\ifHorizontalField
+% way to slow/complicated, we need some simple alternative
+% as well
+
\def\dohandlefield[#1][#2][#3][#4][#5]%
{\presetlocalframed[\??fd]%
\processallactionsinset
diff --git a/tex/context/base/core-ltb.tex b/tex/context/base/core-ltb.tex
index bdb81d4f5..1e5353669 100644
--- a/tex/context/base/core-ltb.tex
+++ b/tex/context/base/core-ltb.tex
@@ -332,7 +332,7 @@
\ifcase\linetablepart
% we're collecting the repeater
\else
- \scratchdimen\hsize \advance\scratchdimen-\wd\scratchbox
+ \scratchdimen\hsize \advance\scratchdimen-\wd\scratchbox\relax
\ifdim\scratchdimen>\linetableparameter\c!rek\else
\setbox\scratchbox\hbox to \hsize{\unhbox\scratchbox}%
\fi
@@ -446,8 +446,8 @@
{\setuplinetable[\c!maxbreedte=\zeropoint]}%
\processaction
[\linetableparameter\c!rek]
- [\v!nee=>{\setuplinetable[\c!rek=\maxdimen]}% no stretch
- \v!ja=>{\setuplinetable[\c!rek=\zerocount]}]% max stretch
+ [\v!nee=>{\setuplinetable[\c!rek=\maxdimen]},% no stretch
+ \v!ja=>{\setuplinetable[\c!rek=\zeropoint]}]% max stretch
\chardef\linetablerepeat\linetableparameter\c!nlinks
\chardef\linetablesplitstatus % =
\ifdim\linetableparameter\c!maxbreedte>\zeropoint
@@ -503,31 +503,31 @@
\globallet\noflinetableparts\!!zerocount
\egroup}
-\def\checklinecolumnwidth
- {\ifundefined{\??lew\number\linetablecolumn}%
- \donetrue
- \else\ifdim\getvalue{\??lew\number\linetablecolumn}<\wd\linetablecell
- \donetrue
- \else
- \donefalse
- \fi\fi
- \ifdone
- \setxvalue{\??lew\number\linetablecolumn}{\the\wd\linetablecell}%
- \fi}
-
-\def\checklinecolumnwidth
- {\ifcsname\??lew\number\linetablecolumn\endcsname
- \ifdim\csname\??lew\number\linetablecolumn\endcsname<\wd\linetablecell
- \donetrue
- \else
- \donefalse
- \fi
- \else
- \donetrue
- \fi
- \ifdone
- \setxvalue{\??lew\number\linetablecolumn}{\the\wd\linetablecell}%
- \fi}
+% \def\checklinecolumnwidth
+% {\ifundefined{\??lew\number\linetablecolumn}%
+% \donetrue
+% \else\ifdim\getvalue{\??lew\number\linetablecolumn}<\wd\linetablecell
+% \donetrue
+% \else
+% \donefalse
+% \fi\fi
+% \ifdone
+% \setxvalue{\??lew\number\linetablecolumn}{\the\wd\linetablecell}%
+% \fi}
+%
+% \def\checklinecolumnwidth
+% {\ifcsname\??lew\number\linetablecolumn\endcsname
+% \ifdim\csname\??lew\number\linetablecolumn\endcsname<\wd\linetablecell
+% \donetrue
+% \else
+% \donefalse
+% \fi
+% \else
+% \donetrue
+% \fi
+% \ifdone
+% \setxvalue{\??lew\number\linetablecolumn}{\the\wd\linetablecell}%
+% \fi}
\def\checklinecolumnwidth
{\expandafter\xdef\csname\??lew\number\linetablecolumn\endcsname
@@ -661,6 +661,8 @@
\setevalue{\??lec\recurselevel\c!breedte}{\getvalue{\??lew\recurselevel}}%
\letgvalue{\??lew\recurselevel}\!!zeropoint}} % init next table
+% todo: store in box instead of macro
+
\newtoks \@@linetablehead
\long\def\startlinetablehead#1\stoplinetablehead
diff --git a/tex/context/base/core-mat.tex b/tex/context/base/core-mat.tex
index 5ecf38206..a75b56a96 100644
--- a/tex/context/base/core-mat.tex
+++ b/tex/context/base/core-mat.tex
@@ -166,7 +166,7 @@
\setvalue{\e!start\v!formule}{\dostartformula{}}
\setvalue{\e!stop \v!formule}{\dostopformula}
-\def\definieerformule%
+\def\definieerformule
{\dodoubleempty\dodefinieerformule}
\def\dodefinieerformule[#1][#2]%
diff --git a/tex/context/base/core-sec.tex b/tex/context/base/core-sec.tex
index 8c479714e..982179bf9 100644
--- a/tex/context/base/core-sec.tex
+++ b/tex/context/base/core-sec.tex
@@ -1925,8 +1925,8 @@
\c!nummer,\c!eigennummer,\c!plaatskop,\c!verhoognummer,
\c!letter,\c!kleur,\c!afstand,\c!variant,\c!springvolgendein,
% new per 20/03/3002 (o-pbu-l) / was too confusing
- \c!nummerletter,\c!tekstletter,\c!expansie,
- %
+ % \c!nummerletter,\c!tekstletter,\c!expansie,
+ % again too confusing
\c!uitlijnen,\c!titeluitlijnen,\c!tolerantie,\c!grid,
\c!nummercommando,\c!tekstcommando,\c!margetekst]}}%
\getparameters[\??ko#1][#2]%
@@ -1951,8 +1951,8 @@
\c!nummer,\c!eigennummer,\c!plaatskop,\c!verhoognummer,
\c!letter,\c!kleur,\c!afstand,\c!variant,\c!springvolgendein,
% new per 20/03/3002 (o-pbu-l) / was too confusing
- \c!nummerletter,\c!tekstletter,\c!expansie,
- %
+ % \c!nummerletter,\c!tekstletter,\c!expansie,
+ % again too confusing
\c!uitlijnen,\c!titeluitlijnen,\c!tolerantie,\c!grid,
\c!nummercommando,\c!tekstcommando,\c!margetekst]%
\getparameters[\??ko#1][\c!expansie=]% iig een value, rather fuzzy
diff --git a/tex/context/base/page-set.tex b/tex/context/base/page-set.tex
index c712d51af..90a455e8b 100644
--- a/tex/context/base/page-set.tex
+++ b/tex/context/base/page-set.tex
@@ -1466,7 +1466,7 @@
\splitstring#1\at*\to\column\and\row
\bgroup
\ifx\column\empty\else\expanded{\doOTRSETgotoCOLUMN{\column}}\fi
- \egroup
+ \egroup
\bgroup
\ifx\row \empty\else\expanded{\doOTRSETgotoROW {\row }}\fi
\egroup
@@ -1545,10 +1545,10 @@
% \fi
% \OTRSETsetvsize}
-\def\OTRSETgotocell#1#2%
+\def\OTRSETgotocell#1#2% obsolete: now \column[#1*#2]
{\endgraf
- \doOTRSETgotocolumnCOLUMN{#1}%
- \doOTRSETgotocolumnROW {#2}}
+ \doOTRSETgotoCOLUMN{#1}%
+ \doOTRSETgotoROW {#2}}
\def\OTRSETdummycolumn
{\verticalstrut
diff --git a/tex/context/base/setupb.tex b/tex/context/base/setupb.tex
index 8ebbfccb4..4f528a13a 100644
--- a/tex/context/base/setupb.tex
+++ b/tex/context/base/setupb.tex
@@ -4989,6 +4989,18 @@
[\v!normaal,\v!vet,\v!schuin,\v!vet\v!schuin,\v!type,\v!kap,\v!klein...,\c!command!]
[]
\variable
+ [\c!kleur]
+ [\c!identifier!]
+ []
+ \variable
+ [\c!tekstkleur]
+ [\c!identifier!]
+ []
+ \variable
+ [\c!nummerkleur]
+ [\c!identifier!]
+ []
+ \variable
[\c!nummer]
[\v!ja,\v!nee]
[\v!ja]
diff --git a/tex/context/base/spec-dvi.tex b/tex/context/base/spec-dvi.tex
index 2748fa512..78fb734f4 100644
--- a/tex/context/base/spec-dvi.tex
+++ b/tex/context/base/spec-dvi.tex
@@ -113,7 +113,7 @@
\definespecial\dosetpositionpapersize#1#2%
{\xdef\flushDVIpositionpapersize%
{\special{pos:papersize #1 #2}%
- \noexpand\installprogram{dvipos \jobname}%
+ \noexpand\installprogram{dvipos --outfile=\jobname.tuo}%
\global\noexpand\let\noexpand\flushDVIpositionpapersize\relax}}
\prependtoksonce \flushDVIpositionpapersize \to \everyshipout
diff --git a/tex/context/base/xtag-ini.tex b/tex/context/base/xtag-ini.tex
index 2e258de99..4c5d5d2e0 100644
--- a/tex/context/base/xtag-ini.tex
+++ b/tex/context/base/xtag-ini.tex
@@ -245,7 +245,8 @@
.catcode`./=.@@other
.catcode`.'=.@@other
.catcode`.~=.@@other
- .catcode`.#=.@@active
+* .catcode`.#=.@@active .def#B&hash;E*
+ .catcode`.#=.@@other
.ifcase.XMLtokensreduction
.entitleXMLescapetokens
.or