25 lines
1,013 B
Common Lisp
25 lines
1,013 B
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; touch
|
|
;;; curses refresh control routines
|
|
;;; http://invisible-island.net/ncurses/man/curs_touch.3x.html
|
|
;;; http://www-01.ibm.com/support/knowledgecenter/ssw_aix_61/com.ibm.aix.basetrf2/touchwin.htm
|
|
|
|
;;; C prototypes
|
|
|
|
;; int touchwin(WINDOW *win);
|
|
;; int touchline(WINDOW *win, int start, int count);
|
|
;; int untouchwin(WINDOW *win);
|
|
;; int wtouchln(WINDOW *win, int y, int n, int changed);
|
|
;; bool is_linetouched(WINDOW *win, int line);
|
|
;; bool is_wintouched(WINDOW *win);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("touchwin" %touchwin) :int (win window))
|
|
(defcfun ("touchline" %touchline) :int (win window) (start :int) (count :int))
|
|
(defcfun ("untouchwin" %untouchwin) :int (win window))
|
|
(defcfun ("wtouchln" %wtouchln) :int (win window) (y :int) (n :int) (changed :int))
|
|
|
|
(defcfun ("is_linetouched" %is-linetouched) :boolean (win window) (line :int))
|
|
(defcfun ("is_wintouched" %is-wintouched) :boolean (win window))
|