#!/usr/local/bin/perl
#
# conversion old KTS dictionary raw data to MAK's one
#
# create : 95.7.26 (Wed), bgjang@csone
# modify :
#

# $irr_marker = "b_d_geola_h_leo_leu_neola_s_u";

open(III, ">iii.raw") || die "cannot open iii.raw\n";
open(NNN, ">nnn") || die "cannot open nnn\n";

while(<STDIN>) {
    /^([^ \n]*) ([^ \n]*) ([^ \n]*)(.*)/;
    $a = $1; $b = $2; $c = $3; $d = $4;
    if( $d =~ / (.*)/ ) {    # delete the first space character if existed
        $d = $1;
        if( $b eq "" || $b eq "̸" ) {
            print III "II $b le\n";
        }
        elsif( $d eq "L" ) {
            print III "II $b leo\n";
        }
        elsif( $d eq "l" ) {
            print III "II $b leu\n";
        }
        else {
            print III "II $b $d\n";
        }
    }

    # print "|$a|$b|$c|$d|\n";

    # if( $irr_marker =~ /$d/ ) {
    # }
    if( $a ne "int" ) {
        print NNN "T\nIP $b $a $c\n";
    }
}

close(NNN);
close(III);

`sort +1 iii.raw | uniq > iii`;
unlink("iii.raw");
