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

Contents of /package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 7 - (show annotations)
Thu Aug 9 16:55:23 2012 UTC (20 months, 1 week ago) by rklochkov
File size: 1628 byte(s)
Added function INITIALIZE
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 #:free-after
25 #:find-object
26 #:object-by-id
27 #:initialize
28 #:*objects*
29 #:*objects-ids*
30 #:object-class
31 #:volatile
32 ;; slots
33 #:pointer
34 ;; methods
35 #:free
36
37
38 #:*array-length*
39 ;; types
40 #:pstring
41 #:pfunction
42 #:cffi-object
43 #:cffi-array
44 #:cffi-null-array
45 #:carray
46 #:null-array
47 #:string-array
48
49 #:cffi-keyword
50 #:cffi-pathname
51 #:cffi-string
52
53 #:struct
54 ; #:cffi-struct
55 #:new-struct
56 #:free-struct
57
58 #:freeable
59 #:freeable-base
60 #:free-sent-if-needed
61 #:free-returned-if-needed
62 #:free-ptr
63 #:freeable-out
64 #:copy-from-foreign
65
66 #:defcstruct-accessors
67 #:defcstruct*
68 #:defbitaccessors
69
70 #:with-foreign-out
71 #:with-foreign-outs
72 #:with-foreign-outs-list
73
74 #:pair
75 #:setf-init
76 #:init-slots
77 #:save-setter
78 #:remove-setter
79 #:clear-setters))
80
81 (eval-when (:compile-toplevel :load-toplevel)
82 (let ((cffi (find-package "CFFI"))
83 (cffi-objects (find-package "CFFI-OBJECTS")))
84 (do-external-symbols (v cffi)
85 (export (list v) cffi-objects))))

  ViewVC Help
Powered by ViewVC 1.1.5