6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-05 20:31:53 +00:00
Code Issues 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
Show Stats 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 $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);