diff options
author | Norbert Preining <norbert@preining.info> | 2022-08-01 03:04:31 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-08-01 03:04:31 +0000 |
commit | c7ecdfe2e07e2e010de5e2a8d94c001c5dc9fc27 (patch) | |
tree | 80bdca45c628ce054648b8b6adc4c97d21bd48bb /macros/latex/contrib/bxcalc/bxcalcux.sty | |
parent | 0d7064c66024537b237407f8b36413b055cf9a9a (diff) |
CTAN sync 202208010304
Diffstat (limited to 'macros/latex/contrib/bxcalc/bxcalcux.sty')
-rw-r--r-- | macros/latex/contrib/bxcalc/bxcalcux.sty | 303 |
1 files changed, 303 insertions, 0 deletions
diff --git a/macros/latex/contrib/bxcalc/bxcalcux.sty b/macros/latex/contrib/bxcalc/bxcalcux.sty new file mode 100644 index 0000000000..90e222643a --- /dev/null +++ b/macros/latex/contrib/bxcalc/bxcalcux.sty @@ -0,0 +1,303 @@ +%% +%% This is file 'bxcalcux.sty'. +%% +%% Copyright (c) 2018-2020 Takayuki YATO (aka. "ZR") +%% GitHub: https://github.com/zr-tex8r +%% Twitter: @zr_tex8r +%% +%% This package is distributed under the MIT License. +%% + +%% package declaration +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{bxcalcux}[2020/09/25 v1.1] +\def\bxcx@pkgname{bxcalcux} + +%% code guards +\edef\bxcx@restore@codes{% +\catcode33=\the\catcode33% +\catcode34=\the\catcode34% +\catcode63=\the\catcode63% +\endlinechar=\the\endlinechar% +\relax} +\catcode33=12 %<!> +\catcode34=12 %<"> +\catcode63=12 %<?> +\endlinechar\m@ne +\AtEndOfPackage{ +\bxcx@restore@codes +\let\bxcx@restore@codes\@undefined} + +%--------------------------------------- general + +%% packages +\RequirePackage{calc}[] +\RequirePackage{etoolbox}[] +\ifx\numdef\@undefined\endinput\fi + +%% unique tokens +\def\bxcx@end{\noexpand\bxcx@end@} +\def\bxcx@mark{\noexpand\bxcx@mark@} +\def\bxcx@mt{\noexpand\bxcx@mt@} + +%% variables +\let\bxcx@parsed\@empty % parsed token list +\let\bxcx@unit\@empty % unit string now holding +\let\bxcx@unitlc\@empty % unit string now holding, lowercased +\newcount\bxcx@arg@count % # of arguments remaining +\let\bxcx@mode\relax % current mode (N/L/U) +\let\bxcx@g@tempa\@empty % global temp +% \bxcx@arity\CS % arity of functions of which the + % argument should be also parsed +% \bxcx@lc/<char> % lowercase letter of an alphabet letter +% \bxcx@tl/<str> % tl that relates to unit <str> +% \bxcx@mluf/<str> % is there a multichar unit <char>... ? + +%% Makes the array \bxcx@arity*. +\csdef{bxcx@arity\string\minof}{2} +\csdef{bxcx@arity\string\maxof}{2} +\csdef{bxcx@arity\string\ratio}{2} + +%% Makes the array \bxcx@lc/*. +\@tempcnta=65 +\@tempcntb=97 +\@whilenum\@tempcnta<91 \do{ + \lccode`!=\@tempcnta \lccode`?=\@tempcntb + \lowercase{ + \csdef{bxcx@lc/!}{?} + \csdef{bxcx@lc/?}{?} + } + \advance\@tempcnta\@ne + \advance\@tempcntb\@ne +} + +%% \bxcx@cond\ifXXX...\fi{<true>}{<false>} +\@gobbletwo\if\if \def\bxcx@cond#1\fi{ + #1\expandafter\@firstoftwo + \else \expandafter\@secondoftwo + \fi +} + +%--------------------------------------- unit registration + +%%<*> \newcalcunit{<unit>}{<length>} +\newcommand*\newcalcunit[2]{ + \DeclareCalcUnit{#1}{\dimexpr#2\relax} +} + +%%<+> \DeclareCalcUnit{<unit>}{<unit-of-dimen>} +\newcommand*\DeclareCalcUnit[2]{ + \edef\bxcx@tempa{#1} + \expandafter\bxcx@check@unit@name\meaning\bxcx@tempa\bxcx@end + \bxcx@cond\ifx\bxcx@tempa\@empty\fi{}{%else + \expandafter\bxcx@decl@calc@unit@a\meaning\bxcx@tempa\bxcx@end{#2} + } +} +\def\bxcx@decl@calc@unit@a#1>#2#3\bxcx@end#4{ + \ifstrempty{#3}{ + \csdef{bxcx@tl/#2}{#4} + }{%else + \csdef{bxcx@mluf/\@nameuse{bxcx@lc/#2}}{t} + \let\bxcx@unitlc\@empty + \@tfor\bxcx@tempa:=#2#3\do{ + \eappto\bxcx@unitlc{\@nameuse{bxcx@lc/\bxcx@tempa}} + } + \csdef{bxcx@tl/\bxcx@unitlc}{#4} + } +} +\def\bxcx@check@unit@name#1>#2\bxcx@end{ + \@tfor\bxcx@tempb:=#2\do{ + \ifcsdef{bxcx@lc/\bxcx@tempb}{}{%else + \let\bxcx@tempa\@empty + } + } + \ifx\bxcx@tempa\@empty + \PackageError\bxcx@pkgname + {Illegal unit name '#2'} + \fi +} + +%--------------------------------------- parser + +%%<+> \CUXParseExpr\CS{<expr>} +\newcommand*\CUXParseExpr[2]{ + \bxcx@parse{#2} + \let#1=\bxcx@parsed +} + +%% \bxcx@parse +\def\bxcx@parse#1{ + \let\bxcx@parsed\@empty + \bxcx@clear@unit + \let\bxcx@mode=N\relax + \bxcx@parse@a#1@\bxcx@end +} +\def\bxcx@the#1{\expandafter\bxcx@thee\meaning#1} +{\lccode`?=`r \lowercase{\gdef\bxcx@thee#1? #2{#2}}} +\def\bxcx@parse@a{ +%\typeout{[\bxcx@the\bxcx@mode:\the\bxcx@arg@count:\bxcx@unitlc]\expandonce{\bxcx@parsed}} + \futurelet\bxcx@tok\bxcx@parse@b +} +\def\bxcx@parse@b{ +%\typeout{<token:\meaning\bxcx@tok>} + \bxcx@cond\ifx\bxcx@tok\@sptoken\fi{ + \bxcx@parse@space + }{\bxcx@cond\ifx\bxcx@tok\bgroup\fi{ + \bxcx@parse@group + }{\bxcx@cond\ifcat\relax\noexpand\bxcx@tok\fi{ + \bxcx@arg@count=\z@ + \bxcx@parse@cs + }{%else + \bxcx@arg@count=\z@ + \bxcx@parse@char + }}} +} +\expandafter\def\expandafter\bxcx@parse@space\space{ + \bxcx@parse@char{ } +} +\def\bxcx@parse@char#1{ + \bxcx@cond\if N\bxcx@mode\fi{ + \ifcsdef{bxcx@lc/#1}{ + \ifcsdef{bxcx@tl/#1}{ + \bxcx@add@unit{#1} + \let\bxcx@mode=L\relax + }{\ifcsdef{bxcx@mluf/\@nameuse{bxcx@lc/#1}}{ + \bxcx@addto@unit{#1} + \let\bxcx@mode=U\relax + }{%else + \appto\bxcx@parsed{#1} + \let\bxcx@mode=L\relax + }} + }{%else + \appto\bxcx@parsed{#1} + } + }{\bxcx@cond\if U\bxcx@mode\fi{ + \ifcsdef{bxcx@lc/#1}{ + \bxcx@addto@unit{#1} + \ifcsdef{bxcx@tl/\bxcx@unitlc}{ + \bxcx@add@unit{\bxcx@unitlc} + \bxcx@clear@unit + \let\bxcx@mode=L\relax + }{} + }{%else + \eappto\bxcx@parsed{\bxcx@unit} + \bxcx@clear@unit + \appto\bxcx@parsed{#1} + \let\bxcx@mode=N\relax + } + }{%else(L\bxcx@mode) + \appto\bxcx@parsed{#1} + \ifcsdef{bxcx@lc/#1}{}{%else + \let\bxcx@mode=N\relax + } + }} + \bxcx@parse@a +} +\def\bxcx@parse@cs#1{ +%\typeout{<cs:\string#1>} + \bxcx@cond{\ifx#1\bxcx@end}\fi{% NB. #1 can be \fi + \bxcx@parse@fin + }{%else + \ifcsdef{bxcx@arity\string#1}{ + \bxcx@arg@count=\@nameuse{bxcx@arity\string#1}\relax + }{} + \bxcx@cond\if U\bxcx@mode\fi{ + \eappto\bxcx@parsed{\bxcx@unit} + \bxcx@clear@unit + }{} + \appto\bxcx@parsed{#1} + \let\bxcx@mode=N\relax + \bxcx@parse@a + } +} +\def\bxcx@parse@group#1{ + \bxcx@cond\if U\bxcx@mode\fi{ + \eappto\bxcx@parsed{\bxcx@unit} + \bxcx@clear@unit + }{} + \bxcx@cond\ifnum\bxcx@arg@count>\z@\fi{ +%\typeout{<group:parse>} + \begingroup + \bxcx@parse{#1} + \global\let\bxcx@gtempa\bxcx@parsed + \endgroup + \expandafter\bxcx@parse@group@a\bxcx@gtempa\bxcx@end + \advance\bxcx@arg@count\m@ne + }{%else +%\typeout{<group:pass>} + \appto\bxcx@parsed{{#1}} + } + \let\bxcx@mode=N\relax + \bxcx@parse@a +} +\def\bxcx@parse@group@a#1\bxcx@end{ + \appto\bxcx@parsed{{#1}} +} +\def\bxcx@parse@fin{ + \expandafter\bxcx@parse@fin@a\bxcx@parsed\bxcx@end +} +\def\bxcx@parse@fin@a#1@\bxcx@end{ + \def\bxcx@parsed{#1} +} + +%% \bxcx@add@unit +\def\bxcx@add@unit#1{ +%\typeout{<unit:#1>} + \expandafter\bxcx@add@unit@a\csname bxcx@tl/#1 + \endcsname\bxcx@end +} +\def\bxcx@add@unit@a#1\bxcx@end{ + \appto\bxcx@parsed{#1} +} + +%% \bxcx@clear@unit +\def\bxcx@clear@unit{ + \let\bxcx@unit\@empty + \let\bxcx@unitlc\@empty +} + +%% \bxcx@addto@unit +\def\bxcx@addto@unit#1{ + \appto\bxcx@unit{#1} + \eappto\bxcx@unitlc{\@nameuse{bxcx@lc/#1}} +} + +%--------------------------------------- apply the patch + +%% \bxcx@decl@patch\xxx{<body>} +% Here xxx is setlength or addtolength; and gives a new +% definition to that command. The <body> knows two macro +% arguments (#1 & #2) and \CUXxxx is the original definition +% of \xxx. +\def\bxcx@decl@patch#1{ + \expandafter\bxcx@decl@patch@a\csname + \expandafter\@gobble\string#1\space\expandafter\endcsname + \csname CUX\expandafter\@gobble\string#1\endcsname + #1 +} +\def\bxcx@decl@patch@a#1#2#3{ + \def\bxcx@tempa{\protect#1} + \bxcx@cond\ifx\bxcx@tempa#3\fi{ + \let#2=#1 + \def#1##1##2 + }{%else + \let#2=#3 + \DeclareRobustCommand*#3[2] + } +} + +%% Patch to \setlength. +\bxcx@decl@patch\setlength{ + \bxcx@parse{#2} + \CUXsetlength{#1}{\bxcx@parsed} +} + +%% Patch to \addtolength. +\bxcx@decl@patch\addtolength{ + \bxcx@parse{#2} + \CUXaddtolength{#1}{\bxcx@parsed} +} + +%--------------------------------------- all done +\endinput +%% EOF |