/[cl-ncurses]/trunk/util.lisp
ViewVC logotype

Contents of /trunk/util.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 8 - (show annotations)
Sat May 19 23:48:10 2007 UTC (6 years, 11 months ago) by jgabrielson
File size: 2407 byte(s)
first import ... take 3
1 ;;;; This file is part of cl-ncurses, an ncurses interface for Common Lisp,
2 ;;;; Copyright (c) 2003 Nikodemus Siivola
3 ;;;; Copyright (c) 2004 Marcelo Ramos <mramos@montevideo.com.uy>
4 ;;;;
5 ;;;; Permission is hereby granted, free of charge, to any person obtaining
6 ;;;; a copy of this software and associated documentation files (the
7 ;;;; "Software"), to deal in the Software without restriction, including
8 ;;;; without limitation the rights to use, copy, modify, merge, publish,
9 ;;;; distribute, sublicense, and/or sell copies of the Software, and to
10 ;;;; permit persons to whom the Software is furnished to do so, subject to
11 ;;;; the following conditions:
12 ;;;;
13 ;;;; The above copyright notice and this permission notice shall be included
14 ;;;; in all copies or substantial portions of the Software.
15 ;;;;
16 ;;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
17 ;;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18 ;;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
19 ;;;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
20 ;;;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
21 ;;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
22 ;;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23
24 ;;;;;;;;;;
25 ;; UTIL ;;
26 ;;;;;;;;;;
27
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 ;; Routines: delay_output, filter, flushinp, getwin, key_name, keyname, ;;
30 ;; putwin, unctrl, use_env, wunctrl ;;
31 ;; Purpose: Miscellaneous curses utility routines. ;;
32 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
33
34 (in-package :cl-ncurses)
35
36 ; C-prototype: char *unctrl(chtype c);
37 (def char-ptr ((c chtype))
38 "unctrl")
39
40 ; C-prototype: char *keyname(int c);
41 (def char-ptr ((c :int))
42 "keyname")
43
44 ; C-prototype: void filter(void);
45 (def :void ()
46 "filter")
47
48 ; C-prototype: void use_env(bool f);
49 (def :void ((f bool))
50 "use_env")
51
52 ; C-prototype: int delay_output(int ms);
53 (def :int ((ms :int))
54 "delay_output")
55
56 ; C-prototype: int flushinp(void);
57 (def :int ()
58 "flushinp")
59
60 ; TODO
61 ; C-prototype: char *wunctrl(cchar_t *c);
62 ; C-prototype: char *key_name(wchar_t w);
63 ; C-prototype: int putwin(WINDOW *win, FILE *filep);
64 ; C-prototype: WINDOW *getwin(FILE *filep);
65

  ViewVC Help
Powered by ViewVC 1.1.5