trunk/Master/texmf-dist/tex/plain

git-svn-id: svn://tug.org/texlive/trunk@621 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 229 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/plain/armenian/arm.tex b/Master/texmf-dist/tex/plain/armenian/arm.tex
new file mode 100644
index 00000000000..bbc5700692b
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/armenian/arm.tex
@@ -0,0 +1,97 @@
+%% This file is a part of the ArmTeX 2.0
+%% [1999/06/01 v2.0 arm.tex (plain TeX input file for writing in Armenian)]
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+%% Making '@' letter.
+%%
+\catcode`\@=11
+
+
+%% Double input protection.
+%%
+\expandafter\ifx\csname ArmTeX@PlainLoaded\endcsname\relax
+\let\ArmTeX@PlainLoaded\null\else\endinput\fi
+
+
+%% Some auxilliary macros.
+%%
+\def\ArmTeX@Armtoday{\number\day~\ifcase\month\or
+  hunvari\or phetrvari\or marti\or aprili\or maisi\or hunisi\or
+  hulisi\or o'gostosi\or septemberi\or hoktemberi\or noyemberi\or
+  dektemberi\fi~\number\year th.}
+\def\ArmTeX@Armdischyph{\discretionary{\char123}{}{}}
+\let\ArmTeX@Savedexclam=\!
+\let\ArmTeX@Savedbar=\|
+\let\ArmTeX@Savedstar=\*
+\let\ArmTeX@Saveddischyph=\-
+\let\ArmTeX@Savedtoday=\today
+
+
+%% User macros.
+%%
+\def\armdate{\let\today\ArmTeX@Armtoday}
+\def\armhyph{\let\-\ArmTeX@Armdischyph
+             \let\@dischyph\ArmTeX@Armdischyph}
+\def\armdateoff{\let\today\ArmTeX@Savedtoday}
+\def\armhyphoff{\let\-\ArmTeX@Saveddischyph
+                \let\@dischyph\ArmTeX@Saveddischyph}
+\def\ArmTeX{{A\kern -0.08ex\raise 0.63ex\hbox{\smash{r}}\kern -0.22em%
+  \lower 0.43ex\hbox{m}\kern -0.16em\aroff\TeX}}
+\def\latArmTeX{{Arm\kern -0.15em\TeX}}
+
+\chardef\textbraceleft=94
+\chardef\textbraceright=95
+\chardef\textdollar=36
+\chardef\texthash=35
+\chardef\textpercent=37
+\chardef\textand=38
+\chardef\textexclam=126
+\chardef\textquestion=127
+\def\textanjgic{\leavevmode
+    \kern0.02em\vrule height0.4ex depth-0.25ex width0.8em\kern0.02em\relax}
+\def\textbreaklig{{\kern0pt}}
+\let\?\textquestion
+\def\*{\ifmmode\ArmTeX@Savedstar\else\textbreaklig\fi}
+\def\!{\ifmmode\ArmTeX@Savedexclam\else\textexclam\fi}
+\def\|{\ifmmode\ArmTeX@Savedbar\else\textanjgic\fi}
+\def\{{\ifmmode\lbrace\else\textbraceleft\relax\fi}
+\def\}{\ifmmode\rbrace\else\textbraceright\relax\fi}
+\def\vdots{\vbox{\baselineskip4\p@ \lineskiplimit\z@
+  \kern6\p@\hbox{$\ldotp$}\hbox{$\ldotp$}\hbox{$\ldotp$}}}
+\def\ddots{\mathinner{\mkern1mu\raise7\p@
+  \vbox{\kern7\p@\hbox{$\ldotp$}}\mkern2mu
+  \raise4\p@\hbox{$\ldotp$}\mkern2mu\raise\p@\hbox{$\ldotp$}\mkern1mu}}
+
+
+%% Font changing macros.
+%%
+\let\arofffont=\rm
+\def\aroff{\armdateoff\armhyphoff\arofffont}
+
+\def\ArmTeX@DeclarePlainFont#1#2#3{%
+\font#1=#2
+\hyphenchar #1=-1
+\def#3{\armdate\armhyph #1}}
+
+\ArmTeX@DeclarePlainFont{\tenartmrm}{artmr10}{\artm}
+\ArmTeX@DeclarePlainFont{\tenartmbf}{artmb10}{\artmbf}
+\ArmTeX@DeclarePlainFont{\tenartmsl}{artmsl10}{\artmsl}
+\ArmTeX@DeclarePlainFont{\tenartmbfsl}{artmbs10}{\artmbfsl}
+\ArmTeX@DeclarePlainFont{\tenartmit}{artmi10}{\artmit}
+\ArmTeX@DeclarePlainFont{\tenartmbfit}{artmbi10}{\artmbfit}
+\ArmTeX@DeclarePlainFont{\tenarssrm}{arssr10}{\arss}
+\ArmTeX@DeclarePlainFont{\tenarsssl}{arsssl10}{\arsssl}
+\ArmTeX@DeclarePlainFont{\tenarssbf}{arssb10}{\arssbf}
+\ArmTeX@DeclarePlainFont{\tenarssbfsl}{arssbs10}{\arssbfsl}
+
+
+%% Making '@' other.
+%%
+\catcode`\@=12
+
+
+%% That's all, Folks!
+%%
+\endinput
diff --git a/Master/texmf-dist/tex/plain/armenian/kbdencod.tex b/Master/texmf-dist/tex/plain/armenian/kbdencod.tex
new file mode 100644
index 00000000000..6b315b3f909
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/armenian/kbdencod.tex
@@ -0,0 +1,132 @@
+%% This file is a part of the ArmTeX 2.0
+%% [1999/06/01 v2.0 kbdencod.tex (ArmSCII8 input encoding for plain)]
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+%% Begining of the code.
+%%
+\def\DeclareInputText#1#2{%
+   \bgroup
+      \uccode`\~#1%
+      \uppercase{%
+   \egroup
+      \catcode`~=13
+      \def~%
+   }{#2}
+}
+
+
+%% Upper-case letters.
+%%
+\DeclareInputText{178}{A}%              Upper-case A  (Ayb)   letter.
+\DeclareInputText{180}{B}%              Upper-case B  (Ben)   letter.
+\DeclareInputText{182}{G}%              Upper-case G  (Gim)   letter.
+\DeclareInputText{184}{D}%              Upper-case D  (Da)    letter.
+\DeclareInputText{186}{E}%              Upper-case E  (Ech)   letter.
+\DeclareInputText{188}{Z}%              Upper-case Z  (Za)    letter.
+\DeclareInputText{190}{E'}%             Upper-case E' (E')    letter.
+\DeclareInputText{192}{U'}%             Upper-case U' (U'th)  letter.
+\DeclareInputText{194}{TH}%             Upper-case TH (Tho)   letter.
+\DeclareInputText{196}{G'}%             Upper-case G' (G'e)   letter.
+\DeclareInputText{198}{I}%              Upper-case I  (Ini)   letter.
+\DeclareInputText{200}{L}%              Upper-case L  (Lyun)  letter.
+\DeclareInputText{202}{X}%              Upper-case X  (Xe)    letter.
+\DeclareInputText{204}{C'}%             Upper-case C' (C'a)   letter.
+\DeclareInputText{206}{K}%              Upper-case K  (Ken)   letter.
+\DeclareInputText{208}{H}%              Upper-case H  (Ho)    letter.
+\DeclareInputText{210}{DZ}%             Upper-case DZ (Dza)   letter.
+\DeclareInputText{212}{GH}%             Upper-case GH (Ghat)  letter.
+\DeclareInputText{214}{J'}%             Upper-case J' (J'e)   letter.
+\DeclareInputText{216}{M}%              Upper-case M  (Men)   letter.
+\DeclareInputText{218}{Y}%              Upper-case Y  (Hi)    letter.
+\DeclareInputText{220}{N}%              Upper-case N  (Nu)    letter.
+\DeclareInputText{222}{SH}%             Upper-case SH (Sha)   letter.
+\DeclareInputText{224}{O}%              Upper-case O  (O)     letter.
+\DeclareInputText{226}{CH}%             Upper-case CH (Cha)   letter.
+\DeclareInputText{228}{P}%              Upper-case P  (Pe)    letter.
+\DeclareInputText{230}{J}%              Upper-case J  (Je)    letter.
+\DeclareInputText{232}{R'}%             Upper-case R' (R'a)   letter.
+\DeclareInputText{234}{S}%              Upper-case S  (Se)    letter.
+\DeclareInputText{236}{V}%              Upper-case V  (Vev)   letter.
+\DeclareInputText{238}{T}%              Upper-case T  (Tyun)  letter.
+\DeclareInputText{240}{R}%              Upper-case R  (Re)    letter.
+\DeclareInputText{242}{C}%              Upper-case C  (Co)    letter.
+\DeclareInputText{244}{W}%              Upper-case W  (Vyun)  letter.
+\DeclareInputText{246}{PH}%             Upper-case PH (Phyur) letter.
+\DeclareInputText{248}{Q}%              Upper-case Q  (Qe)    letter.
+\DeclareInputText{250}{O'}%             Upper-case O' (O')    letter.
+\DeclareInputText{252}{F}%              Upper-case F  (Fe)    letter.
+
+
+%% Lower-case letters.
+%%
+\DeclareInputText{179}{a}%              Lower-case a  (ayb)   letter.
+\DeclareInputText{181}{b}%              Lower-case b  (ben)   letter.
+\DeclareInputText{183}{g}%              Lower-case g  (gim)   letter.
+\DeclareInputText{185}{d}%              Lower-case d  (da)    letter.
+\DeclareInputText{187}{e}%              Lower-case e  (ech)   letter.
+\DeclareInputText{189}{z}%              Lower-case z  (za)    letter.
+\DeclareInputText{191}{e'}%             Lower-case e' (e')    letter.
+\DeclareInputText{193}{u'}%             Lower-case u' (u'th)  letter.
+\DeclareInputText{195}{th}%             Lower-case th (tho)   letter.
+\DeclareInputText{197}{g'}%             Lower-case g' (g'e)   letter.
+\DeclareInputText{199}{i}%              Lower-case i  (ini)   letter.
+\DeclareInputText{201}{l}%              Lower-case l  (lyun)  letter.
+\DeclareInputText{203}{x}%              Lower-case x  (xe)    letter.
+\DeclareInputText{205}{c'}%             Lower-case c' (c'a)   letter.
+\DeclareInputText{207}{k}%              Lower-case k  (ken)   letter.
+\DeclareInputText{209}{h}%              Lower-case h  (ho)    letter.
+\DeclareInputText{211}{dz}%             Lower-case dz (dza)   letter.
+\DeclareInputText{213}{gh}%             Lower-case gh (ghat)  letter.
+\DeclareInputText{215}{j'}%             Lower-case j' (j'e)   letter.
+\DeclareInputText{217}{m}%              Lower-case m  (men)   letter.
+\DeclareInputText{219}{y}%              Lower-case y  (hi)    letter.
+\DeclareInputText{221}{n}%              Lower-case n  (nu)    letter.
+\DeclareInputText{223}{sh}%             Lower-case sh (sha)   letter.
+\DeclareInputText{225}{o}%              Lower-case o  (o)     letter.
+\DeclareInputText{227}{ch}%             Lower-case ch (cha)   letter.
+\DeclareInputText{229}{p}%              Lower-case p  (pe)    letter.
+\DeclareInputText{231}{j}%              Lower-case j  (je)    letter.
+\DeclareInputText{233}{r'}%             Lower-case r' (r'a)   letter.
+\DeclareInputText{235}{s}%              Lower-case s  (se)    letter.
+\DeclareInputText{237}{v}%              Lower-case v  (vev)   letter.
+\DeclareInputText{239}{t}%              Lower-case t  (tyun)  letter.
+\DeclareInputText{241}{r}%              Lower-case r  (re)    letter.
+\DeclareInputText{243}{c}%              Lower-case c  (co)    letter.
+\DeclareInputText{245}{w}%              Lower-case w  (vyun)  letter.
+\DeclareInputText{247}{ph}%             Lower-case ph (phyur) letter.
+\DeclareInputText{249}{q}%              Lower-case q  (ge)    letter.
+\DeclareInputText{251}{o'}%             Lower-case o' (o')    letter.
+\DeclareInputText{253}{f}%              Lower-case f  (fe)    letter.
+
+
+%% Miscelanious Symbols.
+%%
+% Commenting following line, since there is no eternity symbol available.
+% \DeclareInputText{161}{}%             Eternity sign (armeternity)
+\DeclareInputText{162}{\S}%             Section sign (armsection)
+\DeclareInputText{163}{:}%              Verjaket (armfullstop)
+\DeclareInputText{164}{)}%              Aj phakagic' (armparenright)
+\DeclareInputText{165}{(}%              Dzax phakagic' (armparenleft)
+\DeclareInputText{166}{>>}%             Aj chakert (armquotright)
+\DeclareInputText{167}{<<}%             Dzax chakert(armquotleft)
+\DeclareInputText{168}{\textanjgic}%     Anjatman gic' (armemdash)
+\DeclareInputText{169}{.}%              Mijaket (armdot)
+\DeclareInputText{170}{`}%              Buth (armsep)
+\DeclareInputText{171}{,}%              Storaket (armcoma)
+\DeclareInputText{172}{-}%              Miuthyan gc'ik (armendash)
+\DeclareInputText{173}{--}%             Toghadardzi nshan (armyentamna)
+\DeclareInputText{174}{...}%            Kaxman keter (armellipsis)
+\DeclareInputText{175}{!}%              Bacakanchakan nshan (armexclam)
+\DeclareInputText{176}{|}%              Shesht (armaccent)
+\DeclareInputText{177}{?}%              Harcakan nshan (armquestion)
+\DeclareInputText{254}{'}%              Apatharc (armapostrophe)
+% Coding "Apatharc" as 255 (except as 254), since it can
+% be found in that position in many ArmSCII8 fonts.
+\DeclareInputText{255}{'}%              Apatharc (armapostrophe)
+
+
+%% That's all, Folks!
+%%
+\endinput