mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-03-31 18:20:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add some comments to the output of macros.pl

Browse Source 
Add some comments to the output of macros.pl, which might make it a
little bit easier to debug issues if there should be any.
This commit is contained in:
H. Peter Anvin 2008-05-26 11:21:25 -07:00
parent 5b76fa26c9
commit d2ff0ea5d5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
macros.pl
View File

@ -18,8 +18,10 @@ undef $tasm_count;
open(OUTPUT,">macros.c") or die "unable to open macros.c\n";
print OUTPUT "/* This file auto-generated from standard.mac by macros.pl" .
" - don't edit it */\n";
print OUTPUT "/*\n";
print OUTPUT " * Do not edit - this file auto-generated by macros.pl from:\n";
print OUTPUT " * ", join(' ', @ARGV), "\n";
print OUTPUT " */\n";
print OUTPUT "\n";
print OUTPUT "#include \"tables.h\"\n";
print OUTPUT "\n";
@ -27,11 +29,13 @@ print OUTPUT "const char * const nasm_stdmac[] = {\n";
foreach $fname ( @ARGV ) {
open(INPUT,$fname) or die "unable to open $fname\n";
print OUTPUT " /* *** From $fname *** */\n";
while (<INPUT>) {
$line++;
chomp;
if (m/^\s*\*END\*TASM\*MACROS\*\s*$/) {
$tasm_count = $index;
print OUTPUT " /* --- End of TASM macros --- */\n";
} elsif (m/^\s*((\s*([^\"\';\s]+|\"[^\"]*\"|\'[^\']*\'))*)\s*(;.*)?$/) {
$_ = $1;
s/\\/\\\\/g;