summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/casyl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:52:43 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:52:43 +0000
commit48392e94c2677db718afb8e28a58d42e385a6019 (patch)
treeddb715ee7e87d5de2eb27fc42f28b2d715556c7e /Master/texmf-dist/tex/latex/casyl
parent1eac51abebfe200d850284bf921c8012083ff2f9 (diff)
casyl
git-svn-id: svn://tug.org/texlive/trunk@739 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/casyl')
-rw-r--r--Master/texmf-dist/tex/latex/casyl/casyltex.sty107
1 files changed, 107 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/casyl/casyltex.sty b/Master/texmf-dist/tex/latex/casyl/casyltex.sty
new file mode 100644
index 00000000000..ad474b53f53
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/casyl/casyltex.sty
@@ -0,0 +1,107 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% casyltex.sty (CASylTeX: Macros for Cree/Inuktitut)
+% 22 February 1999
+% Version 1.00
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Ivan A Derzhanski
+% Department of Mathematical Linguistics
+% Institute for Mathematics and Computer Science
+% Bulgarian Academy of Sciences
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def \CASylTeX {C{\sc a}Syl\TeX }
+
+\font \syll@fount=casyll10
+
+\newcount \s@ll
+\newcount \w@ll
+\newcount \z@ll
+\newcount \r@
+\def \Rone {\r@=114} \Rone
+\def \Rtwo {\r@=123}
+\def \Zone {\z@ll=0} \Zone
+\def \Ztwo {\z@ll=32}
+
+\def \syll@write {%
+ \ifnum \s@ll=96%
+ \ifnum \w@ll=1w\fi
+ \else \ifnum 128>\s@ll \advance \s@ll by-\z@ll \fi
+ \symbol {\s@ll }%
+ \ifnum \w@ll=1W\fi
+ \fi
+ \s@ll=96\w@ll=0}
+
+\def \syll@long {%
+ \symbol {\s@ll}\llap'%
+ \ifnum \w@ll=1W\fi
+ \s@ll=96\w@ll=0}
+
+\expandafter \def \csname syll@'\endcsname {%
+ \ifnum \s@ll=96%
+ \ifnum \w@ll=1w\w@ll=0\fi
+ \else \syll@long
+ \fi }
+
+\def \syll@A {\advance \s@ll by32\syll@long }
+\def \syll@E {\advance \s@ll by64\syll@long }
+\def \syll@I {\advance \s@ll by96\syll@long }
+\def \syll@O {\advance \s@ll by128\syll@long }
+\def \syll@U {\advance \s@ll by128\syll@long }
+
+\def \syll@a {\advance \s@ll by32}
+\def \syll@e {\advance \s@ll by64}
+\def \syll@i {\advance \s@ll by96}
+\def \syll@o {\advance \s@ll by128}
+\def \syll@u {\advance \s@ll by128}
+
+\def \syll@c {\syll@write \s@ll=99}
+\def \syll@g {\syll@write \s@ll=99}
+\def \syll@j {\syll@write \s@ll=121}
+\def \syll@k {\syll@write \s@ll=107}
+\def \syll@l {\syll@write \s@ll=108}
+\def \syll@m {\syll@write \s@ll=109}
+\def \syll@n {\syll@write \s@ll=110}
+\def \syll@p {\syll@write \s@ll=112}
+\def \syll@q {%
+ \syll@write
+ \s@ll=\r@ \advance \s@ll by-\z@ll
+ \symbol {\s@ll}\s@ll=107}
+\def \syll@r {\syll@write \s@ll=\r@ }
+\def \syll@R {\syll@write \ifnum \r@=114\s@ll=123\else \s@ll=114\fi }
+\def \syll@s {\syll@write \s@ll=115}
+\def \syll@t {\syll@write \s@ll=116}
+\def \syll@v {\syll@write \s@ll=118}
+\def \syll@y {\syll@write \s@ll=121}
+\def \syll@L {\syll@write \s@ll=124}
+\def \syll@S {\syll@write \s@ll=125}
+\def \syll@T {\syll@write \s@ll=126}
+
+\def \syll@h {\syll@write h}
+\def \syll@N {\syll@write
+ \s@ll=110\advance \s@ll by-\z@ll \raise .24ex\hbox {\symbol {\s@ll}}%
+\kern-.15em%
+ \s@ll=99 \advance \s@ll by-\z@ll \lower .24ex\hbox {\symbol {\s@ll}}%
+ \s@ll=96}
+\def \syll@w {%
+ \ifnum 127<\s@ll \syll@write \fi
+ \w@ll=1}
+
+\long \def \@syll #1{%
+ \ifx #1\end \syll@write \let \next \end
+ \else \ifcat \noexpand #1\par
+ \syll@write #1\def \next {\futurelet \n@xt \@syll }%
+ \else \ifx \@sptoken \n@xt
+ \syll@write \relax \space \s@ll=96\w@ll=0\fi
+ \csname syll@#1\endcsname
+ \def \next {\futurelet \n@xt \@syll }%
+ \fi\fi \next }
+
+\def \syllab {% Cree/Inuktitut environment
+ \syll@fount
+ \s@ll=96%
+ \w@ll=0%
+ \@syll }
+
+\def \endsyllab {}
+
+\def \sylla #1{\begin{syllab}#1\end{syllab}}