% TPPGBook.tex
%
%  © 1992 Martin Steppler
%
% needs/benötigt nice.tex
%


%
% automatic numbering of tables
%
\newcount\tableno \tableno=0
\def\tlabel#1#2{\global\advance\tableno by 1 \centerline {\bf Tab.\
        \the\tableno: #2}{\let\the=0\edef\next{\write\frefs
                {\def\noexpand\escapeit rf@#1{\number\tableno}}}\next
        }}
\def\tref#1{{\catcode`\@=11 \toks0=\expandafter{\csname rf@#1\endcsname}\relax
        \expandafter\ifx\the\toks0\relax
                [`#1']\write16{Table `#1' undefined on page \the\pageno.}\else
                \the\toks0 \fi
        }}

%
%   raggedleft macro
%

\def\raggedleft{\leftskip=0pt plus4em \spaceskip=.3333em \xspaceskip=.5em
        \parfillskip=0pt \parindent=0pt}

%
%   date and today macros
%
\def\mynum#1{\ifnum #1<10 0\the#1\else \the#1\fi}
\def\mymonth#1{\ifcase#1 \or Januar \or Februar \or M\"arz \or April
   \or Mai \or Juni \or Juli \or August
   \or September \or Oktober
   \or November \or Dezember \fi}
\def\datum{\mynum{\day}. \mymonth{\month}\mynum{\year}}
\def\heute{\mynum{\day}.\ifcase\month\or
01\or 02\or 03\or 04\or 05\or 06\or 07\or 08\or 09\or 10\or 11\or 12\fi
.\number\year}
