809 lines
15 KiB
Plaintext
809 lines
15 KiB
Plaintext
|
/* $RCSfile: curses.mus,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:06:12 $
|
||
|
|
*
|
||
|
|
* $Log: curses.mus,v $
|
||
|
|
* Revision 4.0.1.2 92/06/08 16:06:12 lwall
|
||
|
|
* patch20: function key support added to curses.mus
|
||
|
|
*
|
||
|
|
* Revision 4.0.1.1 91/11/05 19:06:19 lwall
|
||
|
|
* patch11: usub/curses.mus now supports SysV curses
|
||
|
|
*
|
||
|
|
* Revision 4.0 91/03/20 01:56:13 lwall
|
||
|
|
* 4.0 baseline.
|
||
|
|
*
|
||
|
|
* Revision 3.0.1.1 90/08/09 04:05:21 lwall
|
||
|
|
* patch19: Initial revision
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "EXTERN.h"
|
||
|
|
#include "perl.h"
|
||
|
|
|
||
|
|
char *savestr();
|
||
|
|
static char *getcap();
|
||
|
|
|
||
|
|
#undef bool
|
||
|
|
#include <ncurses.h>
|
||
|
|
|
||
|
|
#ifndef A_UNDERLINE
|
||
|
|
#define NOSETATTR
|
||
|
|
#define A_STANDOUT 0x0200
|
||
|
|
#define A_UNDERLINE 0x0100
|
||
|
|
#define A_REVERSE 0x0200
|
||
|
|
#define A_BLINK 0x0400
|
||
|
|
#define A_BOLD 0x0800
|
||
|
|
#define A_ALTCHARSET 0x1000
|
||
|
|
#define A_NORMAL 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef USG
|
||
|
|
static char *tcbuf = NULL;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef NOSETATTR
|
||
|
|
static unsigned curattr = NORMAL;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
static enum uservars {
|
||
|
|
UV_curscr,
|
||
|
|
UV_stdscr,
|
||
|
|
UV_LINES,
|
||
|
|
UV_COLS,
|
||
|
|
UV_ERR,
|
||
|
|
UV_OK,
|
||
|
|
UV_A_STANDOUT,
|
||
|
|
UV_A_UNDERLINE,
|
||
|
|
UV_A_REVERSE,
|
||
|
|
UV_A_BLINK,
|
||
|
|
UV_A_DIM,
|
||
|
|
UV_A_BOLD,
|
||
|
|
UV_A_NORMAL,
|
||
|
|
};
|
||
|
|
|
||
|
|
static enum usersubs {
|
||
|
|
US_addch,
|
||
|
|
US_waddch,
|
||
|
|
US_addstr,
|
||
|
|
US_waddstr,
|
||
|
|
US_box,
|
||
|
|
US_clear,
|
||
|
|
US_wclear,
|
||
|
|
US_clearok,
|
||
|
|
US_clrtobot,
|
||
|
|
US_wclrtobot,
|
||
|
|
US_clrtoeol,
|
||
|
|
US_wclrtoeol,
|
||
|
|
US_delch,
|
||
|
|
US_wdelch,
|
||
|
|
US_deleteln,
|
||
|
|
US_wdeleteln,
|
||
|
|
US_erase,
|
||
|
|
US_werase,
|
||
|
|
US_idlok,
|
||
|
|
US_insch,
|
||
|
|
US_winsch,
|
||
|
|
US_insertln,
|
||
|
|
US_winsertln,
|
||
|
|
US_move,
|
||
|
|
US_wmove,
|
||
|
|
US_overlay,
|
||
|
|
US_overwrite,
|
||
|
|
US_refresh,
|
||
|
|
US_wrefresh,
|
||
|
|
US_standout,
|
||
|
|
US_wstandout,
|
||
|
|
US_standend,
|
||
|
|
US_wstandend,
|
||
|
|
US_cbreak,
|
||
|
|
US_nocbreak,
|
||
|
|
US_echo,
|
||
|
|
US_noecho,
|
||
|
|
US_getch,
|
||
|
|
US_wgetch,
|
||
|
|
US_getstr,
|
||
|
|
US_wgetstr,
|
||
|
|
US_raw,
|
||
|
|
US_noraw,
|
||
|
|
US_baudrate,
|
||
|
|
US_delwin,
|
||
|
|
US_endwin,
|
||
|
|
US_erasechar,
|
||
|
|
US_getyx,
|
||
|
|
US_inch,
|
||
|
|
US_winch,
|
||
|
|
US_initscr,
|
||
|
|
US_killchar,
|
||
|
|
US_leaveok,
|
||
|
|
US_longname,
|
||
|
|
US_mvwin,
|
||
|
|
US_newwin,
|
||
|
|
US_nl,
|
||
|
|
US_nonl,
|
||
|
|
US_scrollok,
|
||
|
|
US_subwin,
|
||
|
|
US_touchline,
|
||
|
|
US_touchwin,
|
||
|
|
US_unctrl,
|
||
|
|
#ifndef __FreeBSD__
|
||
|
|
US_gettmode,
|
||
|
|
#endif
|
||
|
|
US_mvcur,
|
||
|
|
US_scroll,
|
||
|
|
US_savetty,
|
||
|
|
US_resetty,
|
||
|
|
US_attroff,
|
||
|
|
US_wattroff,
|
||
|
|
US_attron,
|
||
|
|
US_wattron,
|
||
|
|
US_attrset,
|
||
|
|
US_wattrset,
|
||
|
|
#ifdef CURSEFMT
|
||
|
|
US_printw, /* remove */
|
||
|
|
US_wprintw, /* remove */
|
||
|
|
US_scanw, /* delete */
|
||
|
|
US_wscanw, /* delete */
|
||
|
|
#endif
|
||
|
|
US_getcap,
|
||
|
|
US_mysub,
|
||
|
|
US_testcallback,
|
||
|
|
};
|
||
|
|
|
||
|
|
static int usersub();
|
||
|
|
static int userset();
|
||
|
|
static int userval();
|
||
|
|
|
||
|
|
int
|
||
|
|
init_curses()
|
||
|
|
{
|
||
|
|
struct ufuncs uf;
|
||
|
|
char *filename = "curses.c";
|
||
|
|
|
||
|
|
uf.uf_set = userset;
|
||
|
|
uf.uf_val = userval;
|
||
|
|
|
||
|
|
#define MAGICVAR(name, ix) uf.uf_index = ix, magicname(name, &uf, sizeof uf)
|
||
|
|
|
||
|
|
MAGICVAR("curscr", UV_curscr);
|
||
|
|
MAGICVAR("stdscr", UV_stdscr);
|
||
|
|
MAGICVAR("LINES", UV_LINES);
|
||
|
|
MAGICVAR("COLS", UV_COLS);
|
||
|
|
MAGICVAR("ERR", UV_ERR);
|
||
|
|
MAGICVAR("OK", UV_OK);
|
||
|
|
MAGICVAR("A_STANDOUT", UV_A_STANDOUT);
|
||
|
|
MAGICVAR("A_UNDERLINE", UV_A_UNDERLINE);
|
||
|
|
MAGICVAR("A_REVERSE", UV_A_REVERSE);
|
||
|
|
MAGICVAR("A_BLINK", UV_A_BLINK);
|
||
|
|
MAGICVAR("A_DIM", UV_A_DIM);
|
||
|
|
MAGICVAR("A_BOLD", UV_A_BOLD);
|
||
|
|
MAGICVAR("A_NORMAL", UV_A_NORMAL);
|
||
|
|
|
||
|
|
make_usub("addch", US_addch, usersub, filename);
|
||
|
|
make_usub("waddch", US_waddch, usersub, filename);
|
||
|
|
make_usub("addstr", US_addstr, usersub, filename);
|
||
|
|
make_usub("waddstr", US_waddstr, usersub, filename);
|
||
|
|
make_usub("box", US_box, usersub, filename);
|
||
|
|
make_usub("clear", US_clear, usersub, filename);
|
||
|
|
make_usub("wclear", US_wclear, usersub, filename);
|
||
|
|
make_usub("clearok", US_clearok, usersub, filename);
|
||
|
|
make_usub("clrtobot", US_clrtobot, usersub, filename);
|
||
|
|
make_usub("wclrtobot", US_wclrtobot, usersub, filename);
|
||
|
|
make_usub("clrtoeol", US_clrtoeol, usersub, filename);
|
||
|
|
make_usub("wclrtoeol", US_wclrtoeol, usersub, filename);
|
||
|
|
make_usub("delch", US_delch, usersub, filename);
|
||
|
|
make_usub("wdelch", US_wdelch, usersub, filename);
|
||
|
|
make_usub("deleteln", US_deleteln, usersub, filename);
|
||
|
|
make_usub("wdeleteln", US_wdeleteln, usersub, filename);
|
||
|
|
make_usub("erase", US_erase, usersub, filename);
|
||
|
|
make_usub("werase", US_werase, usersub, filename);
|
||
|
|
make_usub("idlok", US_idlok, usersub, filename);
|
||
|
|
make_usub("insch", US_insch, usersub, filename);
|
||
|
|
make_usub("winsch", US_winsch, usersub, filename);
|
||
|
|
make_usub("insertln", US_insertln, usersub, filename);
|
||
|
|
make_usub("winsertln", US_winsertln, usersub, filename);
|
||
|
|
make_usub("move", US_move, usersub, filename);
|
||
|
|
make_usub("wmove", US_wmove, usersub, filename);
|
||
|
|
make_usub("overlay", US_overlay, usersub, filename);
|
||
|
|
make_usub("overwrite", US_overwrite, usersub, filename);
|
||
|
|
make_usub("refresh", US_refresh, usersub, filename);
|
||
|
|
make_usub("wrefresh", US_wrefresh, usersub, filename);
|
||
|
|
make_usub("standout", US_standout, usersub, filename);
|
||
|
|
make_usub("wstandout", US_wstandout, usersub, filename);
|
||
|
|
make_usub("standend", US_standend, usersub, filename);
|
||
|
|
make_usub("wstandend", US_wstandend, usersub, filename);
|
||
|
|
make_usub("cbreak", US_cbreak, usersub, filename);
|
||
|
|
make_usub("nocbreak", US_nocbreak, usersub, filename);
|
||
|
|
make_usub("echo", US_echo, usersub, filename);
|
||
|
|
make_usub("noecho", US_noecho, usersub, filename);
|
||
|
|
make_usub("getch", US_getch, usersub, filename);
|
||
|
|
make_usub("wgetch", US_wgetch, usersub, filename);
|
||
|
|
make_usub("getstr", US_getstr, usersub, filename);
|
||
|
|
make_usub("wgetstr", US_wgetstr, usersub, filename);
|
||
|
|
make_usub("raw", US_raw, usersub, filename);
|
||
|
|
make_usub("noraw", US_noraw, usersub, filename);
|
||
|
|
make_usub("baudrate", US_baudrate, usersub, filename);
|
||
|
|
make_usub("delwin", US_delwin, usersub, filename);
|
||
|
|
make_usub("endwin", US_endwin, usersub, filename);
|
||
|
|
make_usub("erasechar", US_erasechar, usersub, filename);
|
||
|
|
make_usub("getyx", US_getyx, usersub, filename);
|
||
|
|
make_usub("inch", US_inch, usersub, filename);
|
||
|
|
make_usub("winch", US_winch, usersub, filename);
|
||
|
|
make_usub("initscr", US_initscr, usersub, filename);
|
||
|
|
make_usub("killchar", US_killchar, usersub, filename);
|
||
|
|
make_usub("leaveok", US_leaveok, usersub, filename);
|
||
|
|
make_usub("longname", US_longname, usersub, filename);
|
||
|
|
make_usub("mvwin", US_mvwin, usersub, filename);
|
||
|
|
make_usub("newwin", US_newwin, usersub, filename);
|
||
|
|
make_usub("nl", US_nl, usersub, filename);
|
||
|
|
make_usub("nonl", US_nonl, usersub, filename);
|
||
|
|
make_usub("scrollok", US_scrollok, usersub, filename);
|
||
|
|
make_usub("subwin", US_subwin, usersub, filename);
|
||
|
|
make_usub("touchline", US_touchline, usersub, filename);
|
||
|
|
make_usub("touchwin", US_touchwin, usersub, filename);
|
||
|
|
make_usub("unctrl", US_unctrl, usersub, filename);
|
||
|
|
#ifndef __FreeBSD__
|
||
|
|
make_usub("gettmode", US_gettmode, usersub, filename);
|
||
|
|
#endif
|
||
|
|
make_usub("mvcur", US_mvcur, usersub, filename);
|
||
|
|
make_usub("scroll", US_scroll, usersub, filename);
|
||
|
|
make_usub("savetty", US_savetty, usersub, filename);
|
||
|
|
make_usub("resetty", US_resetty, usersub, filename);
|
||
|
|
make_usub("getcap", US_getcap, usersub, filename);
|
||
|
|
make_usub("attroff", US_attroff, usersub, filename);
|
||
|
|
make_usub("wattroff", US_wattroff, usersub, filename);
|
||
|
|
make_usub("attron", US_attron, usersub, filename);
|
||
|
|
make_usub("wattron", US_wattron, usersub, filename);
|
||
|
|
make_usub("attrset", US_attrset, usersub, filename);
|
||
|
|
make_usub("wattrset", US_wattrset, usersub, filename);
|
||
|
|
#ifdef CURSEFMT
|
||
|
|
make_usub("printw", US_printw, usersub, filename);
|
||
|
|
make_usub("wprintw", US_wprintw, usersub, filename);
|
||
|
|
make_usub("scanw", US_scanw, usersub, filename);
|
||
|
|
make_usub("wscanw", US_wscanw, usersub, filename);
|
||
|
|
#endif
|
||
|
|
make_usub("testcallback", US_testcallback,usersub, filename);
|
||
|
|
};
|
||
|
|
|
||
|
|
#ifdef NOSETATTR
|
||
|
|
#define attron(attr) wattron(stdscr, attr)
|
||
|
|
#define attroff(attr) wattroff(stdscr, attr)
|
||
|
|
#define attset(attr) wattset(stdscr, attr)
|
||
|
|
|
||
|
|
int
|
||
|
|
wattron(win, attr)
|
||
|
|
WINDOW *win;
|
||
|
|
chtype attr;
|
||
|
|
{
|
||
|
|
curattr |= attr;
|
||
|
|
if (curattr & A_STANDOUT) {
|
||
|
|
return(wstandout(win));
|
||
|
|
} else {
|
||
|
|
return(wstandend(win));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int
|
||
|
|
wattroff(win, attr)
|
||
|
|
WINDOW *win;
|
||
|
|
chtype attr;
|
||
|
|
{
|
||
|
|
curattr &= (~attr);
|
||
|
|
if (curattr & A_STANDOUT) {
|
||
|
|
return(wstandout(win));
|
||
|
|
} else {
|
||
|
|
return(wstandend(win));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int
|
||
|
|
wattrset(win, attr)
|
||
|
|
WINDOW *win;
|
||
|
|
chtype attr;
|
||
|
|
{
|
||
|
|
curattr = attr;
|
||
|
|
if (curattr & A_STANDOUT) {
|
||
|
|
return(wstandout(win));
|
||
|
|
} else {
|
||
|
|
return(wstandend(win));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
static int
|
||
|
|
usersub(ix, sp, items)
|
||
|
|
int ix;
|
||
|
|
register int sp;
|
||
|
|
register int items;
|
||
|
|
{
|
||
|
|
STR **st = stack->ary_array + sp;
|
||
|
|
register int i;
|
||
|
|
register char *tmps;
|
||
|
|
register STR *Str; /* used in str_get and str_gnum macros */
|
||
|
|
|
||
|
|
switch (ix) {
|
||
|
|
CASE int addch
|
||
|
|
I char ch
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int waddch
|
||
|
|
I WINDOW* win
|
||
|
|
I char ch
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int addstr
|
||
|
|
I char* str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int waddstr
|
||
|
|
I WINDOW* win
|
||
|
|
I char* str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int box
|
||
|
|
I WINDOW* win
|
||
|
|
I char vert
|
||
|
|
I char hor
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int clear
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wclear
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int clearok
|
||
|
|
I WINDOW* win
|
||
|
|
I bool boolf
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int clrtobot
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wclrtobot
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int clrtoeol
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wclrtoeol
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int delch
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wdelch
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int deleteln
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wdeleteln
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int erase
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int werase
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int idlok
|
||
|
|
I WINDOW* win
|
||
|
|
I bool boolf
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int insch
|
||
|
|
I char c
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int winsch
|
||
|
|
I WINDOW* win
|
||
|
|
I char c
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int insertln
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int winsertln
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int move
|
||
|
|
I int y
|
||
|
|
I int x
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wmove
|
||
|
|
I WINDOW* win
|
||
|
|
I int y
|
||
|
|
I int x
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int overlay
|
||
|
|
I WINDOW* win1
|
||
|
|
I WINDOW* win2
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int overwrite
|
||
|
|
I WINDOW* win1
|
||
|
|
I WINDOW* win2
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int refresh
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wrefresh
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int standout
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wstandout
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int standend
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wstandend
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int cbreak
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int nocbreak
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int echo
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int noecho
|
||
|
|
END
|
||
|
|
|
||
|
|
case US_getch:
|
||
|
|
if (items != 0)
|
||
|
|
fatal("Usage: &getch()");
|
||
|
|
else {
|
||
|
|
int retval;
|
||
|
|
char retch;
|
||
|
|
|
||
|
|
retval = getch();
|
||
|
|
if (retval == EOF)
|
||
|
|
st[0] = &str_undef;
|
||
|
|
else {
|
||
|
|
retch = retval;
|
||
|
|
if (retval > 0377)
|
||
|
|
str_numset(st[0], (double) retval);
|
||
|
|
else
|
||
|
|
str_nset(st[0], &retch, 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return sp;
|
||
|
|
|
||
|
|
case US_wgetch:
|
||
|
|
if (items != 1)
|
||
|
|
fatal("Usage: &wgetch($win)");
|
||
|
|
else {
|
||
|
|
int retval;
|
||
|
|
char retch;
|
||
|
|
WINDOW* win = *(WINDOW**) str_get(st[1]);
|
||
|
|
|
||
|
|
retval = wgetch(win);
|
||
|
|
if (retval == EOF)
|
||
|
|
st[0] = &str_undef;
|
||
|
|
else {
|
||
|
|
retch = retval;
|
||
|
|
if (retval > 0377)
|
||
|
|
str_numset(st[0], (double) retval);
|
||
|
|
else
|
||
|
|
str_nset(st[0], &retch, 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return sp;
|
||
|
|
|
||
|
|
CASE int getstr
|
||
|
|
O char* str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wgetstr
|
||
|
|
I WINDOW* win
|
||
|
|
O char* str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int raw
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int noraw
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int baudrate
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int delwin
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int endwin
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int erasechar
|
||
|
|
END
|
||
|
|
|
||
|
|
case US_getyx:
|
||
|
|
if (items != 3)
|
||
|
|
fatal("Usage: &getyx($win, $y, $x)");
|
||
|
|
else {
|
||
|
|
int retval;
|
||
|
|
STR* str = str_new(0);
|
||
|
|
WINDOW* win = *(WINDOW**) str_get(st[1]);
|
||
|
|
int y;
|
||
|
|
int x;
|
||
|
|
|
||
|
|
do_sprintf(str, items - 1, st + 1);
|
||
|
|
retval = getyx(win, y, x);
|
||
|
|
str_numset(st[2], (double)y);
|
||
|
|
str_numset(st[3], (double)x);
|
||
|
|
str_numset(st[0], (double) retval);
|
||
|
|
str_free(str);
|
||
|
|
}
|
||
|
|
return sp;
|
||
|
|
|
||
|
|
CASE int inch
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int winch
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE WINDOW* initscr
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int killchar
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int leaveok
|
||
|
|
I WINDOW* win
|
||
|
|
I bool boolf
|
||
|
|
END
|
||
|
|
|
||
|
|
#ifdef BSD
|
||
|
|
CASE char* longname
|
||
|
|
END
|
||
|
|
#else
|
||
|
|
CASE char* longname
|
||
|
|
I char* termbug
|
||
|
|
I char* name
|
||
|
|
END
|
||
|
|
#endif
|
||
|
|
|
||
|
|
CASE int mvwin
|
||
|
|
I WINDOW* win
|
||
|
|
I int y
|
||
|
|
I int x
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE WINDOW* newwin
|
||
|
|
I int lines
|
||
|
|
I int cols
|
||
|
|
I int begin_y
|
||
|
|
I int begin_x
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int nl
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int nonl
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int scrollok
|
||
|
|
I WINDOW* win
|
||
|
|
I bool boolf
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE WINDOW* subwin
|
||
|
|
I WINDOW* win
|
||
|
|
I int lines
|
||
|
|
I int cols
|
||
|
|
I int begin_y
|
||
|
|
I int begin_x
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int touchline
|
||
|
|
I WINDOW* win
|
||
|
|
I int y
|
||
|
|
I int startx
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int touchwin
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE char* unctrl
|
||
|
|
I char ch
|
||
|
|
END
|
||
|
|
|
||
|
|
#ifndef __FreeBSD__
|
||
|
|
CASE int gettmode
|
||
|
|
END
|
||
|
|
#endif
|
||
|
|
|
||
|
|
CASE int mvcur
|
||
|
|
I int lasty
|
||
|
|
I int lastx
|
||
|
|
I int newy
|
||
|
|
I int newx
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int scroll
|
||
|
|
I WINDOW* win
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int savetty
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE void resetty
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int attroff
|
||
|
|
I chtype str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wattroff
|
||
|
|
I WINDOW* win
|
||
|
|
I chtype str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wattron
|
||
|
|
I WINDOW* win
|
||
|
|
I chtype str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int attron
|
||
|
|
I chtype str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int attrset
|
||
|
|
I chtype str
|
||
|
|
END
|
||
|
|
|
||
|
|
CASE int wattrset
|
||
|
|
I WINDOW* win
|
||
|
|
I chtype str
|
||
|
|
END
|
||
|
|
|
||
|
|
#ifdef CURSEFMT
|
||
|
|
case US_printw:
|
||
|
|
if (items < 1)
|
||
|
|
fatal("Usage: &printw($fmt, $arg1, $arg2, ... )");
|
||
|
|
else {
|
||
|
|
int retval;
|
||
|
|
STR* str = str_new(0);
|
||
|
|
|
||
|
|
do_sprintf(str, items - 1, st + 1);
|
||
|
|
retval = addstr(str->str_ptr);
|
||
|
|
str_numset(st[0], (double) retval);
|
||
|
|
str_free(str);
|
||
|
|
}
|
||
|
|
return sp;
|
||
|
|
|
||
|
|
case US_wprintw:
|
||
|
|
if (items < 2)
|
||
|
|
fatal("Usage: &wprintw($win, $fmt, $arg1, $arg2, ... )");
|
||
|
|
else {
|
||
|
|
int retval;
|
||
|
|
STR* str = str_new(0);
|
||
|
|
WINDOW* win = *(WINDOW**) str_get(st[1]);
|
||
|
|
|
||
|
|
do_sprintf(str, items - 1, st + 1);
|
||
|
|
retval = waddstr(win, str->str_ptr);
|
||
|
|
str_numset(st[0], (double) retval);
|
||
|
|
str_free(str);
|
||
|
|
}
|
||
|
|
return sp;
|
||
|
|
|
||
|
|
#endif
|
||
|
|
CASE char* getcap
|
||
|
|
I char* str
|
||
|
|
END
|
||
|
|
default:
|
||
|
|
fatal("Unimplemented user-defined subroutine");
|
||
|
|
}
|
||
|
|
return sp;
|
||
|
|
}
|
||
|
|
|
||
|
|
static char
|
||
|
|
*getcap(cap)
|
||
|
|
register char *cap;
|
||
|
|
{
|
||
|
|
static char *tcbuf = NULL;
|
||
|
|
static char nocaperr[] = "Cannot read termcap entry.";
|
||
|
|
extern char *tgetstr();
|
||
|
|
char *cp, *tp;
|
||
|
|
static char capstr[256];
|
||
|
|
|
||
|
|
cp = capstr;
|
||
|
|
if (tcbuf == NULL) {
|
||
|
|
if ((tcbuf = malloc(1024)) == NULL) {
|
||
|
|
fatal(nocaperr);
|
||
|
|
}
|
||
|
|
tp = getenv("TERM");
|
||
|
|
if (!tp)
|
||
|
|
tp = "tty";
|
||
|
|
if (tgetent(tcbuf, tp) == -1) {
|
||
|
|
fatal(nocaperr);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return (tgetstr(cap, &cp));
|
||
|
|
}
|
||
|
|
|
||
|
|
static int
|
||
|
|
userval(ix, str)
|
||
|
|
int ix;
|
||
|
|
STR *str;
|
||
|
|
{
|
||
|
|
switch (ix) {
|
||
|
|
case UV_COLS:
|
||
|
|
str_numset(str, (double)COLS);
|
||
|
|
break;
|
||
|
|
case UV_ERR:
|
||
|
|
str_numset(str, (double)ERR);
|
||
|
|
break;
|
||
|
|
case UV_LINES:
|
||
|
|
str_numset(str, (double)LINES);
|
||
|
|
break;
|
||
|
|
case UV_OK:
|
||
|
|
str_numset(str, (double)OK);
|
||
|
|
break;
|
||
|
|
case UV_curscr:
|
||
|
|
str_nset(str, &curscr, sizeof(WINDOW*));
|
||
|
|
break;
|
||
|
|
case UV_stdscr:
|
||
|
|
str_nset(str, &stdscr, sizeof(WINDOW*));
|
||
|
|
break;
|
||
|
|
case UV_A_STANDOUT:
|
||
|
|
str_numset(str, (double)A_STANDOUT);
|
||
|
|
break;
|
||
|
|
case UV_A_UNDERLINE:
|
||
|
|
str_numset(str, (double)A_UNDERLINE);
|
||
|
|
break;
|
||
|
|
case UV_A_REVERSE:
|
||
|
|
str_numset(str, (double)A_REVERSE);
|
||
|
|
break;
|
||
|
|
case UV_A_BLINK:
|
||
|
|
str_numset(str, (double)A_BLINK);
|
||
|
|
break;
|
||
|
|
case UV_A_DIM:
|
||
|
|
str_numset(str, (double)A_DIM);
|
||
|
|
break;
|
||
|
|
case UV_A_BOLD:
|
||
|
|
str_numset(str, (double)A_BOLD);
|
||
|
|
break;
|
||
|
|
case UV_A_NORMAL:
|
||
|
|
str_numset(str, (double)A_NORMAL);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
static int
|
||
|
|
userset(ix, str)
|
||
|
|
int ix;
|
||
|
|
STR *str;
|
||
|
|
{
|
||
|
|
switch (ix) {
|
||
|
|
case UV_COLS:
|
||
|
|
COLS = (int)str_gnum(str);
|
||
|
|
break;
|
||
|
|
case UV_LINES:
|
||
|
|
LINES = (int)str_gnum(str);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|