52 lines
1.2 KiB
C
52 lines
1.2 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
|
|
*
|
|
* Added: 2025-12-09
|
|
*/
|
|
|
|
/* TK_WM_TITLE */
|
|
case OP_TK_WM_TITLE: {
|
|
Value titlev = pop_value(vm);
|
|
char *title = value_to_string_alloc(&titlev);
|
|
free_value(titlev);
|
|
if (!title) {
|
|
push_value(vm, make_int(-1));
|
|
break;
|
|
}
|
|
/* Escape backslashes and double quotes for Tcl double-quoted strings */
|
|
size_t n = 0;
|
|
for (const char *p = title; *p; ++p) {
|
|
n += (*p == '\\' || *p == '"') ? 2 : 1;
|
|
}
|
|
char *esc = (char *)malloc(n + 1);
|
|
if (!esc) {
|
|
free(title);
|
|
push_value(vm, make_int(-1));
|
|
break;
|
|
}
|
|
char *q = esc;
|
|
for (const char *p = title; *p; ++p) {
|
|
if (*p == '\\' || *p == '"') *q++ = '\\';
|
|
*q++ = *p;
|
|
}
|
|
*q = '\0';
|
|
free(title);
|
|
size_t slen = strlen(esc) + 32;
|
|
char *script = (char *)malloc(slen);
|
|
if (!script) {
|
|
free(esc);
|
|
push_value(vm, make_int(-1));
|
|
break;
|
|
}
|
|
snprintf(script, slen, "wm title . \"%s\"", esc);
|
|
int rc = fun_tk_eval_script(script);
|
|
free(script);
|
|
free(esc);
|
|
push_value(vm, make_int(rc));
|
|
break;
|
|
}
|