19 lines
852 B
Common Lisp
19 lines
852 B
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; ins_wch
|
|
;;; insert a complex character and rendition into a window
|
|
;;; http://invisible-island.net/ncurses/man/curs_ins_wch.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int ins_wch(const cchar_t *wch);
|
|
;; int wins_wch(WINDOW *win, const cchar_t *wch);
|
|
;; int mvins_wch(int y, int x, const cchar_t *wch);
|
|
;; int mvwins_wch(WINDOW *win, int y, int x, const cchar_t *wch);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("ins_wch" %ins-wch) :int (wch (:pointer (:struct cchar_t))))
|
|
(defcfun ("wins_wch" %wins-wch) :int (win window) (wch (:pointer (:struct cchar_t))))
|
|
(defcfun ("mvins_wch" %mvins-wch) :int (y :int) (x :int) (wch (:pointer (:struct cchar_t))))
|
|
(defcfun ("mvwins_wch" %mvwins-wch) :int (win window) (y :int) (x :int) (wch (:pointer (:struct cchar_t))))
|