27 lines
1.4 KiB
Common Lisp
27 lines
1.4 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; inwstr
|
|
;;; extract a string of wchar_t characters from a curses window
|
|
;;; http://invisible-island.net/ncurses/man/curs_inwstr.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int inwstr(wchar_t *str);
|
|
;; int innwstr(wchar_t *str, int n);
|
|
;; int winwstr(WINDOW *win, wchar_t *str);
|
|
;; int winnwstr(WINDOW *win, wchar_t *str, int n);
|
|
;; int mvinwstr(int y, int x, wchar_t *str);
|
|
;; int mvinnwstr(int y, int x, wchar_t *str, int n);
|
|
;; int mvwinwstr(WINDOW *win, int y, int x, wchar_t *str);
|
|
;; int mvwinnwstr(WINDOW *win, int y, int x, wchar_t *str, int n);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("inwstr" %inwstr) :int (str (:pointer wchar_t)))
|
|
(defcfun ("innwstr" %innwstr) :int (str (:pointer wchar_t)) (n :int))
|
|
(defcfun ("winwstr" %winwstr) :int (win window) (str (:pointer wchar_t)))
|
|
(defcfun ("winnwstr" %winnwstr) :int (win window) (str (:pointer wchar_t)) (n :int))
|
|
(defcfun ("mvinwstr" %mvinwstr) :int (y :int) (x :int) (str (:pointer wchar_t)))
|
|
(defcfun ("mvinnwstr" %mvinnwstr) :int (y :int) (x :int) (str (:pointer wchar_t)) (n :int))
|
|
(defcfun ("mvwinwstr" %mvwinwstr) :int (win window) (y :int) (x :int) (str (:pointer wchar_t)))
|
|
(defcfun ("mvwinnwstr" %mvwinnwstr) :int (win window) (y :int) (x :int) (str (:pointer wchar_t)) (n :int))
|