#!/usr/bin/perl
# -*- coding: shift_jis -*-
# bellda layout : a Japanese keyboard layout like 'pocket bell' input method
# Time-stamp: <May 21 2008>

# original script: http://www.massangeana.com/mas/charsets/hana/hanasetup.htm
# this script: http://ai11.net/2008/05/22/
# requirement: Solaris10
# Usage: [foo@bash]$ perl bellda-atok-solaris.pl < /usr/share/iiim/le/atokx2/original/a17msime.sty > ~/.iiim/le/atokx2/users/foo/bellda17msime.sty

$romakana =
'ww=ｱ|we=ｲ|wr=ｳ|ws=ｴ|wd=ｵ|ew=ｶ|ee=ｷ|er=ｸ|es=ｹ|ed=ｺ|rw=ｻ|'.
're=ｼ|rr=ｽ|rs=ｾ|rd=ｿ|sw=ﾀ|se=ﾁ|sr=ﾂ|ss=ﾃ|sd=ﾄ|dw=ﾅ|de=ﾆ|'.
'dr=ﾇ|ds=ﾈ|dd=ﾉ|fw=ﾊ|fe=ﾋ|fr=ﾌ|fs=ﾍ|fd=ﾎ|xw=ﾏ|xe=ﾐ|xr=ﾑ|'.
'xs=ﾒ|xd=ﾓ|cw=ﾔ|ce=､|cr=ﾕ|cs=｡|cd=ﾖ|vw=ﾗ|ve=ﾘ|vr=ﾙ|vs=ﾚ|'.
'vd=ﾛ|gw=ﾜ|ge=ｦ|gr=ﾝ|gs=ﾞ|gd=ﾟ|aw=ｬ|ae=｢|ar=ｭ|as=｣|ad=ｮ|'.
'af=ｯ|qw=ｧ|qe=ｨ|qr=ｩ|qs=ｪ|qd=ｫ|fv=ｰ|z=ﾞ|t=ﾟ|wu=ｱ|wi=ｲ|'.
'wo=ｳ|wj=ｴ|wk=ｵ|eu=ｶ|ei=ｷ|eo=ｸ|ej=ｹ|ek=ｺ|ru=ｻ|ri=ｼ|ro=ｽ|'.
'rj=ｾ|rk=ｿ|su=ﾀ|si=ﾁ|so=ﾂ|sj=ﾃ|sk=ﾄ|du=ﾅ|di=ﾆ|do=ﾇ|dj=ﾈ|'.
'dk=ﾉ|fu=ﾊ|fi=ﾋ|fo=ﾌ|fj=ﾍ|fk=ﾎ|xu=ﾏ|xi=ﾐ|xo=ﾑ|xj=ﾒ|xk=ﾓ|'.
'cu=ﾔ|ci=､|co=ﾕ|cj=｡|ck=ﾖ|vu=ﾗ|vi=ﾘ|vo=ﾙ|vj=ﾚ|vk=ﾛ|gu=ﾜ|'.
'gi=ｦ|go=ﾝ|gj=ﾞ|gk=ﾟ|au=ｬ|ai=｢|ao=ｭ|aj=｣|ak=ｮ|al=ｯ|qu=ｧ|'.
'qi=ｨ|qo=ｩ|qj=ｪ|qk=ｫ|f.=ｰ|n=ﾞ|p=ﾟ|';

@romakana_table = sort(split('\\|', $romakana));

while (<>) {
    next if (/^[ \t]*\;/);
    # ".*" is a dirty trick to make RE work on plain Perl.
    # 8文字飛ばしてそのあとの8文字が $1 に

#    WindowsのATOK2006,2007,2008は Shift_JIS
#    if (/^ロ.*マ字=........(........)/) { 
#        $_ = 'ローマ字=' . &convert($1) . "\n";

    # ATOK for Solaris (ATOK17 for Solaris10)は UTF-8
    if (/^\xe3\x83\xad\xe3\x83\xbc\xe3\x83\x9e\xe5\xad\x97=........(........)/) { 
        $_ = "\xe3\x83\xad\xe3\x83\xbc\xe3\x83\x9e\xe5\xad\x97=" . &convert($1) . "\n";
    }
    print;
}

sub nhex {
    # value , width
    local ($val, $wid) = @_;
    sprintf("%0${wid}x", $val);
}

sub convert {
    # $rが求めている文字列。
    # まず 「ローマ字=対応日本語」の要素数+1を、%08x で出力。そのあと8文字はもともとのを出力。
    local ($r) = &nhex($#romakana_table + 1, 8) . $_[0];
    local ($i, $c, $sum, $nroma, $nkana);
    # ローマ字の最初の1文字の出てくる頻度を探る。
    for (@romakana_table) {
        /^(.)/;
        $FREQ{$1}++;
    }
    $sum = 0;
    for ($i = 0x20; $i <= 0x7f; $i++) {
        # pack'C'→unsigned char。 $iが0x61のときは $c は 'a' になる。
        $c = pack('C', $i);
        # 16進数4文字で計、16進数4文字で 0x20〜0x7fの各文字の頻度
        $r .= &nhex($sum, 4) . &nhex($FREQ{$c}, 4);
        $sum += $FREQ{$c};
    }
    $sum = 0;
    for (@romakana_table) {
        /^(.+)\=(.+)$/;
        $nroma = length($1);
        $nkana = length($2);
        # 16進数4文字で計、16進数2文字でローマ字1要素の長さ、16進数2文字でかな1文字ぶんの長さ
        $r .= &nhex($sum, 4) . &nhex($nroma, 2) . &nhex($nkana, 2);
        $sum += $nroma + $nkana;
    }
    for (@romakana_table) {
        /^(.+)\=(.+)$/;
        for $i (unpack('C*', $1)) {
            # unpack('C*') で、'a'が [97(0x61)]、"abc"が [97,98,99] になる。配列で返すので注意。
            # 16進数4文字でローマ字1要素の1文字ずつ ('ww' だったら 'w' 'w'の2ループ)
            $r .= &nhex($i, 4);
        }
        for $i (unpack('C*', $2)) {
            # 'ｱ' (ShiftJIS 0xb1)なら、UCS2 Halfwidth Katakana の 0xff71 になる。
            $r .= &nhex($i - 0xa0 + 0xff60, 4); # convert to UCS
        }
    }
    $r;
}