diff options
Diffstat (limited to 'tex/context/base/core-con.tex')
-rw-r--r-- | tex/context/base/core-con.tex | 134 |
1 files changed, 36 insertions, 98 deletions
diff --git a/tex/context/base/core-con.tex b/tex/context/base/core-con.tex index 25003d61c..88fe60728 100644 --- a/tex/context/base/core-con.tex +++ b/tex/context/base/core-con.tex @@ -1,5 +1,5 @@ %D \module -%D [ filefile=core-con, +%D [ file=core-con, %D version=1997.26.08, %D title=\CONTEXT\ Core Macros, %D subtitle=Conversion Macros, @@ -165,22 +165,27 @@ %D Why should we only honour the romans, and not the greek? \def\greeknumerals#1% watch the \normalxi - {\mathematics - {\ifcase#1\unknowncharacter\or - \alpha\or\beta\or\gamma\or\delta\or\varepsilon\or - \zeta\or\eta\or\theta\or\iota\or\kappa\or\lambda\or - \mu\or\nu\or\normalxi\or o\or\pi\or\varrho\or\sigma\or - \tau\or\upsilon\or\phi\or\chi\or\psi\or\omega - \else - \unknowncharacter - \fi}} + {\mathematics + {\ifcase#1\unknowncharacter\or + \alpha \or \beta \or \gamma \or \delta \or + \varepsilon \or \zeta \or \eta \or \theta \or + \iota \or \kappa \or \lambda \or \mu \or + \nu \or \xi \or \omicron \or \pi \or + \varrho \or \sigma \or \tau \or \upsilon \or + \phi \or \chi \or \psi \or \omega + \else + \unknowncharacter + \fi}} \def\Greeknumerals#1% {\mathematics {\ifcase#1\unknowncharacter \or - A\or B\or\Gamma\or\Delta\or E\or Z\or H\or\Theta\or - I\or K\or\Lambda\or M\or N\or\Xi\or O\or\Pi\or P\or - \Sigma\or T\or\Upsilon\or\Phi\or X\or\Psi\or\Omega + \Alpha \or \Beta \or \Gamma \or \Delta \or + \Epsilon \or \Zeta \or \Eta \or \Theta \or + \Iota \or \Kappa \or \Lambda \or \Mu \or + \Nu \or \Xi \or \Omicron \or \Pi \or + \Rho \or \Sigma \or \Tau \or \Upsilon \or + \Phi \or \Xi \or \Psi \or \Omega \else \unknowncharacter \fi}} @@ -488,78 +493,11 @@ \hskip\datesignal\relax \fi} -% \def\complexcurrentdate[#1]% -% {\bgroup -% \let\labellanguage\currentlanguage -% \def\betweendates{\let\betweendates\dobetweendates}% -% \lowercase{\edef\!!stringa{#1}}% permits usage in \kap -% \@EA\processallactionsinset\@EA -% [\!!stringa] -% [ \v!dag=>\betweendates\the\normalday, -% \v!maand=>\betweendates\month\normalmonth, -% \v!jaar=>\betweendates\the\normalyear, -% \space=>\unskip\ \hskip\datesignal,% optimization -) -% \ =>\unskip\ \hskip\datesignal,% optimization -) -% d=>\the\normalday, -% m=>\the\normalmonth, -% j=>\the\normalyear, -% y=>\the\normalyear, -% w=>\betweendates\dayoftheweek\normalday\normalmonth\normalyear, -% dd=>\ifnum\normalday >9 \else0\fi\the\normalday, -% mm=>\ifnum\normalmonth>9 \else0\fi\the\normalmonth, -% jj=>\expandafter\gobbletwoarguments\the\normalyear, -% yy=>\expandafter\gobbletwoarguments\the\normalyear, -% \v!weekdag=>\betweendates\dayoftheweek\normalday\normalmonth\normalyear, -% \v!kenmerk=>\expanded{\complexcurrentdate[\kenmerkdatumpatroon]}, -% \s!unknown=>\unskip -% \commalistelement -% \hskip\datesignal -% \def\betweendates{\let\betweendates\dobetweendates}]% -% \ifdim\lastskip=\datesignal\relax -% \unskip -% \fi -% \egroup} - -% \def\complexcurrentdate[#1]% -% {\bgroup -% \let\labellanguage\currentlanguage -% \def\betweendates{\let\betweendates\dobetweendates}% -% \lowercase{\edef\!!stringa{#1}}% permits usage in \kap -% \@EA\processallactionsinset\@EA -% [\!!stringa] -% [ \v!dag=>\betweendates\the\normalday, -% \v!dag+=>\betweendates\ordinaldaynumber\normalday, -% \v!maand=>\betweendates\month\normalmonth, -% \v!jaar=>\betweendates\the\normalyear, -% \v!spatie=>\unskip\ \hskip\datesignal,% optimization -) -% \ =>\unskip\ \hskip\datesignal,% optimization -) -% d=>\the\normalday, -% d+=>\ordinaldaynumber\normalday, -% m=>\the\normalmonth, -% j=>\the\normalyear, -% y=>\the\normalyear, -% w=>\betweendates\dayoftheweek\normalday\normalmonth\normalyear, -% dd=>\ifnum\normalday >9 \else0\fi\the\normalday, -% dd+=>\ordinaldaynumber{\ifnum\normalday >9 \else0\fi\the\normalday}, -% mm=>\ifnum\normalmonth>9 \else0\fi\the\normalmonth, -% jj=>\expandafter\gobbletwoarguments\the\normalyear, -% yy=>\expandafter\gobbletwoarguments\the\normalyear, -% \v!weekdag=>\betweendates\dayoftheweek\normalday\normalmonth\normalyear, -% \v!kenmerk=>\expanded{\complexcurrentdate[\kenmerkdatumpatroon]}, -% \s!unknown=>\unskip -% \commalistelement -% \hskip\datesignal -% \def\betweendates{\let\betweendates\dobetweendates}]% -% \ifdim\lastskip=\datesignal\relax -% \unskip -% \fi -% \egroup} - \def\complexcurrentdate[#1]% {\bgroup \let\labellanguage\currentlanguage \def\betweendates{\let\betweendates\dobetweendates}% - \lowercase{\edef\!!stringa{#1}}% permits usage in \kap + \lowercase{\edef\!!stringa{#1}}% permits usage in \smallcapped \@EA\processallactionsinset\@EA [\!!stringa] [ \v!day=>\betweendates\the\normalday, @@ -821,8 +759,8 @@ \defineconversion [a] [\characters] \defineconversion [A] [\Characters] -\defineconversion [AK] [\kap\characters] -\defineconversion [KA] [\kap\characters] +\defineconversion [AK] [\smallcapped\characters] +\defineconversion [KA] [\smallcapped\characters] \defineconversion [n] [\numbers] \defineconversion [N] [\Numbers] @@ -832,8 +770,8 @@ \defineconversion [I] [\Romannumerals] \defineconversion [r] [\romannumerals] \defineconversion [R] [\Romannumerals] -\defineconversion [KR] [\kap\romannumerals] -\defineconversion [RK] [\kap\romannumerals] +\defineconversion [KR] [\smallcapped\romannumerals] +\defineconversion [RK] [\smallcapped\romannumerals] \defineconversion [g] [\greeknumerals] \defineconversion [G] [\Greeknumerals] @@ -842,26 +780,26 @@ \defineconversion [O] [\oldstylenumerals] \defineconversion [or] [\oldstyleromannumerals] -\defineconversion [\v!character] [\character] -\defineconversion [\v!Letter] [\Character] +\defineconversion [\v!character] [\character] +\defineconversion [\v!Character] [\Character] -\defineconversion [\v!characters] [\characters] -\defineconversion [\v!Letters] [\Characters] +\defineconversion [\v!characters] [\characters] +\defineconversion [\v!Characters] [\Characters] -\defineconversion [\v!numbers] [\numbers] -\defineconversion [\v!Cijfers] [\Numbers] -\defineconversion [\v!mediaeval] [\mediaeval] +\defineconversion [\v!numbers] [\numbers] +\defineconversion [\v!Numbers] [\Numbers] +\defineconversion [\v!mediaeval] [\mediaeval] -\defineconversion [\v!romannumerals] [\romannumerals] -\defineconversion [\v!Romeins] [\Romannumerals] +\defineconversion [\v!romannumerals] [\romannumerals] +\defineconversion [\v!Romannumerals] [\Romannumerals] -\defineconversion [\v!greek] [\greeknumerals] -\defineconversion [\v!Grieks] [\Greeknumerals] +\defineconversion [\v!greek] [\greeknumerals] +\defineconversion [\v!Greek] [\Greeknumerals] % Some bonus ones: -\defineconversion [\v!empty] [\gobbleoneargument] -\defineconversion [\v!none] [\numbers] +\defineconversion [\v!empty] [\gobbleoneargument] +\defineconversion [\v!none] [\numbers] \defineconversion [set 0] |