82 lines
2.3 KiB
C
82 lines
2.3 KiB
C
/*
|
|
* This file is part of the Fun programming language.
|
|
* https://fun-lang.xyz/
|
|
*
|
|
* Copyright 2025 Johannes Findeisen <you@hanez.org>
|
|
* Licensed under the terms of the Apache-2.0 license.
|
|
* https://opensource.org/license/apache-2-0
|
|
*/
|
|
|
|
/**
|
|
* @file get_int.c
|
|
* @brief VM opcode snippet for reading an integer from INI (OP_INI_GET_INT).
|
|
*
|
|
* Opcode: OP_INI_GET_INT
|
|
* Stack: [default:int] [key:string] [section:string] [handle:int] -> [out:int]
|
|
*
|
|
* Behavior
|
|
* - Pops default, key, section, and handle; looks up "section:key" (and dotted
|
|
* fallback) and attempts to parse as base-10 integer using strtol().
|
|
* - If lookup or parsing fails, returns the provided default.
|
|
*
|
|
* Errors
|
|
* - Invalid handle/args produce the default; no VM exception is raised.
|
|
*/
|
|
|
|
/* OP_INI_GET_INT */
|
|
#ifdef FUN_WITH_INI
|
|
case OP_INI_GET_INT: {
|
|
Value vdef = pop_value(vm);
|
|
Value vkey = pop_value(vm);
|
|
Value vsec = pop_value(vm);
|
|
Value vh = pop_value(vm);
|
|
int def = (vdef.type == VAL_INT) ? (int)vdef.i : 0;
|
|
const char *key = (vkey.type == VAL_STRING) ? vkey.s : NULL;
|
|
const char *sec = (vsec.type == VAL_STRING) ? vsec.s : NULL;
|
|
int h = (vh.type == VAL_INT) ? (int)vh.i : 0;
|
|
dictionary *d = ini_get(h);
|
|
int outi = def;
|
|
if (d && sec && key) {
|
|
char full[1024];
|
|
char alt[1024];
|
|
ini_make_full_key(full, sizeof(full), sec, key);
|
|
memcpy(alt, full, sizeof(alt));
|
|
for (size_t i = 0; i < sizeof(alt) && alt[i]; ++i) {
|
|
if (alt[i] == ':') {
|
|
alt[i] = '.';
|
|
break;
|
|
}
|
|
}
|
|
const char *s = iniparser_getstring(d, full, NULL);
|
|
if (!s) s = iniparser_getstring(d, alt, NULL);
|
|
if (s) {
|
|
/* strip optional quotes and parse */
|
|
char buf[256];
|
|
size_t n = strlen(s);
|
|
if (n >= 2 && ((s[0] == '"' && s[n - 1] == '"') || (s[0] == '\'' && s[n - 1] == '\''))) {
|
|
size_t copy = (n - 2) < sizeof(buf) - 1 ? (n - 2) : sizeof(buf) - 1;
|
|
memcpy(buf, s + 1, copy);
|
|
buf[copy] = '\0';
|
|
s = buf;
|
|
}
|
|
/* skip leading spaces */
|
|
while (*s && (unsigned char)*s <= ' ')
|
|
s++;
|
|
char *endp = NULL;
|
|
long v = strtol(s, &endp, 10);
|
|
if (endp && endp != s)
|
|
outi = (int)v;
|
|
else
|
|
outi = def;
|
|
} else {
|
|
outi = def;
|
|
}
|
|
}
|
|
free_value(vdef);
|
|
free_value(vkey);
|
|
free_value(vsec);
|
|
free_value(vh);
|
|
push_value(vm, make_int(outi));
|
|
break;
|
|
}
|
|
#endif
|