/[cffi-objects]/package.lisp
ViewVC logotype

Contents of /package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (show annotations)
Mon Feb 20 18:55:20 2012 UTC (2 years, 1 month ago) by rklochkov
File size: 1541 byte(s)
Added array with variable length
1 ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
2 ;;;
3 ;;; package.lisp --- Package definition for cffi-object
4 ;;;
5 ;;; Copyright (C) 2007, Roman Klochkov <monk@slavsoft.surgut.ru>
6 ;;;
7 ;;; This library is a CFFI add-on, that support
8 ;;; GLib/GObject/GDK/GTK and similar objects
9
10 (in-package #:cl-user)
11
12 (eval-when (:compile-toplevel :load-toplevel)
13 (let ((p (find-package "CFFI-OBJECTS")))
14 (when p
15 (do-external-symbols (v p)
16 (unexport (list v) p)))))
17
18 (defpackage #:cffi-objects
19 (:use #:common-lisp #:cffi)
20 (:export
21 #:gconstructor
22
23 #:object
24 #:find-object
25 #:object-by-id
26 #:*objects*
27 #:*objects-ids*
28 #:object-class
29 #:volatile
30 ;; slots
31 #:pointer
32 ;; methods
33 #:free
34
35
36 #:*array-length*
37 ;; types
38 #:pstring
39 #:pfunction
40 #:cffi-object
41 #:cffi-array
42 #:cffi-null-array
43 #:carray
44 #:null-array
45 #:string-array
46
47 #:struct
48 ; #:cffi-struct
49 #:new-struct
50 #:free-struct
51
52 #:freeable
53 #:freeable-base
54 #:free-sent-if-needed
55 #:free-returned-if-needed
56 #:free-ptr
57 #:freeable-out
58 #:copy-from-foreign
59
60 #:defcstruct-accessors
61 #:defcstruct*
62 #:defbitaccessors
63
64 #:with-foreign-out
65 #:with-foreign-outs
66 #:with-foreign-outs-list
67
68 #:pair
69 #:setf-init
70 #:init-slots
71 #:save-setter
72 #:remove-setter
73 #:clear-setters))
74
75 (eval-when (:compile-toplevel :load-toplevel)
76 (let ((cffi (find-package "CFFI"))
77 (cffi-objects (find-package "CFFI-OBJECTS")))
78 (do-external-symbols (v cffi)
79 (export (list v) cffi-objects))))

  ViewVC Help
Powered by ViewVC 1.1.5