% This is a TeX code to generate a log file showing french hyphenated words
% gencoup.tex               Copyright GUTenberg-Bernard Gaulle as in french.doc
%
% This code was developped with/for MlTeX V2 and/or (Ml)TeX V3    --bg 03/27/92
% with CMR or DC fonts (but don't use it with TeX V2)
%                                                      last mods: --bg 11/23/95
%
%%
%%      checksum        = "20520 74 287 3499"
%%
\ifx\french\undefined\message{Erreur : le langage french est inconnu !}
           \ifx\fhyph\undefined\else\message{Heureusement fhyph est connu !}
                                    \def\french{\fhyph}\fi
\fi
\french% set the language
%\message{Language=\the\language\space 
%         Left=\the\lefthyphenmin\space Right=\the\righthyphenmin}
\uchyph=-1% don't hyphenate upper case words
%\ifx\stophyph\undefined\else% was just for a confirmation test
%%                       \message{\message{\string\stophyph\space a\space 
%%                                         ete\space mis\space a\space 4}}
%             \stophyph=4\fi%pb with end of accent.words (MlTeX2)

%\hyphenchar\font='177 % for tests of DC v1.2 
\edef\LeHC{\the\hyphenchar\font}\edef\DConePOINTtwo{127}

% Here are Included LaTeX compatible definitions.
\catcode`@=11
\ifx\DOinput\undefined\let\DOinput\input\fi%
\gdef\newwrite{\alloc@7\write\chardef\sixt@@n}% not an outer def
\newwrite\@unused%..............................................\@unused
\message{()}
\long\gdef\@ifundefined#1#2#3{\expandafter\ifx\csname%......... \@ifundefined 
  #1\endcsname\relax#2\else#3\fi}%
\ifx\protect\undefined\let\protect\relax\fi%....................\protect
\@ifundefined{typeout}{%........................................\typeout
  \global\newlinechar`\^^J%
  \gdef\typeout#1{{\let\protect\string\immediate\write\@unused{#1}}}%
                      }{}%
\typeout{Le caract\`ere de c\'esure (hyphen char) est \string'\LeHC}
{\catcode`\]=13\def]{}\catcode`,=\active\def,{\egroup\space%no need of ^^J
                                              \showhyphens\bgroup%
                                              }%
\def\DmyDeF#1{\let\protect\relax% for 2e
              \showhyphens\bgroup#1}%
\def\Dmydef#1,#2]{\DmyDeF#1%
                  \def\temp{#2}\ifx\temp\empty\let\Dmydef\relax\fi%
                  \Dmydef#2]}%
\def\dummydef[{\Dmydef}%
\catcode`-=\active\def-{}%
%
\rm% for this font  
\let\protect\noexpand% specially for NFSS
%
% Here are all the 499 french dictionnary names used by J. Desarmenien
% plus n other words that were inapropriately hyphenated in the past.
\edef\mots{\DOinput TSIv5n4  %
%%%{\immediate\write-1{\noexpand\endinput}}
\def\writeEND{\message{\noexpand\endinput}}%
\dummydef[\mots\writeEND,]}}%
%\typeout{^^J Ne pas tenir compte du message eventuel :}
%\typeout{^^J ...end occured inside a group at level...}
\typeout{^^J ************************************************************}
\typeout{^^J La generation de cesures sur un jeu test de plus de 500 mots}
\typeout{^^J \space\space\space\space\space\space\space\space\space E S T
             \space\space\space\space F A I T E}
\typeout{^^J Renommer maintenant le fichier \jobname.log en myhyph.log}
\typeout{^^J Valider l'accentuation dans ce fichier (circonflexes)}
\typeout{^^J Puis faire le test de validite (cf README.initex)}
\typeout{^^J ************************************************************}
\typeout{^^J }
\bye
\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
