From ff31876edb2c0a722ff647181d4554f9601336d5 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 6 Dec 2000 21:45:48 +0000
Subject: [PATCH] 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
---
 src/ca65html/ca65html | 52 +++++++++++++++++++++----------------------
 1 file changed, 26 insertions(+), 26 deletions(-)

diff --git a/src/ca65html/ca65html b/src/ca65html/ca65html
index eaf690106..ec6895ffd 100755
--- 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);
-- 
2.39.5