KylerOlsen/YREA-SLS
KylerOlsen
/
YREA-SLS
1
0
Fork 0
Code Releases 3 Wiki Activity

implemented drop builtin function

This commit is contained in:
Kyler Olsen 2025-11-28 23:31:27 -07:00
parent b935325eb4
commit 2ddb0ca4d6
4 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
SLS_C/include/sls/interpreter.h
View File

@ -72,6 +72,7 @@ typedef struct {
} FunctionItem; } FunctionItem;
Boolean push_token(InterpreterState *interpreter_state, Token token); Boolean push_token(InterpreterState *interpreter_state, Token token);
void clean_stack(StackItem *item);
Boolean execute(InterpreterState *interpreter_state, LexerTokenResult *token); Boolean execute(InterpreterState *interpreter_state, LexerTokenResult *token);
InterpreterState *interpreter_create(); InterpreterState *interpreter_create();

8
SLS_C/src/builtin.c
View File

@ -789,8 +789,12 @@ Boolean builtin_depth(InterpreterState *interpreter_state) {
} }
Boolean builtin_drop(InterpreterState *interpreter_state) { Boolean builtin_drop(InterpreterState *interpreter_state) {
(void)interpreter_state; StackItem *node = interpreter_state->stack;
return FALSE; if (node == NULL) return FALSE;
interpreter_state->stack = node->next;
node->next = NULL;
clean_stack(node);
return TRUE;
} }
Boolean builtin_dup(InterpreterState *interpreter_state) { Boolean builtin_dup(InterpreterState *interpreter_state) {

2
SLS_C/src/interpreter.c
View File

@ -185,7 +185,7 @@ InterpreterState *interpreter_create() {
return interpreter_state; return interpreter_state;
} }
static void clean_stack(StackItem *item) { void clean_stack(StackItem *item) {
if (item == NULL) return; if (item == NULL) return;
if (item->type == STACK_TOKEN_STRING) if (item->type == STACK_TOKEN_STRING)
clean_token_string(item->token_string); clean_token_string(item->token_string);

4
SLS_C/src/repl.c
View File

@ -17,8 +17,10 @@
static const SlsStr REPL_FILE_NAME = SLS_STR_CONST("<STDIN>"); static const SlsStr REPL_FILE_NAME = SLS_STR_CONST("<STDIN>");
void print_top_of_stack(InterpreterState *interpreter_state) { void print_top_of_stack(InterpreterState *interpreter_state) {
if (interpreter_state->stack == NULL) if (interpreter_state->stack == NULL) {
printf("#0: <STACK IS EMPTY>\n");
return; return;
}
switch (interpreter_state->stack->type) { switch (interpreter_state->stack->type) {
case STACK_IDENTIFIER: case STACK_IDENTIFIER:
printf("#0: ::%s\n", interpreter_state->stack->identifier.name.str); printf("#0: ::%s\n", interpreter_state->stack->identifier.name.str);