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

Contents of /trunk/addstr.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: 2984 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 ;; ADDSTR ;;
26 ;;;;;;;;;;;;
27
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 ;; Routines: addstr, addnstr, waddstr, waddnstr, mvaddstr, mvaddnstr, ;;
30 ;; mvwaddstr, mvwaddnstr ;;
31 ;; Purpose: add a string of characters to a curses window and advance ;;
32 ;; cursor ;;
33 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
34
35 (in-package :cl-ncurses)
36
37 ; C Prototype: int addstr(const char *str);
38 (def :int ((str :cstring))
39 "addstr")
40
41 ; C Prototype: int addnstr(const char *str, int n);
42 (def :int ((str :cstring)
43 (n :int))
44 "addnstr")
45
46 ; C Prototype: int waddstr(WINDOW *win, const char *str);
47 (def :int ((win window-ptr)
48 (str :cstring))
49 "waddstr")
50
51 ; C Prototype: int waddnstr(WINDOW *win, const char *str, int n);
52 (def :int ((win window-ptr)
53 (str :cstring)
54 (n :int))
55 "waddnstr")
56
57 ; C Prototype: int mvaddstr(int y, int x, const char *str);
58 (def :int ((y :int)
59 (x :int)
60 (str :cstring))
61 "mvaddstr")
62
63 ; C Prototype: int mvaddnstr(int y, int x, const char *str, int n);
64 (def :int ((y :int)
65 (x :int)
66 (str :cstring)
67 (n :int))
68 "mvaddnstr")
69
70 ; C Prototype: int mvwaddstr(WINDOW *win, int y, int x, const char *str);
71 (def :int ((win window-ptr)
72 (y :int)
73 (x :int)
74 (str :cstring))
75 "mvwaddstr")
76 ; C Prototype: int mvwaddnstr(WINDOW *win, int y, int x, const char *str, int n);
77 (def :int ((win window-ptr)
78 (y :int)
79 (x :int)
80 (str :cstring)
81 (n :int))
82 "mvwaddnstr")
83

  ViewVC Help
Powered by ViewVC 1.1.5