From ad9d6a199db7c28f8b20f131dfb55a26e0e251de Mon Sep 17 00:00:00 2001 From: Nakidai Date: Sun, 23 Mar 2025 21:11:13 +0300 Subject: Again... --- src/instruction/delete.c | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 src/instruction/delete.c (limited to 'src/instruction/delete.c') diff --git a/src/instruction/delete.c b/src/instruction/delete.c deleted file mode 100644 index 81e70f9..0000000 --- a/src/instruction/delete.c +++ /dev/null @@ -1,32 +0,0 @@ -#include "3cl.h" - -#include - -#include "readchar.h" -#include "stack.h" -#include "utils.h" -#include "variable.h" - - -struct CCLFrame *ccl_instruction_assign(struct CCL *ccl, struct CCLFrame *frame) -{ - if (ccl->stack.cur < 1) - die(1, "stack size is %d (%d required)", ccl->stack.cur, 1); - - CCLNum value = ccl_stack_pop(&ccl->stack); - - char name = ccl_readchar(ccl, frame, CCL_RC_CCL_VARUS); - if (name == '\0') - die(1, "Unexpected EOF"); - - if (name == '_') - return frame; - - struct CCLVariable *var = ccl_variable_getany(ccl, frame, name); - if (var == NULL) - ccl_variable_set(&ccl->rootframe.vars, name, value); - else - var->value = value; - - return frame; -} -- cgit 1.4.1