Merge pull request #472 from ArkScript-lang/feat/stop-macro-evaluation

feat(macro processor): adding $paste to stop node evalution inside macros

Author: SuperFola

CHANGELOG.md

@@ -19,6 +19,7 @@
 - check on number of arguments passed to `type`
 - warning when the formatter deletes comment(s) by mistake
 - check on arguments passed to `list`, `concat`, `append` and friends to only push valid nodes (that produces a value)
+- `$paste` to paste a node inside a maro without evaluating it further ; useful to stop recursive evaluation of nodes inside function macros
 
 ### Changed
 - instructions are on 4 bytes: 1 byte for the instruction, 1 byte of padding, 2 bytes for an immediate argument

lib/std

@@ -27,7 +27,8 @@ namespace Ark::internal
         m_predefined_macros = {
             "symcat",
             "argcount",
-            "$repr"  // TODO: unify predefined macro names (update documentation and examples and tests)
+            "$repr",  // TODO: unify predefined macro names (update documentation and examples and tests)
+            "$paste"
         };
     }
 
@@ -483,6 +484,12 @@ namespace Ark::internal
                 const Node ast = node.constList()[1];
                 setWithFileAttributes(node, node, Node(NodeType::String, ast.repr()));
             }
+            else if (name == "$paste")
+            {
+                if (node.list().size() != 2)
+                    throwMacroProcessingError(fmt::format("When expanding `$paste', expected one argument, got {} arguments", argcount), node);
+                return node.constList()[1];
+            }
         }
 
         if (node.nodeType() == NodeType::List && !node.constList().empty())

src/arkreactor/Compiler/Macros/Processor.cpp

@@ -20,17 +20,16 @@
     (test:eq (list:sort [5]) [5])
     (test:eq (list:sort []) [])
 
-    # fixme
-    #(let short_list (list:fill 12 nil))
-    #(test:eq (len short_list) 12)
-    #(mut i 0)
-    #(while (< i 12) {
-    #    (test:eq (@ short_list i) nil)
-    #    (set i (+ 1 i))})
-    #(del i)
-#
-    #(test:eq (@ (list:setAt short_list 5 "a") 5) "a")
-    #(del short_list)
+    (let short_list (list:fill 12 nil))
+    (test:eq (len short_list) 12)
+    (mut i 0)
+    (while (< i 12) {
+        (test:eq (@ short_list i) nil)
+        (set i (+ 1 i))})
+    (del i)
+
+    (test:eq (@ (list:setAt short_list 5 "a") 5) "a")
+    (del short_list)
 
     (test:expect (not (io:fileExists? "test.txt")))
     (io:writeFile "test.txt" "hello, world!")