31 lines
1.4 KiB
Common Lisp
31 lines
1.4 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; addstr
|
|
;;; add a string of characters to a curses window and advance cursor
|
|
;;; http://invisible-island.net/ncurses/man/curs_addstr.3x.html
|
|
;;; http://www.manpagez.com/man/3/curs_addstr/
|
|
|
|
;;; C prototypes
|
|
|
|
;; int addstr(const char *str);
|
|
;; int addnstr(const char *str, int n);
|
|
;; int waddstr(WINDOW *win, const char *str);
|
|
;; int waddnstr(WINDOW *win, const char *str, int n);
|
|
;; int mvaddstr(int y, int x, const char *str);
|
|
;; int mvaddnstr(int y, int x, const char *str, int n);
|
|
;; int mvwaddstr(WINDOW *win, int y, int x, const char *str);
|
|
;; int mvwaddnstr(WINDOW *win, int y, int x, const char *str, int n);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("addstr" %addstr) :int (str :string))
|
|
(defcfun ("addnstr" %addnstr) :int (str :string) (n :int))
|
|
|
|
(defcfun ("waddstr" %waddstr) :int (win window) (str :string))
|
|
(defcfun ("waddnstr" %waddnstr) :int (win window) (str :string) (n :int))
|
|
|
|
(defcfun ("mvaddstr" %mvaddstr) :int (y :int) (x :int) (str :string))
|
|
(defcfun ("mvaddnstr" %mvaddnstr) :int (y :int) (x :int) (str :string) (n :int))
|
|
|
|
(defcfun ("mvwaddstr" %mvwaddstr) :int (win window) (y :int) (x :int) (str :string))
|
|
(defcfun ("mvwaddnstr" %mvwaddnstr) :int (win window) (y :int) (x :int) (str :string) (n :int))
|