summaryrefslogtreecommitdiff
path: root/language/typingtex/lehyphen.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /language/typingtex/lehyphen.tex
Initial commit
Diffstat (limited to 'language/typingtex/lehyphen.tex')
-rw-r--r--language/typingtex/lehyphen.tex170
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