Skip to content
Snippets Groups Projects
csmac.tex 3 KiB
Newer Older
  • Learn to ignore specific revisions
  • Jan Vožeh's avatar
    Jan Vožeh committed
    \chyph
    \font\ninerm=csr9
    \font\eightrm=csr8
    \let\sc=\eightrm % small caps (NOT a caps-and-small-caps font)
    \font\titlefont=csr7 scaled\magstep4 % title on the contents page
    \font\ttitlefont=cstt10 scaled\magstep2 % typewriter type in title
    \def\postATL#1 #2 {\bf psmeno \\{\uppercase{\char"#1}}
       v~.c kdu jako \tentex "#2"\egroup\par}
    \def\ATH{\X\kern-.5em:Definice pro preprocesor\X}
    \def\A{\note{Viz tak sekci}} % xref for doubly defined section name
    \def\As{\note{Viz tak sekce}} % xref for multiply defined section name
    \def\ET{ a~} % conjunction between two section numbers
    \def\ETs{ a~} % conjunction between the last two of several section numbers
    \def\Q{\note{Tento kd je citovn v~sekci}} % xref for mention of a section
    \def\Qs{\note{Tento kd je citovn v~sekcch}} % xref for mentions of a section
    \def\U{\note{Tento kd je pouit v~sekci}} % xref for use of a section
    \def\Us{\note{Tento kd je pouit v~sekcch}} % xref for uses of a section
    \def\ch{\note{Nsledujc sekce byly zmnny prostednictvm zmnovho
        souboru:} \let\*=\relax}
    \def\fin{\par\vfill\eject % this is done when we are ending the index
      \ifpagesaved\null\vfill\eject\fi % output a null index column
      \if L\lr\else\null\vfill\eject\fi % finish the current page
      \parfillskip 0pt plus 1fil
      \def\grouptitle{NZVY SEKC}
      \let\topsecno=\nullsec
      \message{Section names:}
      \output={\normaloutput\page\lheader\rheader}
      \setpage
      \def\note##1##2.{\quad{\eightrm##1~##2.}}
      \def\Q{\note{Citovno v~sekci}} % crossref for mention of a section
      \def\Qs{\note{Citovno v~sekcch}} % crossref for mentions of a section
      \def\U{\note{Pouito v~sekci}} % crossref for use of a section
      \def\Us{\note{Pouito v~sekcch}} % crossref for uses of a section
      \def\I{\par\hangindent 2em}\let\*=*
      \readsections}
    \def\contentsline#1#2#3#4{\ifnum#2=0 \smallbreak\fi
        \line{\consetup{#2}#1
          \rm\leaders\hbox to .5em{.\hfil}\hfil\ #3\hbox to4em{\hss#4}}}
    \def\con{\par\vfill\eject % finish the section names
    % \ifodd\pageno\else\titletrue\null\vfill\eject\fi % for duplex printers
      \rightskip 0pt \hyphenpenalty 50 \tolerance 200
      \setpage \output={\normaloutput\page\lheader\rheader}
      \titletrue % prepare to output the table of contents
      \pageno=\contentspagenumber
      \def\grouptitle{OBSAH}
      \message{Table of contents:}
      \topofcontents
      \line{\hfil Sekce\hbox to4em{\hss Strana}}
      \let\ZZ=\contentsline
      \readcontents\relax % read the contents info
      \botofcontents \end} % print the contents page(s) and terminate
    \def\today{\number\day.~\ifcase\month\or ledna\or nora\or bezna\or
      dubna\or kvtna\or ervna\or ervence\or srpna\or z\or jna\or
      listopadu\or prosince\fi \space\number\year}
    \def\datethis{\def\startsection{\leftline{\sc\today\ v~\hours}\bigskip
      \let\startsection=\stsec\stsec}}
    \def\datecontentspage{%
      \def\topofcontents{\leftline{\sc\today\ v~\hours}\bigskip
       \centerline{\titlefont\title}\vfill}} % timestamps the contents page
    
    \def\allowhyphens{\nobreak\hskip0pt\relax}
    \def \uv#1{\char254 \allowhyphens#1\allowhyphens\char255 }