% 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 %