## Latin1 to LambdaMOO bin plugin for tkmoo-light ## v0.0, 2005.02.07 by pmsac a t toxyn d o t org ## v0.1, 2005.02.07 by biafra: rip of menu stuff into this ## ## ISO Latin1 to LambdaMOO bin subs ripped from ## keys_moo_bin.tf v1.1 2000.07.04 biafra@MOOsaico ## (biafra_@_moosaico.moo.mud.org) ## ## Nice place to add recurrent typo corrections ## (e.g., contracto -> contrato ;) ## Watch out for performance issues when overextending ## ## Don't forget: @client-options charset=latin1 client.register latin1_keys start proc latin1_keys.start {} { edittriggers.macro \ -regexp {^(.*)} \ -directive ConvLatin1Keys \ -command { set _out $m1; regsub -all "¡" $_out "~A1" _out; regsub -all "¢" $_out "~A2" _out; regsub -all "£" $_out "~A3" _out; regsub -all "¤" $_out "~A4" _out; regsub -all "¥" $_out "~A5" _out; regsub -all "¦" $_out "~A6" _out; regsub -all "§" $_out "~A7" _out; regsub -all "¨" $_out "~A8" _out; regsub -all "©" $_out "~A9" _out; regsub -all "ª" $_out "~AA" _out; regsub -all "«" $_out "~AB" _out; regsub -all "¬" $_out "~AC" _out; regsub -all "­" $_out "~AD" _out; regsub -all "®" $_out "~AE" _out; regsub -all "¯" $_out "~AF" _out; regsub -all "°" $_out "~B0" _out; regsub -all "±" $_out "~B1" _out; regsub -all "²" $_out "~B2" _out; regsub -all "³" $_out "~B3" _out; regsub -all "´" $_out "~B4" _out; regsub -all "µ" $_out "~B5" _out; regsub -all "¶" $_out "~B6" _out; regsub -all "·" $_out "~B7" _out; regsub -all "¸" $_out "~B8" _out; regsub -all "¹" $_out "~B9" _out; regsub -all "º" $_out "~BA" _out; regsub -all "»" $_out "~BB" _out; regsub -all "¼" $_out "~BC" _out; regsub -all "½" $_out "~BD" _out; regsub -all "¾" $_out "~BE" _out; regsub -all "¿" $_out "~BF" _out; regsub -all "À" $_out "~C0" _out; regsub -all "Á" $_out "~C1" _out; regsub -all "Â" $_out "~C2" _out; regsub -all "Ã" $_out "~C3" _out; regsub -all "Ä" $_out "~C4" _out; regsub -all "Å" $_out "~C5" _out; regsub -all "Æ" $_out "~C6" _out; regsub -all "Ç" $_out "~C7" _out; regsub -all "È" $_out "~C8" _out; regsub -all "É" $_out "~C9" _out; regsub -all "Ê" $_out "~CA" _out; regsub -all "Ë" $_out "~CB" _out; regsub -all "Ì" $_out "~CC" _out; regsub -all "Í" $_out "~CD" _out; regsub -all "Î" $_out "~CE" _out; regsub -all "Ï" $_out "~CF" _out; regsub -all "Ð" $_out "~D0" _out; regsub -all "Ñ" $_out "~D1" _out; regsub -all "Ò" $_out "~D2" _out; regsub -all "Ó" $_out "~D3" _out; regsub -all "Ô" $_out "~D4" _out; regsub -all "Õ" $_out "~D5" _out; regsub -all "Ö" $_out "~D6" _out; regsub -all "×" $_out "~D7" _out; regsub -all "Ø" $_out "~D8" _out; regsub -all "Ù" $_out "~D9" _out; regsub -all "Ú" $_out "~DA" _out; regsub -all "Û" $_out "~DB" _out; regsub -all "Ü" $_out "~DC" _out; regsub -all "Ý" $_out "~DD" _out; regsub -all "Þ" $_out "~DE" _out; regsub -all "ß" $_out "~DF" _out; regsub -all "à" $_out "~E0" _out; regsub -all "á" $_out "~E1" _out; regsub -all "â" $_out "~E2" _out; regsub -all "ã" $_out "~E3" _out; regsub -all "ä" $_out "~E4" _out; regsub -all "å" $_out "~E5" _out; regsub -all "æ" $_out "~E6" _out; regsub -all "ç" $_out "~E7" _out; regsub -all "è" $_out "~E8" _out; regsub -all "é" $_out "~E9" _out; regsub -all "ê" $_out "~EA" _out; regsub -all "ë" $_out "~EB" _out; regsub -all "ì" $_out "~EC" _out; regsub -all "í" $_out "~ED" _out; regsub -all "î" $_out "~EE" _out; regsub -all "ï" $_out "~EF" _out; regsub -all "ð" $_out "~F0" _out; regsub -all "ñ" $_out "~F1" _out; regsub -all "ò" $_out "~F2" _out; regsub -all "ó" $_out "~F3" _out; regsub -all "ô" $_out "~F4" _out; regsub -all "õ" $_out "~F5" _out; regsub -all "ö" $_out "~F6" _out; regsub -all "÷" $_out "~F7" _out; regsub -all "ø" $_out "~F8" _out; regsub -all "ù" $_out "~F9" _out; regsub -all "ú" $_out "~FA" _out; regsub -all "û" $_out "~FB" _out; regsub -all "ü" $_out "~FC" _out; regsub -all "ý" $_out "~FD" _out; regsub -all "þ" $_out "~FE" _out; regsub -all "ÿ" $_out "~FF" _out; io.outgoing "$_out" } preferences.register latin1_keys {Special Forces} { { {directive ConvLatin1Keys} {type boolean} {default On} {display "Latin1 keys to moobin"} } } }