bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Use a broader character set for labels, so we can save a few bytes (these

Browse Source 
labels are used very often). Some minor changes to make the resulting pages
smaller.


git-svn-id: svn://svn.cc65.org/cc65/trunk@564 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2000-12-06 21:45:48 +00:00
parent 6e83d2fda2
commit ff31876edb
1 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
src/ca65html/ca65html
View File

@@ -62,14 +62,20 @@ my $Debug = 0; # No debugging
my $Help = 0; # Help flag my $Help = 0; # Help flag
my $HTMLDir = ""; # Directory in which to create the files my $HTMLDir = ""; # Directory in which to create the files
my $IndexCols = 6; # Columns in the file listing my $IndexCols = 6; # Columns in the file listing
my $IndexTitle = "Index"; # Title of index page my $IndexTitle = "Index"; # Title of index page
my $IndexName = "index.html"; # Name of index page my $IndexName = "index.html"; # Name of index page
my $IndexPage = 0; # Create an index page my $IndexPage = 0; # Create an index page
my $LinkStyle = 0; # Default link style my $LinkStyle = 0; # Default link style
my $ReplaceExt = 0; # Replace extension instead of appending my $ReplaceExt = 0; # Replace extension instead of appending
my $TextColor = "#000000"; # Text color my $TextColor = "#000000"; # Text color
my $Verbose = 0; # Be quiet my $Verbose = 0; # Be quiet
# Table used to convert the label number into names
my @NameTab = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K",
"L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V",
"W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6",
"7", "8", "9");
#-----------------------------------------------------------------------------# #-----------------------------------------------------------------------------#
@@ -93,8 +99,17 @@ sub Gabble {
# Generate a label and return it # Generate a label and return it
sub GenLabel { sub GenLabel {
my $I;
my $L = "";;
my $Num = $LabelNum++;
# Generate the label # Generate the label
return sprintf ("L%06X", $LabelNum++); for ($I = 0; $I < 4; $I++) {
$L = $NameTab[$Num % 36] . $L;
$Num /= 36;
}
return $L;
} }
# Make an output file name from an input file name # Make an output file name from an input file name
@@ -135,7 +150,7 @@ sub StripPath {
#-----------------------------------------------------------------------------# #-----------------------------------------------------------------------------#
# Document header and footer # # Document header and footer #
# ----------------------------------------------------------------------------# # ----------------------------------------------------------------------------#
@@ -173,11 +188,9 @@ sub DocFooter {
<p><br><p> <p><br><p>
<hr size=1 noshade> <hr size=1 noshade>
<address> <address>
<a href=\"http://validator.w3.org/check/referer\"><img border=0 <a href="http://validator.w3.org/check/referer"><img border=0 src="http://validator.w3.org/images/vh40" alt="Valid HTML 4.0!" height=31 width=88 align=right></a>
src=\"http://validator.w3.org/images/vh40\" $Name; generated on $Today by ca65html<br>
alt=\"Valid HTML 4.0!\" height=31 width=88 align=right></a> <a href=\"mailto:uz\@cc65.org\">uz\@cc65.org</a>
$Name; generated on $Today by ca65html<br>
<a href=\"mailto:uz\@cc65.org\">uz\@cc65.org</a>
</address> </address>
</body> </body>
</html> </html>
@@ -793,20 +806,7 @@ EOF
ExportIndex (INDEX); ExportIndex (INDEX);
# Print the document footer # Print the document footer
my $Today = localtime; DocFooter (INDEX, $IndexName);
print INDEX <<"EOF";
<p><br><p>
<hr size=1 noshade>
<address>
<a href="http://validator.w3.org/check/referer"><img border=0
src="http://validator.w3.org/images/vh40"
alt="Valid HTML 4.0!" height="31" width="88" align=right></a>
$IndexName; generated on $Today by ca65html<br>
<a href=\"mailto:uz\@cc65.org\">uz\@cc65.org</a>
</address>
</body>
</html>
EOF
# Close the index file # Close the index file
close (INDEX); close (INDEX);