ian/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tmux etc

Browse source
This commit is contained in:
Ian Keane 2020-02-18 14:21:14 -05:00
parent 276853ba84
commit 1cb167b597
361 changed files with 77302 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

26
sbcl/.quicklisp/dists/quicklisp/software/croatoan-20191227-git/ncurses/getcchar.lisp Normal file
View file

@ -0,0 +1,26 @@
(in-package :de.anvi.ncurses)
;;; getcchar
;;; Get a wide character string and rendition from a cchar_t or set a cchar_t from a wide-character string
;;; http://invisible-island.net/ncurses/man/curs_getcchar.3x.html
;;; C prototypes
;; int getcchar(const cchar_t *wcval, wchar_t *wch, attr_t *attrs, short *color_pair, void *opts);
;; int setcchar(cchar_t *wcval, const wchar_t *wch, const attr_t attrs, short color_pair, void *opts);
;;; Low-level CFFI wrappers
(defcfun ("getcchar" %getcchar) :int
(wcval (:pointer (:struct cchar_t)))
(wch (:pointer wchar_t))
(attrs (:pointer attr))
(color_pair (:pointer :short))
(opts (:pointer :void)))
(defcfun ("setcchar" %setcchar) :int
(wcval (:pointer (:struct cchar_t)))
(wch (:pointer wchar_t))
(attrs attr)
(color_pair :short)
(opts (:pointer :void)))