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

25
sbcl/.quicklisp/dists/quicklisp/software/croatoan-20191227-git/ncurses/getch.lisp Normal file
View file

@ -0,0 +1,25 @@
(in-package :de.anvi.ncurses)
;;; getch
;;; get (or push back) characters from curses terminal keyboard
;;; http://invisible-island.net/ncurses/man/curs_getch.3x.html
;;; http://www.manpagez.com/man/3/curs_getch/
;;; C prototypes
;; int getch(void);
;; int wgetch(WINDOW *win);
;; int mvgetch(int y, int x);
;; int mvwgetch(WINDOW *win, int y, int x);
;; int ungetch(int ch);
;; int has_key(int ch);
;;; Low-level CFFI wrappers
(defcfun ("getch" %getch) :int)
(defcfun ("wgetch" %wgetch) :int (win window))
(defcfun ("mvgetch" %mvgetch) :int (y :int) (x :int))
(defcfun ("mvwgetch" %mvwgetch) :int (win window) (y :int) (x :int))
(defcfun ("ungetch" %ungetch) :int (ch :int))
(defcfun ("has_key" %has-key) :int (ch :int))