Add %ifempty and variantsnasm-2.02rc2

2 files changed, 287 insertions, 68 deletions

diff --git a/test/iftoken.asm b/test/iftoken.asm
index c53c74c5..7bf000c2 100644
--- a/test/iftoken.asm
+++ b/test/iftoken.asm
@@ -1,108 +1,315 @@
-	db 'N "1": '
+%define ZMACRO
+%define NMACRO 1
+%define TMACRO 1 2
+	db 'N "":'
+%iftoken 
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty 
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "":'
+%iftoken  ; With a comment!
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty  ; With a comment!
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'N "ZMACRO":'
+%iftoken ZMACRO
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty ZMACRO
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "ZMACRO":'
+%iftoken ZMACRO ; With a comment!
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty ZMACRO ; With a comment!
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'N "NMACRO":'
+%iftoken NMACRO
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty NMACRO
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "NMACRO":'
+%iftoken NMACRO ; With a comment!
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty NMACRO ; With a comment!
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'N "TMACRO":'
+%iftoken TMACRO
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty TMACRO
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "TMACRO":'
+%iftoken TMACRO ; With a comment!
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty TMACRO ; With a comment!
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'N "1":'
 %iftoken 1
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty 1
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'C "1": '
+	db 10
+	db 'C "1":'
 %iftoken 1 ; With a comment!
-	db 'Yes', 10
+	db ' token'
 %else
-	db 'No', 10
+	db ' ntoken'
 %endif
-	db 'N "+1": '
+%ifempty 1 ; With a comment!
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'N "+1":'
 %iftoken +1
-	db 'Yes', 10
+	db ' token'
 %else
-	db 'No', 10
+	db ' ntoken'
 %endif
-	db 'C "+1": '
+%ifempty +1
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "+1":'
 %iftoken +1 ; With a comment!
-	db 'Yes', 10
+	db ' token'
 %else
-	db 'No', 10
+	db ' ntoken'
 %endif
-	db 'N "1 2": '
+%ifempty +1 ; With a comment!
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'N "1 2":'
 %iftoken 1 2
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty 1 2
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'C "1 2": '
+	db 10
+	db 'C "1 2":'
 %iftoken 1 2 ; With a comment!
-	db 'Yes', 10
+	db ' token'
 %else
-	db 'No', 10
+	db ' ntoken'
 %endif
-	db 'N "1,2": '
+%ifempty 1 2 ; With a comment!
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'N "1,2":'
 %iftoken 1,2
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty 1,2
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'C "1,2": '
+	db 10
+	db 'C "1,2":'
 %iftoken 1,2 ; With a comment!
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty 1,2 ; With a comment!
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'N "foo": '
+	db 10
+	db 'N "foo":'
 %iftoken foo
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty foo
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'C "foo": '
+	db 10
+	db 'C "foo":'
 %iftoken foo ; With a comment!
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty foo ; With a comment!
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'N "foo bar": '
+	db 10
+	db 'N "foo bar":'
 %iftoken foo bar
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty foo bar
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'C "foo bar": '
+	db 10
+	db 'C "foo bar":'
 %iftoken foo bar ; With a comment!
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty foo bar ; With a comment!
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'N "%": '
+	db 10
+	db 'N "%":'
 %iftoken %
-	db 'Yes', 10
+	db ' token'
 %else
-	db 'No', 10
+	db ' ntoken'
 %endif
-	db 'C "%": '
+%ifempty %
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "%":'
 %iftoken % ; With a comment!
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty % ; With a comment!
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'N "+foo": '
+	db 10
+	db 'N "+foo":'
 %iftoken +foo
-	db 'Yes', 10
+	db ' token'
 %else
-	db 'No', 10
+	db ' ntoken'
 %endif
-	db 'C "+foo": '
+%ifempty +foo
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "+foo":'
 %iftoken +foo ; With a comment!
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty +foo ; With a comment!
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
-	db 'N "<<": '
+	db 10
+	db 'N "<<":'
 %iftoken <<
-	db 'Yes', 10
+	db ' token'
 %else
-	db 'No', 10
+	db ' ntoken'
 %endif
-	db 'C "<<": '
+%ifempty <<
+	db ' empty'
+%else
+	db ' nempty'
+%endif
+	db 10
+	db 'C "<<":'
 %iftoken << ; With a comment!
-	db 'Yes', 10
+	db ' token'
+%else
+	db ' ntoken'
+%endif
+%ifempty << ; With a comment!
+	db ' empty'
 %else
-	db 'No', 10
+	db ' nempty'
 %endif
+	db 10
diff --git a/test/iftoken.pl b/test/iftoken.pl
index bbbb5bcd..498b0527 100755
--- a/test/iftoken.pl
+++ b/test/iftoken.pl
@@ -1,19 +1,31 @@
 #!/usr/bin/perl
 
-@list = ('1', '+1', '1 2', '1,2', 'foo', 'foo bar', '%', '+foo', '<<');
+@list = ('', 'ZMACRO', 'NMACRO', 'TMACRO', '1', '+1', '1 2', '1,2',
+	 'foo', 'foo bar', '%', '+foo', '<<');
+@tests = ('token', 'empty');
 
-foreach $t (@list) {
-    print "\tdb 'N \"$t\": '\n";
-    print "%iftoken $t\n";
-    print "\tdb 'Yes', 10\n";
-    print "%else\n";
-    print "\tdb 'No', 10\n";
-    print "%endif\n";
+print "%define ZMACRO\n";
+print "%define NMACRO 1\n";
+print "%define TMACRO 1 2\n";
 
-    print "\tdb 'C \"$t\": '\n";
-    print "%iftoken $t ; With a comment!\n";
-    print "\tdb 'Yes', 10\n";
-    print "%else\n";
-    print "\tdb 'No', 10\n";
-    print "%endif\n";
+foreach $x (@list) {
+    print "\tdb 'N \"$x\":'\n";
+    foreach $t (@tests) {
+	print "%if$t $x\n";
+	print "\tdb ' $t'\n";
+	print "%else\n";
+	print "\tdb ' n$t'\n";
+	print "%endif\n";
+    }
+    print "\tdb 10\n";
+
+    print "\tdb 'C \"$x\":'\n";
+    foreach $t (@tests) {
+	print "%if$t $x ; With a comment!\n";
+	print "\tdb ' $t'\n";
+	print "%else\n";
+	print "\tdb ' n$t'\n";
+	print "%endif\n";
+    }
+    print "\tdb 10\n";
 }