]> mj.ucw.cz Git - saga.git/blobdiff - macros.tex
Book style.
[saga.git] / macros.tex
index 5877abacfe422071815ee42efd7d0583e583438c..b7f43851465e8b438812e34eb3d447a03afc45f5 100644 (file)
 \newcount\chapcount
 \newcount\seccount
 \newcount\thmcount
-\chapcount=-1
+\chapcount=0
 \seccount=0
 \thmcount=0
 \def\currentid{??}
 \bigskip
 }
 
+\def\unchapter#1{
+\rawchapter{#1}
+\writetoc{unchap}{#1}
+}
+
 \def\chapter#1{\advance\chapcount by 1
 \seccount=0
 \thmcount=0
 \def\problemn{\problem\labelx}
 \def\remn{\rem\labelx}
 
-\def\paran#1{\para {\sl #1.\/}\enspace}
+\def\paran#1{\para {\sl #1.\/}\enspace\kern 0pt}
 
 \def\proof{\noindent {\sl Proof.}\enspace}
 \def\proofsketch{\noindent {\sl Proof sketch.}\enspace}
   \tocfalse
 }
 
+\newwrite\tok
 \def\includetoc{
-\immediate\closeout\toc
-\input \jobname.toc
+\immediate\openin\tok=\jobname.tok
+\ifeof\tok
+\else
+\input \jobname.tok
+\fi
+\immediate\closein\tok
 }
 
 \def\tocchap#1#2#3{\smallskip\line{\bo #1.~~#2 \dotfill ~#3}}
 \def\tocsec#1#2#3{\line{#1.~~#2 \dotfill ~#3}}
+\def\tocunchap#1#2#3{\smallskip\line{\bo #2 \dotfill ~#3}}
 
 %%% References %%%