;; I like to see what I type, instead of ~XX codes ;; v0.0, 2005.01.30 by pmsac a t toxyn d o t org ;; v0.1, 2005.02.07 by pmsac: bug if line started with - (biafra) ;; ;; 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 ;; ;; An if_then_else controlled by a global variable acting ;; as a master switch would go well if you talk a lot with ;; people without latin1 charsets. You would then use ;; these subs on the _then_ branch, and subs like replacing ;; "Ã"/~C3 by "A~" on the _else_ branch. ;; ;; (is LANG pt_PT really needed ? dunno, ask biafra :) /set LANG pt_PT /def -i -p0 -mglob -h'SEND *' _sendhook = \ /test _out:={*}%;\ /test _out:=replace("¡","~A1",_out)%;\ /test _out:=replace("¢","~A2",_out)%;\ /test _out:=replace("£","~A3",_out)%;\ /test _out:=replace("¤","~A4",_out)%;\ /test _out:=replace("¥","~A5",_out)%;\ /test _out:=replace("¦","~A6",_out)%;\ /test _out:=replace("§","~A7",_out)%;\ /test _out:=replace("¨","~A8",_out)%;\ /test _out:=replace("©","~A9",_out)%;\ /test _out:=replace("ª","~AA",_out)%;\ /test _out:=replace("«","~AB",_out)%;\ /test _out:=replace("¬","~AC",_out)%;\ /test _out:=replace("­","~AD",_out)%;\ /test _out:=replace("®","~AE",_out)%;\ /test _out:=replace("¯","~AF",_out)%;\ /test _out:=replace("°","~B0",_out)%;\ /test _out:=replace("±","~B1",_out)%;\ /test _out:=replace("²","~B2",_out)%;\ /test _out:=replace("³","~B3",_out)%;\ /test _out:=replace("´","~B4",_out)%;\ /test _out:=replace("µ","~B5",_out)%;\ /test _out:=replace("¶","~B6",_out)%;\ /test _out:=replace("·","~B7",_out)%;\ /test _out:=replace("¸","~B8",_out)%;\ /test _out:=replace("¹","~B9",_out)%;\ /test _out:=replace("º","~BA",_out)%;\ /test _out:=replace("»","~BB",_out)%;\ /test _out:=replace("¼","~BC",_out)%;\ /test _out:=replace("½","~BD",_out)%;\ /test _out:=replace("¾","~BE",_out)%;\ /test _out:=replace("¿","~BF",_out)%;\ /test _out:=replace("À","~C0",_out)%;\ /test _out:=replace("Á","~C1",_out)%;\ /test _out:=replace("Â","~C2",_out)%;\ /test _out:=replace("Ã","~C3",_out)%;\ /test _out:=replace("Ä","~C4",_out)%;\ /test _out:=replace("Å","~C5",_out)%;\ /test _out:=replace("Æ","~C6",_out)%;\ /test _out:=replace("Ç","~C7",_out)%;\ /test _out:=replace("È","~C8",_out)%;\ /test _out:=replace("É","~C9",_out)%;\ /test _out:=replace("Ê","~CA",_out)%;\ /test _out:=replace("Ë","~CB",_out)%;\ /test _out:=replace("Ì","~CC",_out)%;\ /test _out:=replace("Í","~CD",_out)%;\ /test _out:=replace("Î","~CE",_out)%;\ /test _out:=replace("Ï","~CF",_out)%;\ /test _out:=replace("Ð","~D0",_out)%;\ /test _out:=replace("Ñ","~D1",_out)%;\ /test _out:=replace("Ò","~D2",_out)%;\ /test _out:=replace("Ó","~D3",_out)%;\ /test _out:=replace("Ô","~D4",_out)%;\ /test _out:=replace("Õ","~D5",_out)%;\ /test _out:=replace("Ö","~D6",_out)%;\ /test _out:=replace("×","~D7",_out)%;\ /test _out:=replace("Ø","~D8",_out)%;\ /test _out:=replace("Ù","~D9",_out)%;\ /test _out:=replace("Ú","~DA",_out)%;\ /test _out:=replace("Û","~DB",_out)%;\ /test _out:=replace("Ü","~DC",_out)%;\ /test _out:=replace("Ý","~DD",_out)%;\ /test _out:=replace("Þ","~DE",_out)%;\ /test _out:=replace("ß","~DF",_out)%;\ /test _out:=replace("à","~E0",_out)%;\ /test _out:=replace("á","~E1",_out)%;\ /test _out:=replace("â","~E2",_out)%;\ /test _out:=replace("ã","~E3",_out)%;\ /test _out:=replace("ä","~E4",_out)%;\ /test _out:=replace("å","~E5",_out)%;\ /test _out:=replace("æ","~E6",_out)%;\ /test _out:=replace("ç","~E7",_out)%;\ /test _out:=replace("è","~E8",_out)%;\ /test _out:=replace("é","~E9",_out)%;\ /test _out:=replace("ê","~EA",_out)%;\ /test _out:=replace("ë","~EB",_out)%;\ /test _out:=replace("ì","~EC",_out)%;\ /test _out:=replace("í","~ED",_out)%;\ /test _out:=replace("î","~EE",_out)%;\ /test _out:=replace("ï","~EF",_out)%;\ /test _out:=replace("ð","~F0",_out)%;\ /test _out:=replace("ñ","~F1",_out)%;\ /test _out:=replace("ò","~F2",_out)%;\ /test _out:=replace("ó","~F3",_out)%;\ /test _out:=replace("ô","~F4",_out)%;\ /test _out:=replace("õ","~F5",_out)%;\ /test _out:=replace("ö","~F6",_out)%;\ /test _out:=replace("÷","~F7",_out)%;\ /test _out:=replace("ø","~F8",_out)%;\ /test _out:=replace("ù","~F9",_out)%;\ /test _out:=replace("ú","~FA",_out)%;\ /test _out:=replace("û","~FB",_out)%;\ /test _out:=replace("ü","~FC",_out)%;\ /test _out:=replace("ý","~FD",_out)%;\ /test _out:=replace("þ","~FE",_out)%;\ /test _out:=replace("ÿ","~FF",_out)%;\ /send -- %_out