Generate automatically correct tests for %if and %elif

Automatically generate macros to test for %if and %elif variants, which
are guaranteed to be correct across future changes.

1 files changed, 14 insertions, 0 deletions

diff --git a/pptok.pl b/pptok.pl
index df64cde..8fe0415 100755
--- a/pptok.pl
+++ b/pptok.pl
@@ -27,6 +27,10 @@ while (defined($line = <IN>)) {
 }
 close(IN);
 
+@cctok = sort @cctok;
+@cond = sort @cond;
+
+# Generate the expanded list including conditionals
 foreach $ct (@cctok) {
     foreach $cc (@cond) {
 	push(@pptok, $ct.$cc);
@@ -52,6 +56,16 @@ if ($what eq 'h') {
     }
     print OUT "    PP_INVALID = -1\n";
     print OUT "};\n";
+    print OUT "\n";
+
+    $first_cc = $cond[0];
+    $last_cc  = $cond[(scalar @cond)-1];
+
+    foreach $ct (@cctok) {
+	(my $cx = $ct) =~ s/\%//g;
+	print OUT "#define IS_PP_\U$cx\E(x) ((x) >= PP_\U$cx$first_cc\E && ";
+	print OUT "(x) <= PP_\U$cx$last_cc\E)\n";
+    }
 }
 
 #