27 lines
1.2 KiB
Common Lisp
27 lines
1.2 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; instr
|
|
;;; get a string of characters from a curses window
|
|
;;; http://invisible-island.net/ncurses/man/curs_instr.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int instr(char *str);
|
|
;; int innstr(char *str, int n);
|
|
;; int winstr(WINDOW *win, char *str);
|
|
;; int winnstr(WINDOW *win, char *str, int n);
|
|
;; int mvinstr(int y, int x, char *str);
|
|
;; int mvinnstr(int y, int x, char *str, int n);
|
|
;; int mvwinstr(WINDOW *win, int y, int x, char *str);
|
|
;; int mvwinnstr(WINDOW *win, int y, int x, char *str, int n);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("instr" %instr) :int (str :string))
|
|
(defcfun ("innstr" %innstr) :int (str :string) (n :int))
|
|
(defcfun ("winstr" %winstr) :int (win window) (str :string))
|
|
(defcfun ("winnstr" %winnstr) :int (win window) (str :string) (n :int))
|
|
(defcfun ("mvinstr" %mvinstr) :int (y :int) (x :int) (str :string))
|
|
(defcfun ("mvinnstr" %mvinnstr) :int (y :int) (x :int) (str :string) (n :int))
|
|
(defcfun ("mvwinstr" %mvwinstr) :int (win window) (y :int) (x :int) (str :string))
|
|
(defcfun ("mvwinnstr" %mvwinnstr) :int (win window) (y :int) (x :int) (str :string) (n :int))
|