summaryrefslogtreecommitdiff
path: root/macros/latex/exptl/mem/Mtp/ucnoacc.mtp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/exptl/mem/Mtp/ucnoacc.mtp
Initial commit
Diffstat (limited to 'macros/latex/exptl/mem/Mtp/ucnoacc.mtp')
-rw-r--r--macros/latex/exptl/mem/Mtp/ucnoacc.mtp254
1 files changed, 254 insertions, 0 deletions
diff --git a/macros/latex/exptl/mem/Mtp/ucnoacc.mtp b/macros/latex/exptl/mem/Mtp/ucnoacc.mtp
new file mode 100644
index 0000000000..b30b52d470
--- /dev/null
+++ b/macros/latex/exptl/mem/Mtp/ucnoacc.mtp
@@ -0,0 +1,254 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% This file belongs to an alpha-release of Omega-Babel,
+% which is part of the
+%
+% #### # # ###### #### ##
+% # # ## ## # # # # #
+% # # # ## # ##### # # #
+% # # # # # # ### ######
+% # # # # # # # # #
+% #### # # ###### #### # # Project,
+%
+% (c) John Plaice and Yannis Haralambous, 1994-95
+%
+% plaice@ift.ulaval.ca
+% haralambous@univ-lille1.fr, http://www.ens.fr/~yannis
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Date of the release: 1995-11-27
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+input: 2;
+
+output: 2;
+
+expressions:
+
+% Latin
+
+@"0020 - @"0060 => \1 ;
+@"0061 - @"007a => #(\1 - 32) ;
+@"007b - @"00de => \1 ;
+
+@"00c0-@"00c5 => "A" ;
+@"00c8-@"00cb => "E" ;
+@"00cc-@"00cf => "I" ;
+@"00d0 => "D" ;
+@"00d1 => "N" ;
+@"00d2-@"00d6 => "O" ;
+@"00d9-@"00dc => "U" ;
+@"00dd => "Y" ;
+@"00df => "SS" ; %uppercase German sz
+
+@"00e0-@"00e5 => "A" ;
+@"00e6 => @"00c6 ;
+@"00e8-@"00eb => "E" ;
+@"00ec-@"00ef => "I" ;
+@"00f0 => "D" ;
+@"00f1 => "N" ;
+@"00f2-@"00f6 => "O" ;
+@"00f8 => @"00d8 ;
+@"00f9-@"00fc => "U" ;
+@"00fd => "Y" ;
+@"00ff => "Y" ;
+
+@"0081 => "SZ" ; %special German sz
+@"0082 => @"0130 ; %Turkish i with dot
+@"0087 => "J" ; %dotless j
+@"0100 - @"012f => #(\1 - (\1 mod: 2)) ;
+@"0130 => \1 ;
+@"0131 => "I" ; %uppercase Turkish dotless i
+@"0132 - @"0137 => #(\1 - (\1 mod: 2)) ;
+@"0138 => "K" ; %uppercase kra
+@"0139 - @"0148 => #(\1 - 1 + (\1 mod: 2)) ;
+@"0149 => "'N" ; %uppercase Afrikaans 'n
+@"014a - @"0177 => #(\1 - (\1 mod: 2)) ;
+@"0178 => \1 ; %\"Y
+@"0179 - @"017e => #(\1 - 1 + (\1 mod: 2)) ;
+@"017f => "S" ; %uppercase long s
+@"0180 - @"01c3 => \1 ; %to be treated later on (African stuff)
+@"01c4 - @"01c6 => @"01c4 ;
+@"01c7 - @"01c9 => @"01c7 ;
+@"01ca - @"01cc => @"01ca ;
+@"01cd - @"01dc => #(\1 - 1 + (\1 mod: 2)) ;
+@"01dd => @"018e ;
+@"01de - @"01ef => #(\1 - (\1 mod: 2)) ;
+@"01f0 => @"e18f ;
+@"01f1 - @"01f3 => @"01f1 ;
+@"01f4 - @"0217 => #(\1 - (\1 mod: 2)) ;
+@"0250 - @"0385 => \1 ; %Phonetic and other stuff
+
+% Greek!
+
+@"0386 => @"0391 ;
+@"0388 => @"0395 ;
+@"0389 => @"0397 ;
+@"038a => @"0399 ;
+@"038c => @"039f ;
+@"038e => @"03a5 ;
+@"038f => @"03a9 ;
+@"0390 => @"03aa ; %kefalaio iota me dialutika kai toniko shmeio
+@"0391 - @"03ab => \1 ;
+@"03ac @"03b9 => @"0391 @"03aa ; % 'ai -> A"I
+@"03ac @"03c5 => @"0391 @"03ab ; % 'au -> A"U
+@"1f71 @"03b9 => @"0391 @"03aa ; % 'ai -> A"I
+@"1f71 @"03c5 => @"0391 @"03ab ; % 'au -> A"U
+@"03ac => @"0391 ;
+@"03ad @"03b9 => @"0395 @"03aa ; % 'ei -> E"I
+@"03ad @"03c5 => @"0395 @"03ab ; % 'eu -> E"U
+@"1f73 @"03b9 => @"0395 @"03aa ; % 'ei -> E"I
+@"1f73 @"03c5 => @"0395 @"03ab ; % 'eu -> E"U
+@"03ad => @"0395 ;
+@"03ae @"03c5 => @"0397 @"03ab ; % 'hu -> H"U
+@"1f75 @"03c5 => @"0397 @"03ab ; % 'hu -> H"U
+@"03ae => @"0397 ;
+@"03af => @"0399 ;
+@"03b0 => @"03ab ; %kefalaio uyilon me dialutika kai toniko shmeio
+@"03b1 - @"03c1 => #(\1 - 32) ;
+@"03c2 => @"03a3 ; %kefalaio teliko sigma
+@"03c3 - @"03cb => #(\1 - 32) ;
+@"03cc @"03b9 => @"039f @"03aa ; % 'oi -> O"I
+@"03cc @"03c5 => @"039f @"03ab ; % 'ou -> O"U
+@"1f79 @"03b9 => @"039f @"03aa ; % 'oi -> O"I
+@"1f79 @"03c5 => @"039f @"03ab ; % 'ou -> O"U
+@"03cc => @"039f ;
+@"03cd => @"03a5 ;
+@"03ce => @"03a9 ;
+@"03d0 => @"0392 ; %kefalaio arqiko bhta
+@"03d1 => @"0398 ; %kefalaio anoikto jhta
+@"03d2 => @"03d2 ;
+@"03d3 => @"03d3 ;
+@"03d4 => @"03d4 ;
+@"03d5 => @"03a6 ; %kefalaio anoikto fi
+@"03d6 => @"03a0 ; %kefalaio stroggulo pi (opws to majainame sto dhmotiko)
+@"03d7 => @"039a @"0391 @"0399 ; %kai
+@"03da - @"03ef => #(\1 - (\1 mod: 2)) ;
+@"03f0 => @"039a ; %kefalaio kalligrafiko kappa
+@"03f1 => @"03a1 ; %kefalaio ro me kampulh oura
+@"03f2 => "C" ; %kefalaio sigma pou moiazei me c
+@"03f3 => "J" ; %kefalaio jot
+
+% Cyrillic!
+
+@"0401 - @"042f => \1 ;
+@"0430 - @"044f => #(\1 - 32) ;
+@"0451 - @"045f => #(\1 - 80) ;
+@"0460 - @"04bf => #(\1 - (\1 mod: 2)) ;
+@"04c0 => \1 ;
+@"04c1 - @"04cc => #(\1 - 1 + (\1 mod: 2)) ;
+@"04d0 - @"04f9 => #(\1 - (\1 mod: 2)) ;
+
+% Armenian!
+
+@"0531 - @"0556 => \1 ;
+@"0561 - @"0586 => #(\1 - 48) ;
+@"0587 => @"e1cb ; %uppercase ligature ech yiwn
+
+% Additional Latin
+
+@"1e00 - @"1e95 => #(\1 - (\1 mod: 2)) ;
+@"1e96 - @"1e9a => #(\1 + @"c1f2) ;
+@"1ea0 - @"1ef9 => #(\1 - (\1 mod: 2)) ;
+
+% Real Greek! (the one with accents and spirits)
+
+@"1f00 - @"1f0f => @"0391 ;
+@"1f10 - @"1f1f => @"0395 ;
+@"1f20 - @"1f2f => @"0397 ;
+@"1f30 - @"1f3f => @"0399 ;
+@"1f40 - @"1f4f => @"039f ;
+@"1f50 - @"1f5f => @"03a5 ;
+@"1f60 - @"1f6f => @"03a9 ;
+@"1f70 => @"0391 ;
+@"1f71 => @"0391 ;
+@"1f72 => @"0395 ;
+@"1f73 => @"0395 ;
+@"1f74 => @"0397 ;
+@"1f75 => @"0397 ;
+@"1f76 => @"0399 ;
+@"1f77 => @"0399 ;
+@"1f78 => @"039f ;
+@"1f79 => @"039f ;
+@"1f7a => @"03a5 ;
+@"1f7b => @"03a5 ;
+@"1f7c => @"03a9 ;
+@"1f7d => @"03a9 ;
+@"1f80 - @"1f8f => @"0391 ;
+@"1f90 - @"1f9f => @"0397 ;
+@"1fa0 - @"1faf => @"03a9 ;
+@"1fb0 => @"1fb8 ;
+@"1fb1 => @"1fb9 ;
+@"1fb2 - @"1fb4 => @"0391 ;
+@"1fba - @"1fbc => @"0391 ;
+@"1fc2 - @"1fc7 => @"0397 ;
+@"1fc8 => @"0395 ;
+@"1fc9 => @"0395 ;
+@"1fca - @"1fcc => @"0397 ;
+@"1fd0 => @"1fd8 ;
+@"1fd1 => @"1fd9 ;
+@"1fd2 => @"03aa ;
+@"1fd3 => @"03aa ;
+@"1fd6 => @"0399 ;
+@"1fd7 => @"03aa ;
+@"1fda => @"0399 ;
+@"1fdb => @"0399 ;
+@"1fe0 => @"1fe8 ;
+@"1fe1 => @"1fe9 ;
+@"1fe2 => @"03ab ;
+@"1fe3 => @"03ab ;
+@"1fe4 => @"03a1 ;
+@"1fe5 => @"03a1 ;
+@"1fe6 => @"03a5 ;
+@"1fe7 => @"03ab ;
+@"1fea => @"03a5 ;
+@"1feb => @"03a5 ;
+@"1fec => @"03a1 ;
+@"1ff2 - @"1ff7 => @"03a9 ;
+@"1ff8 => @"039f ;
+@"1ff9 => @"039f ;
+@"1ffa - @"1ffc => @"03a9 ;
+
+% Roman numerals
+
+@"2170 - @"217f => #(\1 - 16) ;
+
+% Private zone
+
+@"e200 => "FF" ;
+@"e201 => "FI" ;
+@"e202 => "FL" ;
+@"e203 => "FFI" ;
+@"e204 => "FFL" ;
+@"e205 => "F" @"012e ;
+@"e206 => "FF" @"012e ;
+@"e207 => "F" @"0141 ;
+@"e208 => "FF" @"0141 ;
+@"e209 => "FJ" ;
+@"e20a => "FFJ" ;
+@"e20b => "F" @"0132 ;
+@"e20c => "FF" @"0132 ;
+@"e20d => "SS" ;
+@"e20e => "SI" ;
+@"e20f => "SL" ;
+@"e210 => "SSI" ;
+@"e211 => "SSL" ;
+@"e212 => "ST" ;
+@"e213 => "CT" ;
+@"e214 => @"00c4 ;
+@"e215 => @"00cb ;
+@"e216 => @"00cf ;
+@"e217 => @"00d6 ;
+@"e218 => @"00dc ;
+@"e219 => @"0178 ;
+@"e21a => \1 ;
+@"e21b => \1 ;
+@"e21c => \1 ;
+@"e21d => \1 ;
+@"e21e => \1 ;
+@"e21f => \1 ;
+
+% All others (wow, they are many of them!)
+
+. => \1 ;