#!/usr/bin/perl -w
# html output script for ebfont
# Time-stamp:
# Author: Itou Hiroki
# usage:
# $ ebfont -i xbm /home/itouh/dict/srd-fpw
# $ perl ebfonthtml.pl srd-fpw/narrow/* > srd-fpw-narrow.html
# $ mozilla srd-fpw-narrow.html
my $COLUMN = 8;
print qq|
\n|;
my $c = 0;
my $line = 0;
foreach(@ARGV){
if(/(xbm|xpm|gif|bmp)/){
my $filename = $_;
my $title = $_;
$title =~ s@^.*/@@; #delete directory
$title =~ s/\..*$//; #delete kakuchousi
if($c==0){
printf qq|
\n\n %d~%d | \n|, $line*$COLUMN+1, ($line+1)*$COLUMN;
$line++;
}
print qq| $title | \n|;
$c = ($c + 1) % $COLUMN;
}
}
print qq|
|;