19 lines
841 B
Common Lisp
19 lines
841 B
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; in_wch
|
|
;;; extract a wide (multi-byte) character and rendition from a window
|
|
;;; http://invisible-island.net/ncurses/man/curs_in_wch.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int in_wch(cchar_t *wcval);
|
|
;; int mvin_wch(int y, int x, cchar_t *wcval);
|
|
;; int win_wch(WINDOW *win, cchar_t *wcval);
|
|
;; int mvwin_wch(WINDOW *win, int y, int x, cchar_t *wcval);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("in_wch" %in-wch) :int (wcval (:pointer (:struct cchar_t))))
|
|
(defcfun ("mvin_wch" %mvin-wch) :int (y :int) (x :int) (wcval (:pointer (:struct cchar_t))))
|
|
(defcfun ("win_wch" %win-wch) :int (win window) (wcval (:pointer (:struct cchar_t))))
|
|
(defcfun ("mvwin_wch" %mvwin-wch) :int (win window) (y :int) (x :int) (wcval (:pointer (:struct cchar_t))))
|