| Current File : //usr/share/texlive/texmf-dist/tex/generic/oberdiek/telprint.sty |
%%
%% 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'.