diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /language/typingtex/lehyphen.tex |
Initial commit
Diffstat (limited to 'language/typingtex/lehyphen.tex')
-rw-r--r-- | language/typingtex/lehyphen.tex | 170 |
1 files changed, 170 insertions, 0 deletions
diff --git a/language/typingtex/lehyphen.tex b/language/typingtex/lehyphen.tex new file mode 100644 index 0000000000..7f24b6a42c --- /dev/null +++ b/language/typingtex/lehyphen.tex @@ -0,0 +1,170 @@ + %%%% 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 |