Problema TeXnico: parsing di righe

Risposte a tempo di record! 😀
Grazie!

Adesso mi chiedo: nel caso in cui si avesse una sequenza non regolare di gruppi di righe, come in questo esempio
`Questa è una prima riga\\
Seconda riga\\
Terza riga\\
\\
Quinta riga (quella precedente era vuota)\\
Sesta riga\\
\\
Ottava riga (quella precedente era vuota)\\
\\
Decima riga (quella precedente era vuota)\\
Undicesima riga\\
Dodicesima riga
`
Come si modificherebbe l’algoritmo di Enrico per poter applicare lo stesso schema di formattazione desiderato?
Chiarisco: la prima riga del gruppo in neretto, la seconda riga (se esiste) in corsivo, la terza riga (se esiste) inalterata.

Grazie,
Agostino

Enrico, sei il solito fenomeno 🙂

Saluti,
Agostino

Come si potrebbe inserire un contatore che conti i gruppi di righe?
Potrei voler effettuare delle manipolazioni solo sul primo e sul secondo gruppo di righe, lasciando gli altri all’algoritmo di cui sopra.
Mi spiego. Se ho:
`Riga 1\\
Riga 2\\
Riga 3\\
\\
Riga 5\\
Riga 6\\
\\
Riga 7\\
\\
Riga 9\\
Riga 10\\
Riga 11
`
vorrei anteporre $\bullet$ alla Riga 1 e $\star$ alla Riga 5.

Agostino

`\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}

\makeatletter
\newcount\r@wcounti
\newcount\r@wcount
\def\pp@sentinel{\hfuzz}
\def\pprows{\begingroup\parindent=\z@\endlinechar=\m@ne\ppr@ws}
\def\ppr@ws#1{%
\r@wcounti=\z@\r@wcount=\z@\ppr@w#1\\\hfuzz\\}
\def\ppr@w#1\\{%
% incremento contatore esterno
\advance\r@wcounti\@ne
% controlliamo se siamo alla fine
\def\pp@temp{#1}%
\ifx\pp@temp\pp@sentinel
\expandafter\endgroup
\else
\processr@w{#1}\expandafter\ppr@w
\fi}

\def\pppr@fix{%
\ifcase\r@wcounti\or
\textbullet\ \or % 1
\or %2
\or %3
\or %4
$\star$\ \or %5
% …
\fi}

\def\processr@w#1{\advance\r@wcount\@ne
\ifx\pp@temp\@empty
\r@wcount=\z@ \strut\par
\else
\pppr@fix
\ifcase\r@wcount\or
\textbf{#1}\par\or
\textit{#1}\par\else
#1\par
\fi
\fi}
\makeatother

\begin{document}

Elenco generico di destinatari:

\pprows{%
Assessorato alle politiche sociali\\
Respons. Quart. Vicaria, dott.ssa Rosa Russo\\
P.zza Vicario, 31bis\\
\\
Comando VV. UU.\\
Com. Luigi Fariello\\
\\
Ufficio Stampa\\
\\
Comando VV. FF.\\
Com. ing. Tiberio Sauro\\
Sede
}
\end{document}
`

Grazie.
Ciao,
Agostino

Piccola variante.
Un esempio realistico di come si possa gestire una lista dei destinatari multipli in una comunicazione formale.
`\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}

\newcommand{\myToMark}{%
\makebox[0pt][r]{A: }%
}
\newcommand{\myCcMark}{%
\makebox[0pt][r]{E, p.c.: }%
}

\makeatletter

\newcount\r@wcounti
\newcount\r@wcount
\def\pp@sentinel{\hfuzz}
\def\pprows{\begingroup\parindent=\z@\endlinechar=\m@ne\ppr@ws}
\def\ppr@ws#1{%
\r@wcounti=\z@\r@wcount=\z@\ppr@w#1\\\hfuzz\\}
\def\ppr@w#1\\{%
% incremento contatore esterno
\advance\r@wcounti\@ne
% controlliamo se siamo alla fine
\def\pp@temp{#1}%
\ifx\pp@temp\pp@sentinel
\expandafter\endgroup
\else
\processr@w{#1}\expandafter\ppr@w
\fi}

\def\pppr@fix{%
\ifcase\r@wcounti\or
\myToMark{}\or % 1
\or %2
\or %3
\or %4
\myCcMark{}\or %5
% …
\fi}

\def\processr@w#1{\advance\r@wcount\@ne
\ifx\pp@temp\@empty
\r@wcount=\z@ \strut\par
\else
\pppr@fix
\ifcase\r@wcount\or
\textbf{#1}\par\or
\textit{#1}\par\else
#1\par
\fi
\fi}
\makeatother

\begin{document}

\pprows{%
Assessorato alle politiche sociali\\
Respons. Quart. Vicaria, dott.ssa Rosa Russo\\
P.zza Vicario, 31bis\\
\\
Comando VV. UU.\\
Com. Luigi Fariello\\
\\
Ufficio Stampa\\
\\
Comando VV. FF.\\
Com. ing. Tiberio Sauro\\
Sede
}

\end{document}
`
Da notare le macro \myToMark e \myCcMark che appongono le diciture “A: ” e “E p. c.: “, rispettivamente, al primo e al secondo destinatario.

Ciao,
Agostino

Grazie Enrico.
Traggo spunto dalla tua precedente soluzione e dal post http://guit.sssup.it/phpbb/viewtopic.php?t=9713 in cui si parla di suddivisione del materiale all’interno di una vbox.
A questo punto, come si modifica la macro \pprows in modo da suddividere la lista degli indirizzi in più scatole di assegnata altezza?
Nel codice seguente:
`\documentclass{minimal}
\usepackage{ifthen}
\usepackage{lipsum}

\makeatletter
\newcount\r@wcount
\newcount\@ddrcount
\def\pp@sentinel{\hfuzz}
\newcommand\pprows[1][1]{\begingroup
\r@wcount=\z@
\chardef\@ddrnum=#1\relax
\parindent=\z@\endlinechar=\m@ne\ppr@ws}
\def\ppr@ws#1{\ppr@w#1\\\hfuzz\\}
\def\ppr@w#1\\{%
% controlliamo se siamo alla fine
\def\temp{#1}%
\ifx\temp\pp@sentinel
\expandafter\endgroup
\else
\processr@w{#1}\expandafter\ppr@w
\fi}

\def\pppr@fix{%
\ifnum\@ddrcount<\@ddrnum \tom@rk \else \ifnum\@ddrcount=\@ddrnum \ccm@rk \fi \fi \advance\@ddrcount\@ne} \def\processr@w#1{\advance\r@wcount\@ne \ifx\temp\@empty \r@wcount=\z@ \strut\par \else \ifcase\r@wcount\or \pppr@fix\textbf{#1}\par\or \textit{#1}\par\else #1\par \fi \fi} \def\tom@rk{\makebox[0pt][r]{A: }} \def\ccm@rk{\makebox[0pt][r]{E, p.c.: }} \makeatother \newlength{\larghezza} \setlength{\larghezza}{12cm} \newlength{\altezza} \setlength{\altezza}{7cm} \newbox\mybox \newbox\myboxa \newcommand\Separa[1]{% \par\begingroup\vbadness=10000 \setbox\mybox=\vbox{\hsize=\larghezza #1} \loop\ifdim\ht\mybox > \altezza
\setbox\myboxa=\vsplit\mybox to \altezza
\vbox{\unvbox\myboxa}\hrule
\repeat
\vbox{\unvbox\mybox}\hrule\endgroup
}

\begin{document}

\Separa{\lipsum[1-5]}
\bigskip

\Separa{\pprows{%
Servizio Politiche di Inclusione Sociale\\
Centro comunale di accoglienza per senza fissa dimora ex dormitorio pubblico Via Giuseppe De Blasiis, 10\\
Luigi Pratolin\\
\\
Servizio Giovani\\
Sede di Bagnoli Via Cicerone, 18\\
Gino Viglio Crippa\\
\\
Servizio Politiche per i Minori, l'Infanzia e l'Adolescenza\\
Ufficio provvedimenti autorità giudiziaria minorile\\
Giuseppe Pace\\
\\
Servizio Dipartimentale Consiglio Comunale\\
Attività connesse alle funzioni ispettive del Consiglio Comunale\\
Gino Giorgetto\\
\\
Servizio Reti Tecnologiche Interne\\
Rete fonia dati\\
Luigi Sicilia\\
\\
Servizio Politiche per i Minori, l'Infanzia e l'Adolescenza\\
Ufficio interventi integrativi\\
Rosaria Dinevoli\\
\\
Municipalità 1 – Organi Politici\\
Commissioni Consiliari: segreteria e conferenza dei Presidenti\\
Eugenio Izzo Aiazzone\\
\\
Direttore della I Municipalità Chiaia — San Ferdinando — Posillipo\\
Segreteria della direzione\\
\\
Servizio Archivi Storici\\
Referente visite guidate, Real Casa Santa dell'Annunziata: ramo esposti\\
Lucia Renzulli\\
\\
U.O.A. Elaborazione degli Stipendi\\
Ufficio cessioni e prestiti\\
Vittoria Cecatiello\\
\\
Direttore della Municipalità 1\\
\\
Direttore della Municipalità 2\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 3\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 4\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 5\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 6\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 7\\
Segreteria della direzione\\
Rosalia Cozzolino
}}
\end{document}
`
ho chiamato \pprows all’interno di \Separa. In questa situazione \pprows non lavora come ci si aspetterebbe.

Ciao,
Agostino

Credo di aver risolto in questo modo:
`\begin{document}
\newbox\BigBox
\setbox\BigBox=\vbox{\hsize=\larghezza
\pprows{
Servizio Politiche di Inclusione Sociale\\
Centro comunale di accoglienza per senza fissa dimora ex dormitorio pubblico Via Giuseppe De Blasiis, 10\\
Luigi Pratolin\\
\\
Servizio Giovani\\
Sede di Bagnoli Via Cicerone, 18\\
Gino Viglio Crippa\\
\\
Servizio Politiche per i Minori, l'Infanzia e l'Adolescenza\\
Ufficio provvedimenti autorità giudiziaria minorile\\
Giuseppe Pace\\
\\
Servizio Dipartimentale Consiglio Comunale\\
Attività connesse alle funzioni ispettive del Consiglio Comunale\\
Gino Giorgetto\\
\\
Servizio Reti Tecnologiche Interne\\
Rete fonia dati\\
Luigi Sicilia\\
\\
Servizio Politiche per i Minori, l'Infanzia e l'Adolescenza\\
Ufficio interventi integrativi\\
Rosaria Dinevoli\\
\\
Municipalità 1 – Organi Politici\\
Commissioni Consiliari: segreteria e conferenza dei Presidenti\\
Eugenio Izzo Aiazzone\\
\\
Direttore della I Municipalità Chiaia — San Ferdinando — Posillipo\\
Segreteria della direzione\\
\\
Servizio Archivi Storici\\
Referente visite guidate, Real Casa Santa dell'Annunziata: ramo esposti\\
Lucia Renzulli\\
\\
U.O.A. Elaborazione degli Stipendi\\
Ufficio cessioni e prestiti\\
Vittoria Cecatiello\\
\\
Direttore della Municipalità 1\\
\\
Direttore della Municipalità 2\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 3\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 4\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 5\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 6\\
Segreteria della direzione\\
Rosalia Cozzolino\\
\\
Direttore della Municipalità 7\\
Segreteria della direzione\\
Rosalia Cozzolino
}
}

\Separa{\unvbox\BigBox}
\end{document}
`
Metto tutto il risultato di \pprows in una \vbox che chiamo \BigBox: questo permette alla macro di processare le righe come vorrei. Successivamente, con il comando \unvbox\BigBox estraggo il contenuto per darlo in pasto alla macro \Separa.

Come fare per passare alla macro \pprows un parametro da usare nella macro interna \pppr@fix?
Vorrei poter effettuare la chiamata:
`\pprows{pippo}{%
Riga 1\\
Riga 2\\
Riga 3\\
\\
Riga 5\\
Riga 6\\
\\
Riga 8
}
`

Grazie,
Agostino

Continuo in questo filone e pongo il problema del dimensionamento di ciò che viene fuori da \pprows.
Mettiamo che il materiale trattato da questa macro debba essere composto con un’assegnata giustezza, diciamo \mylinewidth, e debba essere spezzato con un \newpage in modo da entrare verticalmente in uno spazio non superiore ad un’assegnata dimensione, diciamola \myheight.
Immagino che si debba usare un registro dimensionale come \@tempdima, inizializzarlo e aggiornarlo con un \advance\tempdima\baselineskip man mano che si processano nuove righe.
L’interruzione di pagina dovrebbe essere data quando \@tempdima>\myheight ma solo se si sta processando una riga vuota. Se l’interruzione dovesse capitare dopo l’inizio di un gruppo di 3 (o 2) ma non alla sua fine:
`\pprows{pippo}{%
%…
Riga 21\\
Riga 22\\
Riga 23\\
\\
Riga 25\\ <--- interruzione qui Riga 26\\ \\ Riga 28\\ %... } ` Come potrebbe essere gestito il problema?

Grazie lo stesso Enrico.
Sempre preziosissimi i tuoi suggerimenti.
Il fatto è che mi sono limitato a riportare delle versioni semplificate dei problemi che affronto. In questo caso specifico ho dei vincoli imposti sul formato degli indirizzi, che al momento sono rigidamente fissati come ho descritto nei post precedenti.

Ciao,
Agostino

Al contrario, letteracdp è la prima cosa che ho guardato. Infatti la documentazione “breve” non mi sembrava un buon punto da cui iniziare. Ragion per cui, dopo alcune valutazioni di opportunità, ho scelto di usare la classe scrlttr2 che è ben documentata e flessibile.
A questo punto compilerò il file .dtx e guarderò il codice.
Per quanto riguarda il problema di cui sopra, sono vicino alla soluzione con qualche modifica al codice di Enrico.

Ciao,
Agostino

Segnalo il pacchetto parselines
http://www.tex.ac.uk/tex-archive/macros/latex/contrib/parselines/
che offra la possibilità di definire del codice da applicare alle singole righe.
Un esempio potrebbe essere:
`\documentclass{minimal}
\usepackage{xifthen}
\usepackage{parselines}
\begin{document}
\begin{parse lines}{%
%
% codice utente qui (#1 rappresenta la singola riga)
%
\ifthenelse{\isempty{#1}}
{\row: (riga vuota)\par}
{\row: #1\par}
}
Riga 1
Riga 2
Riga 3

Riga 5
Riga 6

Riga 8
\end{parse lines}
\end{document}
`
Il codice da applicare a ciascuna riga potrebbe effettuare i conteggi suggeriti dal codice di Enrico risolvendo lo stesso problema in modo diverso.

Ciao,
Agostino