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/touch.lisp Normal file
View file

@ -0,0 +1,25 @@
(in-package :de.anvi.ncurses)
;;; touch
;;; curses refresh control routines
;;; http://invisible-island.net/ncurses/man/curs_touch.3x.html
;;; http://www-01.ibm.com/support/knowledgecenter/ssw_aix_61/com.ibm.aix.basetrf2/touchwin.htm
;;; C prototypes
;; int touchwin(WINDOW *win);
;; int touchline(WINDOW *win, int start, int count);
;; int untouchwin(WINDOW *win);
;; int wtouchln(WINDOW *win, int y, int n, int changed);
;; bool is_linetouched(WINDOW *win, int line);
;; bool is_wintouched(WINDOW *win);
;;; Low-level CFFI wrappers
(defcfun ("touchwin" %touchwin) :int (win window))
(defcfun ("touchline" %touchline) :int (win window) (start :int) (count :int))
(defcfun ("untouchwin" %untouchwin) :int (win window))
(defcfun ("wtouchln" %wtouchln) :int (win window) (y :int) (n :int) (changed :int))
(defcfun ("is_linetouched" %is-linetouched) :boolean (win window) (line :int))
(defcfun ("is_wintouched" %is-wintouched) :boolean (win window))