%%%% LEHYPHEN.TEX %% LEtter count hyphenation patterns
%% for use with word tally.sty
%% to let \LetterCount<text>\endLetterCount count the letters
\begingroup
\catcode`@=11
%%% Globally set high ASCII to 12
%%
\count@="80
\loop
\global\catcode\the\count@=12
\ifnum\count@<"FF
\relax\advance\count@ by 1
\repeat
%%% Globally set their Cork default lc-uc codes
\newcount\Ct@
\newcount\Ct@@
\newcount\Ct@@@
\toks0={%
\loop
\Ct@=\count@\advance\Ct@ by 32
%% \count@ is Plain scratch counter \count255
\global\uccode\the\count@=\the\count@
\global\lccode\the\count@=\the\Ct@
\global\uccode\the\Ct@=\the\count@
\global\lccode\the\Ct@=\the\Ct@
\ifnum\count@<\Ct@@
\relax\advance\count@ by 1
\repeat
}
\count@="80 \Ct@@="9E \the\toks0 %% segment "80 to "BF
%% "9F is \S and "BF is pound
\count@="C0 \Ct@@="DF \the\toks0 %% segment "C0 to "FF
\lccode"BD=0\uccode"BD=0 %% !!
\lccode"BD=0\uccode"BD=0 %% ??
%% count figures as letters!?
\lccode`0=`0
\lccode`1=`1
\lccode`2=`2
\lccode`3=`3
\lccode`4=`4
\lccode`5=`5
\lccode`6=`6
\lccode`7=`7
\lccode`8=`8
\lccode`9=`9
\lccode`==`=
\patterns{%
1^^301
1^^311
1^^321
1^^331
1^^341
1^^351
1^^361
1^^371
1^^381
1^^391
1<1
1=1
1>1
1a1
1b1
1c1
1d1
1e1
1f1
1g1
1h1
1i1
1j1
1k1
1l1
1m1
1n1
1o1
1p1
1q1
1r1
1s1
1t1
1u1
1v1
1w1
1x1
1y1
1z1
}
\patterns{%
%1^^9D1 %% Turkish dot I
1^^9E1 %% croatian \dj
%1^^9F1 %% \S
%
1^^a01
1^^a11
1^^a21
1^^a31
1^^a41
1^^a51
1^^a61
1^^a71
1^^a81
1^^a91
1^^aa1
1^^ab1
1^^ac1
1^^ad1
1^^ae1
1^^af1
%
1^^b01
1^^b11
1^^b21
1^^b31
1^^b41
1^^b51
1^^b61
1^^b71
1^^b81
1^^b91
1^^ba1
1^^bb1
1^^bc1
%1^^bd1 %% !!
%1^^be1 %% ??
%1^^bf1 %% pound
%
1^^e01
1^^e11
1^^e21
1^^e31
1^^e41
1^^e51
1^^e61
1^^e71
1^^e81
1^^e91
1^^ea1
1^^eb1
1^^ec1
1^^ed1
1^^ee1
1^^ef1
%
1^^f01
1^^f11
1^^f21
1^^f31
1^^f41
1^^f51
1^^f61
1^^f71
1^^f81
1^^f91
1^^fa1
1^^fb1
1^^fc1
1^^fd1
1^^fe1
1^^ff1
}
\endgroup
