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

36
sbcl/.quicklisp/dists/quicklisp/software/croatoan-20191227-git/ncurses/window.lisp Normal file
View file

@ -0,0 +1,36 @@
(in-package :de.anvi.ncurses)
;;; window
;;; create curses windows
;;; http://invisible-island.net/ncurses/man/curs_window.3x.html
;;; http://www.manpagez.com/man/3/newwin/
;;; C prototypes
;; WINDOW *newwin(int nlines, int ncols, int begin_y, int begin_x);
;; int delwin(WINDOW *win);
;; int mvwin(WINDOW *win, int y, int x);
;; WINDOW *subwin(WINDOW *orig, int nlines, int ncols, int begin_y, int begin_x);
;; WINDOW *derwin(WINDOW *orig, int nlines, int ncols, int begin_y, int begin_x);
;; int mvderwin(WINDOW *win, int par_y, int par_x);
;; WINDOW *dupwin(WINDOW *win);
;; void wsyncup(WINDOW *win);
;; int syncok(WINDOW *win, bool bf);
;; void wcursyncup(WINDOW *win);
;; void wsyncdown(WINDOW *win);
;;; Low-level CFFI wrappers
(defcfun ("newwin" %newwin) window (nlines :int) (ncols :int) (begin_y :int) (begin_x :int))
(defcfun ("delwin" %delwin) :int (win window))
(defcfun ("mvwin" %mvwin) :int (win window) (y :int) (x :int))
(defcfun ("subwin" %subwin) window (orig window) (nlines :int) (ncols :int) (begin_y :int) (begin_x :int))
(defcfun ("derwin" %derwin) window (orig window) (nlines :int) (ncols :int) (begin_y :int) (begin_x :int))
(defcfun ("mvderwin" %mvderwin) :int (win window) (par_y :int) (par_x :int))
(defcfun ("dupwin" %dupwin) window (win window))
(defcfun ("wsyncup" %wsyncup) :void (win window))
(defcfun ("syncok" %syncok) :int (win window) (bf :boolean))
(defcfun ("wcursyncup" %wcursyncup) :void (win window))
(defcfun ("wsyncdown" %wsyncdown) :void (win window))