diff options
Diffstat (limited to 'macros/latex/exptl/mem/Mtp/ula-com.mtp')
-rw-r--r-- | macros/latex/exptl/mem/Mtp/ula-com.mtp | 137 |
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 |