#!/usr/local/bin/perl

############################################################################
#★容量をとるか引きやすさをとるかどちらかを選ぶ
# $swflag= 1 の場合容量優先。漢字見出しは本文へのインデックスのみ。
# $swflag= 2 の場合内容優先。漢字見出しにも直接意味を埋め込む。容量が増大する
$swflag= 1;
#
#★漢字の見出しを付けるかどうか選択する
# $kmidashi= 0 漢字見出しを付けない
# $kmidashi= 1 漢字見出しを付ける
$kmidashi= 0;
#漢字入力や、他の辞書からの参照検索ができる場合、漢字の見出しがあると使い
#勝手が向上します。
#
## Zaurus + ZPDVIEW の場合は $kmidashi=1 にして下さい。$swflag は容量に応じて
## 選択してください。
##
## WindowsCE + FET Dictionary Search の場合は $kmidashi=0、$swflag=1 にして
## 下さい。
##
############################################################################
## pdd国語辞典を PDIC テキスト形式に変換するスクリプト
## 1999,2000 Ogasawara Hiroyuki
## http://www.vector.co.jp/authors/VA004474/zaurus/zaurus.html

## <使用例>
## あ～わ のテキストファイルをカレントにおいてDOS窓で実行する。
##   jperl kokugo.pl > kokugo.txt

sub kokugo
{
	if( !open( FD, shift ) ){
		exit( 1 );
	}
	while(<FD>){
		if( /^-----/ ){
			last;
		}
	}
	$newflag= 0;
	$i= 0;
	while(<FD>){
		if( /^\t/ ){
			$_=~s/[\t\n\r]//g;
			if( /^【(.*)】/ ){
				$midashi2[$i++]= $1;
			}
			$str= $str . $_;
			next;
		}
		if( $newflag ){
			$newflag= 0;
			print $str,"\n";
		}
		if( $kmidashi == 1 ){
			for( $j= 0 ; $j < $i ; $j++ ){
				print $midashi2[$j], "\n";
				if( $swflag == 1 ){
					print "⇒", $midashi;
					#print "→", $midashi;
				}else{
					print $str,"\n";
				}
			}
		}
		if( /^-----/ ){
			last;
		}
		$_=~s/^★//;
		$_=~s/^\[\d\]//;
		$midashi= $_;
		print;
		$newflag= 1;
		$str= "";
		$i= 0;
	}
	close( FD );
}
if( !opendir( OD, "." ) ){
	exit( 1 );
}
@dirlist= readdir( OD );
closedir( OD );
@dirlist= sort( @dirlist );
while( $file= shift( @dirlist ) ){
	if( ($file lt "あ") || ($file gt "亜") ){
		next;
	}
	#print "FILE: $file \n";
	&kokugo( $file );
}

