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

Contents of /package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations)
Thu Feb 9 15:53:55 2012 UTC (2 years, 2 months ago) by rklochkov
File size: 1388 byte(s)
Initial release
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 #:object-by-id
25 #:*objects*
26 #:*objects-ids*
27 ;; slots
28 #:pointer
29 ;; methods
30 #:free
31
32 ;; types
33 #:pstring
34 #:pfunction
35 #:cffi-object
36
37 #:struct
38 ; #:cffi-struct
39 #:new-struct
40 #:free-struct
41
42 #:freeable
43 #:freeable-base
44 #:free-sent-if-needed
45 #:free-returned-if-needed
46 #:free-ptr
47 #:freeable-out
48 #:copy-from-foreign
49
50 #:defcstruct-accessors
51 #:defcstruct*
52 #:defbitaccessors
53
54 #:with-foreign-out
55 #:with-foreign-outs
56 #:with-foreign-outs-list
57
58 #:pair
59 #:setf-init
60 #:init-slots
61 #:save-setter
62 #:remove-setter
63 #:clear-setters))
64
65 (eval-when (:compile-toplevel :load-toplevel)
66 (let ((cffi (find-package "CFFI"))
67 (cffi-objects (find-package "CFFI-OBJECTS")))
68 (do-external-symbols (v cffi)
69 (export (list v) cffi-objects))))

  ViewVC Help
Powered by ViewVC 1.1.5