#!/usr/bin/perl
#########################################################################
# #
# program to generate the lower end of unicode output as an html file #
# by Paul Grosse #
# #
#########################################################################
($c, $tw, $ll, $ul) = (1, 8, 32, 4095);
# $c is just a counter and should be set to 1,
# $tw is the table width in sets of columns and can be set to whatever will fill your screen,
# $ll is the lower limit of the code you want to see,
# $ul is the upprt limit of the code you want to see in the table.
# Now the program itself.
# Create header and start of table
open (FH, ">unicode.html");
print FH "\n\nUnicode symbols\n\n\n";
# Note that we don't set any coding - this is so that you can experiment by
# setting it yourself in the browser.
print FH "Unicode symbols
\n";
# if your fonts don't support ō, then remove the '#' from the next line and put one at the start of the one after.
#print FH ("| No | Hex | Char | | ") x ($tw);
print FH ("N&\#333; | Hex | Char | | ") x ($tw);
print FH "
\n";
# Create body of table
print FH "";
foreach $x ($ll..$ul) {
printf FH "| %d | %x | &\#%d; | ", ($x) x 3;
if ($c >= $tw) {
print FH "
\n";
$c = 1;
} else {
print FH "| | ";
$c++;
}
}
# Add end of file
print FH "
\n";
print FH "
\n\n";
close FH;