From 48392e94c2677db718afb8e28a58d42e385a6019 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:52:43 +0000 Subject: casyl git-svn-id: svn://tug.org/texlive/trunk@739 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/casyl/casyltex.sty | 107 +++++++++++++++++++++++++ 1 file changed, 107 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/casyl/casyltex.sty (limited to 'Master/texmf-dist/tex') 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}} -- cgit v1.2.3