void do_initscr(state *st) {
st->win[0] = (WINDOW *)initscr();
driver_select(st->drv_port, (ErlDrvEvent)(size_t)fileno(stdin), DO_READ, 1);
if (st->win[0] == NULL) {
encode_ok_reply(st, -1);
} else {
encode_ok_reply(st, 0);
}
}
void do_wattroff(state *st) {
int arity;
long slot, attrs;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_long(st->args, &(st->index), &attrs);
encode_ok_reply(st, wattroff(st->win[slot], (int)attrs));
}
void do_keypad(state *st) {
int arity, bf;
long slot;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_boolean(st->args, &(st->index), &bf);
encode_ok_reply(st, keypad(st->win[slot], bf));
}
void do_move(state *st) {
int arity;
long y, x;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &y);
ei_decode_long(st->args, &(st->index), &x);
encode_ok_reply(st, move((int)y, (int)x));
}
void do_box(state *st) {
int arity;
long slot, verch, horch;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_long(st->args, &(st->index), &verch);
ei_decode_long(st->args, &(st->index), &horch);
encode_ok_reply(st, box(st->win[slot], (chtype)verch, (chtype)horch));
}
void do_init_pair(state *st) {
int arity;
long pairnum, fcolor, bcolor;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &pairnum);
ei_decode_long(st->args, &(st->index), &fcolor);
ei_decode_long(st->args, &(st->index), &bcolor);
encode_ok_reply(st, init_pair((int)pairnum, (int)fcolor, (int)bcolor));
}
void do_wmove(state *st) {
int arity;
long slot, y, x;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_long(st->args, &(st->index), &y);
ei_decode_long(st->args, &(st->index), &x);
encode_ok_reply(st, wmove(st->win[slot], (int)y, (int)x));
}
void do_addstr(state *st) {
int arity;
long strlen;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &strlen);
char str[strlen];
ei_decode_string(st->args, &(st->index), str);
encode_ok_reply(st, addnstr(str, strlen));
}
void do_waddch(state *st) {
int arity;
long slot;
char ch = 0;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_char(st->args, &(st->index), &ch);
encode_ok_reply(st, waddch(st->win[slot], ch));
}
void do_wvline(state *st) {
int arity;
long slot, ch, max;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_long(st->args, &(st->index), &ch);
ei_decode_long(st->args, &(st->index), &max);
encode_ok_reply(st, wvline(st->win[slot], (chtype)ch, (int)max));
}
void do_mvaddch(state *st) {
int arity;
long y, x, ch;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &y);
ei_decode_long(st->args, &(st->index), &x);
ei_decode_long(st->args, &(st->index), &ch);
encode_ok_reply(st, mvaddch((int)y, (int)x, (chtype)ch));
}
void do_mvaddstr(state *st) {
int arity;
long strlen, y, x;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &y);
ei_decode_long(st->args, &(st->index), &x);
ei_decode_long(st->args, &(st->index), &strlen);
char str[strlen];
ei_decode_string(st->args, &(st->index), str);
encode_ok_reply(st, mvaddnstr((int)y, (int)x, str, (int)strlen));
}
void do_mvwaddch(state *st) {
int arity;
long slot, y, x;
char ch = 0;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_long(st->args, &(st->index), &y);
ei_decode_long(st->args, &(st->index), &x);
ei_decode_char(st->args, &(st->index), &ch);
encode_ok_reply(st, mvwaddch(st->win[slot], (int)y, (int)x, ch));
}
static void do_getch(ErlDrvData drvstate, ErlDrvEvent event) {
state *st = (state *)drvstate;
ei_x_buff eixb;
int keycode;
ei_x_new_with_version(&eixb);
keycode = getch();
if(keycode == KEY_RESIZE) {
encode_ok_reply(st, OK);
} else {
tuple(&eixb, 2);
atom(&eixb, "getch", 5);
integer(&eixb, keycode);
driver_output(st->drv_port, eixb.buff, eixb.index);
}
}
void do_wborder(state *st) {
int arity;
long slot, ls, rs, ts, bs, tl, tr, bl, br;
ei_decode_tuple_header(st->args, &(st->index), &arity);
ei_decode_long(st->args, &(st->index), &slot);
ei_decode_long(st->args, &(st->index), &ls);
ei_decode_long(st->args, &(st->index), &rs);
ei_decode_long(st->args, &(st->index), &ts);
ei_decode_long(st->args, &(st->index), &bs);
ei_decode_long(st->args, &(st->index), &tl);
ei_decode_long(st->args, &(st->index), &tr);
ei_decode_long(st->args, &(st->index), &bl);
ei_decode_long(st->args, &(st->index), &br);
encode_ok_reply(st, wborder(st->win[slot], (chtype)ls, (chtype)rs, (chtype)ts,
(chtype)bs, (chtype)tl, (chtype)tr, (chtype)bl,
(chtype)br));
}
void do_nocbreak(state *st) {
encode_ok_reply(st, nocbreak());
}
void do_regsigwinch(state *st) {
stpt = st;
signal(SIGWINCH, handle_winch);
encode_ok_reply(st, OK);
}
void do_wrefresh(state *st) {
long slot;
ei_decode_long(st->args, &(st->index), &slot);
encode_ok_reply(st, wrefresh(st->win[slot]));
}
void do_noecho(state *st) {
encode_ok_reply(st, noecho());
}
void do_addch(state *st) {
long ch;
ei_decode_long(st->args, &(st->index), &ch);
encode_ok_reply(st, addch((chtype)ch));
}
void do_start_color(state *st) {
encode_ok_reply(st, start_color());
}
void do_refresh(state *st) {
encode_ok_reply(st, refresh());
}
void do_nonl(state *st) {
encode_ok_reply(st, nonl());
}
// =============================================================================
// NCurses function wrappers
// ===========================================================================
void do_endwin(state *st) {
encode_ok_reply(st, endwin());
}
