27 lines
1.3 KiB
Common Lisp
27 lines
1.3 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; insstr
|
|
;;; insert string before cursor in a curses window
|
|
;;; http://invisible-island.net/ncurses/man/curs_insstr.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int insstr(const char *str);
|
|
;; int insnstr(const char *str, int n);
|
|
;; int winsstr(WINDOW *win, const char *str);
|
|
;; int winsnstr(WINDOW *win, const char *str, int n);
|
|
;; int mvinsstr(int y, int x, const char *str);
|
|
;; int mvinsnstr(int y, int x, const char *str, int n);
|
|
;; int mvwinsstr(WINDOW *win, int y, int x, const char *str);
|
|
;; int mvwinsnstr(WINDOW *win, int y, int x, const char *str, int n);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("insstr" %insstr) :int (str :string))
|
|
(defcfun ("insnstr" %insnstr) :int (str :string) (n :int))
|
|
(defcfun ("winsstr" %winsstr) :int (win window) (str :string))
|
|
(defcfun ("winsnstr" %winsnstr) :int (win window) (str :string) (n :int))
|
|
(defcfun ("mvinsstr" %mvinsstr) :int (y :int) (x :int) (str :string))
|
|
(defcfun ("mvinsnstr" %mvinsnstr) :int (y :int) (x :int) (str :string) (n :int))
|
|
(defcfun ("mvwinsstr" %mvwinsstr) :int (win window) (y :int) (x :int) (str :string))
|
|
(defcfun ("mvwinsnstr" %mvwinsnstr) :int (win window) (y :int) (x :int) (str :string) (n :int))
|