45 lines
1.5 KiB
Common Lisp
45 lines
1.5 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; inopts
|
|
;;; curses input options
|
|
;;; http://invisible-island.net/ncurses/man/curs_inopts.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; int cbreak(void);
|
|
;; int nocbreak(void);
|
|
;; int echo(void);
|
|
;; int noecho(void);
|
|
;; int halfdelay(int tenths);
|
|
;; int intrflush(WINDOW *win, bool bf);
|
|
;; int keypad(WINDOW *win, bool bf);
|
|
;; int meta(WINDOW *win, bool bf);
|
|
;; int nodelay(WINDOW *win, bool bf);
|
|
;; int raw(void);
|
|
;; int noraw(void);
|
|
;; void noqiflush(void);
|
|
;; void qiflush(void);
|
|
;; int notimeout(WINDOW *win, bool bf);
|
|
;; void timeout(int delay);
|
|
;; void wtimeout(WINDOW *win, int delay);
|
|
;; int typeahead(int fd);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("cbreak" %cbreak) :int)
|
|
(defcfun ("nocbreak" %nocbreak) :int)
|
|
(defcfun ("echo" %echo) :int)
|
|
(defcfun ("noecho" %noecho) :int)
|
|
(defcfun ("halfdelay" %halfdelay) :int (tenths :int))
|
|
(defcfun ("intrflush" %intrflush) :int (win window) (bf :boolean))
|
|
(defcfun ("keypad" %keypad) :int (win window) (bf :boolean))
|
|
(defcfun ("meta" %meta) :int (win window) (bf :boolean))
|
|
(defcfun ("nodelay" %nodelay) :int (win window) (bf :boolean))
|
|
(defcfun ("raw" %raw) :int)
|
|
(defcfun ("noraw" %noraw) :int)
|
|
(defcfun ("noqiflush" %noqiflush) :void)
|
|
(defcfun ("qiflush" %qiflush) :void)
|
|
(defcfun ("notimeout" %notimeout) :int (win window) (bf :boolean))
|
|
(defcfun ("timeout" %timeout) :void (delay :int))
|
|
(defcfun ("wtimeout" %wtimeout) :void (win window) (delay :int))
|
|
(defcfun ("typeahead" %typeahead) :int (fd :int))
|