#!/usr/local/bin/perl
#
#	uddump 1.1 - Wnn4.2$B$N%f!<%6<-=q$r=PNO(B
#		by endo-h@zizi.cs.uec.ac.jp
#
use Getopt::Std;

getopts('zhu:d:', \%opts);

if ($opts{'h'}) {
    print STDERR "Usage: uddump [-hz] [-d ud_file] [-u user]\n";
    exit(0);
}

$dtoa = "/usr/local/bin/Wnn4/dtoa";
$usrdicdir = "/usr/local/lib/wnn/ja_JP/dic/usr";

$dic = $opts{'d'} ? $opts{'d'} : 'ud';		# $B<-=q%U%!%$%kL>(B
$usr = $opts{'u'} ? $opts{'u'} : $ENV{'USER'};	# $B%f!<%6(B

open(DTOA, "$dtoa $usrdicdir/$usr/$dic|");

while (<DTOA>) {
    chop;
    if ($opts{'z'}) {	# $BIQEY$r(B0$B$K(B
	if (/^(\S+[\s\t]+\S+[\s\t]+\S+[\s\t]+)\d+/) {
	    print $1."0\n";
	} else {
	    print "$_\n";
	}
    } else {
	print "$_\n";
    }
}
close(DTOA);
