## 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"} }
	}

}