html/romaji.pl

package main
- r2hk
- event1
- cmd_romaji
EOF
   1 #!/usr/bin/perl -w
   2 #
   3 # Copyright (c) 2002 Victor Ivanov <v0rbiz@yahoo.com>
   4 # All rights reserved.
   5 #
   6 # Redistribution and use in source and binary forms, with or without
   7 # modification, are permitted provided that the following conditions
   8 # are met:
   9 # 1. Redistributions of source code must retain the above copyright
  10 #    notice, this list of conditions and the following disclaimer.
  11 # 2. Redistributions in binary form must reproduce the above copyright
  12 #    notice, this list of conditions and the following disclaimer in the
  13 #    documentation and/or other materials provided with the distribution.
  14 #
  15 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  16 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  17 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  18 # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  19 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  20 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  21 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  23 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  24 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  25 # SUCH DAMAGE.
  26 #
  27 
  28 use strict;
  29 use vars qw($VERSION %IRSSI);
  30 
  31 $VERSION = '1.0b3';
  32 %IRSSI = (
  33     authors	=> 'Victor Ivanov',
  34     contact	=> 'v0rbiz@yahoo.com',
  35     name	=> 'romaji',
  36     description => 'translates romaji to hiragana or katakana in text enclosed in ^R',
  37     license	=> 'BSD 2-clause',
  38     url		=> 'http://irssi.org/scripts/'
  39 );
  40 
  41 
  42 my(%hira) = (
  43     "a"   => "ã‚", "i"   => "ã„", "u"   => "ã†", "e"   => "ãˆ", "o"   => "ãŠ",
  44     "ka"  => "ã‹", "ki"  => "ã", "ku"  => "ã", "ke"  => "ã‘", "ko"  => "ã“",
  45     "sa"  => "ã•", "shi" => "ã—", "su"  => "ã™", "se"  => "ã›", "so"  => "ã",
  46     "ta"  => "ãŸ", "chi" => "ã¡", "tsu" => "ã¤", "te"  => "ã¦", "to"  => "ã¨",
  47     "na"  => "ãª", "ni"  => "ã«", "nu"  => "ã¬", "ne"  => "ã", "no"  => "ã®",
  48     "ha"  => "ã¯", "hi"  => "ã²", "hu"  => "ãµ", "he"  => "ã¸", "ho"  => "ã»", "fu"  => "ãµ",
  49     "ma"  => "ã¾", "mi"  => "ã¿", "mu"  => "ã‚€", "me"  => "ã‚", "mo"  => "ã‚‚",
  50     "ya"  => "ã‚„", "yu"  => "ã‚†", "yo"  => "ã‚ˆ",
  51     "ra"  => "ã‚‰", "ri"  => "ã‚Š", "ru"  => "ã‚‹", "re"  => "ã‚Œ", "ro"  => "ã‚",
  52     "wa"  => "ã‚", "wi"  => "ã‚", "we"  => "ã‚‘", "wo"  => "ã‚’",
  53     "n"   => "ã‚“",
  54     "m"   => "ã‚“",
  55 
  56     "ga"  => "ãŒ", "gi"  => "ãŽ", "gu"  => "ã", "ge"  => "ã’", "go"  => "ã”",
  57     "za"  => "ã–", "ji"  => "ã˜", "zu"  => "ãš", "ze"  => "ãœ", "zo"  => "ãž",
  58     "da"  => "ã ", "dzi" => "ã¢", "dzu" => "ã¥", "de"  => "ã§", "do"  => "ã©",
  59     "ba"  => "ã°", "bi"  => "ã³", "bu"  => "ã¶", "be"  => "ã¹", "bo"  => "ã¼",
  60     "pa"  => "ã±", "pi"  => "ã´", "pu"  => "ã·", "pe"  => "ãº", "po"  => "ã½",
  61 
  62     "fa"  => "ãµã", "fi"  => "ãµãƒ", "fe"  => "ãµã‡", "fo"  => "ãµã‰",
  63     "di"  => "ã§ãƒ",
  64 
  65     "kya" => "ãã‚ƒ", "kyu" => "ãã‚…", "kyo" => "ãã‚‡",
  66     "sha" => "ã—ã‚ƒ", "shu" => "ã—ã‚…", "sho" => "ã—ã‚‡",
  67     "cha" => "ã¡ã‚ƒ", "chu" => "ã¡ã‚…", "cho" => "ã¡ã‚‡",
  68     "nya" => "ã«ã‚ƒ", "nyu" => "ã«ã‚…", "nyo" => "ã«ã‚‡",
  69     "hya" => "ã²ã‚ƒ", "hyu" => "ã²ã‚…", "hyo" => "ã²ã‚‡",
  70     "mya" => "ã¿ã‚ƒ", "myu" => "ã¿ã‚…", "myo" => "ã¿ã‚‡",
  71     "rya" => "ã‚Šã‚ƒ", "ryu" => "ã‚Šã‚…", "ryo" => "ã‚Šã‚‡",
  72     "gya" => "ãŽã‚ƒ", "gyu" => "ãŽã‚…", "gyo" => "ãŽã‚‡",
  73     "ja"  => "ã˜ã‚ƒ", "ju"  => "ã˜ã‚…", "jo"  => "ã˜ã‚‡",
  74     "jya" => "ã˜ã‚ƒ", "jyu" => "ã˜ã‚…", "jyo" => "ã˜ã‚‡",
  75     "dza" => "ã¢ã‚ƒ", "dju" => "ã¢ã‚…", "dzo" => "ã¢ã‚‡",
  76     "dja" => "ã¢ã‚ƒ",                  "djo" => "ã¢ã‚‡",
  77     "bya" => "ã³ã‚ƒ", "byu" => "ã³ã‚…", "byo" => "ã³ã‚‡",
  78     "pya" => "ã´ã‚ƒ", "pyu" => "ã´ã‚…", "pyo" => "ã´ã‚‡",
  79 
  80     "TSU" => "ã£"
  81 );
  82 
  83 my(%kata) = (
  84     "a"   => "ã‚¢", "i"   => "ã‚¤", "u"   => "ã‚¦", "e"   => "ã‚¨", "o"   => "ã‚ª",
  85     "ka"  => "ã‚«", "ki"  => "ã‚", "ku"  => "ã‚¯", "ke"  => "ã‚±", "ko"  => "ã‚³",
  86     "sa"  => "ã‚µ", "shi" => "ã‚·", "su"  => "ã‚¹", "se"  => "ã‚»", "so"  => "ã‚½",
  87     "ta"  => "ã‚¿", "chi" => "ãƒ", "tsu" => "ãƒ„", "te"  => "ãƒ†", "to"  => "ãƒˆ",
  88     "na"  => "ãƒŠ", "ni"  => "ãƒ‹", "nu"  => "ãƒŒ", "ne"  => "ãƒ", "no"  => "ãƒŽ",
  89     "ha"  => "ãƒ", "hi"  => "ãƒ’", "hu"  => "ãƒ•", "he"  => "ãƒ˜", "ho"  => "ãƒ›", "fu"  => "ãƒ•",
  90     "ma"  => "ãƒž", "mi"  => "ãƒŸ", "mu"  => "ãƒ ", "me"  => "ãƒ¡", "mo"  => "ãƒ¢",
  91     "ya"  => "ãƒ¤", "yu"  => "ãƒ¦", "yo"  => "ãƒ¨", "ye"  => "ã‚¨",
  92     "ra"  => "ãƒ©", "ri"  => "ãƒª", "ru"  => "ãƒ«", "re"  => "ãƒ¬", "ro"  => "ãƒ",
  93     "wa"  => "ãƒ¯", "wi"  => "ãƒ°", "we"  => "ãƒ±", "wo"  => "ãƒ²",
  94     "n"   => "ãƒ³",
  95     "m"   => "ãƒ³",
  96 
  97     "ga"  => "ã‚¬", "gi"  => "ã‚®", "gu"  => "ã‚°", "ge"  => "ã‚²", "go"  => "ã‚´",
  98     "za"  => "ã‚¶", "ji"  => "ã‚¸", "zu"  => "ã‚º", "ze"  => "ã‚¼", "zo"  => "ã‚¾",
  99     "da"  => "ãƒ€", "dzi" => "ãƒ‚", "dzu" => "ãƒ…", "de"  => "ãƒ‡", "do"  => "ãƒ‰",
 100     "ba"  => "ãƒ", "bi"  => "ãƒ“", "bu"  => "ãƒ–", "be"  => "ãƒ™", "bo"  => "ãƒœ",
 101     "pa"  => "ãƒ‘", "pi"  => "ãƒ”", "pu"  => "ãƒ—", "pe"  => "ãƒš", "po"  => "ãƒ",
 102 
 103     "va"  => "ãƒ´ã‚¡", "vi"  => "ãƒ´ã‚£", "vu"  => "ãƒ´",   "ve"  => "ãƒ´ã‚§", "vo"  => "ãƒ´ã‚©",
 104     "fa"  => "ãƒ•ã‚¡", "fi"  => "ãƒ•ã‚£", "fe"  => "ãƒ•ã‚§", "fo"  => "ãƒ•ã‚©",
 105     "di"  => "ãƒ‡ã‚£",
 106 
 107     "dje" => "ãƒ‚ã‚§", "dze" => "ãƒ‚ã‚§",
 108 
 109     "kya" => "ã‚ãƒ£", "kyu" => "ã‚ãƒ¥", "kyo" => "ã‚ãƒ§",
 110     "sha" => "ã‚·ãƒ£", "shu" => "ã‚·ãƒ¥", "sho" => "ã‚·ãƒ§",
 111     "cha" => "ãƒãƒ£", "chu" => "ãƒãƒ¥", "cho" => "ãƒãƒ§",
 112     "nya" => "ãƒ‹ãƒ£", "nyu" => "ãƒ‹ãƒ¥", "nyo" => "ãƒ‹ãƒ§",
 113     "hya" => "ãƒ’ãƒ£", "hyu" => "ãƒ’ãƒ¥", "hyo" => "ãƒ’ãƒ§",
 114     "mya" => "ãƒŸãƒ£", "myu" => "ãƒŸãƒ¥", "myo" => "ãƒŸãƒ§",
 115     "rya" => "ãƒªãƒ£", "ryu" => "ãƒªãƒ¥", "ryo" => "ãƒªãƒ§",
 116     "gya" => "ã‚®ãƒ£", "gyu" => "ã‚®ãƒ¥", "gyo" => "ã‚®ãƒ§",
 117     "ja"  => "ã‚¸ãƒ£", "ju"  => "ã‚¸ãƒ¥", "jo"  => "ã‚¸ãƒ§",
 118     "jya" => "ã‚¸ãƒ£", "jyu" => "ã‚¸ãƒ¥", "jyo" => "ã‚¸ãƒ§",
 119     "dza" => "ãƒ‚ãƒ£", "dju" => "ãƒ‚ãƒ¥", "dzo" => "ãƒ‚ãƒ§",
 120     "dja" => "ãƒ‚ãƒ£",                  "djo" => "ãƒ‚ãƒ§",
 121     "bya" => "ãƒ“ãƒ£", "byu" => "ãƒ“ãƒ¥", "byo" => "ãƒ“ãƒ§",
 122     "pya" => "ãƒ”ãƒ£", "pyu" => "ãƒ”ãƒ¥", "pyo" => "ãƒ”ãƒ§",
 123 
 124     "TSU" => "ãƒƒ"
 125 );
 126 
 127 my(%comn) = (
 128     "-"   => "ãƒ¼",
 129     "."   => "ã€‚",
 130     ","   => "ã€",
 131     "!"   => "ï¼",
 132     "?"   => "ï¼Ÿ",
 133     "~"   => "ã€œ",
 134     "  "  => "ã€€",
 135     "["   => "ã€”", "]"   => "ã€•",
 136     "{"   => "ã€", "}"   => "ã€‘",
 137     "("   => "ï¼ˆ", ")"   => "ï¼‰",
 138     "0"   => "ï¼", "1"   => "ï¼‘", "2"   => "ï¼’", "3"   => "ï¼“", "4"   => "ï¼”",
 139     "5"   => "ï¼•", "6"   => "ï¼–", "7"   => "ï¼—", "8"   => "ï¼˜", "9"   => "ï¼™",
 140     "*"   => "â˜…", # â˜† is uglier :P
 141     # where to put â™ª ?
 142 );
 143 
 144 my(@squot) = ( "ã€Œ", "ã€" );
 145 my($squoti) = 0;
 146 my(@dquot) = ( "ã€Ž", "ã€" );
 147 my($dquoti) = 0;
 148 
 149 sub r2hk ($$) {
 150     my($str) = "";
 151     my($pos) = 0;
 152     my($inlen) = length($_[0]);
 153     my($last) = "";
 154     my($href) = $_[1];
 155     my($inp) = lc($_[0]);
 156 
 157     while ($pos < $inlen) {
 158 	my($len);
 159 	my($p) = substr($inp, $pos, 3);
 160 	my($h) = ${$href}{$p};
 161 
 162 	# this could be done with another cycle, but this way's faster i guess
 163 	if ($h) {
 164 	    $len = 3;
 165 	} else {
 166 	    $p = substr($inp, $pos, 2);
 167 	    $h = ${$href}{$p};
 168 	    if ($h) {
 169 		$len = 2;
 170 	    } else {
 171 		$p = substr($inp, $pos, 1);
 172 		$h = ${$href}{$p};
 173 		if (!$h) {
 174 		    if ($p eq "'") {
 175 			$h = $squot[$squoti];
 176 			$squoti = 1 - $squoti;
 177 		    } elsif ($p eq "\"") {
 178 			$h = $dquot[$dquoti];
 179 			$dquoti = 1 - $dquoti;
 180 		    } else {
 181 			$h = $p;
 182 		    }
 183 		}
 184 		$len = 1;
 185 	    }
 186 	}
 187 
 188 	if ($h ne $p) {
 189 	    if ($last) {
 190 		if ($last eq substr($p, 0, 1)) {
 191 		    $str .= ${$href}{"TSU"};
 192 		} else {
 193 		    $str .= $last;
 194 		}
 195 		$last = "";
 196 	    }
 197 	} else {
 198 	    $str .= $last;
 199 	    $last = $p;
 200 	    $h = "";
 201 	}
 202 
 203 	$str .= $h;
 204 	
 205 	$pos += $len;
 206     }
 207 
 208     $str .= $last;
 209 
 210     return $str;
 211 }
 212 
 213 my($lock_ev) = 0;
 214 
 215 sub event1 {
 216     my ($line, $server, $witem) = @_;
 217 
 218     return unless ref $witem;
 219     if ($lock_ev) { return };
 220     $squoti = 0;
 221     $dquoti = 0;
 222 
 223     my ($str) = "";
 224     my (@p) = split(//, $line);
 225     my ($i);
 226     my ($inside) = 0;
 227     my ($empty) = 0;
 228 
 229     for ($i = 0; $i <= $#p; $i++) {
 230 	if ($inside) {
 231 	    if (!$p[$i]) {
 232 		$empty++;
 233 	    } else {
 234 		if ($empty == 0) {
 235 		    $str .= r2hk($p[$i], \%hira);
 236 		} else {
 237 		    $str .= r2hk($p[$i], \%kata);
 238 		}
 239 		$empty = 0;
 240 		$inside = 0;
 241 	    }
 242 	} else {
 243 	    $str .= $p[$i];
 244 	    $inside = 1;
 245 	}
 246     }
 247 
 248     $lock_ev = 1;
 249     Irssi::signal_emit('send command', $str, $server, $witem);
 250     Irssi::signal_stop();
 251     $lock_ev = 0;
 252 }
 253 
 254 sub cmd_romaji {
 255     Irssi::print('%BRomaji (with ã²ã‚‰ãŒãª and ã‚«ã‚¿ã‚«ãƒŠ support) version '.$VERSION);
 256     Irssi::print('(this is amateur product and comes with %Wno warranty%n, see the source)');
 257     Irssi::print('Text enclosed in Ctrl-Rs (like this) will be converted to hiragana.');
 258     Irssi::print('If the opening ^R is doubled, it will be converted to katakana.');
 259     Irssi::print('Example: genki -> ã’ã‚“ã and genki -> ã‚²ãƒ³ã‚');
 260 }
 261 
 262 Irssi::signal_add('send command', "event1");
 263 Irssi::command_bind('romaji', \&cmd_romaji);
 264 
 265 Irssi::print('%B'.$IRSSI{name}.' '.$VERSION.'%n loaded; type /romaji for more info');
 266 
 267 # Add the common hash to hiragana and kitakana hashes
 268 my($k, $v);
 269 
 270 while (($k, $v) = each %comn) {
 271     $hira{$k} = $v;
 272     $kata{$k} = $v;
 273 }