/* Abort line input, storing whatever's been typed so far. */
void win_textgrid_cancel_line(window_t *win, event_t *ev)
{
void *inbuf;
int inoriglen, inmax, inunicode, inecho, len;
gidispatch_rock_t inarrayrock;
window_textgrid_t *dwin = win->data;
if (!dwin->inbuf)
return;
inbuf = dwin->inbuf;
inmax = dwin->inmax;
inoriglen = dwin->inoriglen;
inarrayrock = dwin->inarrayrock;
inunicode = dwin->inunicode;
inecho = dwin->inecho;
len = dwin->incurpos;
if (inecho && win->echostr) {
if (!inunicode)
gli_stream_echo_line(win->echostr, (char *)inbuf, len);
else
gli_stream_echo_line_uni(win->echostr, (glui32 *)inbuf, len);
}
if (inecho) {
/* Add the typed text to the buffer. */
int ix;
if (!inunicode) {
for (ix=0; ix<len; ix++) {
glui32 ch = ((char *)inbuf)[ix];
win_textgrid_putchar(win, ch);
}
}
else {
for (ix=0; ix<len; ix++) {
glui32 ch = ((glui32 *)inbuf)[ix];
win_textgrid_putchar(win, ch);
}
}
dwin->cury = dwin->cury+1;
dwin->curx = 0;
}
win->style = dwin->origstyle;
ev->type = evtype_LineInput;
ev->win = win;
ev->val1 = len;
win->line_request = FALSE;
dwin->inbuf = NULL;
dwin->inoriglen = 0;
dwin->inmax = 0;
dwin->intermkeys = 0;
if (gli_unregister_arr) {
char *typedesc = (inunicode ? "&+#!Iu" : "&+#!Cn");
(*gli_unregister_arr)(inbuf, inoriglen, typedesc, inarrayrock);
}
}
void glk_select(event_t *event)
{
window_t *win = gli_window_get();
gli_event_clearevent(event);
fflush(stdout);
if (!win || !(win->char_request || win->line_request)) {
/* No input requests. This is legal, but a pity, because the
correct behavior is to wait forever. Bye bye. */
while (1) {
getchar();
}
}
if (win->char_request) {
char buf[256];
glui32 kval;
int len;
/* How cheap are we? We don't want to fiddle with line
buffering, so we just accept an entire line (terminated by
return) and use the first key. Remember that return has to
be turned into a special keycode (and so would other keys,
if we could recognize them.) */
fgets(buf, 255, stdin);
if (!gli_utf8input) {
kval = buf[0];
}
else {
int val;
val = strlen(buf);
if (val && (buf[val-1] == '\n' || buf[val-1] == '\r'))
val--;
len = gli_parse_utf8(buf, val, &kval, 1);
if (!len)
kval = '\n';
}
if (kval == '\r' || kval == '\n') {
kval = keycode_Return;
}
else {
if (!win->char_request_uni && kval >= 0x100)
kval = '?';
}
win->char_request = FALSE;
event->type = evtype_CharInput;
event->win = win;
event->val1 = kval;
}
else {
/* line_request */
char buf[256];
int val;
glui32 ix;
fgets(buf, 255, stdin);
val = strlen(buf);
if (val && (buf[val-1] == '\n' || buf[val-1] == '\r'))
val--;
if (!gli_utf8input) {
if (val > win->linebuflen)
val = win->linebuflen;
if (!win->line_request_uni) {
memcpy(win->linebuf, buf, val);
}
else {
glui32 *destbuf = (glui32 *)win->linebuf;
for (ix=0; ix<val; ix++)
destbuf[ix] = (glui32)(((unsigned char *)buf)[ix]);
}
}
else {
glui32 ubuf[256];
val = gli_parse_utf8(buf, val, ubuf, 256);
if (val > win->linebuflen)
val = win->linebuflen;
if (!win->line_request_uni) {
unsigned char *destbuf = (unsigned char *)win->linebuf;
for (ix=0; ix<val; ix++) {
glui32 kval = ubuf[ix];
if (kval >= 0x100)
kval = '?';
destbuf[ix] = kval;
}
}
else {
/* We ought to perform Unicode Normalization Form C here. */
glui32 *destbuf = (glui32 *)win->linebuf;
for (ix=0; ix<val; ix++)
destbuf[ix] = ubuf[ix];
}
}
if (!win->line_request_uni) {
if (win->echostr) {
gli_stream_echo_line(win->echostr, win->linebuf, val);
}
}
else {
if (win->echostr) {
gli_stream_echo_line_uni(win->echostr, win->linebuf, val);
}
}
if (gli_unregister_arr) {
if (!win->line_request_uni)
(*gli_unregister_arr)(win->linebuf, win->linebuflen,
"&+#!Cn", win->inarrayrock);
else
(*gli_unregister_arr)(win->linebuf, win->linebuflen,
"&+#!Iu", win->inarrayrock);
}
win->line_request = FALSE;
win->line_request_uni = FALSE;
win->linebuf = NULL;
event->type = evtype_LineInput;
event->win = win;
event->val1 = val;
}
}
void win_textgrid_accept_line(window_t *win)
{
long len;
void *inbuf;
int inmax, inoriglen, inunicode, inecho;
glui32 termkey = 0;
gidispatch_rock_t inarrayrock;
window_textgrid_t *dwin = win->data;
if (!dwin->inbuf)
return;
inbuf = dwin->inbuf;
inmax = dwin->inmax;
inoriglen = dwin->inoriglen;
inarrayrock = dwin->inarrayrock;
inunicode = dwin->inunicode;
inecho = dwin->inecho;
len = dwin->incurpos;
if (inecho && win->echostr) {
if (!inunicode)
gli_stream_echo_line(win->echostr, (char *)inbuf, len);
else
gli_stream_echo_line_uni(win->echostr, (glui32 *)inbuf, len);
}
if (inecho) {
/* Add the typed text to the grid. */
int ix;
if (!inunicode) {
for (ix=0; ix<len; ix++) {
glui32 ch = ((char *)inbuf)[ix];
win_textgrid_putchar(win, ch);
}
}
else {
for (ix=0; ix<len; ix++) {
glui32 ch = ((glui32 *)inbuf)[ix];
win_textgrid_putchar(win, ch);
}
}
dwin->cury = dwin->cury+1;
dwin->curx = 0;
}
win->style = dwin->origstyle;
/* ### set termkey */
gli_event_store(evtype_LineInput, win, len, termkey);
win->line_request = FALSE;
dwin->inbuf = NULL;
dwin->inoriglen = 0;
dwin->incurpos = 0;
dwin->inmax = 0;
dwin->inecho = FALSE;
dwin->intermkeys = 0;
if (gli_unregister_arr) {
char *typedesc = (inunicode ? "&+#!Iu" : "&+#!Cn");
(*gli_unregister_arr)(inbuf, inoriglen, typedesc, inarrayrock);
}
}
