diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/kastrup/binhex.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/kastrup/binhex.tex | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/kastrup/binhex.tex b/Master/texmf-dist/tex/generic/kastrup/binhex.tex new file mode 100644 index 00000000000..596ece2b947 --- /dev/null +++ b/Master/texmf-dist/tex/generic/kastrup/binhex.tex @@ -0,0 +1,73 @@ +%% +%% This is file `binhex.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% binhex.dtx (with options: `style') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from binhex.tex. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file binhex.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +\edef\next{\toks0=% + {\catcode`\noexpand\@=\the\catcode`\@\toks0{\the\toks0}}% +} +\next +\catcode`\@11 +\def\next#1#2#3{\expandafter \def \csname bb@#1\endcsname##1% + {#2\csname bb@#3##1\endcsname}} +\next{00}00 \next{01}01 \next{02}10 \next{03}11 +\next{04}20 \next{05}21 \next{06}30 \next{07}31 +\next{08}40 \next{09}41 \next{10}50 \next{11}51 +\next{12}60 \next{13}61 \next{14}70 \next{15}71 +\next{16}80 \next{17}81 \next{18}90 \next{19}91 +\expandafter \def \csname bb@0+\endcsname {+0} +\expandafter \def \csname bb@1+\endcsname {+1} +\def\bb@endbinary#1+{\fi\fi} +\expandafter \def \csname bb@0-\endcsname {0+-\bb@dobinary} +\expandafter\def\csname bb@0m\endcsname#1+{#1+0} +\expandafter\def\csname bb@1m\endcsname#1+{#1+1} +\def\bb@dobinary#1#2{\if#10\if m\string#2\else\bb@endbinary\fi\fi + \expandafter\bb@dobinary\number\csname bb@0#1\endcsname#2} +\def\nbinary#1#2{\expandafter\bb@dobinary\number\number#2% + \romannumeral\number\number#1 000+} +\def\binary{\nbinary1} +\def \next #1#2{\expandafter \def + \csname bb@h\number +#1\endcsname ##1+{\bb@dohex ##1+#2}% +} +\next {0}0 \next {1}1 \next {10}2 \next {11}3 +\next {100}4 \next {101}5 \next {110}6 \next {111}7 +\next{1000}8 \next{1001}9 \next{1010}A \next{1011}B +\next{1100}C \next{1101}D \next{1110}E \next{1111}F +\def\bb@dohex #1{\csname bb@x#1\endcsname} +\def\bb@x\endcsname#1{ \bb@xm{m\endcsname}} +\def\bb@xm #1\endcsname #2#3+{#2#3% + \csname bb@h\number+\endcsname + #1\endcsname m#3+} +\def\bb@nbinbased #1#2#3{\expandafter \bb@dobinary \number#1% + \expandafter \bb@dohex + \romannumeral \number\number #2 000\expandafter\endcsname + \romannumeral \number\number #3 000+} +\def\nbinbased #1#2#3{\expandafter\bb@nbinbased + \expandafter {\number#3}{#2}{#1}} +\def\nhex{\nbinbased4} +\def\noct{\nbinbased3} +\def\ntetra{\nbinbased2} +\def\hex{\nhex1} +\def\oct{\noct1} +\def\tetra{\ntetra1} +\the\toks0 +\endinput +%% +%% End of file `binhex.tex'. |