Studiandomi un po’ il pacchetto minitoc ho pensato di creare un esempio minimale di come produrre un piccolo sommario, esempio che potrebbe essermi utile in casi molto particolari (come creare un piccolo sommario di un articolo molto lungo in una rivista.
Ho quindi scritto il seguente codice che funziona, ma ha un piccolo difetto, non mi scrive le prime sezioni
`\documentclass[a4paper]{article}
\usepackage{lipsum}
\makeatletter
\newif\@test
\@testfalse
\def\apriscrittura{
\IfFileExists{\jobname2.tex}{\@testtrue}{\@testfalse %\newwrite\@uscita
\openout15=\jobname2.tex
\relax
\immediate\write15{\relax}
}
}
\def\chiudiscrittura{
\immediate\closeout15}
\def\newsection#1{\section{#1}
\if@test %\relax
sono true\par
\else
sono false \par
\immediate\write15{\hskip 7pt \thesection. #1\hfill \thepage\par}
\fi
}\makeatother
\begin{document}
%\leggi
\apriscrittura
\hrule
\vskip 5pt
\textsc{Table of Contents}\par
\InputIfFileExists{\jobname2.tex}{}{}\par
\vskip 7pt
\hrule
%\lipsum
\newsection{Prova}
\newsection{provaci}
\lipsum
\newsection{prova di nuovo Sam}
\lipsum[7]
\newsection{Ancora}
\lipsum
%\chiudiscrittura
\end{document}
`e il risultato nel file \jobname2.tex è
`
\hskip 7pt 3. prova di nuovo Sam\hfill 2\par
\hskip 7pt 4. Ancora\hfill 2\par
`
Se invece decommento il primo \lipsum scrive correttamente i 4 paragrafi ma non il primo relax. Credo che sia un problema sul modo in cui apro il file, ma non ne sono sicuro.
Ho provato a usare \newwrite\uscita, ma poi quando scrivevo \write\uscita mi dava un errore.
Qualche suggerimento? 🙄
C’è qualcosa che non va; prima di tutto è meglio se \newif è seguito da un comando che comincia con \if. Prova così:
`\newif\if@test
\@testfalse
\def\apriscrittura{%
\IfFileExists{\jobname2.tex}
{\@testtrue}
{\@testfalse \newwrite\@uscita
\immediate\openout\@uscita=\jobname2.tex
\immediate\write\@uscita{\relax}}
}
\def\chiudiscrittura{\if@test\else\immediate\closeout\@uscita\fi}
\def\newsection#1{\section{#1}
\if@test %\relax
sono true\par
\else
sono false \par
\write\@uscita{\hskip 7pt \thesection. #1\hfill \thepage\par}%
\fi}`
Ma così non funziona proprio: se aggiungi una sezione l’unico modo di compilare correttamente il tutto è di cancellare il file con l’indice.
Perché non usare \tableofcontents, opportunamente modificato?
C’è un altro errore, molto importante: il \write in cui usi \thepage non deve essere immediato, perché a quel punto TeX potrebbe non sapere qual è il numero di pagina giusto.
Ciao
Enrico
(Corretto secondo quanto scritto nel mio messaggio successivo)