%  Input-File EXOTEX.TEX (V 0.4) (c) Peter J. Olivier, Frankfurt 1988 
%  Letzte Aenderung: 8.8.88  (OL)    (auf Atari ST)            
%
%  Makropaket fuer "exotische" Sprachen.
%  Enthaelt bereits Definitionen von diakritischen Zeichen fuer folgende
%  Sprachen: Indogermanisch, Indisch (Vedisch und klassisches
%  Sanskrit, Mittelindisch, Pali, Neuindisch, Hindi u.a.), Altiranisch,
%  Tocharisch, Hethitisch, Orientalische Sprachen (Arabisch, Hebraeisch,
%  usw.), Altgermanisch (mit Islaendisch), Romanisch, Keltisch, Slavisch,
%  Baltisch, Armenisch, Albanisch, Griechisch uvm.  
%   
%  Definition des "ExoTeX"-Logos  (c) Peter J. Olivier, Frankfurt <--
%  -----------------------------
\def\ExoTeX{E\kern-.12em\lower.5ex\hbox{X}\kern-.2em\lower.5ex
    \hbox{O}\kern-.24em\TeX}
%
\font\csc=cmcsc10  
%
\def\amstex{$\cal A\kern-.1667em%
\lower.5ex\hbox{$\cal M$}\kern-.075emS$-\TeX{}} %  <== AMS-TeX-Logo
\def\latex{\LaTeX{}}      %  <==    LaTeX-Logo (leichter zu tippen!)
\def\tex{\TeX{}}          %  <==      TeX-Logo (    "     "    "   ) 
\def\exotex{\ExoTeX{}}    %  <==   ExoTeX-Logo (    "     "    "   )
\def\pctex{{\csc pc}\TeX{}}% <==    PCTeX-Logo (    "     "    "   )
\def\sttex{{\csc st}\TeX{}}% <==    STTeX-Logo (    "     "    "   )
\def\turbotex{Turbo\TeX{}}%  <== TurboTeX-Logo (    "     "    "   )
%\font\man=manual
%\def\MF{{\man META\-FONT{}}}%<== METAFONT-Logo (    "     "    "   ) 
%
\font\mitfiv=cmmi5 \font\mitsix=cmmi6 \font\mitsvn=cmmi7
\font\mitegt=cmmi8 % \font\mitnin=cmmi9
\font\mitten=cmmi10      %  ****** Math-Italic-Fonts <==
\font\itsvn=cmti7 \font\itegt=cmti8 \font\itnin=cmti9
\font\itten=cmti10       %  ****** Text-Italic-Fonts <==
\font\sfi=cmssi10        %  ****** Sans Serif-Font <==
\font\symegt=cmsy8       %  ****** Symbol-Font <==
%
\newdimen\hh
\hh=6.9444pt             
\newbox\alif     
\newbox\ayin
\setbox\alif=\hbox{{\mitten \char'055}}
\setbox\ayin=\hbox{{\mitten \char'054}}
\advance\hh by -\ht\alif
\def\){\leavevmode\kern+.1em \raise\hh \copy\alif}  % \) hamza (alif) <--
\def\({\leavevmode\kern+.1em \raise\hh \copy\ayin}  % \(  ayin      <--
%
%    *  andere Definition von "alef" und "ain":
\mathchardef\lhook="012C   \mathchardef\rhook="012D
\def\ain{\kern+1pt$\lhook$} \def\alef{\kern+1pt$\rhook$}  % <--
%
%
\def\rlap#1{\hbox to 0pt{#1\hss}}  % <--
%
\def\llap#1{\hbox to 0pt{\hss#1}}  % <--
%
%                                 
%        brv = Breve ueber Langvokal  <--
%
\def\brv#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0 by-1ex%
\rlap{\raise\dimen0\hbox{\char'25}}\box0{}}
%
\def\loka{\brv{\=a}}             % loka = Lang- oder Kurz-"a" <--
\def\loke{\brv{\=e}}             % loke = Lang- oder Kurz-"e" <--
\def\loki{\brv{\=\i}}            % loki = Lang- oder Kurz-"i" <--
\def\loko{\brv{\=o}}             % loko = Lang- oder Kurz-"o" <--
\def\loku{\brv{\=u}}             % loku = Lang- oder Kurz-"u" <--
%
%        "U" stellt Breve  u n t e r  ein Zeichen  <--
%
\def\U#1{\oalign{#1\crcr\hidewidth
   \kern-.4em \vbox to .2ex{\hbox{\char'25}\vss}\hidewidth}}
%
%   ist fuer "italic"  definiert!!  <--
%
\def\hu{\U{h}}  % "hu" fuer das hethitische "h"  <--
%
%        "lak" fuer Lang-Vokal Akut  <--
%
\def\lak#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0 by-1ex%
    \rlap{\raise\dimen0\hbox{\char'23}}\box0{}}
%
\def\laka{\lak{\=a}}          % laka = Laenge + Akut ueber "a" <--
\def\lake{\lak{\=e}}          % lake = Laenge + Akut ueber "e" <--
\def\laki{\lak{\={\i}}}       % laki = Laenge + Akut ueber "i" <--
\def\lako{\lak{\=o}}          % lako = Laenge + Akut ueber "o" <--
\def\laku{\lak{\=u}}          % laku = Laenge + Akut ueber "u" <--
%
%         "trak" fuer Trema-Vokal Akut  <--
%
\def\traka{\lak{\"a}}         % traka = Trema + Akut ueber "a" <--
\def\trake{\lak{\"e}}         % trake = Trema + Akut ueber "e" <--
\def\traki{\lak{\"{\i}}}      % traki = Trema + Akut ueber "i" <--
\def\trako{\lak{\"o}}         % trako = Trema + Akut ueber "o" <--
\def\traku{\lak{\"u}}         % traku = Trema + Akut ueber "u" <--
%
%         "lgr" fuer Lang-Vokal Gravis  <--
%
\def\lgr#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0 by-1ex%
    \rlap{\raise\dimen0\hbox{\char'22}}\box0{}}
%
\def\lgra{\lgr{\=a}}          % lgra = Laenge + Gravis ueber "a" <--
\def\lgre{\lgr{\=e}}          % lgre = Laenge + Gravis ueber "e" <--
\def\lgri{\lgr{\={\i}}}       % lgri = Laenge + Gravis ueber "i" <--
\def\lgro{\lgr{\=o}}          % lgro = Laenge + Gravis ueber "o" <--
\def\lgru{\lgr{\=u}}          % lgru = Laenge + gravis ueber "u" <--
%
%         "kak" fuer Kurz-Vokal Akut  <--
%
\def\kak#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0 by-1ex%
    \rlap{\raise\dimen0\hbox{\char'23}}\box0{}}
%
\def\kaka{\kak{\u{a}}}        % kaka = Kuerze + Akut ueber "a" <--
\def\kake{\kak{\u{e}}}        % kake = Kuerze + Akut ueber "e" <--
\def\kaki{\kak{\u{\i}}}       % kaki = Kuerze + Akut ueber "i" <--
\def\kako{\kak{\u{o}}}        % kako = Kuerze + Akut ueber "o" <--
\def\kaku{\kak{\u{u}}}        % kaku = Kuerze + Akut ueber "u" <--
%
%         "cand" fuer Candrabindu (Anunasika)  <--
%
\def\cand#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0%
  by-1ex\rlap{\raise\dimen0\hbox{\accent'137}}\box0{}}
\def\candm{\cand{\u{m}}}   %  <-- Candrabindu ueber m
\def\candn{\cand{\u{n}}}   %  <-- Candrabindu ueber n
% alle anderen entsprechend codieren !! <--  ist noch nicht so gut!
%
%         "kgr" fuer Kurz-Vokal Gravis  <--
%
\def\kgr#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0 by-1ex%
    \rlap{\raise\dimen0\hbox{\char'22}}\box0{}}
%
\def\kgra{\kgr{\u{a}}}        % kgra = Kuerze + Gravis ueber "a" <--
\def\kgre{\kgr{\u{e}}}        % kgre = Kuerze + Gravis ueber "e" <--
\def\kgri{\kgr{\u{\i}}}       % kgri = Kuerze + Gravis ueber "i" <--
\def\kgro{\kgr{\u{o}}}        % kgro = Kuerze + Gravis ueber "o" <--
\def\kgru{\kgr{\u{u}}}        % kgru = Kuerze + Gravis ueber "u" <--
%
%         "til" - Zirkumflex (Tilde) ueber Akzentzeichen  <--
%
\def\til#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0 by-1ex%
    \rlap{\raise\dimen0\hbox{\char'176}}\box0{}}
%
%         "kri" - Kringel (circle) ueber Akzentzeichen  <--
%
\def\kri#1{\leavevmode\setbox0=\hbox{#1}\dimen0=\ht0\advance\dimen0 by-1.1ex%
    \rlap{\kern-1.6pt\raise\dimen0\hbox{\char'27}}\box0{}}
%
%         "kru" - Kringel (circle) unter einem Buchstaben  <--
%
\def\kru#1{\oalign{#1\crcr\hidewidth
    \vbox to.2ex{\ifnum\fam=\itfam\hbox{\kern-1.8pt\char'27}
                    \else\hbox{\char'27}\fi\vss}\hidewidth}}
%
%         "dotu" - Punkt unter einem Buchstaben  <--
%
\def\dotu#1{\oalign{#1\crcr\hidewidth%
    \vbox to.2ex{\ifnum\fam=\itfam\hbox{\kern-1.8pt\char'56}
                    \else\hbox{\char'56}\fi\vss}\hidewidth}}
%
\def\anusv{\dotu{m}}   %  <-- Anusvara
\def\visarg{\dotu{h}}  %  <-- Visarga
%
%         "ro" fuer silbisch "r"  (desgleichen "R")  <--
%
\def\ro{\kru{r}}    \def\Ro{\kru{R}}  
%
%         "lo" fuer silbisch "l"  (desgleichen "L")  <--
%
\def\lo{\kru{l}}    \def\Lo{\kru{L}} 
%
%         "mo" fuer silbisch "m"  (desgleichen "M")  <--
%
\def\mo{\kru{m}}    \def\Mo{\kru{M}} 
%
%         "no" fuer silbisch "n"  (desgleichen "N")  <--
%
\def\no{\kru{n}}    \def\No{\kru{N}}
%
%         "bui" - "bar under italic" (z.B. fuer Fremdzeichen toch.) <--
%
\def\bui#1{\oalign{#1\crcr\hidewidth  
    \vbox to.2ex{\ifnum\fam=\itfam\hbox{\kern-2.5pt\char'26}
                   \else\hbox{\char'26}\fi\vss}\hidewidth}}
%
%         "ip" fuer Interpunktion tocharisch  <--
%
\def\ip{{\symegt \char'05}} 
%
%         "dip" fuer Doppel-Interpunktion toch.  <--
%
\newdimen\hx   
\newbox\dopp    \setbox\dopp=\hbox{{\symegt \char'05}}
\hx=\ht\dopp   \advance\hx by .1pt
\def\dip{\unhcopy\dopp \kern-\wd\dopp \raise\hx\copy\dopp}
%    
%         "dan" fuer einfachen Danda (senkr. Strich) <--
%
\def\dan{$\mid$}
%
%         "ddan" fuer Doppel-Danda (parallele Striche) <--
%
\def\ddan{$\parallel$}
%
%         "uw" fuer u-Halbvokal  <--
%
\def\uw{\oalign{{u}\crcr\hidewidth%
    \kern-.4em\vbox to .2ex{\hbox{{\mitegt \char'177}}\vss}\hidewidth}}
%
%         "huw" u-Halbvokal hochgestellt  <--
%
\def\huw{\raise.7ex\hbox{\oalign{{\mitsvn \char'165}\crcr\hidewidth%
    \kern-.4em\vbox to .2ex{\hbox{{\mitsix \char'177}}\vss}\hidewidth}}}
%
%         "fnuw" fuer u-Halbvokal in Fussnoten  <--
%
\def\fnuw{\oalign{{u}\crcr\hidewidth%
    \kern-.4em\vbox to .2ex{\hbox{{\mitsix \char'177}}\vss}\hidewidth}}
%
%         "fnhuw" u-Halbvokal in Fussnoten hochgestellt  <--
%
\def\fnhuw{$^{\fnuw}$}
%
%         "ij" fuer i-Halbvokal  <--
%
\def\ij{\oalign{{i}\crcr\hidewidth%
    \kern-.4em\vbox to .2ex{\hbox{{\mitegt \char'177}}\vss}\hidewidth}} 
%
%         "hij" i-Halbvokal hochgestellt  <--
%
\def\hij{\raise.7ex\hbox{\oalign{{\mitsvn \char'151}\crcr\hidewidth%
    \kern-.4em\vbox to .2ex{\hbox{{\mitsix \char'177}}\vss}\hidewidth}}}
%
%         "fnij" fuer i-Halbvokal in Fussnoten  <--
%
\def\fnij{\oalign{{i}\crcr\hidewidth%
    \kern-.4em\vbox to .2ex{\hbox{{\mitsix \char'177}}\vss}\hidewidth}}
%
%         "fnhij" i-Halbvokal in Fussnoten hochgestellt  <--
%
\def\fnhij{$^{\fnij}$}
%
%        "kc" Palatales k fuer "Indogermanisch"  <--
%
\def\kc{\leavevmode\setbox0=\hbox{k}\dimen0=\ht0%
 \advance\dimen0 by-1ex \rlap{\raise\dimen0\hbox{{\mitegt \char'177}}}\box0{}}
%
%        "gc" Palatales g fuer "Indogermanisch"  <--
%
\def\gc{\leavevmode\setbox0=\hbox{g}\dimen0=\ht0%
 \advance\dimen0 by-1ex \rlap{\raise\dimen0\hbox{{\mitegt \char'177}}}\box0{}}
%
%        "eh" (Schwa / Laryngal) fuer "Indogermanisch"  <--
%
%\def\eh{{\mitsix \char'100}}
\def\eh{\leavevmode\setbox0=\hbox{\mitsix \char'100}%
    \dimen0=\ht0\advance\dimen0 by-1ex%
       \rlap{\kern-1.1pt\raise\dimen0\hbox{ }}\box0{}}
%
%        "fneh" (Schwa / Laryngal) fuer Fussnoten  <--
%
\def\fneh{{\mitfiv \char'100}}
%
%        "leh" (Langes Schwa / Laryngal)  <--
%
\def\leh{\leavevmode\setbox0=\hbox{\mitsix \char'100}%
    \dimen0=\ht0\advance\dimen0 by-1ex%
       \rlap{\kern-1.1pt\raise\dimen0\hbox{\char'26}}\box0{}}
%
%        "fnleh" (Langes Schwa / Laryngal) fuer Fussnoten <--
%
\def\fnleh{\leavevmode\setbox0=\hbox{\mitfiv \char'100}%
    \dimen0=\ht0\advance\dimen0 by-1ex%
       \rlap{\kern-1.1pt\raise\dimen0\hbox{\char'26}}\box0{}}
%
%        "tilu" (Tilde unter Buchstaben)  <--
%
\def\tilu#1{\oalign{#1\crcr\hidewidth%
   \vbox to.2ex{\ifnum\fam=\itfam\hbox{\kern-1.8pt\char'176}
            \else\hbox{\char'176}\fi\vss}\hidewidth}}
%       
%        "scharfes s (sz)" (Umdefinition) <--       
%
\def\3{\ss{}}
%
%        "tschech. langes u"  <--
%
\def\uo{\accent'27u}
%
%        "cyrillisches Weichheitszeichen"  <--
%
   \def\wz{{\mitsvn \char'142}}
%
%        "cyrill. Weichheitszeichen fuer Fussnoten"  <--
%
\def\fnwz{{\mitfiv \char'142}}
%
%        "cyrillisches Haertezeichen"  <--  !!!
%
\setbox0=\hbox{{\mitsvn \char'142}}   % <-- geaendert !!!!!!!!
   \def\hz{{\itsvn \char'067\kern-.2em\copy0}}
%
%        "cyrill. Haertezeichen fuer Fussnoten"  <--
%
%     * der Font ist fuer beide char' mitfiv!
\setbox0=\hbox{\mitfiv \char'142}
   \def\fnhz{\raise.3ex\hbox{\mitfiv \char'067}{\hbox to 2pt{\kern-.2em{\copy0}}}}
% 
%   * noch zu definieren:  text-Greek, Cyrillic, usw.
%                          
%
\def\thorn{p\llap{b}}      % Thorn  <--
%
\def\vir{\oalign{~\crcr\hidewidth   % Virama <--
   \kern-.4em\vbox to.2ex{\hbox{\sfi \char'022}\vss}\hidewidth}}
%
\def\aevir{\oalign{{$^{\ddot a}$}\crcr\hidewidth  % Virama + ae <--
   \vbox to.2ex{\hbox{\sfi \char'022}\vss}\hidewidth}}
%
\def\og#1{\setbox0=\hbox{#1}\ifdim\ht0=1ex$_{\;_{\lhook}}$%
\llap{#1}\else{\ooalign{\hidewidth$_{\;_{\lhook}}$%
\hidewidth\crcr\unhbox0}}\fi}    % Ogonek <--
%
\def\skdj{d\kern-.45em\char'026}                % serbokroatisches dj <--
%
\def\skDj{D\kern-.83em\lower.47ex\hbox{\char'026}}% serbokroatisches Dj <--
%
\def\ng{{\it r\kern-.25em\j}}   % Gutturaler Nasal  <--
%
\def\hve{h\kern-.25emv}  %  <-- germanisches Hv
%
\def\zje{\lower.5ex\hbox{\char'063}}  % <-- germanisches 3
%
%   * vorlaeufiges Ende der Definitionen diakritischer Zeichen
%

