36 lines
1.6 KiB
Common Lisp
36 lines
1.6 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; window
|
|
;;; create curses windows
|
|
;;; http://invisible-island.net/ncurses/man/curs_window.3x.html
|
|
;;; http://www.manpagez.com/man/3/newwin/
|
|
|
|
;;; C prototypes
|
|
|
|
;; WINDOW *newwin(int nlines, int ncols, int begin_y, int begin_x);
|
|
;; int delwin(WINDOW *win);
|
|
;; int mvwin(WINDOW *win, int y, int x);
|
|
;; WINDOW *subwin(WINDOW *orig, int nlines, int ncols, int begin_y, int begin_x);
|
|
;; WINDOW *derwin(WINDOW *orig, int nlines, int ncols, int begin_y, int begin_x);
|
|
;; int mvderwin(WINDOW *win, int par_y, int par_x);
|
|
;; WINDOW *dupwin(WINDOW *win);
|
|
|
|
;; void wsyncup(WINDOW *win);
|
|
;; int syncok(WINDOW *win, bool bf);
|
|
;; void wcursyncup(WINDOW *win);
|
|
;; void wsyncdown(WINDOW *win);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("newwin" %newwin) window (nlines :int) (ncols :int) (begin_y :int) (begin_x :int))
|
|
(defcfun ("delwin" %delwin) :int (win window))
|
|
(defcfun ("mvwin" %mvwin) :int (win window) (y :int) (x :int))
|
|
(defcfun ("subwin" %subwin) window (orig window) (nlines :int) (ncols :int) (begin_y :int) (begin_x :int))
|
|
(defcfun ("derwin" %derwin) window (orig window) (nlines :int) (ncols :int) (begin_y :int) (begin_x :int))
|
|
(defcfun ("mvderwin" %mvderwin) :int (win window) (par_y :int) (par_x :int))
|
|
(defcfun ("dupwin" %dupwin) window (win window))
|
|
|
|
(defcfun ("wsyncup" %wsyncup) :void (win window))
|
|
(defcfun ("syncok" %syncok) :int (win window) (bf :boolean))
|
|
(defcfun ("wcursyncup" %wcursyncup) :void (win window))
|
|
(defcfun ("wsyncdown" %wsyncdown) :void (win window))
|