diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-12 17:15:07 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-12 17:15:07 +0100 |
commit | 8d8d528d2ad52599f11250cfc567fea4f37f2a8b (patch) | |
tree | 94286bc131ef7d994f9432febaf03fe23d10eef8 /tex/context/base/unic-run.mkii | |
parent | f5aed2e51223c36c84c5f25a6cad238b2af59087 (diff) | |
download | context-8d8d528d2ad52599f11250cfc567fea4f37f2a8b.tar.gz |
2016-01-12 16:26:00
Diffstat (limited to 'tex/context/base/unic-run.mkii')
-rw-r--r-- | tex/context/base/unic-run.mkii | 130 |
1 files changed, 0 insertions, 130 deletions
diff --git a/tex/context/base/unic-run.mkii b/tex/context/base/unic-run.mkii deleted file mode 100644 index 96348d8a7..000000000 --- a/tex/context/base/unic-run.mkii +++ /dev/null @@ -1,130 +0,0 @@ -%D \module -%D [ file=unic-run, -%D version=2005.06.22, -%D title=\CONTEXT\ \UNICODE\ Support, -%D subtitle=Goodies, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -\unprotect - -%D \macros -%D {showunicodevector} -%D -%D Original version by Nikolai Weibull. Adapted a bit (no local count -%D definitions, stepwiserecurse instead of -1 calculations, a bit less -%D code and such). BTW, this is kind of tricky and somehow we don't -%D have align interference. - -\gdef\doshowunicodevectorrow#1#2% - {\NC - \ttx\uchexnumber{#2}% - \VL - \dostepwiserecurse{0}{15}{1}{\unicodechar{\numexpr#1*256+#2+\recurselevel*16\relax}\VL}% - \AR} - -\gdef\showunicodevector[#1]% - {\starttable[|c|c|c|c|c|c|c|c|c|c|c|c|c|c|c|c|c|] - \NC\NC\dostepwiserecurse{0}{15}{1}{\ttx\uchexnumber\recurselevel\NC}\AR - \DC\DL[16]\DR - \dostepwiserecurse{0}{15}{1} - {\expanded{\doshowunicodevectorrow{#1}{\recurselevel}}% - \DC\DL[16]\DR} - \NC \use{17}{\hfill \ttx unicode table hex:\uchexnumbers{#1} dec:\threedigits{#1}\kern-.25em}\NC \AR - \stoptable} - -%D \starttyping -%D \utfunicodetracer=0 -%D \utfunicodetracer=7 -%D -%D \showunicodevector[000] -%D \showunicodevector[001] -%D \showunicodevector[002] -%D \showunicodevector[003] -%D \showunicodevector[004] -%D \showunicodevector[005] -%D \showunicodevector[030] -%D \showunicodevector[031] -%D \showunicodevector[032] -%D \showunicodevector[033] -%D \showunicodevector[034] -%D \stoptyping - -%D \macros -%D {showunicodetable} -%D -%D A more verbose variant: - -\gdef\doshowunicodetablerow#1#2% - {\bTR - \bTD\uchexnumber{#2}\eTD - \dostepwiserecurse{0}{15}{1} - {\bTD - \edef\entrypoint{\the\numexpr#1*256+#2+##1*16\relax}% - \utfunicodetracer\zerocount{\dontleavehmode \strut\unicodechar\entrypoint\endgraf}% - \tt - \utfunicodetracer\plusseven{\dontleavehmode\txx\strut\unicodechar\entrypoint\endgraf}% - \utfunicodetracer\plusthree{\dontleavehmode\txx\strut\unicodechar\entrypoint\endgraf}% - \utfunicodetracer\pluseight{\dontleavehmode\txx\strut\unicodechar\entrypoint\endgraf}% - \eTD}% - \bTD\uchexnumber{#2}\eTD - \eTR} - -\gdef\showunicodetable[#1]% - {\vbox\bgroup - \setupcolors[\c!state=\v!start]% - \setupTABLE[\c!background=\v!screen,\c!backgroundscreen=.90,\c!frame=\v!off,\c!frameoffset=0pt,\c!width=8em,\c!height=6em]% - \setupTABLE[c] [\v!each] [\c!align={middle,lohi}]% - \setupTABLE[c] [\v!first][\c!background=\v!screen,\c!backgroundscreen=.85,\c!style=\tt\tfa]% - \setupTABLE[c] [\v!last] [\c!background=\v!screen,\c!backgroundscreen=.85,\c!style=\tt\tfa]% - \setupTABLE[r] [\v!first][\c!background=\v!screen,\c!backgroundscreen=.85,\c!style=\tt\tfa]% - \setupTABLE[r] [\v!last] [\c!background=\v!screen,\c!backgroundscreen=.85,\c!style=\tt\tfa]% - \setupTABLE[r] [\v!odd] [\c!background=\v!screen,\c!backgroundscreen=.80]% - \setupTABLE[c] [\v!odd] [\c!background=\v!screen,\c!backgroundscreen=.80]% - \setupTABLE[\v!odd][\v!odd] [\c!background=\v!screen,\c!backgroundscreen=.90]% - \bTABLE - \bTR - \bTD dec: \numbers{#1}\endgraf hex: \uchexnumbers{#1}\eTD - \dostepwiserecurse{0}{15}{1}{\bTD\uchexnumber{##1}\eTD}% - \bTD dec: \numbers{#1}\endgraf hex: \uchexnumbers{#1}\eTD - \eTR - \dostepwiserecurse{0}{15}{1}{\doshowunicodetablerow{#1}{##1}}% - \bTR - \bTD dec: \numbers{#1}\endgraf hex: \uchexnumbers{#1}\eTD - \dostepwiserecurse{0}{15}{1}{\bTD\uchexnumber{##1}\eTD}% - \bTD dec: \numbers{#1}\endgraf hex: \uchexnumbers{#1}\eTD - \eTR - \eTABLE - \egroup} - -\protect \endinput - -% alternative -% -% \gdef\doshowunicodevectorrowa#1#2#3#4% -% {\NC -% \ttx\uchexnumber{#2}% -% \VL -% \dostepwiserecurse{#3}{#4}{1}{\unicodechar{\numexpr#1*256+#2+\recurselevel*16\relax}\VL}% -% \AR} -% -% \gdef\doshowunicodevectorrowb#1#2#3#4% -% {\NC -% \relax -% \VL -% \dostepwiserecurse{#3}{#4}{1}{\unicodechar{\numexpr#1*256+#2+\recurselevel*16\relax}\VL}% -% \AR} -% -% \gdef\showunicodevector#1% -% {\starttable[|c|c|c|c|c|c|c|c|c|] -% \NC\NC\dostepwiserecurse{0}{7}{1}{\ttx\uchexnumber\recurselevel/\uchexnumber{\the\numexpr2*\recurselevel\relax}\NC}\AR\DC\DL[8]\DR -% \dostepwiserecurse{0}{15}{1} -% {\expanded{\doshowunicodevectorrowa{#1}{\recurselevel}{0} {7}}\DC\DL[8]\DR% -% \expanded{\doshowunicodevectorrowb{#1}{\recurselevel}{8}{15}}\DC\DL[8]\DR}% -% \NC \use{9}{\hfill \ttx unicode table hex:\uchexnumbers{#1} dec:\threedigits{#1}\kern-.25em}\NC \AR -% \stoptable} |