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

33
sbcl/.quicklisp/dists/quicklisp/software/croatoan-20191227-git/ncurses/util.lisp Normal file
View file

@ -0,0 +1,33 @@
(in-package :de.anvi.ncurses)
;;; util
;;; miscellaneous curses utility routines
;;; http://invisible-island.net/ncurses/man/curs_util.3x.html
;;; C prototypes
;; char *unctrl(chtype c);
;; wchar_t *wunctrl(cchar_t *c);
;; char *keyname(int c);
;; char *key_name(wchar_t w);
;; void filter(void);
;; void nofilter(void);
;; void use_env(bool f);
;; int putwin(WINDOW *win, FILE *filep);
;; WINDOW *getwin(FILE *filep);
;; int delay_output(int ms);
;; int flushinp(void);
;;; Low-level CFFI wrappers
(defcfun ("unctrl" %unctrl) :string (c chtype))
(defcfun ("wunctrl" %wunctrl) :string (c (:pointer (:struct cchar_t))))
(defcfun ("keyname" %keyname) :string (c :int))
(defcfun ("key_name" %key_name) :string (w wchar_t))
(defcfun ("filter" %filter) :void)
(defcfun ("nofilter" %nofilter) :void)
(defcfun ("use_env" %use-env) :void (f :boolean))
(defcfun ("putwin" %putwin) :int (win window) (filep :pointer))
(defcfun ("getwin" %getwin) window (filep :pointer))
(defcfun ("delay_output" %delay-output) :int (ms :int))
(defcfun ("flushinp" %flushinp) :int)