24 lines
1.2 KiB
Common Lisp
24 lines
1.2 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; add_wch
|
|
;;; add a complex character and rendition to a curses window, then advance the cursor
|
|
;;; http://invisible-island.net/ncurses/man/curs_add_wch.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;;; int add_wch(const cchar_t *wch);
|
|
;;; int wadd_wch(WINDOW *win, const cchar_t *wch);
|
|
;;; int mvadd_wch(int y, int x, const cchar_t *wch);
|
|
;;; int mvwadd_wch( WINDOW *win, int y, int x, const cchar_t *wch);
|
|
;;; int echo_wchar(const cchar_t *wch);
|
|
;;; int wecho_wchar(WINDOW *win, const cchar_t *wch);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("add_wch" %add-wch) :int (wch (:pointer (:struct cchar_t))))
|
|
(defcfun ("wadd_wch" %wadd-wch) :int (win window) (wch (:pointer (:struct cchar_t))))
|
|
(defcfun ("mvadd_wch" %mvadd-wch) :int (y :int) (x :int) (wch (:pointer (:struct cchar_t))))
|
|
(defcfun ("mvwadd_wch" %mvwadd-wch) :int (win window) (y :int) (x :int) (wch (:pointer (:struct cchar_t))))
|
|
|
|
(defcfun ("echo_wchar" %echo-wchar) :int (wch (:pointer (:struct cchar_t))))
|
|
(defcfun ("wecho_wchar" %wecho-wchar) :int (win window) (wch (:pointer (:struct cchar_t))))
|