hanez/fun
1
0
Fork 0
forked from fun/fun
Code Pull requests Activity

Added very basic Tk (Tcl) support using. (0.36.0)

Browse source
This commit is contained in:
Johannes Findeisen 2025-12-09 23:13:12 +01:00
commit 6da1861e12
17 changed files with 513 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/vm/tk/pack.c Normal file
View file

@ -0,0 +1,16 @@
/* TK_PACK */
case OP_TK_PACK: {
Value idv = pop_value(vm);
char *id = value_to_string_alloc(&idv);
free_value(idv);
if (!id) { push_value(vm, make_int(-1)); break; }
size_t slen = strlen(id) + 16;
char *script = (char*)malloc(slen);
if (!script) { free(id); push_value(vm, make_int(-1)); break; }
snprintf(script, slen, "pack .%s", id);
int rc = fun_tk_eval_script(script);
free(script);
free(id);
push_value(vm, make_int(rc));
break;
}