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

Contents of /trunk/getstr.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 17 - (show annotations)
Sun Jun 3 23:41:37 2007 UTC (6 years, 10 months ago) by jgabrielson
File size: 2982 byte(s)
Removed need for glue C code.
cl-ncurses now depends on ncurses 5.6 or higher, though.
Cleaned up problem where you couldn't compile package.lisp
 (under ASDF) twice in a row without complaints due to
 not defining the exports there (if there's another way
 to do this, that would be cool).
Added getcury/x, getmaxy/x, etc functions.
upping version to 1.1.4



1 ;;;; This file is part of cl-ncurses, an ncurses interface for Common Lisp,
2 ;;;; Copyright (c) 2004 Marcelo Ramos <mramos@montevideo.com.uy>
3 ;;;; Copyright (c) 2007 Jacob Gabrielson <jacobg23@pobox.com>
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 ;; GETSTR ;;
26 ;;;;;;;;;;;;
27
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 ;; Routines: getstr, getnstr, wgetstr, wgetnstr, mvgetstr, mvgetnstr, ;;
30 ;; mvwgetstr, mvwgetnstr ;;
31 ;; Purpose: Accept character strings from curses terminal keyboard. ;;
32 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
33
34 (in-package :cl-ncurses)
35
36 ; C Prototype: int getstr(char *str);
37 (def :int ((str :cstring))
38 "getstr")
39
40 ; C Prototype: int getnstr(char *str, int n);
41 (def :int ((str :cstring)
42 (n :int))
43 "getnstr")
44
45 ; C Prototype: int wgetstr(WINDOW *win, char *str);
46 (def :int ((win window-ptr)
47 (str :cstring))
48 "wgetstr")
49
50 ; C Prototype: int wgetnstr(WINDOW *win, char *str, int n);
51 (def :int ((win window-ptr)
52 (str :cstring)
53 (n :int))
54 "wgetnstr")
55
56 ; C Prototype: int mvgetstr(int y, int x, char *str);
57 (def :int ((y :int)
58 (x :int)
59 (str :cstring))
60 "mvgetstr")
61
62 ; C Prototype: int mvwgetstr(WINDOW *win, int y, int x, char *str);
63 (def :int ((win window-ptr)
64 (y :int)
65 (x :int)
66 (str :cstring))
67 "mvwgetstr")
68
69 ; C Prototype: int mvgetnstr(int y, int x, char *str, int n);
70 (def :int ((y :int)
71 (x :int)
72 (str :cstring)
73 (n :int))
74 "mvgetnstr")
75
76 ; C Prototype: int mvwgetnstr(WINDOW *, int y, int x, char *str, int n);
77 (def :int ((win window-ptr)
78 (y :int)
79 (x :int)
80 (str :cstring)
81 (n :int))
82 "mvwgetnstr")
83
84

  ViewVC Help
Powered by ViewVC 1.1.5