40 lines
1.5 KiB
C
40 lines
1.5 KiB
C
/**
|
|
* This file is part of the Fun programming language.
|
|
* https://fun-lang.xyz/
|
|
*
|
|
* Copyright 2026 Johannes Findeisen <you@hanez.org>
|
|
* Licensed under the terms of the Apache-2.0 license.
|
|
* https://opensource.org/license/apache-2-0
|
|
*/
|
|
|
|
/* NC_DRAW_CHAR */
|
|
case OP_NC_DRAW_CHAR: {
|
|
Value yv = pop_value(vm);
|
|
Value xv = pop_value(vm);
|
|
Value chv = pop_value(vm);
|
|
int y = (yv.type == VAL_INT ? (int)yv.i : (yv.type == VAL_FLOAT ? (int)yv.d : 0));
|
|
int x = (xv.type == VAL_INT ? (int)xv.i : (xv.type == VAL_FLOAT ? (int)xv.d : 0));
|
|
uint32_t cp = (chv.type == VAL_INT ? (uint32_t)chv.i : (chv.type == VAL_FLOAT ? (uint32_t)chv.d : (uint32_t)'?'));
|
|
free_value(yv);
|
|
free_value(xv);
|
|
free_value(chv);
|
|
#ifdef FUN_WITH_NOTCURSES
|
|
if (_fun_nc && _fun_nc_std) {
|
|
char utf8[5];
|
|
int len = 0;
|
|
if (cp <= 0x7F) { utf8[0] = (char)cp; len = 1; }
|
|
else if (cp <= 0x7FF) { utf8[0] = (char)(0xC0 | (cp >> 6)); utf8[1] = (char)(0x80 | (cp & 0x3F)); len = 2; }
|
|
else if (cp <= 0xFFFF) { utf8[0] = (char)(0xE0 | (cp >> 12)); utf8[1] = (char)(0x80 | ((cp >> 6) & 0x3F)); utf8[2] = (char)(0x80 | (cp & 0x3F)); len = 3; }
|
|
else { utf8[0] = (char)(0xF0 | (cp >> 18)); utf8[1] = (char)(0x80 | ((cp >> 12) & 0x3F)); utf8[2] = (char)(0x80 | ((cp >> 6) & 0x3F)); utf8[3] = (char)(0x80 | (cp & 0x3F)); len = 4; }
|
|
utf8[len] = '\0';
|
|
ncplane_putstr_yx(_fun_nc_std, y, x, utf8);
|
|
push_value(vm, make_int(0));
|
|
} else {
|
|
push_value(vm, make_int(-1));
|
|
}
|
|
#else
|
|
(void)cp; (void)x; (void)y;
|
|
push_value(vm, make_int(-1));
|
|
#endif
|
|
break;
|
|
}
|