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

Contents of /package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


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