27 lines
1.4 KiB
Common Lisp
27 lines
1.4 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; inchstr
|
|
;;; get a string of characters (and attributes) from a curses window
|
|
;;; http://invisible-island.net/ncurses/man/curs_inchstr.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int inchstr(chtype *chstr);
|
|
;; int inchnstr(chtype *chstr, int n);
|
|
;; int winchstr(WINDOW *win, chtype *chstr);
|
|
;; int winchnstr(WINDOW *win, chtype *chstr, int n);
|
|
;; int mvinchstr(int y, int x, chtype *chstr);
|
|
;; int mvinchnstr(int y, int x, chtype *chstr, int n);
|
|
;; int mvwinchstr(WINDOW *win, int y, int x, chtype *chstr);
|
|
;; int mvwinchnstr(WINDOW *win, int y, int x, chtype *chstr, int n);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("inchstr" %inchstr) :int (chstr (:pointer chtype)))
|
|
(defcfun ("inchnstr" %inchnstr) :int (chstr (:pointer chtype)) (n :int))
|
|
(defcfun ("winchstr" %winchstr) :int (win window) (chstr (:pointer chtype)))
|
|
(defcfun ("winchnstr" %winchnstr) :int (win window) (chstr (:pointer chtype)) (n :int))
|
|
(defcfun ("mvinchstr" %mvinchstr) :int (y :int) (x :int) (chstr (:pointer chtype)))
|
|
(defcfun ("mvinchnstr" %mvinchnstr) :int (y :int) (x :int) (chstr (:pointer chtype)) (n :int))
|
|
(defcfun ("mvwinchstr" %mvwinchstr) :int (win window) (y :int) (x :int) (chstr (:pointer chtype)))
|
|
(defcfun ("mvwinchnstr" %mvwinchnstr) :int (win window) (y :int) (x :int) (chstr (:pointer chtype)) (n :int))
|