home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fonts 1
/
freshfonts1.bin
/
programs
/
amiga
/
tpp
/
tex
/
tppbook.tex
< prev
next >
Wrap
Text File
|
1993-10-09
|
1KB
|
42 lines
% TPPBook.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 Januara \or Februara \or March \or April
\or May \or June \or July \or August
\or September \or October
\or November \or December \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}