summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/cbcoptic/prnthyph.sty
blob: 6c3c554f394dbdd093f88bb45940352069aa145c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
% Dichiarazione per sostituire \showhyphens al fine di eseguire le
% prove necessarie per verificare i pattern di divisione in sillabe.
%
% Uso:
% \begingroup\printhyphens
% <lista di parole>
% \endgroup
%
% oppure:
% \begin{printhyphens}
% <lista di parole>
% \end{printhyphens}
%
% Riferimento: Victor Eijkout, ``The bag of tricks'', TUGboat 14.4 (1993)
% p.424

%
\def\printhyphens{\everypar{\setbox0\lastbox \setbox1\hbox{\strut}\vbox\bgroup
\everypar{\setbox0\lastbox \nobreak\hskip\z@\relax}\dimen0=\hsize
\hsize=\z@ \hfuzz\maxdimen \def\par{\endgraf \hsize=\dimen0\getlastline
\egroup\endgraf}}\offinterlineskip\breakafterword}

\def\breakafterword{\catcode`\^^M\active\catcode`\ \active}

{\breakafterword\gdef^^M{\par}\global\let ^^M}

\def\getlastline{\setbox0\lastbox\ifvoid0\let\next\nomorelines
\else\unskip\unpenalty\setbox1\hbox{\unhbox0\strut\discretionary{}{}{}%
\unhbox1}\let\next\getlastline\fi\next}

\def\nomorelines{\unhbox1}

\endinput