summaryrefslogtreecommitdiff
path: root/tex/context/base/unic-run.mkii
diff options
context:
space:
mode:
authorContext Git Mirror Bot <phg42.2a@gmail.com>2016-01-12 17:15:07 +0100
committerContext Git Mirror Bot <phg42.2a@gmail.com>2016-01-12 17:15:07 +0100
commit8d8d528d2ad52599f11250cfc567fea4f37f2a8b (patch)
tree94286bc131ef7d994f9432febaf03fe23d10eef8 /tex/context/base/unic-run.mkii
parentf5aed2e51223c36c84c5f25a6cad238b2af59087 (diff)
downloadcontext-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.mkii130
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}