57 lines
1.9 KiB
Common Lisp
57 lines
1.9 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; border
|
|
;;; create curses borders, horizontal and vertical lines
|
|
;;; http://invisible-island.net/ncurses/man/curs_border.3x.html
|
|
;;; http://linux.die.net/man/3/box
|
|
|
|
;;; C prototypes
|
|
|
|
;; int border(chtype ls, chtype rs, chtype ts, chtype bs, chtype tl, chtype tr, chtype bl, chtype br);
|
|
;; int wborder(WINDOW *win, chtype ls, chtype rs, chtype ts, chtype bs, chtype tl, chtype tr, chtype bl, chtype br);
|
|
;; int box(WINDOW *win, chtype verch, chtype horch);
|
|
|
|
;; int hline(chtype ch, int n);
|
|
;; int whline(WINDOW *win, chtype ch, int n);
|
|
;; int vline(chtype ch, int n);
|
|
;; int wvline(WINDOW *win, chtype ch, int n);
|
|
|
|
;; int mvhline(int y, int x, chtype ch, int n);
|
|
;; int mvwhline(WINDOW *, int y, int x, chtype ch, int n);
|
|
;; int mvvline(int y, int x, chtype ch, int n);
|
|
;; int mvwvline(WINDOW *, int y, int x, chtype ch, int n);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("border" %border) :int
|
|
(ls chtype)
|
|
(rs chtype)
|
|
(ts chtype)
|
|
(bs chtype)
|
|
(tl chtype)
|
|
(tr chtype)
|
|
(bl chtype)
|
|
(br chtype))
|
|
|
|
(defcfun ("wborder" %wborder) :int
|
|
(win window)
|
|
(ls chtype)
|
|
(rs chtype)
|
|
(ts chtype)
|
|
(bs chtype)
|
|
(tl chtype)
|
|
(tr chtype)
|
|
(bl chtype)
|
|
(br chtype))
|
|
|
|
(defcfun ("box" %box) :int (win window) (verch chtype) (horch chtype))
|
|
|
|
(defcfun ("hline" %hline) :int (ch chtype) (n :int))
|
|
(defcfun ("whline" %whline) :int (win window) (ch chtype) (n :int))
|
|
(defcfun ("vline" %vline) :int (ch chtype) (n :int))
|
|
(defcfun ("wvline" %wvline) :int (win window) (ch chtype) (n :int))
|
|
|
|
(defcfun ("mvhline" %mvhline) :int (y :int) (x :int) (ch chtype) (n :int))
|
|
(defcfun ("mvwhline" %mvwhline) :int (win window) (y :int) (x :int) (ch chtype) (n :int))
|
|
(defcfun ("mvvline" %mvvline) :int (y :int) (x :int) (ch chtype) (n :int))
|
|
(defcfun ("mvwvline" %mvwvline) :int (win window) (y :int) (x :int) (ch chtype) (n :int))
|