#!/usr/local/jperl # setext形式エピソードから HTML形式へのコンバート # jperl EP2HTML.PL HAP06???.ETX # # 96/12/23-24 # SE2HTML.PL より作成 # 97/01/04 # 「 ---- 」で囲まれた部分をPREにするが foreach (@ARGV) { $infile = $_; $name = ""; $backline=""; $index=""; $list=""; $filename=""; $outfile =""; $flag ="DL OFF"; $pre ="OFF"; open(IN, "<$infile"); #行単位で処理するものの調査 while () { chop; s/&/\&\;/g; s/\/\>/g; $now_line = $_; if ($pre eq "ON"){ $list.=$backline; if (/^ -+[ ]*$/) { $now_line="<\/PRE>\n
\n"; $pre ="OFF"; } else { $now_line.="\n"; } } elsif (/^ -+[ ]*$/) { $now_line="
\n
\n";
		$pre ="ON";
		$list.=$backline;
	} elsif (/^=+$/){
		if ($flag eq "DL ON"){
			$list.="\n";
			$flag ="DL OFF";
		}
		if ( length($backline)==length($now_line) ){
			$title = $backline;
			$anchor = unpack("H*",$backline);
			if ($name eq ""){
				$name=$backline;
				$index .= "
  • $backline\n
      \n";
				$list.="\n
      $backline
      \n
      \n";
			}else{
				$index .= "
    \n
  • $backline\n
      \n";
				$list.="\n
      $backline
      \n
      \n";
#				$list.="\n
      \n
      $backline
      \n
      \n";
			}
			$now_line="";
		}else{
			$list.=$backline;
		}
	}elsif (/^-+$/){
		if ($flag eq "DL ON"){
			$list.="\n";
			$flag ="DL OFF";
		}
		if ( length($backline)==length($now_line) ){
			$anchor = unpack("H*",$backline."_".$title);
			if ($name eq ""){
				$name=$backline;
				$index .= "
    • $backline\n";
				$list.="\n
      $backline
      \n
      \n";
			}else{
				$index .= "
    • $backline\n";
				$list.="\n
      $backline
      \n
      \n";
#				$list.="\n
      \n
      $backline
      \n
      \n";
			}
			$now_line="";
		}else{
			$list.=$backline;
		}
	}else{
		if (/^[(　)(・)(  )](.+)\t*：(.+)$/){
			if ($flag eq "DL OFF"){
				$now_line = "\n
      $1<\/STRONG>\n
      $2\n";
				$flag="DL ON";
			}else{
				$now_line = "\n
      $1<\/STRONG>\n
      $2\n";
			}
		}elsif (/^\t\t：[　(  )](.+)$/){
			if ($flag eq "DL ON"){
				$now_line="
      $1";
			}else{
				$now_line="
      $1";
			}
		}elsif (/^\t\t：(.*)$/){
			if ($flag eq "DL ON"){
				$now_line="$1";
			}else{
				$now_line="
      $1";
			}
		}elsif (($_ eq "") & ($flag eq "DL ON")){
			$now_line="\n
      \n";
			$flag = "DL OFF";
		}elsif (/^[　(  )](.*)$/){
			$now_line="
      \n
      \n$1";
		}elsif (/^([「『・#(])(.*)$/){
			$now_line="
      \n
      \n$1$2";
		}
		$list.=$backline;
	}
	$backline=$now_line;
}
close(IN);

if ($flag eq "DL ON"){
	$list.="\n";
	$flag = "DL OFF";
}

$index.="<\/UL>";
$index =~ s/
        \n<\/UL>/\n/g ;#空の除去
#$index =~ s/<\/DL>\n/<\/DL>\n
        /g ;
#$index =~ s/<\/DL>\n<\/P>/<\/DL>\n<\P>/g;

$list =~ s/
          \n<\/UL>/\n/g ;#空の除去
$list =~ s/
          \s+<\/P>/\n/g ;#用心のため

#
          って、
          　にすると現行のスタイルになるのか。
$list =~ s/<\/P>\s+
          /
          \n　/g;

$list =~ s/
          /
          /g;
#$list =~ s/
          /<\/P>
          /g;

# 強調などの処理
$list =~ s/\*\*(.*)\*\*/$1<\/STRONG>/g;#強調


($filename)=split(/\./,$infile,2);
$outfile = $filename . ".HTM";
open(OUT,">$outfile");


print OUT<


$filename Page





          $name
          

          

          目次
          

            
$index

          

          
$list

          

          

          
連絡先 / ディレクトリルートに戻る / 語り部総本部

          

          


EOF

}

__END__