47 lines
2 KiB
Common Lisp
47 lines
2 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; slk
|
|
;;; curses soft label routines
|
|
;;; http://invisible-island.net/ncurses/man/curs_slk.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int slk_init(int fmt);
|
|
;; int slk_set(int labnum, const char *label, int fmt);
|
|
;; int slk_refresh(void);
|
|
;; int slk_noutrefresh(void);
|
|
;; char *slk_label(int labnum);
|
|
;; int slk_clear(void);
|
|
;; int slk_restore(void);
|
|
;; int slk_touch(void);
|
|
;; int slk_attron(const chtype attrs);
|
|
;; int slk_attroff(const chtype attrs);
|
|
;; int slk_attrset(const chtype attrs);
|
|
;; int slk_attr_on(attr_t attrs, void *opts);
|
|
;; int slk_attr_off(const attr_t attrs, void *opts);
|
|
;; int slk_attr_set(const attr_t attrs, short color_pair, void *opts);
|
|
;; attr_t slk_attr(void);
|
|
;; int slk_color(short color_pair);
|
|
;; int slk_wset(int labnum, const wchar_t *label, int fmt);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("slk_init" %slk-init) :int (fmt :int))
|
|
(defcfun ("slk_set" %slk-set) :int (labnum :int) (label :string) (fmt :int))
|
|
(defcfun ("slk_refresh" %slk-refresh) :int)
|
|
(defcfun ("slk_noutrefresh" %slk-noutrefresh) :int)
|
|
(defcfun ("slk_label" %slk-label) :string (labnum :int))
|
|
(defcfun ("slk_clear" %slk-clear) :int)
|
|
(defcfun ("slk_restore" %slk-restore) :int)
|
|
(defcfun ("slk_touch" %slk-touch) :int)
|
|
|
|
(defcfun ("slk_attron" %slk-attron) :int (attrs chtype))
|
|
(defcfun ("slk_attroff" %slk-attroff) :int (attrs chtype))
|
|
(defcfun ("slk_attrset" %slk-attrset) :int (attrs chtype))
|
|
|
|
(defcfun ("slk_attr_on" %slk-attr-on) :int (attrs attr) (opts (:pointer :void)))
|
|
(defcfun ("slk_attr_off" %slk-attr-off) :int (attrs attr) (opts (:pointer :void)))
|
|
(defcfun ("slk_attr_set" %slk-attr-set) :int (attrs attr) (color-pair :short) (opts (:pointer :void)))
|
|
|
|
(defcfun ("slk_attr" %slk-attr) attr)
|
|
(defcfun ("slk_color" %slk-color) :int (color-pair :short))
|