/* * This file is part of the Fun programming language. * https://fun-lang.xyz/ * * Copyright 2025 Johannes Findeisen * Licensed under the terms of the Apache-2.0 license. * https://opensource.org/license/apache-2-0 * * Added: 2025-12-10 (split from getters.c) */ /* OP_INI_GET_STRING */ #ifdef FUN_WITH_INI case OP_INI_GET_STRING: { Value vdef = pop_value(vm); Value vkey = pop_value(vm); Value vsec = pop_value(vm); Value vh = pop_value(vm); const char *def = (vdef.type==VAL_STRING && vdef.s) ? vdef.s : ""; 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); const char *res = def; if (d && sec && key) { char full[1024]; ini_make_full_key(full, sizeof(full), sec, key); const char *s = iniparser_getstring(d, full, def); res = s ? s : ""; } free_value(vdef); free_value(vkey); free_value(vsec); free_value(vh); push_value(vm, make_string(res)); break; } #endif