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

Fixed the code style in *.c files to two spaces indentation and add a linter named funstx to Fun. (0.39.0)

Browse source
This commit is contained in:
Johannes Findeisen 2026-03-18 20:52:00 +01:00
commit 03b2532474
237 changed files with 17550 additions and 13911 deletions
Download patch file Download diff file Expand all files Collapse all files

55
src/vm/tk/wm_title.c
View file

@ -11,23 +11,42 @@
/* 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));
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;
}