#!/usr/bin/perl

#
#	ファイルフォーマット
#
#	1行目	タイトル
#	2行目〜	サブタイトル
#	空行+
#	次の行	日時
#	次の行	氏名
#	空行+
#	最初のページの本文
#	空行
#	空行
#	2ページ目の本文
#
#
use	strict;

my	$title;
my	$subtitle;
my	$date;
my	$name;
my	$blankline = 0;
my	$n;
my	@text = grep(!/^#/,<>);

$title = shift(@text);
while ($text[0] !~ /^$/) {
	$subtitle .= shift(@text) . "\n";
}
while (@text>0 && $text[0] =~ /^$/) {
	shift(@text);
}
$date = shift(@text);
$name = shift(@text);
while (@text>0 && $text[0] =~ /^$/) {
	shift(@text);
}

&header($title,$subtitle,$date,$name);

while ($_ = shift(@text)) {
	chop;
	unless (/^$/) {
		if ($blankline==1) {
			print "\n";
		}
		print "$_\n";
		$blankline = 0;
		next;
	}
	$blankline++;
	if ($blankline == 2) {
		print 	"\n%page\n\n";
	}
}

exit 0;
		

sub	header {
	my ($title,$subtitle,$date,$name) = @_;

print <<"__EOF__"
%include "default.mgp"
%default 1 bgrad
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%page
%center, size 8, font "standard", fore "white", vgap 20

$title
%size 6, fore "white", xfont "times-medium-r", xfont "mincho-medium-r" "jisx0208.1983-0"
$subtitle
%size 5, fore "white", xfont "times-medium-r", xfont "mincho-medium-r" "jisx0208.1983-0"
$date
$name

%page

__EOF__
}