X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/36d29912fa3b6cda520e0022b1876c35242a8e49..b8a9e4d372bce9188a094d07cc738554239d8470:/glib/defpackage.lisp diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp index dbaae3b..ae0eae1 100644 --- a/glib/defpackage.lisp +++ b/glib/defpackage.lisp @@ -1,5 +1,5 @@ ;; Common Lisp bindings for GTK+ v2.x -;; Copyright 1999-2005 Espen S. Johnsen +;; Copyright 1999-2006 Espen S. Johnsen ;; ;; Permission is hereby granted, free of charge, to any person obtaining ;; a copy of this software and associated documentation files (the @@ -20,14 +20,14 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: defpackage.lisp,v 1.13 2006-04-25 20:55:22 espen Exp $ +;; $Id: defpackage.lisp,v 1.26 2007-10-17 14:30:00 espen Exp $ -;(export 'kernel::type-expand-1 "KERNEL") (defpackage "GLIB" (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS") #+cmu(:use "PCL" "EXT") #+sbcl(:use "SB-MOP" "SB-EXT") + #+sb-thread(:use "SB-THREAD") #+clisp(:use "CLOS") #+clisp(:import-from "EXT" "RUN-PROGRAM") #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE") @@ -35,21 +35,24 @@ (defpackage "GLIB" ;; Symbols from glib.lisp (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "USER-DATA-EXISTS-P" - "UPDATE-USER-DATA" "DESTROY-USER-DATA" "QUARK" "QUARK-INTERN" - "QUARK-TO-STRING" "GLIST" "GSLIST") + "UPDATE-USER-DATA" "DESTROY-USER-DATA" "TAKE-USER-DATA" + "WITH-USER-DATA" "USER-DATA-ID" "QUARK" "QUARK-INTERN" + "QUARK-TO-STRING" "GLIST" "GSLIST" "REALLOCATE-MEMORY" + "USER-CALLBACK" "GSIZE" "SLICE-ALLOC") ;; Symbols from gtype.lisp (:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE" "TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF" - "TYPE-CLASS-PEEK" "TYPE-NUMBER-FROM-GLIB-NAME" - "REGISTER-TYPE" "REGISTER-TYPE-ALIAS""REGISTER-NEW-TYPE" - "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE" - "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE" - "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION") + "TYPE-CLASS-PEEK" "TYPE-NUMBER-FROM-GLIB-NAME" + "REGISTER-TYPE" "REGISTER-TYPE-ALIAS""REGISTER-NEW-TYPE" + "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE" + "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE" + "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION" + "TYPE-FROM-GLIB-NAME") ;; Symbols from gparam.lisp (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE" - "GVALUE-GET" "GVALUE-SET" "VALUE-P" "WITH-GVALUE" "+GVALUE-SIZE+" - "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM" "PARAM-CHAR" - "PARAM-UNSIGNED-CHAR" "PARAM-BOOLEAN" "PARAM-INT" + "GVALUE-GET" "GVALUE-SET" "GVALUE-UNSET" "VALUE-P" "WITH-GVALUE" + "+GVALUE-SIZE+" "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM" + "PARAM-CHAR" "PARAM-UNSIGNED-CHAR" "PARAM-BOOLEAN" "PARAM-INT" "PARAM-UNSIGNED-INT" "PARAM-LONG" "PARAM-UNSIGNED-LONG" "PARAM-UNICHAR" "PARAM-ENUM" "PARAM-FLAGS" "PARAM-SINGLE-FLOAT" "PARAM-DOUBLE-FLOAT" "PARAM-STRING" "PARAM-PARAM" "PARAM-BOXED" @@ -64,21 +67,23 @@ (defpackage "GLIB" ;; Symbols from gcallback.lisp (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK" "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE" + "SOURCE-REMOVE" "+PRIORITY-DEFAULT-IDLE+" "+PRIORITY-DEFAULT+" + "+PRIORITY-HIGH+" "+PRIORITY-HIGH-IDLE+" "+PRIORITY-LOW+" "ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP" "SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER" - "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE" + "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE" "INVOKE-SOURCE-CALLBACK" "SIGNAL-STOP-EMISSION" "SIGNAL-ADD-EMISSION-HOOK" "SIGNAL-REMOVE-EMISSION-HOOK" "SIGNAL-HAS-HANDLER-PENDING-P" "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK" "SIGNAL-HANDLER-DISCONNECT" "SIGNAL-HANDLER-IS-CONNECTED-P" - "make-callback-closure" "COMPUTE-SIGNAL-FUNCTION" "SIGNAL-CONNECT" "COMPUTE-SIGNAL-ID" "SIGNAL-EMIT-WITH-DETAIL" "SIGNAL-EMIT" "DEFINE-CALLBACK-MARSHAL" - "WITH-CALLBACK-FUNCTION") + "WITH-CALLBACK-FUNCTION" "SIGNAL-NEW" "*SIGNAL-STOP-EMISSION*" + "CONNECT-FLAGS") ;; Symbols from gobject.lisp (:export "GOBJECT-CLASS" "INSTANCE-SLOTS-P" "DIRECT-PROPERTY-SLOT-DEFINITION" - "SLOT-DEFINITION-PNAME" "SLOT-READABLE-P" "SLOT-WRITABLE-P" - "CONSTRUCT-ONLY-PROPERTY-P" "EFFECTIVE-PROPERTY-SLOT-DEFINITION" + "SLOT-DEFINITION-PNAME" "CONSTRUCT-ONLY-PROPERTY-P" + "EFFECTIVE-PROPERTY-SLOT-DEFINITION" "DIRECT-USER-DATA-SLOT-DEFINITION" "EFFECTIVE-USER-DATA-SLOT-DEFINITION" "GOBJECT" "OBJECT-FREEZE-NOTIFY" "OBJECT-THAW-NOTIFY" "USER-DATA" "USER-DATA-DESTROY-CALLBACK" "USER-DATA-P" "UNSET-USER-DATA" @@ -86,11 +91,13 @@ (defpackage "GLIB" "EXPAND-GOBJECT-TYPE" "GOBJECT-DEPENDENCIES" "SIGNAL-NAME-TO-STRING" "REFERENCED") ;; Symbols from ginterface.lisp - (:export "GINTERFACE" "GINTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES") + (:export "INTERFACE" "INTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES") ;; Symbols from gerror.lisp (:export "GERROR" "GERROR-DOMAIN" "GERROR-CODE" "GERROR-MESSAGE" "GLIB-ERROR" "GLIB-FILE-ERROR" "SIGNAL-GERROR" "GERROR-SIGNAL" "LOG-LEVELS" "LOG-DOMAIN" "LOG-MESSAGE" "UNKNOWN-LOG-LEVEL" "ERROR-LOG-LEVEL" "CRITICAL-LOG-LEVEL" - "WARNING-LOG-LEVEL" "INFO-LOG-LEVEL" "DEBUG-LOG-LEVEL")) + "WARNING-LOG-LEVEL" "INFO-LOG-LEVEL" "DEBUG-LOG-LEVEL") + ;; Symbols from genum.lisp + (:export "QUERY-ENUM-VALUES"))