%% %% This is file `telprint.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% telprint.dtx (with options: `package') %% %% This is a generated file. %% %% Project: telprint %% Version: 2016/05/16 v1.11 %% %% Copyright (C) %% 1996, 1997, 2004-2008 Heiko Oberdiek %% 2016-2019 Oberdiek Package Support Group %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either %% version 1.3c of this license or (at your option) any later %% version. This version of this license is in %% https://www.latex-project.org/lppl/lppl-1-3c.txt %% and the latest version of this license is in %% https://www.latex-project.org/lppl.txt %% and version 1.3 or later is part of all distributions of %% LaTeX version 2005/12/01 or later. %% %% This work has the LPPL maintenance status "maintained". %% %% The Current Maintainers of this work are %% Heiko Oberdiek and the Oberdiek Package Support Group %% https://github.com/ho-tex/oberdiek/issues %% %% %% The Base Interpreter refers to any `TeX-Format', %% because some files are installed in TDS:tex/generic//. %% %% This work consists of the main source file telprint.dtx %% and the derived files %% telprint.sty, telprint.pdf, telprint.ins, telprint.drv, %% telprint-test1.tex. %% \begingroup\catcode61\catcode48\catcode32=10\relax% \catcode13=5 % ^^M \endlinechar=13 % \catcode35=6 % # \catcode39=12 % ' \catcode44=12 % , \catcode45=12 % - \catcode46=12 % . \catcode58=12 % : \catcode64=11 % @ \catcode123=1 % { \catcode125=2 % } \expandafter\let\expandafter\x\csname ver@telprint.sty\endcsname \ifx\x\relax % plain-TeX, first loading \else \def\empty{}% \ifx\x\empty % LaTeX, first loading, % variable is initialized, but \ProvidesPackage not yet seen \else \expandafter\ifx\csname PackageInfo\endcsname\relax \def\x#1#2{% \immediate\write-1{Package #1 Info: #2.}% }% \else \def\x#1#2{\PackageInfo{#1}{#2, stopped}}% \fi \x{telprint}{The package is already loaded}% \aftergroup\endinput \fi \fi \endgroup% \begingroup\catcode61\catcode48\catcode32=10\relax% \catcode13=5 % ^^M \endlinechar=13 % \catcode35=6 % # \catcode39=12 % ' \catcode40=12 % ( \catcode41=12 % ) \catcode44=12 % , \catcode45=12 % - \catcode46=12 % . \catcode47=12 % / \catcode58=12 % : \catcode64=11 % @ \catcode91=12 % [ \catcode93=12 % ] \catcode123=1 % { \catcode125=2 % } \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@telprint.sty\endcsname \ProvidesPackage{telprint}% [2016/05/16 v1.11 Format German phone numbers (HO)]% \begingroup\catcode61\catcode48\catcode32=10\relax% \catcode13=5 % ^^M \endlinechar=13 % \catcode123=1 % { \catcode125=2 % } \catcode64=11 % @ \def\x{\endgroup \expandafter\edef\csname TELAtEnd\endcsname{% \endlinechar=\the\endlinechar\relax \catcode13=\the\catcode13\relax \catcode32=\the\catcode32\relax \catcode35=\the\catcode35\relax \catcode61=\the\catcode61\relax \catcode64=\the\catcode64\relax \catcode123=\the\catcode123\relax \catcode125=\the\catcode125\relax }% }% \x\catcode61\catcode48\catcode32=10\relax% \catcode13=5 % ^^M \endlinechar=13 % \catcode35=6 % # \catcode64=11 % @ \catcode123=1 % { \catcode125=2 % } \def\TMP@EnsureCode#1#2{% \edef\TELAtEnd{% \TELAtEnd \catcode#1=\the\catcode#1\relax }% \catcode#1=#2\relax } \TMP@EnsureCode{33}{12}% ! \TMP@EnsureCode{36}{3}% $ \TMP@EnsureCode{40}{12}% ( \TMP@EnsureCode{41}{12}% ) \TMP@EnsureCode{42}{12}% * \TMP@EnsureCode{43}{12}% + \TMP@EnsureCode{44}{12}% , \TMP@EnsureCode{45}{12}% - \TMP@EnsureCode{46}{12}% . \TMP@EnsureCode{47}{12}% / \TMP@EnsureCode{91}{12}% [ \TMP@EnsureCode{93}{12}% ] \TMP@EnsureCode{126}{13}% ~ (active) \edef\TELAtEnd{\TELAtEnd\noexpand\endinput} \ifx\DeclareRobustCommand\UnDeFiNeD \def\DeclareRobustCommand*#1[1]{\def#1##1}% \def\TELreset{\let\DeclareRobustCommand=\UnDeFiNeD}% \input infwarerr.sty\relax \@PackageInfo{telprint}{% Macros are not robust!% }% \else \let\TELreset=\relax \fi \DeclareRobustCommand*{\telspace}[1]{\def\TELspace{#1}} \telspace{{}$\,${}} \DeclareRobustCommand*{\telhyphen}[1]{\def\TELhyphen{#1}} \telhyphen{\leavevmode\hbox{-}}% \hbox zur Verhinderung der Trennung \DeclareRobustCommand*{\telslash}[1]{\def\TELslash{#1}} \telslash{/}% \DeclareRobustCommand*{\telleftparen}[1]{\def\TELleftparen{#1}} \telleftparen{(}% \DeclareRobustCommand*{\telrightparen}[1]{\def\TELrightparen{#1}} \telrightparen{)}% \DeclareRobustCommand*{\telplus}[1]{\def\TELplus{#1}} \telplus{+}% \DeclareRobustCommand*{\teltilde}[1]{\def\TELtilde{#1}} \teltilde{~}% \newtoks\TELtoks \def\TELnumber#1#2\TELnumberEND{% \begingroup \def\0{#2}% \expandafter\endgroup \ifx\0\empty \TELtoks=\expandafter{\the\TELtoks#1}% \ifnum\TELswitch=0 % \def\TELx{\TELspace}\def\TELy{}% \else \def\TELx{}\def\TELy{\TELspace}% \fi \the\TELtoks \else \ifnum\TELswitch=0 % \TELtoks=\expandafter{\the\TELtoks#1\TELx}% \def\TELswitch{1}% \else \TELtoks=\expandafter{\the\TELtoks#1\TELy}% \def\TELswitch{0}% \fi \TELnumber#2\TELnumberEND \fi } \DeclareRobustCommand*{\telnumber}[1]{% \TELtoks={}% \def\TELswitch{0}% \TELnumber#1{}\TELnumberEND } \def\TELsplit{\futurelet\TELfuture\TELdosplit} \def\TELdosplit#1#2\TELsplitEND {% \def\TELsp{ }% \expandafter\ifx\TELsp\TELfuture \let\TELfuture=\relax \expandafter\telnumber\expandafter{\the\TELtoks}~% \telprint{#1#2}% Das Leerzeichen kann nicht #1 sein! \else \def\TELfirst{#1}% \ifx\TELfirst\empty \expandafter\telnumber\expandafter{\the\TELtoks}% \TELtoks={}% \else\if-\TELfirst \expandafter\telnumber\expandafter{\the\TELtoks}\TELhyphen \telprint{#2}% \else\if/\TELfirst \expandafter\telnumber\expandafter{\the\TELtoks}\TELslash \telprint{#2}% \else\if(\TELfirst \expandafter\telnumber\expandafter{\the\TELtoks}\TELleftparen \telprint{#2}% \else\if)\TELfirst \expandafter\telnumber\expandafter{\the\TELtoks}\TELrightparen \telprint{#2}% \else\if+\TELfirst \expandafter\telnumber\expandafter{\the\TELtoks}\TELplus \telprint{#2}% \else\def\TELtemp{~}\ifx\TELtemp\TELfirst \expandafter\telnumber\expandafter{\the\TELtoks}\TELtilde \telprint{#2}% \else \TELtoks=\expandafter{\the\TELtoks#1}% \TELsplit#2{}\TELsplitEND \fi\fi\fi\fi\fi\fi\fi \fi } \DeclareRobustCommand*{\telprint}[1]{% \TELtoks={}% \TELsplit#1{}\TELsplitEND } \TELreset\let\TELreset=\UnDeFiNeD \TELAtEnd% %% \section{Installation} \endinput %% %% End of file `telprint.sty'.