% sanskrit.otp
%
% Omega Translation Process for Sanskrit transliteration and Western
% European characters from Unicode to TeX macros
%
% Author: Stefan Baums <baums@u.washington.edu>
%
% Version 1.0 (first public release) 12 February 2002

expressions:

% Sanskrit part:

@"00e1          => "\'{a}";             % á
@"00c1          => "\'{A}";             % Á
@"00e0          => "\`{a}";             % à
@"00c0          => "\`{A}";             % À
@"0101 @"0301   => "\textacutemacron{a}"; % ā́
@"0100 @"0301   => "\textacutemacron{A}"; % Ā́
@"0101 @"0300   => "\textgravemacron{a}"; % ā̀
@"0100 @"0300   => "\textgravemacron{A}"; % Ā̀
@"00ed          => "\'{\i}";            % í
@"00cd          => "\'{I}";             % Í
@"00ec          => "\`{\i}";            % ì
@"00cc          => "\`{I}";             % Ì
@"012b @"0301   => "\textacutemacron{\i}"; % ī́
@"012a @"0301   => "\textgravemacron{I}"; % Ī̀
@"012b @"0300   => "\textacutemacron{\i}"; % ī́
@"012a @"0300   => "\textgravemacron{I}"; % Ī̀
@"00fa          => "\'{u}";             % ú
@"00da          => "\'{U}";             % Ú
@"00f9          => "\`{u}";             % ù
@"00d9          => "\`{U}";             % Ù
@"016b @"0301   => "\textacutemacron{u}"; % ū́
@"016a @"0301   => "\textacutemacron{U}"; % Ū́
@"016b @"0300   => "\textgravemacron{u}"; % ū̀
@"016a @"0300   => "\textgravemacron{U}"; % Ū̀
@"1e5b @"0301   => "\diatop[\'|\d{r}]";   % ṛ́
@"1e5a @"0301   => "\diatop[\'|\d{R}]";   % Ṛ́
@"1e5b @"0300   => "\diatop[\`|\d{r}]";   % ṛ̀
@"1e5a @"0300   => "\diatop[\`|\d{R}]";   % Ṛ̀
@"1e5d @"0301   => "\Loweraccent{\d}{\textacutemacron{r}}"; % ṝ́
@"1e5c @"0301   => "\Loweraccent{\d}{\textacutemacron{R}}"; % Ṝ́
@"1e5d @"0300   => "\Loweraccent{\d}{\textgravemacron{r}}"; % ṝ̀
@"1e5c @"0300   => "\Loweraccent{\d}{\textgravemacron{R}}"; % Ṝ̀
@"1e37 @"0301   => "\diatop[\'|\d{l}]";   % ḷ́
@"1e36 @"0301   => "\diatop[\'|\d{L}]";   % Ḷ́
@"1e37 @"0300   => "\diatop[\`|\d{l}]";   % ḷ̀
@"1e36 @"0300   => "\diatop[\`|\d{L}]";   % Ḷ̀
@"1e39 @"0301   => "\Loweraccent{\d}{\textacutemacron{l}}"; % ḹ́
@"1e38 @"0301   => "\Loweraccent{\d}{\textacutemacron{L}}"; % Ḹ́
@"1e39 @"0300   => "\Loweraccent{\d}{\textgravemacron{l}}"; % ḹ̀
@"1e38 @"0300   => "\Loweraccent{\d}{\textgravemacron{L}}"; % Ḹ̀
@"00e9          => "\'{e}";             % é
@"00c9          => "\'{E}";             % É
@"00e8          => "\`{e}";             % è
@"00c8          => "\`{E}";             % È
@"00f3          => "\'{o}";             % ó
@"00d3          => "\'{O}";             % Ó
@"00f2          => "\`{o}";             % ò
@"00d2          => "\`{O}";             % Ò

@"0101          => "\={a}";             % ā
@"0100          => "\={A}";             % Ā
@"012b          => "\={\i}";            % ī
@"012a          => "\={I}";             % Ī
@"016b          => "\=u";               % ū
@"016a          => "\=U";               % Ū
@"1e5b          => "\d{r}";             % ṛ
@"1e5a          => "\d{R}";             % Ṛ
@"1e5d          => "\diatop[\=|\d{r}]"; % ṝ
@"1e5c          => "\diatop[\=|\d{R}]"; % Ṝ
@"1e37          => "\d{l}";             % ḷ
@"1e36          => "\d{L}";             % Ḷ
@"1e39          => "\diatop[\=|\d{l}]"; % ḹ
@"1e38          => "\diatop[\=|\d{L}]"; % Ḹ

@"1e43          => "\d{m}";             % ṃ
@"1e42          => "\d{M}";             % Ṃ
@"1e41          => "\.{m}";             % ṁ
@"1e40          => "\.{M}";             % Ṁ
@"1e25          => "\d{h}";             % ḥ
@"1e24          => "\d{H}";             % Ḥ
@"1e96          => "\textsubbar{h}";    % ẖ
`H' @"0331      => "\textsubbar{H}";    % H̱
@"1e2b          => "\tipaloweraccent[.3ex]{'10}{h}"; % ḫ
@"1e2a          => "\tipaloweraccent[.3ex]{'10}{H}"; % Ḫ

@"1e45          => "\.{n}";             % ṅ
@"1e44          => "\.{N}";             % Ṅ
@"00f1          => "\~{n}";             % ñ
@"00d1          => "\~N";               % Ñ
@"1e6d          => "\d{t}";             % ṭ
@"1e6c          => "\d{T}";             % Ṭ
@"1e0d          => "\d{d}";             % ḍ
@"1e0c          => "\d{D}";             % Ḍ
@"1e47          => "\d{n}";             % ṇ
@"1e46          => "\d{N}";             % Ṇ
@"015b          => "\'s";               % ś
@"015a          => "\'S";               % Ś
@"1e63          => "\d{s}";             % ṣ
@"1e62          => "\d{S}";             % Ṣ


% Western European part (completes coverage of ISO 8859‐1 letters plus
% œ Œ with the exception of þ Þ ð Ð)

@"00e2          => "\^{a}";             % â
@"00c2          => "\^{A}";             % Â
@"00e3          => "\~{a}";             % ã
@"00c3          => "\~{A}";             % Ã
@"00e4          => `\' `"' `{' `a' `}'; % ä
@"00c4          => `\' `"' `{' `A' `}'; % Ä
@"00e6          => "\ae{}";             % æ
@"00c6          => "\AE{}";             % Æ
@"00e5          => "\aa{}";             % å
@"00c5          => "\AA{}";             % Å
@"00e7          => "\c{c}";             % ç
@"00c7          => "\c{C}";             % Ç
@"00ea          => "\^{e}";             % ê
@"00ca          => "\^{E}";             % Ê
@"00eb          => `\' `"' `{' `e' `}'; % ë
@"00cb          => `\' `"' `{' `E' `}'; % Ë
@"00ee          => "\^{\i}";            % î
@"00ce          => "\^{I}";             % Î
@"00ef          => `\' `"' `{' `\' `i' `}'; % ï
@"00cf          => `\' `"' `{' `I' `}'; % Ï
@"00f4          => "\^{o}";             % ô
@"00d4          => "\^{O}";             % Ô
@"00f5          => "\~{o}";             % õ
@"00d5          => "\~{O}";             % Õ
@"00f6          => `\' `"' `{' `o' `}'; % ö
@"00d6          => `\' `"' `{' `O' `}'; % Ö
@"00f8          => "\o{}";              % ø
@"00d8          => "\O{}";              % Ø
@"0153          => "\oe{}";             % œ
@"0152          => "\OE{}";             % Œ
@"00df          => "\ss{}";             % ß
@"00fb          => "\^{u}";             % û
@"00db          => "\^{U}";             % Û
@"00fc          => `\' `"' `{' `u' `}'; % ü
@"00dc          => `\' `"' `{' `U' `}'; % Ü
@"00fd          => "\'{y}";             % ý
@"00dd          => "\'{Y}";             % Ý
@"00dc          => `\' `"' `{' `y' `}'; % ÿ

% Punctuation part

@"2010          => "-";                 % ‐
@"2013          => "--";                % –
@"2014          => "---";               % —
@"2212          => "$-$";               % −
@"2018          => "`";                 % ‘
@"2019          => "'";                 % ’
@"201a          => ",";                 % ‚
@"201c          => "``";                % “
@"201d          => "''";                % ”
@"201e          => "\glqq{}";           % „
@"00ab @"00a0   => "\og{}";             % « (French)
@"00a0 @"00bb   => "\fg{}";             % » (French)

% Weird part (for reasons I can't fathom Omega gives me an error
% message without the following)

@"0026          => "\&";                % &