implementation/classic/h2h-glossary.pl


require H2H;


my $basepath = shift(@main::ARGV);
my $hnffiles = qr/^[\x00-\xFF]+?\.(?:hnf|h2h)$/;
my $output_filename = shift(@main::ARGV);
$basepath =~ tr#\\#/#;
$basepath.= '/' unless substr($basepath,-1) eq '/';
$H2H::Page::basepath = shift(@main::ARGV);
unless ($output_filename) {
  my $path = substr($basepath, 0, length($basepath) - 1);
  $output_filename = $path.'.ja.html';
}

#open A, '| dir /B '.$basepath.$hnffiles.' > .filelist.txt';  close A;
#open D, '.filelist.txt';  @FILELIST = <D>; close D;
opendir DIR, $basepath;
  my @FILELIST = (grep(/$hnffiles/, readdir(DIR)));
close DIR;

if ($rev)       {@FILELIST = sort {$b cmp $a} @FILELIST}
else    {@FILELIST = sort {$a cmp $b} @FILELIST}

my $output;

  my %boptions = (
    directory => 'H2H/V100/Theme/', theme => 'Glossary',
    theme09_directory => '/home/local/h2h/H2H/V090/',
    theme09 => 'glossary',
    title => '用語集',
    keyword => '用語, 辞書, 辞典, 字典, 事典',
    description => '用語集(謎)であります。',
  );
  if(-e $basepath.'.title') {open T,$basepath.'.title';$options{title}='';
                              while(<T>) {$options{title} .= $_} close T}
  if(-e $basepath.'.header'){$options{headerfile} = $basepath.'.header'}
  if(-e $basepath.'.footer'){$options{footerfile} = $basepath.'.footer'}
  if (-e $basepath.'.rc')   {require $basepath.'.rc';
                             &H2H::RC::init(\%boptions)}
for $fn (@FILELIST) {
  my %options = (%boptions);
  $fn =~ tr/\x0D\x0A//d;
  if ($fn =~ /^(.+)\.(?:hnf|h2h)$/) {$options{prefix} = $1}
  $options{noheader} = 1; $options{nofooter} = 1;
  open HNF, $basepath.$fn;
    $output .= H2H->toHTML(\%options, <HNF>);
  close HNF;
}

if ($output) {
  require '/home/suika/lib/jcode.pl';
  $boptions{version} = 'H2H/1.0';
  $output = H2H->header(\%boptions).$output.
            H2H->footer(\%boptions);
  jcode::convert(\$output, 'jis', 'euc');
  open HTML, '> '.$output_filename;  binmode HTML;
    print HTML $output;
  close HTML;
}

1;
1
2	require H2H;
3
4
5	my $basepath = shift(@main::ARGV);
6	my $hnffiles = qr/^[\x00-\xFF]+?\.(?:hnf\|h2h)$/;
7	my $output_filename = shift(@main::ARGV);
8	$basepath =~ tr#\\#/#;
9	$basepath.= '/' unless substr($basepath,-1) eq '/';
10	$H2H::Page::basepath = shift(@main::ARGV);
11	unless ($output_filename) {
12	my $path = substr($basepath, 0, length($basepath) - 1);
13	$output_filename = $path.'.ja.html';
14	}
15
16	#open A, '\| dir /B '.$basepath.$hnffiles.' > .filelist.txt'; close A;
17	#open D, '.filelist.txt'; @FILELIST = <D>; close D;
18	opendir DIR, $basepath;
19	my @FILELIST = (grep(/$hnffiles/, readdir(DIR)));
20	close DIR;
21
22	if ($rev) {@FILELIST = sort {$b cmp $a} @FILELIST}
23	else {@FILELIST = sort {$a cmp $b} @FILELIST}
24
25	my $output;
26
27	my %boptions = (
28	directory => 'H2H/V100/Theme/', theme => 'Glossary',
29	theme09_directory => '/home/local/h2h/H2H/V090/',
30	theme09 => 'glossary',
31	title => '用語集',
32	keyword => '用語, 辞書, 辞典, 字典, 事典',
33	description => '用語集(謎)であります。',
34	);
35	if(-e $basepath.'.title') {open T,$basepath.'.title';$options{title}='';
36	while(<T>) {$options{title} .= $_} close T}
37	if(-e $basepath.'.header'){$options{headerfile} = $basepath.'.header'}
38	if(-e $basepath.'.footer'){$options{footerfile} = $basepath.'.footer'}
39	if (-e $basepath.'.rc') {require $basepath.'.rc';
40	&H2H::RC::init(\%boptions)}
41	for $fn (@FILELIST) {
42	my %options = (%boptions);
43	$fn =~ tr/\x0D\x0A//d;
44	if ($fn =~ /^(.+)\.(?:hnf\|h2h)$/) {$options{prefix} = $1}
45	$options{noheader} = 1; $options{nofooter} = 1;
46	open HNF, $basepath.$fn;
47	$output .= H2H->toHTML(\%options, <HNF>);
48	close HNF;
49	}
50
51	if ($output) {
52	require '/home/suika/lib/jcode.pl';
53	$boptions{version} = 'H2H/1.0';
54	$output = H2H->header(\%boptions).$output.
55	H2H->footer(\%boptions);
56	jcode::convert(\$output, 'jis', 'euc');
57	open HTML, '> '.$output_filename; binmode HTML;
58	print HTML $output;
59	close HTML;
60	}
61
62	1;