diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xintbinhex.sty')
-rw-r--r-- | Master/texmf-dist/tex/generic/xint/xintbinhex.sty | 732 |
1 files changed, 732 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xintbinhex.sty b/Master/texmf-dist/tex/generic/xint/xintbinhex.sty new file mode 100644 index 00000000000..d023151c236 --- /dev/null +++ b/Master/texmf-dist/tex/generic/xint/xintbinhex.sty @@ -0,0 +1,732 @@ +%% +%% This is file `xintbinhex.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% xint.dtx (with options: `xintbinhex') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from xintbinhex.sty. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file xint.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.) +%% +%%---------------------------------------------------------------- +%% The xint bundle (version 1.08b of June 14, 2013) +%% xintbinhex: Expandable binary and hexadecimal conversions +%% Copyright (C) 2013 by Jean-Francois Burnol +%%---------------------------------------------------------------- +%% +\begingroup\catcode61\catcode48\catcode32=10\relax% + \catcode13=5 % ^^M + \endlinechar=13 % + \catcode123=1 % { + \catcode125=2 % } + \catcode64=11 % @ + \catcode35=6 % # + \catcode44=12 % , + \catcode45=12 % - + \catcode46=12 % . + \catcode58=12 % : + \def\space { }% + \let\z\endgroup + \expandafter\let\expandafter\x\csname ver@xintbinhex.sty\endcsname + \expandafter\let\expandafter\w\csname ver@xint.sty\endcsname + \expandafter + \ifx\csname PackageInfo\endcsname\relax + \def\y#1#2{\immediate\write-1{Package #1 Info: #2.}}% + \else + \def\y#1#2{\PackageInfo{#1}{#2}}% + \fi + \expandafter + \ifx\csname numexpr\endcsname\relax + \y{xintbinhex}{\numexpr not available, aborting input}% + \aftergroup\endinput + \else + \ifx\x\relax % plain-TeX, first loading of xintbinhex.sty + \ifx\w\relax % but xint.sty not yet loaded. + \y{xintbinhex}{Package xint is required}% + \y{xintbinhex}{Will try \string\input\space xint.sty}% + \def\z{\endgroup\input xint.sty\relax}% + \fi + \else + \def\empty {}% + \ifx\x\empty % LaTeX, first loading, + % variable is initialized, but \ProvidesPackage not yet seen + \ifx\w\relax % xint.sty not yet loaded. + \y{xintbinhex}{Package xint is required}% + \y{xintbinhex}{Will try \string\RequirePackage{xint}}% + \def\z{\endgroup\RequirePackage{xint}}% + \fi + \else + \y{xintbinhex}{I was already loaded, aborting input}% + \aftergroup\endinput + \fi + \fi + \fi +\z% +\begingroup\catcode61\catcode48\catcode32=10\relax% + \catcode13=5 % ^^M + \endlinechar=13 % + \catcode123=1 % { + \catcode125=2 % } + \catcode64=11 % @ + \catcode35=6 % # + \catcode44=12 % , + \catcode45=12 % - + \catcode46=12 % . + \catcode58=12 % : + \expandafter + \ifx\csname PackageInfo\endcsname\relax + \def\y#1#2{\immediate\write-1{Package #1 Info: #2.}}% + \else + \def\y#1#2{\PackageInfo{#1}{#2}}% + \fi + \def\empty {}% + \expandafter\let\expandafter\w\csname ver@xint.sty\endcsname + \ifx\w\relax % Plain TeX, user gave a file name at the prompt + \y{xintbinhex}{Loading of package xint failed, aborting input}% + \aftergroup\endinput + \fi + \ifx\w\empty % LaTeX, user gave a file name at the prompt + \y{xintbinhex}{Loading of package xint failed, aborting input}% + \aftergroup\endinput + \fi +\endgroup% +\begingroup\catcode61\catcode48\catcode32=10\relax% + \catcode13=5 % ^^M + \endlinechar=13 % + \catcode123=1 % { + \catcode125=2 % } + \catcode95=11 % _ + \def\x + {% + \endgroup + \edef\XINT_binhex_restorecatcodes_endinput + {% + \catcode94=\the\catcode94 % ^ + \catcode96=\the\catcode96 % ` + \catcode47=\the\catcode47 % / + \catcode41=\the\catcode41 % ) + \catcode40=\the\catcode40 % ( + \catcode42=\the\catcode42 % * + \catcode43=\the\catcode43 % + + \catcode62=\the\catcode62 % > + \catcode60=\the\catcode60 % < + \catcode58=\the\catcode58 % : + \catcode46=\the\catcode46 % . + \catcode45=\the\catcode45 % - + \catcode44=\the\catcode44 % , + \catcode35=\the\catcode35 % # + \catcode95=\the\catcode95 % _ + \catcode125=\the\catcode125 % } + \catcode123=\the\catcode123 % { + \endlinechar=\the\endlinechar + \catcode13=\the\catcode13 % ^^M + \catcode32=\the\catcode32 % + \catcode61=\the\catcode61\relax % = + \noexpand\endinput + }% + \XINT_setcatcodes % defined in xint.sty + }% +\x +\begingroup + \catcode64=11 % @ + \catcode91=12 % [ + \catcode93=12 % ] + \catcode58=12 % : + \expandafter\ifx\csname ProvidesPackage\endcsname\relax + \def\x#1#2#3[#4]{\endgroup + \immediate\write-1{Package: #3 #4}% + \xdef#1{#4}% + }% + \else + \def\x#1#2[#3]{\endgroup + #2[{#3}]% + \ifx#1\@undefined + \xdef#1{#3}% + \fi + \ifx#1\relax + \xdef#1{#3}% + \fi + }% + \fi +\expandafter\x\csname ver@xintbinhex.sty\endcsname +\ProvidesPackage{xintbinhex}% + [2013/06/14 v1.08b Expandable binary and hexadecimal conversions (jfB)]% +\chardef\xint_c_xvi 16 +\chardef\xint_c_ii^v 32 +\chardef\xint_c_ii^vi 64 +\chardef\xint_c_ii^vii 128 +\mathchardef\xint_c_ii^viii 256 +\mathchardef\xint_c_ii^xii 4096 +\newcount\xint_c_ii^xv \xint_c_ii^xv 32768 +\newcount\xint_c_ii^xvi \xint_c_ii^xvi 65536 +\newcount\xint_c_x^v \xint_c_x^v 100000 +\newcount\xint_c_x^ix \xint_c_x^ix 1000000000 +\def\XINT_tmp_def #1{% + \expandafter\edef\csname XINT_sdth_#1\endcsname + {\ifcase #1 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or + 8\or 9\or A\or B\or C\or D\or E\or F\fi}}% +\xintApplyUnbraced\XINT_tmp_def + {{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}}% +\def\XINT_tmp_def #1{% + \expandafter\edef\csname XINT_sdtb_#1\endcsname + {\ifcase #1 + 0000\or 0001\or 0010\or 0011\or 0100\or 0101\or 0110\or 0111\or + 1000\or 1001\or 1010\or 1011\or 1100\or 1101\or 1110\or 1111\fi}}% +\xintApplyUnbraced\XINT_tmp_def + {{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}}% +\let\XINT_tmp_def\empty +\expandafter\def\csname XINT_sbtd_0000\endcsname {0}% +\expandafter\def\csname XINT_sbtd_0001\endcsname {1}% +\expandafter\def\csname XINT_sbtd_0010\endcsname {2}% +\expandafter\def\csname XINT_sbtd_0011\endcsname {3}% +\expandafter\def\csname XINT_sbtd_0100\endcsname {4}% +\expandafter\def\csname XINT_sbtd_0101\endcsname {5}% +\expandafter\def\csname XINT_sbtd_0110\endcsname {6}% +\expandafter\def\csname XINT_sbtd_0111\endcsname {7}% +\expandafter\def\csname XINT_sbtd_1000\endcsname {8}% +\expandafter\def\csname XINT_sbtd_1001\endcsname {9}% +\expandafter\def\csname XINT_sbtd_1010\endcsname {10}% +\expandafter\def\csname XINT_sbtd_1011\endcsname {11}% +\expandafter\def\csname XINT_sbtd_1100\endcsname {12}% +\expandafter\def\csname XINT_sbtd_1101\endcsname {13}% +\expandafter\def\csname XINT_sbtd_1110\endcsname {14}% +\expandafter\def\csname XINT_sbtd_1111\endcsname {15}% +\expandafter\let\csname XINT_sbth_0000\expandafter\endcsname + \csname XINT_sbtd_0000\endcsname +\expandafter\let\csname XINT_sbth_0001\expandafter\endcsname + \csname XINT_sbtd_0001\endcsname +\expandafter\let\csname XINT_sbth_0010\expandafter\endcsname + \csname XINT_sbtd_0010\endcsname +\expandafter\let\csname XINT_sbth_0011\expandafter\endcsname + \csname XINT_sbtd_0011\endcsname +\expandafter\let\csname XINT_sbth_0100\expandafter\endcsname + \csname XINT_sbtd_0100\endcsname +\expandafter\let\csname XINT_sbth_0101\expandafter\endcsname + \csname XINT_sbtd_0101\endcsname +\expandafter\let\csname XINT_sbth_0110\expandafter\endcsname + \csname XINT_sbtd_0110\endcsname +\expandafter\let\csname XINT_sbth_0111\expandafter\endcsname + \csname XINT_sbtd_0111\endcsname +\expandafter\let\csname XINT_sbth_1000\expandafter\endcsname + \csname XINT_sbtd_1000\endcsname +\expandafter\let\csname XINT_sbth_1001\expandafter\endcsname + \csname XINT_sbtd_1001\endcsname +\expandafter\def\csname XINT_sbth_1010\endcsname {A}% +\expandafter\def\csname XINT_sbth_1011\endcsname {B}% +\expandafter\def\csname XINT_sbth_1100\endcsname {C}% +\expandafter\def\csname XINT_sbth_1101\endcsname {D}% +\expandafter\def\csname XINT_sbth_1110\endcsname {E}% +\expandafter\def\csname XINT_sbth_1111\endcsname {F}% +\expandafter\def\csname XINT_shtb_0\endcsname {0000}% +\expandafter\def\csname XINT_shtb_1\endcsname {0001}% +\expandafter\def\csname XINT_shtb_2\endcsname {0010}% +\expandafter\def\csname XINT_shtb_3\endcsname {0011}% +\expandafter\def\csname XINT_shtb_4\endcsname {0100}% +\expandafter\def\csname XINT_shtb_5\endcsname {0101}% +\expandafter\def\csname XINT_shtb_6\endcsname {0110}% +\expandafter\def\csname XINT_shtb_7\endcsname {0111}% +\expandafter\def\csname XINT_shtb_8\endcsname {1000}% +\expandafter\def\csname XINT_shtb_9\endcsname {1001}% +\def\XINT_shtb_A {1010}% +\def\XINT_shtb_B {1011}% +\def\XINT_shtb_C {1100}% +\def\XINT_shtb_D {1101}% +\def\XINT_shtb_E {1110}% +\def\XINT_shtb_F {1111}% +\def\XINT_shtb_G {}% +\def\XINT_smallhex #1% +{% + \expandafter\XINT_smallhex_a\expandafter + {\the\numexpr (#1+\xint_c_viii)/\xint_c_xvi-\xint_c_i}{#1}% +}% +\def\XINT_smallhex_a #1#2% +{% + \csname XINT_sdth_#1\expandafter\expandafter\expandafter\endcsname + \csname XINT_sdth_\the\numexpr #2-\xint_c_xvi*#1\endcsname +}% +\def\XINT_smallbin #1% +{% + \expandafter\XINT_smallbin_a\expandafter + {\the\numexpr (#1+\xint_c_viii)/\xint_c_xvi-\xint_c_i}{#1}% +}% +\def\XINT_smallbin_a #1#2% +{% + \csname XINT_sdtb_#1\expandafter\expandafter\expandafter\endcsname + \csname XINT_sdtb_\the\numexpr #2-\xint_c_xvi*#1\endcsname +}% +\def\xintDecToHex {\romannumeral0\xintdectohex }% +\def\xintdectohex #1% + {\expandafter\XINT_dth_checkin\romannumeral-`0#1\W\W\W\W \T}% +\def\XINT_dth_checkin #1% +{% + \xint_UDsignfork + #1\dummy \XINT_dth_N + -\dummy {\XINT_dth_P #1}% + \krof +}% +\def\XINT_dth_N {\expandafter\xint_minus_andstop\romannumeral0\XINT_dth_P }% +\def\XINT_dth_P {\expandafter\XINT_dth_III\romannumeral-`0\XINT_dtbh_I {0.}}% +\def\xintDecToBin {\romannumeral0\xintdectobin }% +\def\xintdectobin #1% + {\expandafter\XINT_dtb_checkin\romannumeral-`0#1\W\W\W\W \T }% +\def\XINT_dtb_checkin #1% +{% + \xint_UDsignfork + #1\dummy \XINT_dtb_N + -\dummy {\XINT_dtb_P #1}% + \krof +}% +\def\XINT_dtb_N {\expandafter\xint_minus_andstop\romannumeral0\XINT_dtb_P }% +\def\XINT_dtb_P {\expandafter\XINT_dtb_III\romannumeral-`0\XINT_dtbh_I {0.}}% +\def\XINT_dtbh_I #1#2#3#4#5% +{% + \xint_gob_til_W #5\XINT_dtbh_II_a\W\XINT_dtbh_I_a {}{#2#3#4#5}#1\Z.% +}% +\def\XINT_dtbh_II_a\W\XINT_dtbh_I_a #1#2{\XINT_dtbh_II_b #2}% +\def\XINT_dtbh_II_b #1#2#3#4% +{% + \xint_gob_til_W + #1\XINT_dtbh_II_c + #2\XINT_dtbh_II_ci + #3\XINT_dtbh_II_cii + \W\XINT_dtbh_II_ciii #1#2#3#4% +}% +\def\XINT_dtbh_II_c \W\XINT_dtbh_II_ci + \W\XINT_dtbh_II_cii + \W\XINT_dtbh_II_ciii \W\W\W\W {{}}% +\def\XINT_dtbh_II_ci #1\XINT_dtbh_II_ciii #2\W\W\W + {\XINT_dtbh_II_d {}{#2}{0}}% +\def\XINT_dtbh_II_cii\W\XINT_dtbh_II_ciii #1#2\W\W + {\XINT_dtbh_II_d {}{#1#2}{00}}% +\def\XINT_dtbh_II_ciii #1#2#3\W + {\XINT_dtbh_II_d {}{#1#2#3}{000}}% +\def\XINT_dtbh_I_a #1#2#3.% +{% + \xint_gob_til_Z #3\XINT_dtbh_I_z\Z + \expandafter\XINT_dtbh_I_b\the\numexpr #2+#30000.{#1}% +}% +\def\XINT_dtbh_I_b #1.% +{% + \expandafter\XINT_dtbh_I_c\the\numexpr + (#1+\xint_c_ii^xv)/\xint_c_ii^xvi-\xint_c_i.#1.% +}% +\def\XINT_dtbh_I_c #1.#2.% +{% + \expandafter\XINT_dtbh_I_d\expandafter + {\the\numexpr #2-\xint_c_ii^xvi*#1}{#1}% +}% +\def\XINT_dtbh_I_d #1#2#3{\XINT_dtbh_I_a {#3#1.}{#2}}% +\def\XINT_dtbh_I_z\Z\expandafter\XINT_dtbh_I_b\the\numexpr #1+#2.% +{% + \ifnum #1=\xint_c_ \expandafter\XINT_dtbh_I_end_zb\fi + \XINT_dtbh_I_end_za {#1}% +}% +\def\XINT_dtbh_I_end_za #1#2{\XINT_dtbh_I {#2#1.}}% +\def\XINT_dtbh_I_end_zb\XINT_dtbh_I_end_za #1#2{\XINT_dtbh_I {#2}}% +\def\XINT_dtbh_II_d #1#2#3#4.% +{% + \xint_gob_til_Z #4\XINT_dtbh_II_z\Z + \expandafter\XINT_dtbh_II_e\the\numexpr #2+#4#3.{#1}{#3}% +}% +\def\XINT_dtbh_II_e #1.% +{% + \expandafter\XINT_dtbh_II_f\the\numexpr + (#1+\xint_c_ii^xv)/\xint_c_ii^xvi-\xint_c_i.#1.% +}% +\def\XINT_dtbh_II_f #1.#2.% +{% + \expandafter\XINT_dtbh_II_g\expandafter + {\the\numexpr #2-\xint_c_ii^xvi*#1}{#1}% +}% +\def\XINT_dtbh_II_g #1#2#3{\XINT_dtbh_II_d {#3#1.}{#2}}% +\def\XINT_dtbh_II_z\Z\expandafter\XINT_dtbh_II_e\the\numexpr #1+#2.% +{% + \ifnum #1=\xint_c_ \expandafter\XINT_dtbh_II_end_zb\fi + \XINT_dtbh_II_end_za {#1}% +}% +\def\XINT_dtbh_II_end_za #1#2#3{{}#2#1.\Z.}% +\def\XINT_dtbh_II_end_zb\XINT_dtbh_II_end_za #1#2#3{{}#2\Z.}% +\def\XINT_dth_III #1#2.% +{% + \xint_gob_til_Z #2\XINT_dth_end\Z + \expandafter\XINT_dth_III\expandafter + {\romannumeral-`0\XINT_dth_small #2.#1}% +}% +\def\XINT_dth_small #1.% +{% + \expandafter\XINT_smallhex\expandafter + {\the\numexpr (#1+\xint_c_ii^vii)/\xint_c_ii^viii-\xint_c_i\expandafter}% + \romannumeral-`0\expandafter\XINT_smallhex\expandafter + {\the\numexpr + #1-((#1+\xint_c_ii^vii)/\xint_c_ii^viii-\xint_c_i)*\xint_c_ii^viii}% +}% +\def\XINT_dth_end\Z\expandafter\XINT_dth_III\expandafter #1#2\T +{% + \XINT_dth_end_b #1% +}% +\def\XINT_dth_end_b #1.{\XINT_dth_end_c }% +\def\XINT_dth_end_c #1{\xint_gob_til_zero #1\XINT_dth_end_d 0\space #1}% +\def\XINT_dth_end_d 0\space 0#1% +{% + \xint_gob_til_zero #1\XINT_dth_end_e 0\space #1% +}% +\def\XINT_dth_end_e 0\space 0#1% +{% + \xint_gob_til_zero #1\XINT_dth_end_f 0\space #1% +}% +\def\XINT_dth_end_f 0\space 0{ }% +\def\XINT_dtb_III #1#2.% +{% + \xint_gob_til_Z #2\XINT_dtb_end\Z + \expandafter\XINT_dtb_III\expandafter + {\romannumeral-`0\XINT_dtb_small #2.#1}% +}% +\def\XINT_dtb_small #1.% +{% + \expandafter\XINT_smallbin\expandafter + {\the\numexpr (#1+\xint_c_ii^vii)/\xint_c_ii^viii-\xint_c_i\expandafter}% + \romannumeral-`0\expandafter\XINT_smallbin\expandafter + {\the\numexpr + #1-((#1+\xint_c_ii^vii)/\xint_c_ii^viii-\xint_c_i)*\xint_c_ii^viii}% +}% +\def\XINT_dtb_end\Z\expandafter\XINT_dtb_III\expandafter #1#2\T +{% + \XINT_dtb_end_b #1% +}% +\def\XINT_dtb_end_b #1.{\XINT_dtb_end_c }% +\def\XINT_dtb_end_c #1#2#3#4#5#6#7#8% +{% + \expandafter\XINT_dtb_end_d\the\numexpr #1#2#3#4#5#6#7#8\relax +}% +\def\XINT_dtb_end_d #1#2#3#4#5#6#7#8#9% +{% + \expandafter\space\the\numexpr #1#2#3#4#5#6#7#8#9\relax +}% +\def\xintHexToDec {\romannumeral0\xinthextodec }% +\def\xinthextodec #1% + {\expandafter\XINT_htd_checkin\romannumeral-`0#1\W\W\W\W \T }% +\def\XINT_htd_checkin #1% +{% + \xint_UDsignfork + #1\dummy \XINT_htd_neg + -\dummy {\XINT_htd_I {0000}#1}% + \krof +}% +\def\XINT_htd_neg {\expandafter\xint_minus_andstop + \romannumeral0\XINT_htd_I {0000}}% +\def\XINT_htd_I #1#2#3#4#5% +{% + \xint_gob_til_W #5\XINT_htd_II_a\W + \XINT_htd_I_a {}{"#2#3#4#5}#1\Z\Z\Z\Z +}% +\def\XINT_htd_II_a \W\XINT_htd_I_a #1#2{\XINT_htd_II_b #2}% +\def\XINT_htd_II_b "#1#2#3#4% +{% + \xint_gob_til_W + #1\XINT_htd_II_c + #2\XINT_htd_II_ci + #3\XINT_htd_II_cii + \W\XINT_htd_II_ciii #1#2#3#4% +}% +\def\XINT_htd_II_c \W\XINT_htd_II_ci + \W\XINT_htd_II_cii + \W\XINT_htd_II_ciii \W\W\W\W #1\Z\Z\Z\Z\T +{% + \expandafter\xint_cleanupzeros_andstop + \romannumeral0\XINT_rord_main {}#1% + \xint_relax + \xint_undef\xint_undef\xint_undef\xint_undef + \xint_undef\xint_undef\xint_undef\xint_undef + \xint_relax +}% +\def\XINT_htd_II_ci #1\XINT_htd_II_ciii + #2\W\W\W {\XINT_htd_II_d {}{"#2}{\xint_c_xvi}}% +\def\XINT_htd_II_cii\W\XINT_htd_II_ciii + #1#2\W\W {\XINT_htd_II_d {}{"#1#2}{\xint_c_ii^viii}}% +\def\XINT_htd_II_ciii #1#2#3\W {\XINT_htd_II_d {}{"#1#2#3}{\xint_c_ii^xii}}% +\def\XINT_htd_I_a #1#2#3#4#5#6% +{% + \xint_gob_til_Z #3\XINT_htd_I_end_a\Z + \expandafter\XINT_htd_I_b\the\numexpr + #2+\xint_c_ii^xvi*#6#5#4#3+\xint_c_x^ix\relax {#1}% +}% +\def\XINT_htd_I_b 1#1#2#3#4#5#6#7#8#9{\XINT_htd_I_c {#1#2#3#4#5}{#9#8#7#6}}% +\def\XINT_htd_I_c #1#2#3{\XINT_htd_I_a {#3#2}{#1}}% +\def\XINT_htd_I_end_a\Z\expandafter\XINT_htd_I_b\the\numexpr #1+#2\relax +{% + \expandafter\XINT_htd_I_end_b\the\numexpr \xint_c_x^v+#1\relax +}% +\def\XINT_htd_I_end_b 1#1#2#3#4#5% +{% + \xint_gob_til_zero #1\XINT_htd_I_end_bz0% + \XINT_htd_I_end_c #1#2#3#4#5% +}% +\def\XINT_htd_I_end_c #1#2#3#4#5#6{\XINT_htd_I {#6#5#4#3#2#1000}}% +\def\XINT_htd_I_end_bz0\XINT_htd_I_end_c 0#1#2#3#4% +{% + \xint_gob_til_zeros_iv #1#2#3#4\XINT_htd_I_end_bzz 0000% + \XINT_htd_I_end_D {#4#3#2#1}% +}% +\def\XINT_htd_I_end_D #1#2{\XINT_htd_I {#2#1}}% +\def\XINT_htd_I_end_bzz 0000\XINT_htd_I_end_D #1{\XINT_htd_I }% +\def\XINT_htd_II_d #1#2#3#4#5#6#7% +{% + \xint_gob_til_Z #4\XINT_htd_II_end_a\Z + \expandafter\XINT_htd_II_e\the\numexpr + #2+#3*#7#6#5#4+\xint_c_x^viii\relax {#1}{#3}% +}% +\def\XINT_htd_II_e 1#1#2#3#4#5#6#7#8{\XINT_htd_II_f {#1#2#3#4}{#5#6#7#8}}% +\def\XINT_htd_II_f #1#2#3{\XINT_htd_II_d {#2#3}{#1}}% +\def\XINT_htd_II_end_a\Z\expandafter\XINT_htd_II_e + \the\numexpr #1+#2\relax #3#4\T +{% + \XINT_htd_II_end_b #1#3% +}% +\def\XINT_htd_II_end_b #1#2#3#4#5#6#7#8% +{% + \expandafter\space\the\numexpr #1#2#3#4#5#6#7#8\relax +}% +\def\xintBinToDec {\romannumeral0\xintbintodec }% +\def\xintbintodec #1{\expandafter\XINT_btd_checkin + \romannumeral-`0#1\W\W\W\W\W\W\W\W \T }% +\def\XINT_btd_checkin #1% +{% + \xint_UDsignfork + #1\dummy \XINT_btd_neg + -\dummy {\XINT_btd_I {000000}#1}% + \krof +}% +\def\XINT_btd_neg {\expandafter\xint_minus_andstop + \romannumeral0\XINT_btd_I {000000}}% +\def\XINT_btd_I #1#2#3#4#5#6#7#8#9% +{% + \xint_gob_til_W #9\XINT_btd_II_a {#2#3#4#5#6#7#8#9}\W + \XINT_btd_I_a {}{\csname XINT_sbtd_#2#3#4#5\endcsname*\xint_c_xvi+% + \csname XINT_sbtd_#6#7#8#9\endcsname}% + #1\Z\Z\Z\Z\Z\Z +}% +\def\XINT_btd_II_a #1\W\XINT_btd_I_a #2#3{\XINT_btd_II_b #1}% +\def\XINT_btd_II_b #1#2#3#4#5#6#7#8% +{% + \xint_gob_til_W + #1\XINT_btd_II_c + #2\XINT_btd_II_ci + #3\XINT_btd_II_cii + #4\XINT_btd_II_ciii + #5\XINT_btd_II_civ + #6\XINT_btd_II_cv + #7\XINT_btd_II_cvi + \W\XINT_btd_II_cvii #1#2#3#4#5#6#7#8% +}% +\def\XINT_btd_II_c #1\XINT_btd_II_cvii \W\W\W\W\W\W\W\W #2\Z\Z\Z\Z\Z\Z\T +{% + \expandafter\XINT_btd_II_c_end + \romannumeral0\XINT_rord_main {}#2% + \xint_relax + \xint_undef\xint_undef\xint_undef\xint_undef + \xint_undef\xint_undef\xint_undef\xint_undef + \xint_relax +}% +\def\XINT_btd_II_c_end #1#2#3#4#5#6% +{% + \expandafter\space\the\numexpr #1#2#3#4#5#6\relax +}% +\def\XINT_btd_II_ci #1\XINT_btd_II_cvii #2\W\W\W\W\W\W\W + {\XINT_btd_II_d {}{#2}{\xint_c_ii }}% +\def\XINT_btd_II_cii #1\XINT_btd_II_cvii #2\W\W\W\W\W\W + {\XINT_btd_II_d {}{\csname XINT_sbtd_00#2\endcsname }{\xint_c_iv }}% +\def\XINT_btd_II_ciii #1\XINT_btd_II_cvii #2\W\W\W\W\W + {\XINT_btd_II_d {}{\csname XINT_sbtd_0#2\endcsname }{\xint_c_viii }}% +\def\XINT_btd_II_civ #1\XINT_btd_II_cvii #2\W\W\W\W + {\XINT_btd_II_d {}{\csname XINT_sbtd_#2\endcsname}{\xint_c_xvi }}% +\def\XINT_btd_II_cv #1\XINT_btd_II_cvii #2#3#4#5#6\W\W\W +{% + \XINT_btd_II_d {}{\csname XINT_sbtd_#2#3#4#5\endcsname*\xint_c_ii+% + #6}{\xint_c_ii^v }% +}% +\def\XINT_btd_II_cvi #1\XINT_btd_II_cvii #2#3#4#5#6#7\W\W +{% + \XINT_btd_II_d {}{\csname XINT_sbtd_#2#3#4#5\endcsname*\xint_c_iv+% + \csname XINT_sbtd_00#6#7\endcsname}{\xint_c_ii^vi }% +}% +\def\XINT_btd_II_cvii #1#2#3#4#5#6#7\W +{% + \XINT_btd_II_d {}{\csname XINT_sbtd_#1#2#3#4\endcsname*\xint_c_viii+% + \csname XINT_sbtd_0#5#6#7\endcsname}{\xint_c_ii^vii }% +}% +\def\XINT_btd_II_d #1#2#3#4#5#6#7#8#9% +{% + \xint_gob_til_Z #4\XINT_btd_II_end_a\Z + \expandafter\XINT_btd_II_e\the\numexpr + #2+(\xint_c_x^ix+#3*#9#8#7#6#5#4)\relax {#1}{#3}% +}% +\def\XINT_btd_II_e 1#1#2#3#4#5#6#7#8#9{\XINT_btd_II_f {#1#2#3}{#4#5#6#7#8#9}}% +\def\XINT_btd_II_f #1#2#3{\XINT_btd_II_d {#2#3}{#1}}% +\def\XINT_btd_II_end_a\Z\expandafter\XINT_btd_II_e + \the\numexpr #1+(#2\relax #3#4\T +{% + \XINT_btd_II_end_b #1#3% +}% +\def\XINT_btd_II_end_b #1#2#3#4#5#6#7#8#9% +{% + \expandafter\space\the\numexpr #1#2#3#4#5#6#7#8#9\relax +}% +\def\XINT_btd_I_a #1#2#3#4#5#6#7#8% +{% + \xint_gob_til_Z #3\XINT_btd_I_end_a\Z + \expandafter\XINT_btd_I_b\the\numexpr + #2+\xint_c_ii^viii*#8#7#6#5#4#3+\xint_c_x^ix\relax {#1}% +}% +\def\XINT_btd_I_b 1#1#2#3#4#5#6#7#8#9{\XINT_btd_I_c {#1#2#3}{#9#8#7#6#5#4}}% +\def\XINT_btd_I_c #1#2#3{\XINT_btd_I_a {#3#2}{#1}}% +\def\XINT_btd_I_end_a\Z\expandafter\XINT_btd_I_b + \the\numexpr #1+\xint_c_ii^viii #2\relax +{% + \expandafter\XINT_btd_I_end_b\the\numexpr 1000+#1\relax +}% +\def\XINT_btd_I_end_b 1#1#2#3% +{% + \xint_gob_til_zeros_iii #1#2#3\XINT_btd_I_end_bz 000% + \XINT_btd_I_end_c #1#2#3% +}% +\def\XINT_btd_I_end_c #1#2#3#4{\XINT_btd_I {#4#3#2#1000}}% +\def\XINT_btd_I_end_bz 000\XINT_btd_I_end_c 000{\XINT_btd_I }% +\def\xintBinToHex {\romannumeral0\xintbintohex }% +\def\xintbintohex #1% +{% + \expandafter\XINT_bth_checkin + \romannumeral0\expandafter\XINT_num_loop + \romannumeral-`0#1\xint_relax\xint_relax + \xint_relax\xint_relax + \xint_relax\xint_relax\xint_relax\xint_relax\Z + \R\R\R\R\R\R\R\R\Z \W\W\W\W\W\W\W\W +}% +\def\XINT_bth_checkin #1% +{% + \xint_UDsignfork + #1\dummy \XINT_bth_N + -\dummy {\XINT_bth_P #1}% + \krof +}% +\def\XINT_bth_N {\expandafter\xint_minus_andstop\romannumeral0\XINT_bth_P }% +\def\XINT_bth_P {\expandafter\XINT_bth_I\expandafter{\expandafter}% + \romannumeral0\XINT_OQ {}}% +\def\XINT_bth_I #1#2#3#4#5#6#7#8#9% +{% + \xint_gob_til_W #9\XINT_bth_end_a\W + \expandafter\expandafter\expandafter + \XINT_bth_I + \expandafter\expandafter\expandafter + {\csname XINT_sbth_#9#8#7#6\expandafter\expandafter\expandafter\endcsname + \csname XINT_sbth_#5#4#3#2\endcsname #1}% +}% +\def\XINT_bth_end_a\W \expandafter\expandafter\expandafter + \XINT_bth_I \expandafter\expandafter\expandafter #1% +{% + \XINT_bth_end_b #1% +}% +\def\XINT_bth_end_b #1\endcsname #2\endcsname #3% +{% + \xint_gob_til_zero #3\XINT_bth_end_z 0\space #3% +}% +\def\XINT_bth_end_z0\space 0{ }% +\def\xintHexToBin {\romannumeral0\xinthextobin }% +\def\xinthextobin #1% +{% + \expandafter\XINT_htb_checkin\romannumeral-`0#1GGGGGGGG\T +}% +\def\XINT_htb_checkin #1% +{% + \xint_UDsignfork + #1\dummy \XINT_htb_N + -\dummy {\XINT_htb_P #1}% + \krof +}% +\def\XINT_htb_N {\expandafter\xint_minus_andstop\romannumeral0\XINT_htb_P }% +\def\XINT_htb_P {\XINT_htb_I_a {}}% +\def\XINT_htb_I_a #1#2#3#4#5#6#7#8#9% +{% + \xint_gob_til_G #9\XINT_htb_II_a G% + \expandafter\expandafter\expandafter + \XINT_htb_I_b + \expandafter\expandafter\expandafter + {\csname XINT_shtb_#2\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#3\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#4\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#5\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#6\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#7\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#8\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#9\endcsname }{#1}% +}% +\def\XINT_htb_I_b #1#2{\XINT_htb_I_a {#2#1}}% +\def\XINT_htb_II_a G\expandafter\expandafter\expandafter\XINT_htb_I_b +{% + \expandafter\expandafter\expandafter \XINT_htb_II_b +}% +\def\XINT_htb_II_b #1#2#3\T +{% + \XINT_num_loop #2#1% + \xint_relax\xint_relax\xint_relax\xint_relax + \xint_relax\xint_relax\xint_relax\xint_relax\Z +}% +\def\xintCHexToBin {\romannumeral0\xintchextobin }% +\def\xintchextobin #1% +{% + \expandafter\XINT_chtb_checkin\romannumeral-`0#1% + \R\R\R\R\R\R\R\R\Z \W\W\W\W\W\W\W\W +}% +\def\XINT_chtb_checkin #1% +{% + \xint_UDsignfork + #1\dummy \XINT_chtb_N + -\dummy {\XINT_chtb_P #1}% + \krof +}% +\def\XINT_chtb_N {\expandafter\xint_minus_andstop\romannumeral0\XINT_chtb_P }% +\def\XINT_chtb_P {\expandafter\XINT_chtb_I\expandafter{\expandafter}% + \romannumeral0\XINT_OQ {}}% +\def\XINT_chtb_I #1#2#3#4#5#6#7#8#9% +{% + \xint_gob_til_W #9\XINT_chtb_end_a\W + \expandafter\expandafter\expandafter + \XINT_chtb_I + \expandafter\expandafter\expandafter + {\csname XINT_shtb_#9\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#8\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#7\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#6\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#5\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#4\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#3\expandafter\expandafter\expandafter\endcsname + \csname XINT_shtb_#2\endcsname + #1}% +}% +\def\XINT_chtb_end_a\W\expandafter\expandafter\expandafter + \XINT_chtb_I\expandafter\expandafter\expandafter #1% +{% + \XINT_chtb_end_b #1% + \xint_relax\xint_relax\xint_relax\xint_relax + \xint_relax\xint_relax\xint_relax\xint_relax\Z +}% +\def\XINT_chtb_end_b #1\W#2\W#3\W#4\W#5\W#6\W#7\W#8\W\endcsname +{% + \XINT_num_loop +}% +\XINT_binhex_restorecatcodes_endinput% +\endinput +%% +%% End of file `xintbinhex.sty'. |