#!/usr/local/bin/perl

############################################################################
#★容量をとるか引きやすさをとるかどちらかを選ぶ
# $swflag= 1 の場合容量優先。漢字見出しは本文へのインデックスのみ。
# $swflag= 2 の場合内容優先。漢字見出しにも直接意味を埋め込む。容量が増大する
$swflag= 2;
############################################################################
## pdd人名辞典を PDIC テキスト形式に変換する
## 1999 Ogasawara Hiroyuki
## http://www.vector.co.jp/authors/VA004474/zaurus/zaurus.html

## <使用例>
## あ～わ のテキストファイルをカレントにおいてDOS窓で実行する。
##   jperl jinmei.pl > jinmei.txt

sub jinmei
{
	if( !open( FD, shift ) ){
		exit( 1 );
	}
	while(<FD>){
		if( /^-----/ ){
			last;
		}
	}
	$newflag= 0;
	$i= 0;
	while(<FD>){
		if( /^\t/ ){
			$_=~s/[\t\n\r]//g;
			if( $i == 0 ){
				$name= $_;
				$name=~s/　//;
				$midashi2[$i++]= $name;
				$name= $midashi;
				$name=~s/　//;
				$_= "【$_】【$midashi】";
			}
			$str= $str . $_;
			next;
		}
		if( $newflag ){
			$newflag= 0;
			print $str,"\n";
		}
		for( $j= 0 ; $j < $i ; $j++ ){
			print $midashi2[$j], "\n";
			if( $swflag == 1 ){
				print "⇒", $midashi, "\n";
				#print "→", $midashi, "\n";
			}else{
				print $str,"\n";
			}
		}
		if( /^-----/ ){
			last;
		}
		$_=~s/^★//;
		$_=~s/^\[\d\]//;
		$midashi= $_;
		$midashi=~s/[\n\r]//;
		$name= $midashi;
		$name=~s/　//;
		print $name,"\n";
		$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";
	&jinmei( $file );
}

