steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

curses: simplification, implement coordinate queries

db4
Philipp Brüschweiler 2010-02-25 22:02:47 +01:00
parent 1819da7f41
commit 15eeb0391e
1 changed files with 38 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
extra/curses/curses.factor
View File

@ -317,18 +317,24 @@ PRIVATE>
: wcrefresh ( window -- ) ptr>> (wcrefresh) ;
: crefresh ( -- ) current-window get wcrefresh ;
: wcnl ( window -- ) [ "\n" ] dip ptr>> (wcwrite) ;
: wgetch ( window -- key ) ptr>> (wgetch) ;
: getch ( -- key ) current-window get wgetch ;
: waddch ( ch window -- ) ptr>> (waddch) ;
: addch ( ch -- ) current-window get waddch ;
: wcnl ( window -- ) [ CHAR: \n ] dip waddch ;
: cnl ( -- ) current-window get wcnl ;
: wcwrite ( string window -- ) ptr>> (wcwrite) ;
: cwrite ( string -- ) current-window get wcwrite ;
: wcprint ( string window -- )
ptr>> [ (wcwrite) ] [ "\n" swap (wcwrite) ] bi ;
ptr>> [ (wcwrite) ] [ CHAR: \n swap (waddch) ] bi ;
: cprint ( string -- ) current-window get wcprint ;
: wcprintf ( string window -- )
ptr>> [ (wcwrite) ] [ "\n" swap (wcwrite) ]
ptr>> [ (wcwrite) ] [ CHAR: \n swap (waddch) ]
[ (wcrefresh) ] tri ;
: cprintf ( string -- ) current-window get wcprintf ;
@ -340,12 +346,6 @@ PRIVATE>
[ encoding>> ] [ ptr>> ] bi (wcread) ;
: cread ( n -- string ) current-window get wcread ;
: wgetch ( window -- key ) ptr>> (wgetch) ;
: getch ( -- key ) current-window get wgetch ;
: waddch ( ch window -- ) ptr>> (waddch) ;
: addch ( ch -- ) current-window get waddch ;
: werase ( window -- ) ptr>> ffi:werase curses-error ;
: erase ( -- ) current-window get werase ;
@ -449,3 +449,32 @@ PRIVATE>
: mousemask ( mask -- newmask oldmask )
0 <ulong> [ ffi:mousemask ] keep *ulong ;
: wget-yx ( window -- y x )
ptr>> ffi:c-window memory>struct [ _cury>> ] [ _curx>> ] bi ;
: get-yx ( -- y x )
current-window get wget-yx ;
: wget-y ( window -- y )
ptr>> ffi:c-window memory>struct _cury>> ;
: get-y ( -- y )
current-window get wget-y ;
: wget-x ( window -- x )
ptr>> ffi:c-window memory>struct _curx>> ;
: get-x ( -- x )
current-window get wget-x ;
: wget-max-yx ( window -- y x )
ptr>> ffi:c-window memory>struct
[ _maxy>> 1 + ] [ _maxx>> 1 + ] bi ;
: get-max-yx ( -- y x )
current-window get wget-max-yx ;
: wget-max-y ( window -- y )
ptr>> ffi:c-window memory>struct _maxy>> 1 + ;
: get-max-y ( -- y )
current-window get wget-max-y ;
: wget-max-x ( window -- x )
ptr>> ffi:c-window memory>struct _maxx>> 1 + ;
: get-max-x ( -- x )
current-window get wget-max-x ;