summaryrefslogtreecommitdiff
path: root/macros/latex/exptl/mem/Mtp/ula-com.mtp
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/exptl/mem/Mtp/ula-com.mtp')
-rw-r--r--macros/latex/exptl/mem/Mtp/ula-com.mtp137
1 files changed, 137 insertions, 0 deletions
diff --git a/macros/latex/exptl/mem/Mtp/ula-com.mtp b/macros/latex/exptl/mem/Mtp/ula-com.mtp
new file mode 100644
index 0000000000..d18ce54225
--- /dev/null
+++ b/macros/latex/exptl/mem/Mtp/ula-com.mtp
@@ -0,0 +1,137 @@
+% (c) 2001-2004 Javier Bezos
+
+input: 2;
+output: 1;
+
+states: acc, end;
+
+aliases:
+
+topaccent = (@"0300-@"0315 | @"031A-@"031B | @"033D-@"0344);
+botaccent = (@"0316-@"0319 | @"031C-@"0333 | @"0339-@"033C | @"0345);
+overaccent = (@"0334-@"0338);
+accent = (@"0300-@"0345);
+
+expressions:
+
+
+
+% Combine if composed form not in main font
+
+^({accent}) {topaccent} {topaccent} {accent} => <=
+ \4 "c{" \3 "c{" \2 "l{" \1 "}}}" @"1B <push: acc>;
+^({accent}) {topaccent} {botaccent} {topaccent} => <=
+ \3 "c{" \4 "c{" \2 "l{" \1 "}}}" @"1B <push: acc>;
+^({accent}) {botaccent} {topaccent} {topaccent} => <=
+ \2 "c{" \4 "c{" \3 "l{" \1 "}}}" @"1B <push: acc>;
+^({accent}) {topaccent} {accent} => <=
+ \3 "c{" \2 "l{" \1 "}}" @"1B <push: acc>;
+^({accent}) {botaccent} {topaccent} => <=
+ \2 "c{" \3 "l{" \1 "}}" @"1B <push: acc>;
+^({accent}) {accent} => <=
+ \2 "l{" \1 "}" @"1B <push: acc>;
+
+<acc> @"1B => <pop:>;
+<acc>[COMBINING GRAVE ACCENT] => "\UseMemAccent{t}{768}";
+<acc>[COMBINING GRAVE ACCENT BELOW] => "\UseMemAccent{u}{768}";
+<acc>[COMBINING ACUTE ACCENT] => "\UseMemAccent{t}{769}";
+<acc>[COMBINING ACUTE ACCENT BELOW] => "\UseMemAccent{u}{769}";
+<acc>[COMBINING CIRCUMFLEX ACCENT] => "\UseMemAccent{t}{770}";
+<acc>[COMBINING CIRCUMFLEX ACCENT BELOW] => "\UseMemAccent{u}{770}";
+<acc>[COMBINING TILDE] => "\UseMemAccent{t}{771}";
+<acc>[COMBINING TILDE BELOW] => "\UseMemAccent{u}{771}";
+<acc>[COMBINING MACRON] => "\UseMemAccent{t}{772}";
+<acc>[COMBINING MACRON BELOW] => "\UseMemAccent{u}{772}";
+<acc>[COMBINING OVERLINE] => "\UseMemAccent{t}{773}";
+<acc>[COMBINING BREVE] => "\UseMemAccent{t}{774}";
+<acc>[COMBINING BREVE BELOW] => "\UseMemAccent{u}{774}";
+<acc>[COMBINING DOT ABOVE] => "\UseMemAccent{t}{775}";
+<acc>[COMBINING DOT BELOW] => "\UseMemAccent{u}{775}";
+<acc>[COMBINING DIAERESIS] => "\UseMemAccent{t}{776}";
+<acc>[COMBINING DIAERESIS BELOW] => "\UseMemAccent{u}{776}";
+<acc>[COMBINING HOOK ABOVE] => "\UseMemAccent{t}{777}";
+<acc>[COMBINING RING ABOVE] => "\UseMemAccent{t}{778}";
+<acc>[COMBINING RING BELOW] => "\UseMemAccent{u}{778}";
+<acc>[COMBINING DOUBLE ACUTE ACCENT] => "\UseMemAccent{t}{779}";
+<acc>[COMBINING CARON] => "\UseMemAccent{t}{780}";
+<acc>[COMBINING CARON BELOW] => "\UseMemAccent{u}{780}";
+<acc>[COMBINING VERTICAL LINE ABOVE] => "\UseMemAccent{t}{781}";
+<acc>[COMBINING DOUBLE VERTICAL LINE ABOVE] => "\UseMemAccent{t}{782}";
+<acc>[COMBINING DOUBLE GRAVE ACCENT] => "\UseMemAccent{t}{783}";
+<acc>[COMBINING CANDRABINDU] => "\UseMemAccent{t}{784}";
+<acc>[COMBINING INVERTED BREVE] => "\UseMemAccent{t}{785}";
+<acc>[COMBINING TURNED COMMA ABOVE] => "\UseMemAccent{t}{786}";
+<acc>[COMBINING COMMA ABOVE] => "\UseMemAccent{t}{787}";
+<acc>[COMBINING REVERSED COMMA ABOVE] => "\UseMemAccent{t}{788}";
+<acc>[COMBINING GRAVE ACCENT BELOW] => "\UseMemAccent{b}{790}";
+<acc>[COMBINING ACUTE ACCENT BELOW] => "\UseMemAccent{b}{791}";
+<acc>[COMBINING LEFT TACK BELOW] => "\UseMemAccent{b}{792}";
+<acc>[COMBINING RIGHT TACK BELOW] => "\UseMemAccent{b}{793}";
+<acc>[COMBINING LEFT HALF RING BELOW] => "\UseMemAccent{b}{796}";
+<acc>[COMBINING UP TACK BELOW] => "\UseMemAccent{b}{797}";
+<acc>[COMBINING DOWN TACK BELOW] => "\UseMemAccent{b}{798}";
+<acc>[COMBINING PLUS SIGN BELOW] => "\UseMemAccent{b}{799}";
+<acc>[COMBINING MINUS SIGN BELOW] => "\UseMemAccent{b}{800}";
+<acc>[COMBINING DOT BELOW] => "\UseMemAccent{b}{803}";
+<acc>[COMBINING DIAERESIS BELOW] => "\UseMemAccent{b}{804}";
+<acc>[COMBINING RING BELOW] => "\UseMemAccent{b}{805}";
+<acc>[COMBINING COMMA BELOW] => "\UseMemAccent{b}{806}";
+<acc>[COMBINING CEDILLA] => "\UseMemAccent{c}{807}";
+<acc>[COMBINING OGONEK] => "\UseMemAccent{k}{808}";
+<acc>[COMBINING VERTICAL LINE BELOW] => "\UseMemAccent{b}{809}";
+<acc>[COMBINING BRIDGE BELOW] => "\UseMemAccent{b}{810}";
+<acc>[COMBINING INVERTED DOUBLE ARCH BELOW] => "\UseMemAccent{b}{811}";
+<acc>[COMBINING CARON BELOW] => "\UseMemAccent{b}{812}";
+<acc>[COMBINING CIRCUMFLEX ACCENT BELOW] => "\UseMemAccent{b}{813}";
+<acc>[COMBINING BREVE BELOW] => "\UseMemAccent{b}{814}";
+<acc>[COMBINING INVERTED BREVE BELOW] => "\UseMemAccent{b}{815}";
+<acc>[COMBINING TILDE BELOW] => "\UseMemAccent{b}{816}";
+<acc>[COMBINING MACRON BELOW] => "\UseMemAccent{b}{817}";
+<acc>[COMBINING LOW LINE] => "\UseMemAccent{b}{818}";
+<acc>[COMBINING DOUBLE LOW LINE] => "\UseMemAccent{b}{819}";
+<acc>[COMBINING RIGHT HALF RING BELOW] => "\UseMemAccent{b}{825}";
+<acc>[COMBINING INVERTED BRIDGE BELOW] => "\UseMemAccent{b}{826}";
+<acc>[COMBINING SQUARE BELOW] => "\UseMemAccent{b}{827}";
+<acc>[COMBINING SEAGULL BELOW] => "\UseMemAccent{b}{828}";
+<acc>[COMBINING X ABOVE] => "\UseMemAccent{t}{829}";
+<acc>[COMBINING VERTICAL TILDE] => "\UseMemAccent{t}{830}";
+<acc>[COMBINING DOUBLE OVERLINE] => "\UseMemAccent{t}{831}";
+<acc>[COMBINING GRAVE TONE MARK] => "\UseMemAccent{t}{832}";
+<acc>[COMBINING ACUTE TONE MARK] => "\UseMemAccent{t}{833}";
+<acc>[COMBINING GREEK PERISPOMENI] => "\UseMemAccent{t}{834}";
+<acc>[COMBINING GREEK KORONIS] => "\UseMemAccent{t}{835}";
+<acc>[COMBINING GREEK DIALYTIKA TONOS] => "\UseMemAccent{t}{836}";
+<acc>[COMBINING BRIDGE ABOVE] => "\UseMemAccent{t}{838}";
+<acc>[COMBINING EQUALS SIGN BELOW] => "\UseMemAccent{b}{839}";
+<acc>[COMBINING DOUBLE VERTICAL LINE BELOW] => "\UseMemAccent{b}{840}";
+<acc>[COMBINING LEFT ANGLE BELOW] => "\UseMemAccent{b}{841}";
+<acc>[COMBINING NOT TILDE ABOVE] => "\UseMemAccent{t}{842}";
+<acc>[COMBINING HOMOTHETIC ABOVE] => "\UseMemAccent{t}{843}";
+<acc>[COMBINING ALMOST EQUAL TO ABOVE] => "\UseMemAccent{t}{844}";
+<acc>[COMBINING LEFT RIGHT ARROW BELOW] => "\UseMemAccent{b}{845}";
+<acc>[COMBINING UPWARDS ARROW BELOW] => "\UseMemAccent{b}{846}";
+<acc>[COMBINING LATIN SMALL LETTER A] => "\UseMemAccent{t}{867}";
+<acc>[COMBINING LATIN SMALL LETTER E] => "\UseMemAccent{t}{868}";
+<acc>[COMBINING LATIN SMALL LETTER I] => "\UseMemAccent{t}{869}";
+<acc>[COMBINING LATIN SMALL LETTER O] => "\UseMemAccent{t}{870}";
+<acc>[COMBINING LATIN SMALL LETTER U] => "\UseMemAccent{t}{871}";
+<acc>[COMBINING LATIN SMALL LETTER C] => "\UseMemAccent{t}{872}";
+<acc>[COMBINING LATIN SMALL LETTER D] => "\UseMemAccent{t}{873}";
+<acc>[COMBINING LATIN SMALL LETTER H] => "\UseMemAccent{t}{874}";
+<acc>[COMBINING LATIN SMALL LETTER M] => "\UseMemAccent{t}{875}";
+<acc>[COMBINING LATIN SMALL LETTER R] => "\UseMemAccent{t}{876}";
+<acc>[COMBINING LATIN SMALL LETTER T] => "\UseMemAccent{t}{877}";
+<acc>[COMBINING COMMA BELOW] => "\UseMemAccent{p}{,}";
+<acc>[COMBINING DOT BELOW] => "\UseMemAccent{p}{.}";
+
+
+% PUA -> ASCII
+
+@"E125 => "\MemMoveOtherChar\%"; % as a special case (37).
+(@"E100-@"E17F) => "\MemMoveOtherChar\" #(\1 - @"E100);
+
+
+
+% Glyphs in main font with same value as Unicode characters
+
+(@"0020-@"02FD|@"034F-@"035F|@"1E00-@"1EFD|@"2000-@"206D) => \1; \ No newline at end of file