/[cparse]/cparse/package.lisp
ViewVC logotype

Contents of /cparse/package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Fri May 14 22:11:15 2004 UTC (9 years, 11 months ago) by clynbech
Branch: MAIN
CVS Tags: HEAD
<added>
1 ;;;
2 ;;; Copyright (c) 2001 Timothy Moore
3 ;;; All rights reserved.
4 ;;;
5 ;;; Modified 2004 by Christian Lynbech
6 ;;;
7 ;;; Redistribution and use in source and binary forms, with or without
8 ;;; modification, are permitted provided that the following conditions
9 ;;; are met:
10 ;;; 1. Redistributions of source code must retain the above copyright
11 ;;; notice, this list of conditions and the following disclaimer.
12 ;;; 2. Redistributions in binary form must reproduce the above copyright
13 ;;; notice, this list of conditions and the following disclaimer in the
14 ;;; documentation and/or other materials provided with the distribution.
15 ;;; 3. The name of the author may not be used to endorse or promote products
16 ;;; derived from this software without specific prior written permission.
17 ;;;
18 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
19 ;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 ;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
22 ;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24 ;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25 ;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26 ;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 ;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 ;;; SUCH DAMAGE.
29
30 (defpackage :cparse
31 (:use :common-lisp)
32 (:shadow :stream :char :unsigned-byte)
33 (:export :void
34 :unsigned :int :unsigned-int
35 :long :unsigned-long :long-long :unsigned-long-long
36 :short :unsigned-short :byte :unsigned-byte
37 :cfloat :double
38 :char :signed-char :unsigned-char
39 :value :c-type
40 :pointer-type :to
41 :array-type :of :len
42 :func-type :return-type :args
43 :scope :objects :struct-tags :struct-members :outer-scope
44 :compound-type
45 :struct-type :union-type :members :tag
46 :enum-type :enumerators
47 :stdarg-type :typedef-type :defined-type
48 :cparse-stream :cparse-string :cparse-file
49 :cparse-error :cparse-error-file-name :cparse-error-line-number
50 :cparse-error-format-string :cparse-error-format-arguments))
51
52 #+CMU
53 (defpackage :cmu-alien
54 (:shadowing-import-from :cparse :char :unsigned-byte)
55 (:shadowing-import-from :alien :unsigned)
56 (:use :cparse :alien :common-lisp)
57 (:export :make-alien-defs))
58
59 #+ALLEGRO
60 (defpackage :acl-alien
61 (:use :common-lisp :ff :cparse)
62 (:shadowing-import-from :cparse :char)
63 (:export :make-alien-defs :*enum-table*
64 :create-alien :alien-get :alien-ref :alien-decode :alien :alienp))
65
66 (when (string= *cparse-backend* "uffi-alien")
67 (defpackage :uffi-alien
68 (:shadowing-import-from :cparse :char :unsigned-byte)
69 (:use :common-lisp :cparse)
70 (:export :make-alien-defs
71 :create-alien :alien-get :alien-ref
72 :alien-decode :alien :alienp)))
73
74

  ViewVC Help
Powered by ViewVC 1.1.5