procyberian/nasm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

macros.pl: more readable comments

Browse source
This commit is contained in:
H. Peter Anvin 2008-05-26 11:39:00 -07:00
parent d2ff0ea5d5
commit ba5224d096
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
macros.pl
View file

@ -25,23 +25,23 @@ print OUTPUT " */\n";
print OUTPUT "\n"; print OUTPUT "\n";
print OUTPUT "#include \"tables.h\"\n"; print OUTPUT "#include \"tables.h\"\n";
print OUTPUT "\n"; print OUTPUT "\n";
print OUTPUT "const char * const nasm_stdmac[] = {\n"; print OUTPUT "const char * const nasm_stdmac[] = {";
foreach $fname ( @ARGV ) { foreach $fname ( @ARGV ) {
open(INPUT,$fname) or die "unable to open $fname\n"; open(INPUT,$fname) or die "unable to open $fname\n";
print OUTPUT " /* *** From $fname *** */\n"; print OUTPUT "\n /* From $fname */\n";
while (<INPUT>) { while (<INPUT>) {
$line++; $line++;
chomp; chomp;
if (m/^\s*\*END\*TASM\*MACROS\*\s*$/) { if (m/^\s*\*END\*TASM\*MACROS\*\s*$/) {
$tasm_count = $index; $tasm_count = $index;
print OUTPUT " /* --- End of TASM macros --- */\n"; print OUTPUT " /* End of TASM macros */\n";
} elsif (m/^\s*((\s*([^\"\';\s]+|\"[^\"]*\"|\'[^\']*\'))*)\s*(;.*)?$/) { } elsif (m/^\s*((\s*([^\"\';\s]+|\"[^\"]*\"|\'[^\']*\'))*)\s*(;.*)?$/) {
$_ = $1; $_ = $1;
s/\\/\\\\/g; s/\\/\\\\/g;
s/"/\\"/g; s/"/\\"/g;
if (length > 0) { if (length > 0) {
print OUTPUT " \"$_\",\n"; print OUTPUT " \"$_\",\n";
$index++; $index++;
} }
} else { } else {
@ -50,7 +50,7 @@ foreach $fname ( @ARGV ) {
} }
close(INPUT); close(INPUT);
} }
print OUTPUT " NULL\n};\n\n"; print OUTPUT "\n NULL\n};\n\n";
$tasm_count = $index unless ( defined($tasm_count) ); $tasm_count = $index unless ( defined($tasm_count) );
print OUTPUT "const char * const * nasm_stdmac_after_tasm = ", print OUTPUT "const char * const * nasm_stdmac_after_tasm = ",
"&nasm_stdmac[$tasm_count];\n"; "&nasm_stdmac[$tasm_count];\n";