Register variable ASMSX for cross-assemblers

This allows to use IFDEF ASMSX in order to perform specific actions in
asMSX.

Relates to #103

src/dura.y

@@ -3770,9 +3770,10 @@ void register_label(char *name)
     }
 
     // Find if the label is already registered
-    i = search_label(id_list, name, 0, total_global);
-    if (i != -1) error_message(14, fname_src, lines); // If label found - Error, redefine, fname_src, linesd!
-
+    if (is_defined_symbol(name)) {
+      // If label found - Error, redefine, fname_src, linesd!
+      error_message(14, fname_src, lines);
+    }
 
 	if (++total_global == MAX_ID)
 		error_message(11, fname_src, lines);
@@ -3814,7 +3815,6 @@ void register_local(char *name)
 
 void register_symbol(char *name, int n, int _rom_type)
 {
-	int i;
 	char *_name;
 
 	if (pass == 2)
@@ -3825,9 +3825,9 @@ void register_symbol(char *name, int n, int _rom_type)
     }
 
     // Search if the symbol is defined. Error if found
-    i = search_label(id_list, name, 0, total_global);
-	if (i != -1) error_message(14, fname_src, lines);
-
+    if (is_defined_symbol(name)) {
+      error_message(14, fname_src, lines);
+    }
 
     // If maximum number of label names is exceeded, crash!
 	if (++total_global == MAX_ID)
@@ -4597,6 +4597,7 @@ int main(int argc, char *argv[]) {
   fname_msx = malloc(PATH_MAX);
   fname_msx[0] = 0;
   register_symbol("Eduardo_A_Robsy_Petrus_2007", 0, 0);
+  register_symbol("ASMSX", 0, 0);
 
   fname_asm = malloc(PATH_MAX);    assert(fname_asm != NULL);
   fname_src = malloc(PATH_MAX);    assert(fname_src != NULL);

test/features/program.feature

@@ -43,3 +43,17 @@ Feature: Test program functions
     | name     | expect   |
     | test2    | "test2 " |
     | test1234 | "test12" |
+
+  Scenario: Test asMSX defined code
+    Given I write the code to test.asm
+      """
+      IFDEF ASMSX
+        PRINTTEXT "Hello ASMSX!"
+      ELSE
+        PRINTTEXT "Hello unknown assembler!"
+      ENDIF
+      .db "HELLO"
+      """
+    When I build test.asm
+    Then text file contains Hello ASMSX
+    And text file does not contain unknown assembler

test/steps/build.py

@@ -30,10 +30,12 @@ def step_impl(context, file):
     context.build_program = subprocess.run(
         ['asmsx', fullpath],
         stdout=subprocess.PIPE,
+        stderr=subprocess.STDOUT,
         universal_newlines=True,
-        check=True,
+        check=False,
         env=env
     )
+    assert context.build_program.returncode == 0, f"Program exited with code {context.build_program.returncode}"
     context.build = True
     context.build_file = file
 
@@ -81,9 +83,9 @@ def step_impl(context, should, output):
     assert context.build_program, "Program did not run"
     should = (not "no" in should)
     if should:
-        assert output in context.build_program.stdout, "Output not found: {context.build_program.stdout}"
+        assert output in context.build_program.stdout, f"Output not found:\n{context.build_program.stdout}"
     else:
-        assert output not in context.build_program.stdout, "Output found: {context.build_program.stdout}"
+        assert output not in context.build_program.stdout, f"Output found:\n{context.build_program.stdout}"
 
 @then('{file} matches sha {expected_hash}')
 def step_impl(context, file, expected_hash):
@@ -98,3 +100,21 @@ def step_impl(context, file, expected_hash):
             sha1.update(data)
 
     assert sha1.hexdigest() == expected_hash, f"Hash {sha1.hexdigest()} does not match"
+
+@then('text file contains {text}')
+def step_impl(context, text):
+    assert context.build_txt, "There's no output text file!"
+
+    with open(context.build_txt, 'r') as text_file:
+        if text in text_file.read():
+            return True
+    assert False, "Text not found in output text"
+
+@then('text file does not contain {text}')
+def step_impl(context, text):
+    assert context.build_txt, "There's no output text file!"
+
+    with open(context.build_txt, 'r') as text_file:
+        if text in text_file.read():
+            assert False, "Found text in output text"
+    return True