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

Contents of /package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (hide 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 rklochkov 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 rklochkov 2 #:find-object
25 rklochkov 1 #:object-by-id
26     #:*objects*
27     #:*objects-ids*
28 rklochkov 2 #:object-class
29     #:volatile
30 rklochkov 1 ;; slots
31     #:pointer
32     ;; methods
33     #:free
34    
35 rklochkov 2
36     #:*array-length*
37 rklochkov 1 ;; types
38     #:pstring
39     #:pfunction
40     #:cffi-object
41 rklochkov 2 #:cffi-array
42     #:cffi-null-array
43     #:carray
44     #:null-array
45     #:string-array
46 rklochkov 1
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