home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / tpp / tex / tppbook.tex < prev    next >
Text File  |  1995-02-27  |  1KB  |  42 lines
  1. % TPPBook.tex
  2. %
  3. %  © 1992 Martin Steppler
  4. %
  5. % needs/benötigt nice.tex
  6. %
  7.  
  8.  
  9. %
  10. % automatic numbering of tables
  11. %
  12. \newcount\tableno \tableno=0
  13. \def\tlabel#1#2{\global\advance\tableno by 1 \centerline {\bf Tab.\
  14.         \the\tableno: #2}{\let\the=0\edef\next{\write\frefs
  15.                 {\def\noexpand\escapeit rf@#1{\number\tableno}}}\next
  16.         }}
  17. \def\tref#1{{\catcode`\@=11 \toks0=\expandafter{\csname rf@#1\endcsname}\relax
  18.         \expandafter\ifx\the\toks0\relax
  19.                 [`#1']\write16{Table `#1' undefined on page \the\pageno.}\else
  20.                 \the\toks0 \fi
  21.         }}
  22.  
  23. %
  24. %   raggedleft macro
  25. %
  26.  
  27. \def\raggedleft{\leftskip=0pt plus4em \spaceskip=.3333em \xspaceskip=.5em
  28.         \parfillskip=0pt \parindent=0pt}
  29.  
  30. %
  31. %   date and today macros
  32. %
  33. \def\mynum#1{\ifnum #1<10 0\the#1\else \the#1\fi}
  34. \def\mymonth#1{\ifcase#1 \or Januara \or Februara \or March \or April
  35.    \or May \or June \or July \or August
  36.    \or September \or October
  37.    \or November \or December \fi}
  38. \def\datum{\mynum{\day} \mymonth{\month}\mynum{\year}}
  39. \def\heute{\mynum{\day}/\ifcase\month\or
  40. 01\or 02\or 03\or 04\or 05\or 06\or 07\or 08\or 09\or 10\or 11\or 12\fi
  41. /\number\year}
  42.