% (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 ; ^({accent}) {topaccent} {botaccent} {topaccent} => <= \3 "c{" \4 "c{" \2 "l{" \1 "}}}" @"1B ; ^({accent}) {botaccent} {topaccent} {topaccent} => <= \2 "c{" \4 "c{" \3 "l{" \1 "}}}" @"1B ; ^({accent}) {topaccent} {accent} => <= \3 "c{" \2 "l{" \1 "}}" @"1B ; ^({accent}) {botaccent} {topaccent} => <= \2 "c{" \3 "l{" \1 "}}" @"1B ; ^({accent}) {accent} => <= \2 "l{" \1 "}" @"1B ; @"1B => ; [COMBINING GRAVE ACCENT] => "\UseMemAccent{t}{18}"; [COMBINING GRAVE ACCENT BELOW] => "\UseMemAccent{u}{18}"; [COMBINING ACUTE ACCENT] => "\UseMemAccent{t}{19}"; [COMBINING ACUTE ACCENT BELOW] => "\UseMemAccent{u}{19}"; [COMBINING CIRCUMFLEX ACCENT] => "\UseMemAccent{t}{94}"; [COMBINING CIRCUMFLEX ACCENT BELOW] => "\UseMemAccent{u}{94}"; [COMBINING TILDE] => "\UseMemAccent{t}{126}"; [COMBINING TILDE BELOW] => "\UseMemAccent{u}{126}"; [COMBINING MACRON] => "\UseMemAccent{t}{22}"; [COMBINING MACRON BELOW] => "\UseMemAccent{u}{22}"; [COMBINING BREVE] => "\UseMemAccent{t}{21}"; [COMBINING BREVE BELOW] => "\UseMemAccent{u}{21}"; [COMBINING DOT ABOVE] => "\UseMemAccent{t}{95}"; [COMBINING DOT BELOW] => "\UseMemAccent{u}{95}"; [COMBINING DIAERESIS] => "\UseMemAccent{t}{127}"; [COMBINING DIAERESIS BELOW] => "\UseMemAccent{u}{127}"; [COMBINING RING ABOVE] => "\UseMemAccent{t}{23}"; [COMBINING RING BELOW] => "\UseMemAccent{u}{23}"; [COMBINING DOUBLE ACUTE ACCENT] => "\UseMemAccent{t}{125}"; [COMBINING CARON] => "\UseMemAccent{t}{20}"; [COMBINING CARON BELOW] => "\UseMemAccent{u}{20}"; [COMBINING CEDILLA] => "\UseMemAccent{c}{24}"; [COMBINING COMMA BELOW] => "\UseMemAccent{p}{,}"; [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-@"0021|@"0023-@"0026|@"0028-@"003B|@"003D|@"003F-@"005B|@"005D|@"0061-@"007A) => \1;