<article>
<title>ca65html Users Guide
<author>Ullrich von Bassewitz, <htmlurl url="mailto:uz@cc65.org" name="uz@cc65.org">
-<date>2003-10-16
+<date>2007-10-2
<abstract>
-ca65html is an assembler source to HTML converter. It is very useful if you
+ca65html is an assembly-source-to-HTML converter. It is very useful if you
want to publish your assembler sources in the web.
</abstract>
<sect>Overview<p>
-ca65html converts assembler source files written for use with the <tt/<htmlurl
+ca65html converts assembly source files written for use with the <tt/<url
url="ca65.html" name="ca65">/ crossassembler into HTML. It is a standalone
-tool written in Perl, and as such it does not understand the structure of
+tool written in PERL; and as such, it does not understand the structure of
assembler sources in the same depth as ca65 does, so it may fail in very rare
-cases. In all other cases it generates very nice output.
+cases. In all other cases, it generates very nice output.
<sect>Usage<p>
Usage: ca65html [options] file ...
Options:
--bgcolor c Use background color c instead of #FFFFFF
- --colorize Colorize the output (generates non standard HTML)
+ --colorize Add color highlights to the output
--commentcolor c Use color c for comments instead of #B22222
--crefs Generate references to the C source file(s)
--ctrlcolor c Use color c for directives instead of #228B22
<tag><tt>--bgcolor c</tt></tag>
Set the background color. The argument c must be a valid HTML color, usually
- given as RGB triplet in the form <tt/#rrggbb/, where r, g and b are the
- respective red, green and blue parts as two digit hex values. The default is
- <tt/#FFFFFF/ (white). This color is used in the <tt/<body>/ tag of the
+ given as RGB triplet in the form <tt/#rrggbb/, where r, g, and b are the
+ respective red, green, and blue parts as two-digit hex values. The default is
+ <tt/#FFFFFF/ (white). That color is used in the <tt/<body>/ of the
generated HTML output.
<tag><tt>--colorize</tt></tag>
Colorize the output. The converter outputs processor instructions, assembler
- control commands and comments in different colors.
-
- While this make the output look very nice, it generates invalid HTML,
- because using colors in a <tt/<pre>/ environment is not allowed.
- However, most browsers display it well, and it is used by several other
- tools, so it's up to you.
+ control commands, and comments in different colors.
<tag><tt>--commentcolor c</tt></tag>
Set the color used for comments. The argument c must be a valid HTML color,
- usually given as RGB triplet in the form <tt/#rrggbb/, where r, g and b are
- the respective red, green and blue parts as two digit hex values. The
+ usually given as RGB triplet in the form <tt/#rrggbb/, where r, g, and b are
+ the respective red, green, and blue parts as two-digit hex values. The
default is <tt/#B22222/ (red).
Note that this option has no effect if <tt/--colorize/ is not also given.
Set the color used for assembler control commands. The argument c must be a
valid HTML color, usually given as RGB triplet in the form <tt/#rrggbb/,
- where r, g and b are the respective red, green and blue parts as two digit
+ where r, g, and b are the respective red, green, and blue parts as two-digit
hex values. The default is <tt/#228B22/ (green).
Note that this option has no effect if <tt/--colorize/ is not also given.
<tag><tt>--indexpage</tt></tag>
- Causes the converter to generate an index page listing all label names and
+ Causes the converter to generate an index page listing file names, and all
exports found in the converted files.
Set the color used for processor instructions. The argument c must be a
valid HTML color, usually given as RGB triplet in the form <tt/#rrggbb/,
- where r, g and b are the respective red, green and blue parts as two digit
+ where r, g, and b are the respective red, green, and blue parts as two-digit
hex values. The default is <tt/#A020F0/ (purple).
Note that this option has no effect if <tt/--colorize/ is not also given.
<tag><tt>--textcolor c</tt></tag>
Set the color for normal text. The argument c must be a valid HTML color,
- usually given as RGB triplet in the form <tt/#rrggbb/, where r, g and b are
- the respective red, green and blue parts as two digit hex values. The
+ usually given as RGB triplet in the form <tt/#rrggbb/, where r, g, and b are
+ the respective red, green, and blue parts as two-digit hex values. The
default is <tt/#000000/ (black). This color is used in the <tt/<body>/
- tag of the generated HTML output.
+ of the generated HTML output.
<tag><tt>--verbose</tt></tag>
Increase the converter verbosity. Without this option, ca65html is quiet
when working. If you have a slow machine and lots of files to convert, you
- may like a little bit more progress information.
+ might like a little bit more progress information.
</descrip>
<p>
Since ca65html does not really parse the input, but does most of its work
applying text patterns, it doesn't know anything about scoping and advanced
-features of the assembler. This means that it may miss a label may choose the
-wrong color for an item in rare cases. Since it's just a tool for displaying
-sources in a nice form, I think that's ok. Anyway, if you find a conversion
-problem, you can send me a short piece of example input code. If possible, I
-will fix it.
+features of the assembler. This means that it might miss a label. And, it
+might choose the wrong color for an item, in rare cases. Because it's just a
+tool for displaying sources in a nice form, I think that's OK. Anyway, if you
+find a conversion problem, you can send me a short piece of example input code.
+If possible, I will fix it.
<sect1>Colorization<p>
-While having colors in the output looks really nice, it has two drawbacks:
+While having colors in the output looks really nice, it has one drawback:
<enum>
-<item>The output is not standard compliant HTML, because <tt/<font>/
-tags are use in a <tt/<pre>/ environment. This works with all browsers
-I've tested, but it may not work with the one you're using.
-
-<item>Since lots of <tt/<font>/ tags are created in the output, the size
-of the output file will literally explode. This seems to be the price, you
-have to pay for color...
+<item>Because lots of <tt/<span>/ tags are created in the output,
+the size of the output file literally will explode. It seems to be the price
+that you have to pay for color.
</enum>
<sect>Copyright<p>
-ca65html is (C) Copyright 2000-2003 Ullrich von Bassewitz. For its use the
+ca65html is (c) Copyright 2000-2007 Ullrich von Bassewitz. For its use, the
following conditions apply:
This software is provided 'as-is', without any expressed or implied
#!/usr/bin/perl
###############################################################################
# #
-# main.c #
+# ca65html #
# #
# Convert a ca65 source into HTML #
# #
# Things currently missing:
#
-# - Scoping with .proc/.endproc
+# - Scoping with .proc/.endproc, .scope/.endscope, .enum/.endenum,
+# .struct/.endstruct, .union/endunion, .repeat/.endrep, .local
# - .global is ignored
-# - .constructor/.destructor/.condes dito
-# - .ignorecase is ignored, labels are always case sensitive
+# - .case is ignored, labels are always case-sensitive
# - .include handling (difficult)
# - The global namespace operator ::
#
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");
+my @NameTab = ('A' .. 'Z', '0' .. '9');
}
}
-# Remove illegal characters from a string
+# Translate some HTML characters into harmless names.
sub Cleanup {
my $S = shift (@_);
$S =~ s/&/&/g;
my $Today = localtime;
# Print
- print $OUT "<div id=\"bottom\">\n";
- print $OUT "<address>\n";
- print $OUT "<a href=\"http://validator.w3.org/check?uri=referer\"><img src=\"http://www.w3.org/Icons/valid-xhtml10-blue\" alt=\"Valid XHTML 1.0 Strict\" height=\"31\" width=\"88\" /></a>";
+ print $OUT "<div id=\"bottom\"><address>\n";
+ print $OUT "<a href=\"http://validator.w3.org/check?uri=referer\">\n";
+ print $OUT "<img src=\"http://www.w3.org/Icons/valid-xhtml10-blue\" alt=\"Valid XHTML 1.0 Strict\" height=\"31\" width=\"88\" /></a><br>\n";
print $OUT "$Name; generated on $Today by ca65html<br>\n";
print $OUT "<a href=\"mailto:uz@cc65.org\">uz@cc65.org</a>\n";
- print $OUT "</address>\n";
- print $OUT "</div>\n";
- print $OUT "</body>\n";
- print $OUT "</html>\n";
+ print $OUT "</address></div>\n";
+ print $OUT "</body></html>\n";
}
chomp ($Line);
# Check for a label
- if ($Line =~ /^\s*(\@?)([_a-zA-Z]\w*)(:(?!=)|\s*:?=)/) {
+ if ($Line =~ /^\s*(([\@?]?)[_a-zA-Z]\w*)\s*(?::=?|=)/) {
# Is this a local label?
- if ($1 eq "\@") {
+ if ($2 ne "") {
# Use the prefix
- $Id = "$CheapPrefix$1$2";
+ $Id = "$CheapPrefix$1";
} else {
# Use as is
- $Id = $2;
+ $Id = $1;
# Remember the id as new cheap local prefix
$CheapPrefix = $Id;
}
$Labels{$OutName}{$Id} = GenLabel();
# Check for an import statement
- } elsif ($Line =~ /^\s*(\.import|\.importzp)\s+(.*?)(\s*)(;.*$|$)/) {
+ } elsif ($Line =~ /^\s*\.(?:(?:force)?import|importzp)\s+(.*?)\s*(?:;.*)?$/i) {
# Split into a list of identifiers
- my @Ids = split (/\s*,\s*/, $2);
+ my @Ids = split (/\s*(?::\s*[A-Za-z]+\s*)?,\s*/, $1);
+
+ # Remove an address-size specifier, from the last identifier,
+ # if there is one.
+ $Ids[$#Ids] =~ s/\s*:\s*[A-Za-z]+//;
+
for $Id (@Ids) {
$Imports{$OutName}{$Id} = GenLabel();
}
# Check for an export statement
- } elsif ($Line =~ /^\s*(\.export|\.exportzp)\s+(.*?)(\s*)(;.*$|$)/) {
+ } elsif ($Line =~ /^\s*\.export(?:zp)?\s+(.*?)\s*(?:;.*)?$/i) {
# Split into a list of identifiers
- my @Ids = split (/\s*,\s*/, $2);
+ my @Ids = split (/\s*(?::\s*[A-Za-z]+\s*)?,\s*/, $1);
+
+ # Remove an address-size specifier, from the last identifier,
+ # if there is one.
+ $Ids[$#Ids] =~ s/\s*:\s*[A-Za-z]+//;
+
for $Id (@Ids) {
$Exports{$Id} = sprintf ("%s#%s", $OutName, GenLabel());
}
- # Check for a .proc statement
- } elsif ($Line =~ /^\s*\.proc\s+([_a-zA-Z]\w*)?.*$/) {
+ # Check for an actor statement.
+ } elsif ($Line =~ /^\s*\.(?:(?:(?:con|de)struc|interrup)tor|condes)\s+([_a-z]\w*)/i) {
+ $Exports{$1} = sprintf ("%s#%s", $OutName, GenLabel());
- # Do we have an id?
- $Id = $1;
- if ($Id ne "") {
- $Labels{$OutName}{$Id} = GenLabel();
- }
+ # Check for a .proc statement
+ } elsif ($Line =~ /^\s*\.proc\s+([_a-z]\w*)/i) {
+ # Remember the ID as the new cheap-local prefix.
+ $CheapPrefix = $1;
+ $Labels{$OutName}{$1} = GenLabel();
}
}
my $OutLine;
my $Id;
my $Label;
- my $Operand;
my $Comment;
my $Trailer;
# Keep the user happy
Gabble ("$FileName => $OutName");
- # The instructions that will have hyperlinks if a label is used
- my $LabelIns = "adc|add|and|asl|bcc|bcs|beq|bit|bmi|bne|bpl|bra|bvc|bvs|".
- "cmp|cpx|cpy|dec|eor|inc|jmp|jsr|lda|ldx|ldy|lsr|ora|rol|".
- "ror|sbc|sta|stx|sty|stz|sub|";
-
- # The instructions that will have hyperlinks if a label is used
- my $AllIns = "adc|add|and|asl|bcc|bcs|beq|bge|bit|blt|bmi|bne|bpl|bvc|".
- "bra|brk|brl|bvs|clc|cld|cli|clv|cmp|cop|cpa|cpx|cpy|dea|".
- "dec|dex|dey|eor|ina|inc|inx|iny|jml|jmp|jsl|jsr|lda|ldx|".
- "ldy|lsr|mvn|mvp|nop|ora|pea|pei|per|pha|phb|phd|phk|php|".
- "phx|phy|pla|plb|pld|plp|plx|ply|rep|rol|ror|rti|rtl|rts|".
- "sbc|sec|sed|sei|sep|sta|stx|sty|stz|sub|swa|tad|tax|tay|".
- "tcd|tcs|tda|tdc|trb|tsa|tsb|tsc|tsx|txa|txs|txy|tya|tyx|".
+ # The instructions that will have hyperlinks if a label is used.
+ # And, they will be highlighted when color is used.
+ my $LabelIns = "adc|add|and|asl|bb[rs][0-7]|b[cv][cs]|beq|bge|bit|blt|".
+ "bmi|bne|bpl|br[akl]|bsr|cmp|cop|cp[axy]|dec|eor|inc|jml|".
+ "jmp|jsl|jsr|ld[axy]|lsr|mvn|mvp|ora|pe[air]|rep|".
+ "[rs]mb[0-7]|rol|ror|sbc|sep|st[012axyz]|sub|tai|tam|tdd|".
+ "ti[ain]|tma|trb|tsb|tst";
+
+ # Instructions that have only the implied-addressing mode -- therefore,
+ # no hyperlinking. They will be highlighted only, when color is used.
+ my $OtherIns = "cl[acdivxy]|csh|csl|de[axy]|in[axy]|nop|ph[abdkpxy]|".
+ "pl[abdpxy]|rt[ils]|sax|say|se[cdit]|stp|swa|sxy|ta[dsxy]|".
+ "tam[0-7]|tcd|tcs|tda|tdc|tma[0-7]|ts[acx]|tx[asy]|tya|tyx|".
"wai|xba|xce";
- # Read the input file, replacing references by hyperlinks and mark
+ # Read the input file, replacing references with hyperlinks; and, mark
# labels as link targets.
my $LineNo = 0;
- while ($Line = <INPUT>) {
+ LINE: while ($Line = <INPUT>) {
# Count input lines
$LineNo++;
$Trailer = $& . ColorizeComment (Cleanup ($Comment));
# Check for a label at the start of the line. If we have one, process
- # it and remove it from the line
- if ($Line =~ s/^\s*?(\@?)([_a-zA-Z]\w*)(:(?!=)|\s*:?=)//) {
+ # it, and remove it from the line.
+ if ($Line =~ s/^\s*?(([\@?]?)[_a-zA-Z]\w*)(\s*(?::=?|=))//) {
# Is this a local label?
- if ($1 eq "\@") {
+ if ($2 ne "") {
# Use the prefix
- $Id = "$CheapPrefix$1$2";
+ $Id = "$CheapPrefix$1";
} else {
# Use as is
- $Id = $2;
+ $Id = $1;
# Remember the id as new cheap local prefix
$CheapPrefix = $Id;
}
$Label = $Labels{$OutName}{$Id};
# Print the label with a tag
- $OutLine .= sprintf ("<a name=\"%s\">%s%s</a>%s", $Label, $1, $2, $3);
+ $OutLine .= "<a name=\"$Label\">$1</a>$3";
+
+ # Is the name explicitly assigned a value?
+ if ($3 =~ /=$/) {
+ # Print all identifiers if there are any.
+ while ($Line =~ s/^([^_a-zA-Z]*?)(([\@?]?)[_a-zA-Z]\w*)//) {
+ # Add the non-label stuff.
+ $OutLine .= Cleanup ($1);
+
+ # Use the prefix if the label is local.
+ # Get the reference to that label if we find it.
+ $OutLine .= RefLabel ($OutName, ($3 ne "") ? "$CheapPrefix$2" : $2, $2);
+ }
+
+ # Add a remainder if there is one.
+ $OutLine .= Cleanup ($Line);
+
+ # The line is complete; print it.
+ next LINE;
+ }
}
# Print any leading whitespace and remove it, so we don't have to
}
# Handle the import statements
- if ($Line =~ s/^(\.import|\.importzp)\s+//) {
+ if ($Line =~ s/^\.(?:(?:force)?import|importzp)\s+//i) {
# Print any fixed stuff from the line and remove it
$OutLine .= $&;
}
# Check if another identifier follows
- if ($Line =~ s/^\s*,\s*//) {
+ if ($Line =~ s/^\s*(?::\s*[A-Za-z]+\s*)?,\s*//) {
$OutLine .= $&;
} else {
last;
$OutLine .= Cleanup ($Line);
# Handle export statements
- } elsif ($Line =~ s/^(\.export|\.exportzp)\s+//) {
+ } elsif ($Line =~ s/^\.export(?:zp)?\s+//i) {
- # Print the command the and white space
+ # Print the command and the whitespace.
$OutLine .= $&;
# Print all identifiers if there are any
}
# Check if another identifier follows
- if ($Line =~ s/^\s*,\s*//) {
+ if ($Line =~ s/^\s*(?::\s*[A-Za-z]+\s*)?,\s*//) {
$OutLine .= $&;
} else {
last;
# Add an remainder if there is one
$OutLine .= Cleanup ($Line);
- # Check for .addr and .word
- } elsif ($Line =~ s/^(\.addr|\.word)\s+//) {
+ # Handle actor statements.
+ } elsif ($Line =~ s/^(\.(?:(?:(?:con|de)struc|interrup)tor|condes)\s+)([_a-z]\w*)//i) {
+
+ # Print the command and the whitespace.
+ $OutLine .= $1;
+
+ # Remember the identifier.
+ $Id = $2;
+
+ # Variable to assemble HTML representation
+ my $Contents = "";
+
+ # If we have a definition for this actor, in this file,
+ # then add a link to that definition.
+ if (exists ($Labels{$OutName}{$Id})) {
+ $Contents = sprintf (" href=\"#%s\"", $Labels{$OutName}{$Id});
+ }
+
+ # Get the target, for linking from imports in other files.
+ $Label = $Exports{$Id};
+ # Be sure to use only the label part.
+ $Label =~ s/^.*#//;
+
+ # Add the HTML stuff and the remainder of the actor
+ # to the output line.
+ $OutLine .= sprintf ("<a name=\"%s\"%s>%s</a>%s", $Label,
+ $Contents, $Id, Cleanup ($Line));
+
+ # Check for .faraddr, .addr, .dword, .word, .dbyt, .byt, .byte, .res,
+ # .elseif, .if, .align, and .org.
+ } elsif ($Line =~ s/^\.(?:(?:far)?addr|d?word|d?byte?|res|(?:else)?if|align|org)\s+//i) {
# Print the command and the white space
$OutLine .= $&;
# Print all identifiers if there are any
- while ($Line =~ /^([^_a-zA-Z]*)([_a-zA-Z]\w*)(.*)$/) {
+ while ($Line =~ s/^([^_a-zA-Z]*?)(([\@?]?)[_a-zA-Z]\w*)//) {
# Add the non label stuff
$OutLine .= Cleanup ($1);
- # If the identifier is a known label, add a link
- if (exists ($Labels{$OutName}{$2})) {
- $Label = $Labels{$OutName}{$2};
- $OutLine .= sprintf ("<a href=\"#%s\">%s</a>", $Label, $2);
- } else {
- $OutLine .= $2;
- }
-
- # Proceed with the remainder of the line
- $Line = $3;
+ # Use the prefix if the label is local.
+ # Get the reference to that label if we find it.
+ $OutLine .= RefLabel ($OutName, ($3 ne "") ? "$CheapPrefix$2" : $2, $2);
}
# Add an remainder if there is one
$OutLine .= Cleanup ($Line);
# Handle .proc
- } elsif ($Line =~ /^(\.proc)(\s+)([_a-zA-Z]\w*)?(.*)$/) {
+ } elsif ($Line =~ /^(\.proc)(\s+)([_a-z]\w*)?(.*)$/i) {
# Do we have an identifier?
if ($3 ne "") {
+ # Remember the ID as the new cheap-local prefix.
+ $CheapPrefix = $3;
+
# Get the label for the id
$Label = $Labels{$OutName}{$3};
} else {
- # Print the label
- $OutLine .= "$1$2$3";
-
+ # Print a line that has invalid syntax (its operand isn't
+ # a correctly formed name).
+ $OutLine .= "$1$2";
}
# Add the remainder
$OutLine .= Cleanup ($4);
# Handle .include
- } elsif ($Line =~ /^(\.include)(\s+)\"((?:[^\"]+?|\\\")+)(\".*)$/) {
+ } elsif ($Line =~ /^(\.include)(\s*)\"((?:[^\"]+?|\\\")+)(\".*)$/i) {
# Add the fixed stuff to the output line
$OutLine .= "$1$2"";
# Add the remainder
$OutLine .= Cleanup ($Line);
+ # Check for .ifdef, .ifndef, .ifref, and .ifnref.
+ } elsif ($Line =~ s/^(\.ifn?[dr]ef\s+)(([\@?]?)[_a-z]\w*)?//i) {
+
+ # Print the command and the whitespace.
+ $OutLine .= $1;
+
+ if ($2 ne "") {
+ # Use the prefix if the label is local.
+ # Get the reference to that label if we find it.
+ $OutLine .= RefLabel ($OutName, ($3 ne "") ? "$CheapPrefix$2" : $2, $2);
+ }
+
+ # Add a remainder if there is one.
+ $OutLine .= Cleanup ($Line);
+
+ # Check for assertions.
+ } elsif ($Line =~ s/^(\.assert\s+)(.+?)(,\s*(?:error|warning)\s*(?:,.*)?)$/$2/i) {
+
+ # Print the command and the whitespace.
+ $OutLine .= $1;
+
+ $Comment = $3;
+
+ # Print all identifiers if there are any.
+ while ($Line =~ s/^([^_a-zA-Z]*?)(([\@?]?)[_a-zA-Z]\w*)//) {
+ # Add the non-label stuff.
+ $OutLine .= Cleanup ($1);
+
+ # Use the prefix if the label is local.
+ # Get the reference to that label if we find it.
+ $OutLine .= RefLabel ($OutName, ($3 ne "") ? "$CheapPrefix$2" : $2, $2);
+ }
+
+ # Add a remainder if there is one.
+ $OutLine .= Cleanup ($Line . $Comment);
+
# Check for instructions with labels
- } elsif ($Line =~ /^($LabelIns)\b(\s+)(.*)$/) {
+ } elsif ($Line =~ s/^($LabelIns)\b(\s*)//io) {
# Print the instruction and white space
$OutLine .= ColorizeKeyword ($1) . $2;
- # Remember the remaining parts
- $Operand = $3;
+ # Print all identifiers if there are any.
+ while ($Line =~ s/^([^_a-zA-Z]*?)(([\@?]?)[_a-zA-Z]\w*)//) {
- # Check for the first identifier in the operand and replace it
- # by a hyperlink
- if ($Operand =~ /^([^_a-zA-Z]*?)(\@?)([_a-zA-Z]\w*)(.*)$/) {
+ # Add the non-label stuff.
+ $OutLine .= Cleanup ($1);
# Is this a local label?
- if ($2 eq "\@") {
+ if ($3 ne "") {
# Use the prefix
- $Id = "$CheapPrefix$2$3";
+ $Id = "$CheapPrefix$2";
} else {
# Use as is
- $Id = $3;
+ $Id = $2;
}
# Get the reference to this label if we find it
- $Operand = Cleanup($1) . RefLabel($OutName, $Id, $2 . $3) . Cleanup($4);
+ $OutLine .= RefLabel ($OutName, $Id, $2);
}
# Reassemble and print the line
- $OutLine .= $Operand;
+ $OutLine .= Cleanup ($Line);
# Check for all other instructions
- } elsif ($Line =~ /^($AllIns)\b(.*)$/) {
+ } elsif ($Line =~ /^($OtherIns)\b(.*)$/io) {
# Colorize and print
$OutLine .= ColorizeKeyword ($1) . Cleanup ($2);
}
+ } continue {
# Colorize all keywords
$OutLine =~ s/(?<![\w;])\.[_a-zA-Z]\w*/ColorizeCtrl ($&)/ge;
- # Add the trailer
- $OutLine .= $Trailer;
-
- # Print the result
- print OUTPUT "$OutLine\n";
+ # Print the result with the trailer.
+ print OUTPUT "$OutLine$Trailer\n";
}
# Print the HTML footer
print "Usage: ca65html [options] file ...\n";
print "Options:\n";
print " --bgcolor c Use background color c instead of $BGColor\n";
- print " --colorize Colorize the output (generates non standard HTML)\n";
+ print " --colorize Add color highlights to the output\n";
print " --commentcolor c Use color c for comments instead of $CommentColor\n";
print " --crefs Generate references to the C source file(s)\n";
print " --ctrlcolor c Use color c for directives instead of $CtrlColor\n";
# Done
exit 0;
-
projects / cc65 / commitdiff