save.c

Go to the documentation of this file.

/*
 * 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
 */


/* OP_INI_SAVE */
#ifdef FUN_WITH_INI
case OP_INI_SAVE: {
 Value vpath = pop_value(vm);
 Value vh = pop_value(vm);
 const char *path = (vpath.type == VAL_STRING) ? vpath.s : NULL;
 dictionary *d = ini_get((vh.type == VAL_INT) ? (int)vh.i : 0);
 int ok = 0;
 if (d && path) {
 FILE *f = fopen(path, "w");
 if (f) {
 iniparser_dump_ini(d, f);
 fclose(f);
 ok = 1;
 }
 }
 free_value(vpath);
 free_value(vh);
 push_value(vm, make_int(ok));
 break;
}
#endif