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

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

diff --git a/src/ca65html/ca65html b/src/ca65html/ca65html
index eaf6901063488f1534d3b77417a1bb0473b56493..ec6895ffd2e8001e6cc1c64b1840450d1992e29a 100755 (executable)
--- a/src/ca65html/ca65html
+++ b/src/ca65html/ca65html
@@ -62,14 +62,20 @@ my $Debug   = 0;            # No debugging
 my $Help       = 0;            # Help flag
 my $HTMLDir    = "";           # Directory in which to create the files
 my $IndexCols          = 6;            # Columns in the file listing
-my $IndexTitle = "Index";      # Title of index page
-my $IndexName  = "index.html"; # Name of index page
-my $IndexPage  = 0;            # Create an index page
+my $IndexTitle         = "Index";      # Title of index page
+my $IndexName          = "index.html"; # Name of index page
+my $IndexPage          = 0;            # Create an index page
 my $LinkStyle          = 0;            # Default link style
-my $ReplaceExt = 0;            # Replace extension instead of appending
-my $TextColor  = "#000000";    # Text color
+my $ReplaceExt         = 0;            # Replace extension instead of appending
+my $TextColor          = "#000000";    # Text color
 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
 sub GenLabel {
+
+    my $I;
+    my $L = "";;
+    my $Num = $LabelNum++;
+
     # 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
@@ -135,7 +150,7 @@ sub StripPath {
 
 
 #-----------------------------------------------------------------------------#
-#                        Document header and footer                          #
+#                        Document header and footer                          #
 # ----------------------------------------------------------------------------#
 
 
@@ -173,11 +188,9 @@ sub DocFooter {
 <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>
-    $Name; generated on $Today by ca65html<br>
-    <a href=\"mailto:uz\@cc65.org\">uz\@cc65.org</a>
+<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>
+$Name; generated on $Today by ca65html<br>
+<a href=\"mailto:uz\@cc65.org\">uz\@cc65.org</a>
 </address>
 </body>
 </html>
@@ -793,20 +806,7 @@ EOF
     ExportIndex (INDEX);
 
     # Print the document footer
-    my $Today = localtime;
-    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
+    DocFooter (INDEX, $IndexName);
 
     # Close the index file
     close (INDEX);