Somewhat more clever way to generate the %use guard macros

Automatically generate a %define as the first string in the include
block, and just pick the string out of it from that %define statement
to verify existence.  That way we eliminate any use of toupper() --
all case-insensitivity in NASM uses tolower()/nasm_tolower().

1 files changed, 2 insertions, 0 deletions

diff --git a/macros.pl b/macros.pl
index cfddb6ad..5429a5ea 100755
--- a/macros.pl
+++ b/macros.pl
@@ -56,6 +56,8 @@ foreach $fname ( @ARGV ) {
 	    push(@pkg_list, $pkg);
 	    $pkg_number{$pkg} = $npkg++;
 	    $pkg_index{$pkg}  = $index;
+	    printf OUT "        /* %4d */ \"\\x%02x\"\"%s\",\n",
+	    	$index++, $pptok_hash{'%define'}+128, "__USE_\U$pkg\E__";
 	} elsif (m/^\s*((\s*([^\"\';\s]+|\"[^\"]*\"|\'[^\']*\'))*)\s*(;.*)?$/) {
 	    my $s1, $s2, $pd, $ws;
 	    $s1 = $1;