smartunits (3feb16)

git-svn-id: svn://tug.org/texlive/trunk@39556 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 163 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/smartunits/smartunits.sty b/Master/texmf-dist/tex/latex/smartunits/smartunits.sty
new file mode 100644
index 00000000000..5fd01f609ce
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/smartunits/smartunits.sty
@@ -0,0 +1,163 @@
+%% ----------------------------------------------------------------
+%% smartunits --- A latex package that implements automatic conversions
+%%                between certain metric and Imperial units.
+%% E-mail: andrew.mathas@gmail.com
+%% Released under the LaTeX Project Public License v1.3c or later
+%% See http://www.latex-project.org/lppl.txt
+%% ----------------------------------------------------------------
+
+% http://tex.stackexchange.com/questions/241169/is-it-possible-in-latex-to-print-all-numbers-between-imperial-and-metric/241179#241179
+\NeedsTeXFormat{LaTeX2e}
+\def\smart@version{Version 1.1}
+\ProvidesPackage{smartunits}[2016/02/03 \smart@version\space- Smart conversion between metric and Imperial units]
+\RequirePackage{siunitx,pgfmath,pgfkeys}
+
+% a global pgfkeyssetvalue from Martin Scharrer's answer to http://tex.stackexchange.com/questions/15204
+\newcommand{\pgfkeysgsetvalue}[2]{\pgfkeys@temptoks{#2}\expandafter\xdef\csname pgfk@#1\endcsname{\the\pgfkeys@temptoks}}
+
+% a shorthand for extracting key values from /SmartUnit
+\newcommand\smart@val[1]{\pgfkeysvalueof{/SmartUnit/#1}}
+
+% the pgfkey family for smart units
+\pgfkeys{/SmartUnit/.is family,/SmartUnit,%
+    %%%% /SmartUnit/unit <convert> keys are implicitly initialised through the
+    %%%% following. As a bonus this allows us to use \pgfkeysifdefined below.
+    .unknown/.code={\pgfkeyssetvalue{\pgfkeyscurrentpath/\pgfkeyscurrentname}{#1}},%
+    %%%% /SmartUnit/convert is used to determine which "smart unit" to print
+    %%%% printunit --> output --> injects the code to print the current <convert>
+    printunit/.code={\pgfkeysifdefined{/SmartUnit/convert}{\pgfkeys{/SmartUnit/output/\smart@val{format}}}{}},%
+    output/metric/.code={\pgfkeys{/SmartUnit/\smart@val{convert}/metric}},%
+    output/imperial/.code={\pgfkeys{/SmartUnit/\smart@val{convert}/imperial}},%
+    output/metric imperial/.code={\pgfkeys{/SmartUnit/\smart@val{convert}/metric}\space(\pgfkeys{/SmartUnit/\smart@val{convert}/imperial})},%
+    output/imperial metric/.code={\pgfkeys{/SmartUnit/\smart@val{convert}/imperial}\space(\pgfkeys{/SmartUnit/\smart@val{convert}/metric})},%
+    %%%% global flags for controlling when metric and imperial units are printed
+    format/.initial=metric,%
+    metric/.code={\pgfkeysgsetvalue{/SmartUnit/format}{metric}},%
+    imperial/.code={\pgfkeysgsetvalue{/SmartUnit/format}{imperial}},%
+    metric imperial/.code={\pgfkeysgsetvalue{/SmartUnit/format}{metric imperial}},%
+    imperial metric/.code={\pgfkeysgsetvalue{/SmartUnit/format}{imperial metric}},%
+    %%%% allow for both UK and US Imperial units
+    system/.initial=usa,% for purely demographic reasons
+    usa/.style={system=usa},%
+    uk/.style={system=uk},%
+    %%% for local changes to the siunitz precision
+    figures/.code={\sisetup{round-mode=figures, round-precision=#1}},
+    places/.code={\sisetup{round-mode=places, round-precision=#1}},
+    %%%%%%%%%%%%%%%%%%%% conversion routines %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+    % Generic case: #1 = (#2+#3)*#4 + #5 where #6 is the name of the unit
+    conversion/.code n args={6}{%{#1= to, #2= from, #3=pre-offset, #4=multiplier, #5=post-offset, #6= symbol}
+        \pgfkeysifdefined{/SmartUnit/unit #1}{\SI{\smart@val{unit #1}}{#6}}{\pgfmathparse{(\smart@val{unit #2}+#3)*#4+#5}\SI{\pgfmathresult}{#6}}%
+    },%
+    %%%% convert=distance:  km <-> miles %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+    km/.style={convert=distance, unit km=#1},%
+    mi/.style={convert=distance, unit miles=#1},%
+    miles/.style={convert=distance, unit miles=#1},%
+    distance/metric/.style={/SmartUnit/conversion={km}{miles}{0}{1.609344}{0}{\km}},%
+    distance/imperial/.style={/SmartUnit/conversion={miles}{km}{0}{0.62137119}{0}{\text{mi}}},%
+    %%%% convert=volume l <-> US gallons %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+    gal/.style={convert=volume, unit gal=#1},%
+    gal/uk/.initial=0.21996925,%  1L = 0.21996925 gal (UK)
+    gal/usa/.initial=0.26417205,% 1L = 0.26417205 gal (USA)
+    gallons/.style={convert=volume, unit gal=#1},%
+    l/.style={convert=volume, unit L=#1, volume/symbol=l},%
+    L/.style={convert=volume, unit L=#1, volume/symbol=L},%
+    L/uk/.initial=4.54609,%       1 gal (UK) = 4.54609 L
+    L/usa/.initial=3.7854118,%    1 gal (USA) = 3.7854118 L
+    volume/symbol/.initial=l,% default symbol for litres
+    volume/metric/.style={/SmartUnit/conversion={L}{gal}{0}{\smart@val{L/\smart@val{system}}}{0}{\smart@val{volume/symbol}}},%
+    volume/imperial/.style={/SmartUnit/conversion={gal}{L}{0}{\smart@val{gal/\smart@val{system}}}{0}{\text{gal}}},%
+    %%%% convert=weight: kg <-> lbs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+    kg/.style={convert=weight, unit kg=#1},%       1 lbs = 0.45359237 kg
+    lbs/.style={convert=weight, unit pound=#1},%   1kg = 2.2046226 lbs (USA)
+    pound/.style={convert=weight, unit pound=#1},% 1kg = 2.2046226 lbs (USA)
+    weight/metric/.style={/SmartUnit/conversion={kg}{pound}{0}{0.45359237}{0}{\kg}},%
+    weight/imperial/.style={/SmartUnit/conversion={pound}{kg}{0}{2.2046226}{0}{\text{lbs}}},%
+    %%%% convert=temperature: C <-> F %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+    celsius/.style={convert=temperature, unit celsius=#1},%
+    fahrenheit/.style={convert=temperature, unit fahrenheit=#1},%
+    temperature/metric/.style={/SmartUnit/conversion={celsius}{fahrenheit}{-32}{5/9}{0}{\degreeCelsius}},%
+    temperature/imperial/.style={/SmartUnit/conversion={fahrenheit}{celsius}{0}{9/5}{32}{\si{\degree}\text{F}}},%
+    %%%% convert=length:  cm <-> feet and inches %%%%%%%%%%%%%%%%%%%%%%%%%
+    cm/.style={convert=length, unit cm=#1},%
+    inches/.style={convert=length, unit inches=#1},%
+    feet/.style={convert=length, unit feet=#1},%
+    length/metric/.code={% called via /SmartUnit/printunit -> /SmartUnit/output with convert=length
+        \pgfkeysifdefined{/SmartUnit/unit cm}{\def\pgfmathresult{\smart@val{unit cm}}}%
+            {\pgfkeysifdefined{/SmartUnit/unit inches}{\pgfmathsetmacro{\smart@tmp}{2.54*\smart@val{unit inches}}}{\def\smart@tmp{0}}%
+             \pgfkeysifdefined{/SmartUnit/unit feet}{\pgfmathparse{\smart@tmp+30.84*\smart@val{unit feet}}}{\let\pgfmathresult\smart@tmp}%
+            }%
+            \SI{\pgfmathresult}{cm}%
+    },
+    %%%% slightly tricker as we have to convert centimeters to feet and inches
+    length/imperial/.code={% called via /SmartUnit/printunit -> /SmartUnit/output with convert=length
+        \pgfkeysifdefined{/SmartUnit/unit inches}{\pgfkeysifdefined{/SmartUnit/unit feet}{\SI{\smart@val{unit feet}}{\arcminute}\enspace\SI{\smart@val{unit inches}}{\arcsecond}}%
+            {\enspace\SI{\smart@val{unit inches}}{\arcsecond}}%
+            }%
+            {\pgfkeysifdefined{/SmartUnit/unit feet}{\SI{\smart@val{unit feet}}{\arcminute}}%
+               {\pgfmathsetmacro{\smart@tmp}{0.39370079*\smart@val{unit cm}}% centimeters -> inches
+                \pgfmathparse{greater(\smart@tmp,11)}%
+                \ifnum\pgfmathresult=1%
+                   \pgfmathparse{int(\smart@tmp/12)}\SI{\pgfmathresult}{\arcminute}%
+                   \pgfmathparse{int(\smart@tmp-12*\pgfmathresult)}\enspace\SI{\pgfmathresult}{\arcsecond}%
+                \else%
+                   \SI{\smart@tmp}{\arcminute}%
+                \fi%
+               }%
+          }%
+    },%
+    %%%% convert=time: 24-hour times versus 12-hour time %%%%%%%%%%%%%%%%%%%%%%%%%
+    am/.style={convert=time, unit am=1},%
+    pm/.style={convert=time, unit pm=1},%
+    hours/.style={convert=time, unit hours=#1},%
+    minutes/.style={convert=time, unit minutes=#1},%
+    seconds/.style={convert=time, unit seconds=#1},%
+    time/metric/.code={%
+        \pgfkeysifdefined{/SmartUnit/unit pm}{\pgfmathparse{\smart@val{unit hours}+12}\num{\pgfmathresult}}{\num{\smart@val{unit hours}}}:\num[minimum-integer-digits=2]{\smart@val{unit minutes}}%
+        \pgfkeysifdefined{/SmartUnit/unit seconds}{:\num[minimum-integer-digits=2]{\smart@val{unit seconds}}}{}%
+    },%
+    time/imperial/.code={% extra cases here to for AM/PM when hours=12 <->
+        \pgfkeysifdefined{/SmartUnit/unit am}{\def\smart@tmp{AM}\num{\smart@val{unit hours}}}%
+            {\pgfkeysifdefined{/SmartUnit/unit pm}{\def\smart@tmp{PM}\num{\smart@val{unit hours}}}%
+                 {\pgfmathparse{greater(\smart@val{unit hours}+\smart@val{unit minutes}/60,12)}%
+                  \ifnum\pgfmathresult=1\def\smart@tmp{PM}\pgfmathparse{\smart@val{unit hours}==12?12:\smart@val{unit hours}-12}\num{\pgfmathresult}%
+                  \else\pgfmathparse{\smart@val{unit hours}==0?12:\smart@val{unit hours}}\num{\pgfmathresult}\def\smart@tmp{AM}%
+                  \fi%
+                 }%
+             }%
+             :\num[minimum-integer-digits=2]{\smart@val{unit minutes}}%
+             \pgfkeysifdefined{/SmartUnit/unit seconds}{\pgfmathparse{greater(\smart@val{unit hours}+\smart@val{unit seconds}/60,12)}\ifnum\pgfmathresult=1\def\smart@tmp{PM}\fi%
+                 :\num[minimum-integer-digits=2]{\smart@val{unit seconds}}}{}%
+             \enspace{\text{\smart@tmp}}%
+    },%
+}
+
+\newcommand\SmartUnit[1]{%
+    \bgroup%=> all pgfkeys changes are local to \SmartUnit => no need to reset
+        \pgfkeys{/SmartUnit,#1}% Pass the keys to /SmartUnit
+        \pgfkeys{/SmartUnit,printunit}% Calculate units and print
+    \egroup%
+}
+
+\newcommand\SmartUnitSettings[1]{\pgfkeys{/SmartUnit,#1}}
+
+\endinput
+%% End of file `printunits.sty'.
+%%
+%% Copyright (C) 2016 by Andrew Mathas <andrew.mathas@gmail.com>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License (LPPL), either
+%% version 1.3c of this license or (at your option) any later
+%% version.  The latest version of this license is in the file:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% This work is "maintained" (as per LPPL maintenance status) by
+%% Andrew Mathas.
+%%
+%% This work consists of the files  smartunits.sty
+%%                                  smartunits.tex
+%%                                  README.md
+%%
+%% Copyright (c) 2016 Andrew Mathas <andrew.mathas@gmail.com>
+%% end of smartunits.sty