Add %ifempty and variantsnasm-2.02rc2

1 files changed, 261 insertions, 54 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