19 lines
693 B
Common Lisp
19 lines
693 B
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; insch
|
|
;;; insert a character before cursor in a curses window
|
|
;;; http://invisible-island.net/ncurses/man/curs_insch.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int insch(chtype ch);
|
|
;; int winsch(WINDOW *win, chtype ch);
|
|
;; int mvinsch(int y, int x, chtype ch);
|
|
;; int mvwinsch(WINDOW *win, int y, int x, chtype ch);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("insch" %insch) :int (ch chtype))
|
|
(defcfun ("winsch" %winsch) :int (win window) (ch chtype))
|
|
(defcfun ("mvinsch" %mvinsch) :int (y :int) (x :int) (ch chtype))
|
|
(defcfun ("mvwinsch" %mvwinsch) :int (win window) (y :int) (x :int) (ch chtype))
|