1 ;;; constants.lisp --- CLISP / CFFI operating system interface
3 ;; Copyright (C) 2010, 2011 Didier Verna
5 ;; Author: Didier Verna <didier@lrde.epita.fr>
6 ;; Maintainer: Didier Verna <didier@lrde.epita.fr>
8 ;; This file is part of Clon.
10 ;; Permission to use, copy, modify, and distribute this software for any
11 ;; purpose with or without fee is hereby granted, provided that the above
12 ;; copyright notice and this permission notice appear in all copies.
14 ;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
15 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
16 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
17 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
18 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
19 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
20 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
25 ;; Contents management by FCM version 0.1.
30 (in-package :com.dvlsoft.clon
)
32 (define "winsize_t" "struct winsize")
34 (include "sys/ioctl.h")
37 (constant (+tiocgwinsz
+ "TIOCGWINSZ") :type integer
)
38 (constant (+enotty
+ "ENOTTY") :type integer
)
40 (cvar ("errno" +errno
+ :read-only t
) :int
)
42 (cstruct winsize
"winsize_t"
43 (ws-row "ws_row" :type
:unsigned-short
)
44 (ws-col "ws_col" :type
:unsigned-short
)
45 (ws-xpixel "ws_xpixel" :type
:unsigned-short
)
46 (ws-ypixel "ws_ypixel" :type
:unsigned-short
))
49 ;;; constants.lisp ends here