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

implemented roll

This commit is contained in:
Kyler Olsen 2025-11-30 22:58:33 -07:00
parent 5ea2d8fe2a
commit 8067b93e62
1 changed files with 123 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

123
SLS_C/src/builtin.c
View File

@ -1776,8 +1776,129 @@ Boolean builtin_rand(InterpreterState *interpreter_state) {
} }
Boolean builtin_roll(InterpreterState *interpreter_state) { Boolean builtin_roll(InterpreterState *interpreter_state) {
(void)interpreter_state; if (interpreter_state->stack == NULL) return FALSE;
if (interpreter_state->stack->next == NULL) return FALSE;
StackItem *times_item = interpreter_state->stack;
StackItem *count_item = times_item->next;
size_t times;
switch (times_item->type) {
case STACK_IDENTIFIER:
return FALSE; return FALSE;
case STACK_I64:
if (times_item->i64 < 0) return FALSE;
times = times_item->i64;
break;
case STACK_I32:
if (times_item->i32 < 0) return FALSE;
times = times_item->i32;
break;
case STACK_I16:
if (times_item->i16 < 0) return FALSE;
times = times_item->i16;
break;
case STACK_I8:
if (times_item->i8 < 0) return FALSE;
times = times_item->i8;
break;
case STACK_U64:
times = times_item->u64;
break;
case STACK_U32:
times = times_item->u32;
break;
case STACK_U16:
times = times_item->u16;
break;
case STACK_U8:
times = times_item->u8;
break;
case STACK_FLOAT:
return FALSE;
case STACK_DOUBLE:
return FALSE;
case STACK_CHARACTER:
times = times_item->character;
break;
case STACK_BOOLEAN:
times = times_item->boolean;
break;
case STACK_TOKEN_STRING:
case STACK_CALLABLE:
return FALSE;
}
size_t count;
switch (count_item->type) {
case STACK_IDENTIFIER:
return FALSE;
case STACK_I64:
if (count_item->i64 < 0) return FALSE;
count = count_item->i64;
break;
case STACK_I32:
if (count_item->i32 < 0) return FALSE;
count = count_item->i32;
break;
case STACK_I16:
if (count_item->i16 < 0) return FALSE;
count = count_item->i16;
break;
case STACK_I8:
if (count_item->i8 < 0) return FALSE;
count = count_item->i8;
break;
case STACK_U64:
count = count_item->u64;
break;
case STACK_U32:
count = count_item->u32;
break;
case STACK_U16:
count = count_item->u16;
break;
case STACK_U8:
count = count_item->u8;
break;
case STACK_FLOAT:
return FALSE;
case STACK_DOUBLE:
return FALSE;
case STACK_CHARACTER:
count = count_item->character;
break;
case STACK_BOOLEAN:
count = count_item->boolean;
break;
case STACK_TOKEN_STRING:
case STACK_CALLABLE:
return FALSE;
}
StackItem *head = NULL, *tail = NULL, *prev = NULL;
if (count > 0) {
StackItem *node = count_item->next;
for (size_t i = 0; i < count; i++) {
if (node == NULL) return FALSE;
if (i == (count - times) - 1) {
tail = node;
head = node->next;
}
prev = node;
node = node->next;
}
}
if (head == NULL || tail == NULL) return FALSE;
interpreter_state->stack = head;
tail->next = prev->next;
prev->next = count_item->next;
count_item->next = NULL;
clean_stack(times_item);
return TRUE;
} }
Boolean builtin_rot(InterpreterState *interpreter_state) { Boolean builtin_rot(InterpreterState *interpreter_state) {