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

Contents of /package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations)
Thu Feb 9 15:53:55 2012 UTC (2 years, 2 months ago) by rklochkov
File size: 1388 byte(s)
Initial release
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     #: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