%s", $Contents, $Id);
} else {
$OutLine .= $Id;
}
# Check if another identifier follows
if ($Line =~ /^(\s*),(\s*)(.*)$/) {
$OutLine .= "$1,$2";
$Line = $3;
} else {
last;
}
}
# Add an remainder if there is one
$OutLine .= Cleanup ($Line);
# Check for .addr and .word
} elsif ($Line =~ /^(\.addr|\.word)(\s+)(.*)$/) {
# Print the command the and white space
$OutLine .= "$1$2";
$Line = $3;
# Print all identifiers if there are any
while ($Line =~ /^([_a-zA-Z][_\w]*)(.*)$/) {
if (exists ($Labels{$OutName}{$1})) {
$Label = $Labels{$OutName}{$1};
$OutLine .= sprintf ("%s", $Label, $1);
} else {
$OutLine .= "$1";
}
$Line = $2;
if ($Line =~ /^(\s*),(\s*)(.*)$/) {
$OutLine .= "$1,$2";
$Line = $3;
} else {
last;
}
}
# Add an remainder if there is one
$OutLine .= Cleanup ($Line);
# Handle .proc
} elsif ($Line =~ /^(\.proc\s+)([_a-zA-Z][_\w]*)?(.*)$/) {
# Do we have an identifier?
if ($2 ne "") {
# Get the label for the id
$Label = $Labels{$OutName}{$2};
# Print the label with a tag
$OutLine .= sprintf ("%s%s", $1, $Label, $2);
# Use the remainder for line
$Line = $3;
}
# Cleanup the remainder and add it
$OutLine .= Cleanup ($Line);
# Handle .include
} elsif ($Line =~ /^(\.include)(\s+)\"((?:[^\"]+?|\\\")+)\"(\s*)(;.*$|$)/) {
# Add the fixed stuff to the output line
$OutLine .= "$1$2\"";
# Get the filename into a named variable
my $FileName = $3;
# Remember the remainder
$Line = "\"$4$5";
# Get the name without a path
my $Name = StripPath ($FileName);
# We don't need FileName any longer as is, so clean it up
$FileName = Cleanup ($FileName);
# If the include file is among the list of our files, add a link,
# otherwise just add the name as is.
if (exists ($Files{$Name})) {
$OutLine .= sprintf ("%s", GetOutName ($Name), $FileName);
} else {
$OutLine .= $FileName;
}
# Add the remainder
$OutLine .= Cleanup ($Line);
# Check for any legal instruction
} elsif ($Line =~ /^($Ins)(\s+)(.*?)(\s*)(;.*$|$)/) {
# Print the instruction and white space
$OutLine .= "$1$2";
# Remember the remaining parts
$Operand = $3;
$Comment = Cleanup ("$4$5");
# Check for the first identifier in the operand and replace it
# by a hyperlink
if ($Operand =~ /^([^_a-zA-Z]*?)(\@?)([_a-zA-Z][_\w]*)(.*)$/) {
# Is this a local label?
if ("$2" eq "\@") {
# Use the prefix
$Id = "$CheapPrefix$2$3";
} else {
# Use as is
$Id = $3;
}
# Get the reference to this label if we find it
$Operand = Cleanup($1) . RefLabel($OutName, $Id, $2 . $3) . Cleanup($4);
}
# Reassemble and print the line
$OutLine .= "$Operand$Comment";
} else {
# Nothing known - print the line
$OutLine .= Cleanup ($Line);
}
# Print the result
print OUTPUT "$OutLine\n";
}
# Print the HTML footer
DocFooter (OUTPUT, $OutName);
# Close the files
close (INPUT);
close (OUTPUT);
}
# Pass2: Read all files the second time.
sub Pass2 () {
# Keep the user happy
Gabble ("Pass 2");
# Walk over the files
for my $InName (keys (%Files)) {
# Process one file
Process2 ($InName);
}
}
#-----------------------------------------------------------------------------#
# Create an index page #
# ----------------------------------------------------------------------------#
# Print a list of all files
sub FileIndex {
# File is argument
my $INDEX = $_[0];
# Print the file list in a table
print $INDEX "Files
\n";
print $INDEX "
\n";
my $Count = 0;
for my $File (sort (keys (%Files))) {
#
if (($Count % $IndexCols) == 0) {
print $INDEX "\n";
}
printf $INDEX "| %s | \n", GetOutName ($File), $File;
if (($Count % $IndexCols) == $IndexCols-1) {
print $INDEX "
\n";
}
$Count++;
}
if (($Count % $IndexCols) != 0) {
print $INDEX "\n";
}
print $INDEX "
\n";
}
# Print a list of all exports
sub ExportIndex {
# File is argument
my $INDEX = $_[0];
# Print the file list in a table
print $INDEX "
Exports
\n";
print $INDEX "
\n";
my $Count = 0;
for my $Export (sort (keys (%Exports))) {
# Get the export
my $File;
my $Label;
($File, $Label) = split (/#/, $Exports{$Export});
# The label is the label of the export statement. If we can find the
# actual label, use this instead.
if (exists ($Labels{$File}{$Export})) {
$Label = $Labels{$File}{$Export};
}
#
if (($Count % $IndexCols) == 0) {
print $INDEX "\n";
}
printf $INDEX "| %s | \n", $File, $Label, $Export;
if (($Count % $IndexCols) == $IndexCols-1) {
print $INDEX "
\n";
}
$Count++;
}
if (($Count % $IndexCols) != 0) {
print $INDEX "\n";
}
print $INDEX "
\n";
}
sub CreateIndex {
# Open the index page file
open (INDEX, ">$HTMLDir$IndexName") or Abort ("Cannot open $IndexName: $!");
# Print the header
print INDEX <<"EOF";
$IndexTitle
$IndexTitle
EOF
# Print the file list in a table
FileIndex (INDEX);
ExportIndex (INDEX);
# Print the document footer
DocFooter (INDEX, $IndexName);
# Close the index file
close (INDEX);
}
#-----------------------------------------------------------------------------#
# Print usage information #
# ----------------------------------------------------------------------------#
sub Usage {
print "Usage: ca65html [options] file ...\n";
print "Options:\n";
print " --bgcolor color Use background color c instead of $BGColor\n";
print " --help This text\n";
print " --htmldir dir Specify directory for HTML files\n";
print " --indexcols n Use n columns on index page (default $IndexCols)\n";
print " --indexname file Use file for the index file instead of $IndexName\n";
print " --indexpage Create an index page\n";
print " --indextitle title Use title as the index title instead of $IndexTitle\n";
print " --linkstyle style Use the given link style\n";
print " --replaceext Replace source extension instead of appending .html\n";
print " --textcolor color Use text color c instead of $TextColor\n";
print " --verbose Be more verbose\n";
}
#-----------------------------------------------------------------------------#
# Main #
# ----------------------------------------------------------------------------#
# Get program options
GetOptions ("bgcolor=s" => \$BGColor,
"debug!" => \$Debug,
"help" => \$Help,
"htmldir=s" => \$HTMLDir,
"indexcols=i" => \$IndexCols,
"indexname=s" => \$IndexName,
"indexpage" => \$IndexPage,
"indextitle=s" => \$IndexTitle,
"linkstyle=i" => \$LinkStyle,
"replaceext" => \$ReplaceExt,
"textcolor=s" => \$TextColor,
"verbose!" => \$Verbose,
"<>" => \&AddFile);
# Check some arguments
if ($IndexCols <= 0 || $IndexCols >= 20) {
Abort ("Invalid value for --indexcols option");
}
if ($HTMLDir ne "" && $HTMLDir =~ /[^\/]$/) {
# Add a trailing path separator
$HTMLDir .= "/";
}
# Print help if requested
if ($Help) {
Usage ();
}
# Check if we have input files given
if ($FileCount == 0) {
Abort ("No input files");
}
# Convert the documents
Pass1 ();
Pass2 ();
# Generate an index page if requested
if ($IndexPage) {
CreateIndex ();
}
# Done
exit 0;
