| 1 | ;; Common Lisp bindings for GTK+ v2.x |
| 2 | ;; Copyright 1999-2006 Espen S. Johnsen <espen@users.sf.net> |
| 3 | ;; |
| 4 | ;; Permission is hereby granted, free of charge, to any person obtaining |
| 5 | ;; a copy of this software and associated documentation files (the |
| 6 | ;; "Software"), to deal in the Software without restriction, including |
| 7 | ;; without limitation the rights to use, copy, modify, merge, publish, |
| 8 | ;; distribute, sublicense, and/or sell copies of the Software, and to |
| 9 | ;; permit persons to whom the Software is furnished to do so, subject to |
| 10 | ;; the following conditions: |
| 11 | ;; |
| 12 | ;; The above copyright notice and this permission notice shall be |
| 13 | ;; included in all copies or substantial portions of the Software. |
| 14 | ;; |
| 15 | ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, |
| 16 | ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
| 17 | ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. |
| 18 | ;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY |
| 19 | ;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, |
| 20 | ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE |
| 21 | ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
| 22 | |
| 23 | ;; $Id: defpackage.lisp,v 1.14 2006-04-25 20:56:26 espen Exp $ |
| 24 | |
| 25 | |
| 26 | (defpackage "GLIB" |
| 27 | (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS") |
| 28 | #+cmu(:use "PCL" "EXT") |
| 29 | #+sbcl(:use "SB-MOP" "SB-EXT") |
| 30 | #+clisp(:use "CLOS") |
| 31 | #+clisp(:import-from "EXT" "RUN-PROGRAM") |
| 32 | #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE") |
| 33 | (:export "USER-DATA-DESTROY-CALLBACK") |
| 34 | |
| 35 | ;; Symbols from glib.lisp |
| 36 | (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "USER-DATA-EXISTS-P" |
| 37 | "UPDATE-USER-DATA" "DESTROY-USER-DATA" "QUARK" "QUARK-INTERN" |
| 38 | "QUARK-TO-STRING" "GLIST" "GSLIST") |
| 39 | ;; Symbols from gtype.lisp |
| 40 | (:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE" |
| 41 | "TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF" |
| 42 | "TYPE-CLASS-PEEK" "TYPE-NUMBER-FROM-GLIB-NAME" |
| 43 | "REGISTER-TYPE" "REGISTER-TYPE-ALIAS""REGISTER-NEW-TYPE" |
| 44 | "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE" |
| 45 | "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE" |
| 46 | "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION") |
| 47 | ;; Symbols from gparam.lisp |
| 48 | (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE" |
| 49 | "GVALUE-GET" "GVALUE-SET" "VALUE-P" "WITH-GVALUE" "+GVALUE-SIZE+" |
| 50 | "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM" "PARAM-CHAR" |
| 51 | "PARAM-UNSIGNED-CHAR" "PARAM-BOOLEAN" "PARAM-INT" |
| 52 | "PARAM-UNSIGNED-INT" "PARAM-LONG" "PARAM-UNSIGNED-LONG" |
| 53 | "PARAM-UNICHAR" "PARAM-ENUM" "PARAM-FLAGS" "PARAM-SINGLE-FLOAT" |
| 54 | "PARAM-DOUBLE-FLOAT" "PARAM-STRING" "PARAM-PARAM" "PARAM-BOXED" |
| 55 | "PARAM-POINTER" "PARAM-VALUE-ARRAY" "PARAM-OBJECT" |
| 56 | "PARAM-OVERRRIDE" "PARAM-NAME" "PARAM-FLAGS" "PARAM-VALUE-TYPE" |
| 57 | "PARAM-OWNER-TYPE" "PARAM-NICKNAME" "PARAM-DOCUMENTATION" |
| 58 | "PARAM-MINIMUM" "PARAM-DEFAULT-VALUE" "PARAM-ENUM-CLASS" |
| 59 | "PARAM-FLAGS-CLASS" "PARAM-FLOAT-EPSILON" |
| 60 | "PARAM-VALUE-ARRAY-ELEMENT-SPEC" "PARAM-VALUE-ARRAY-LENGTH") |
| 61 | ;; Symbols from gboxed.lisp |
| 62 | (:export "BOXED" "BOXED-CLASS" "STRINGS") |
| 63 | ;; Symbols from gcallback.lisp |
| 64 | (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK" |
| 65 | "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE" |
| 66 | "ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP" |
| 67 | "SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER" |
| 68 | "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE" |
| 69 | "SIGNAL-STOP-EMISSION" "SIGNAL-ADD-EMISSION-HOOK" |
| 70 | "SIGNAL-REMOVE-EMISSION-HOOK" "SIGNAL-HAS-HANDLER-PENDING-P" |
| 71 | "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK" |
| 72 | "SIGNAL-HANDLER-DISCONNECT" "SIGNAL-HANDLER-IS-CONNECTED-P" |
| 73 | "make-callback-closure" |
| 74 | "COMPUTE-SIGNAL-FUNCTION" "SIGNAL-CONNECT" "COMPUTE-SIGNAL-ID" |
| 75 | "SIGNAL-EMIT-WITH-DETAIL" "SIGNAL-EMIT" "DEFINE-CALLBACK-MARSHAL" |
| 76 | "WITH-CALLBACK-FUNCTION") |
| 77 | ;; Symbols from gobject.lisp |
| 78 | (:export "GOBJECT-CLASS" "INSTANCE-SLOTS-P" "DIRECT-PROPERTY-SLOT-DEFINITION" |
| 79 | "SLOT-DEFINITION-PNAME" "SLOT-READABLE-P" "SLOT-WRITABLE-P" |
| 80 | "CONSTRUCT-ONLY-PROPERTY-P" "EFFECTIVE-PROPERTY-SLOT-DEFINITION" |
| 81 | "DIRECT-USER-DATA-SLOT-DEFINITION" "EFFECTIVE-USER-DATA-SLOT-DEFINITION" |
| 82 | "GOBJECT" "OBJECT-FREEZE-NOTIFY" "OBJECT-THAW-NOTIFY" "USER-DATA" |
| 83 | "USER-DATA-DESTROY-CALLBACK" "USER-DATA-P" "UNSET-USER-DATA" |
| 84 | "QUERY-OBJECT-CLASS-PROPERTIES" "SLOT-DEFINITIONS" |
| 85 | "EXPAND-GOBJECT-TYPE" "GOBJECT-DEPENDENCIES" "SIGNAL-NAME-TO-STRING" |
| 86 | "REFERENCED") |
| 87 | ;; Symbols from ginterface.lisp |
| 88 | (:export "GINTERFACE" "GINTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES") |
| 89 | ;; Symbols from gerror.lisp |
| 90 | (:export "GERROR" "GERROR-DOMAIN" "GERROR-CODE" "GERROR-MESSAGE" |
| 91 | "GLIB-ERROR" "GLIB-FILE-ERROR" "SIGNAL-GERROR" |
| 92 | "GERROR-SIGNAL" "LOG-LEVELS" "LOG-DOMAIN" "LOG-MESSAGE" |
| 93 | "UNKNOWN-LOG-LEVEL" "ERROR-LOG-LEVEL" "CRITICAL-LOG-LEVEL" |
| 94 | "WARNING-LOG-LEVEL" "INFO-LOG-LEVEL" "DEBUG-LOG-LEVEL")) |
| 95 | |