ast macros to use the return value of a call, trying to spawn an entity, setting...

diff --git a/test/ast-macros.h b/test/ast-macros.h
index 56df82eb7794272982d4fb8a41bf654b5f7a812b..e11bd8d1a93d60260c15d4572526834470f83ba3 100644 (file)
--- a/test/ast-macros.h
+++ b/test/ast-macros.h
@@ -58,6 +58,9 @@ do {                                             \
 #define BIN(op, a, b) \
 (ast_expression*)ast_binary_new(ctx, INSTR_##op, (ast_expression*)(a), (ast_expression*)(b))
 
+#define ENTFIELD(a, b) \
+(ast_expression*)ast_entfield_new(ctx, (ast_expression*)(a), (ast_expression*)(b))
+
 #define CALL(what)                                             \
 do {                                                           \
     ast_call *call = ast_call_new(ctx, (ast_expression*)what); \
@@ -69,6 +72,13 @@ do {                                                           \
     STATE(call);                                 \
 } while(0)
 
+#define ENDCALLWITH(as, where)                      \
+    {                                               \
+        ast_expression *as = (ast_expression*)call; \
+        where;                                      \
+    }                                               \
+} while(0)
+
 #define WHILE(cond)                                    \
 do {                                                   \
     ast_expression *wh_cond = (ast_expression*)(cond); \

diff --git a/test/ast-test.c b/test/ast-test.c
index de01d899da9fe955b106a66c4d005ae6d80fde00..0db4a19d19c93d6683c5f4e618415c32d4c4fffc 100644 (file)
--- a/test/ast-test.c
+++ b/test/ast-test.c
@@ -39,13 +39,23 @@ int main()
     DEFVAR(f5);
     DEFVAR(sHello);
     DEFVAR(print);
+    DEFVAR(ftos);
+    DEFVAR(spawn);
 
     DEFVAR(mema);
+    DEFVAR(pawn);
 
     /* opts_debug = true; */
 
 BUILTIN(print, TYPE_VOID, -1);
 PARAM(TYPE_STRING, text);
+ENDBUILTIN();
+
+BUILTIN(ftos, TYPE_STRING, -2);
+PARAM(TYPE_FLOAT, value);
+ENDBUILTIN();
+
+BUILTIN(spawn, TYPE_ENTITY, -3);
 ENDBUILTIN();
 
     TESTINIT();
@@ -53,7 +63,10 @@ VAR(TYPE_FLOAT, f0);
 VAR(TYPE_FLOAT, f1);
 VAR(TYPE_FLOAT, f5);
 VAR(TYPE_STRING, sHello);
+VAR(TYPE_ENTITY, pawn);
+
 FIELD(TYPE_FLOAT, mema);
+
 MKCONSTFLOAT(f0, 0.0);
 MKCONSTFLOAT(f1, 1.0);
 MKCONSTFLOAT(f5, 5.0);
@@ -80,6 +93,19 @@ FUNCTION(main, TYPE_VOID);
     CALLPARAM(sHello)
     ENDCALL();
 
+    CALL(spawn)
+    ENDCALLWITH(newent, STATE(ASSIGN(STORE_ENT, pawn, newent)));
+
+    STATE(ASSIGN(STORE_F, ENTFIELD(pawn, mema), f5));
+
+    CALL(ftos)
+    CALLPARAM(ENTFIELD(pawn, mema))
+    ENDCALLWITH(output, STATE(ASSIGN(STORE_F, vi, output)));
+
+    CALL(print)
+    CALLPARAM(vi)
+    ENDCALL();
+
 ENDFUNCTION(main);
 
     ir = ir_builder_new("ast_test");