X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/9adccb27da69b60d058aa37867d55ea20ecf97ca..be71e3c8cfed085e32b2f56425bc35e0a80f7647:/glib/defpackage.lisp diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp index 6fb1e46..cf6a999 100644 --- a/glib/defpackage.lisp +++ b/glib/defpackage.lisp @@ -1,40 +1,104 @@ -;; Common Lisp bindings for GTK+ v2.0 -;; Copyright (C) 1999-2000 Espen S. Johnsen +;; Common Lisp bindings for GTK+ v2.x +;; Copyright 1999-2006 Espen S. Johnsen ;; -;; This library is free software; you can redistribute it and/or -;; modify it under the terms of the GNU Lesser General Public -;; License as published by the Free Software Foundation; either -;; version 2 of the License, or (at your option) any later version. +;; Permission is hereby granted, free of charge, to any person obtaining +;; a copy of this software and associated documentation files (the +;; "Software"), to deal in the Software without restriction, including +;; without limitation the rights to use, copy, modify, merge, publish, +;; distribute, sublicense, and/or sell copies of the Software, and to +;; permit persons to whom the Software is furnished to do so, subject to +;; the following conditions: ;; -;; This library is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; Lesser General Public License for more details. +;; The above copyright notice and this permission notice shall be +;; included in all copies or substantial portions of the Software. ;; -;; You should have received a copy of the GNU Lesser General Public -;; License along with this library; if not, write to the Free Software -;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +;; 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.2 2004-11-06 21:39:58 espen Exp $ +;; $Id: defpackage.lisp,v 1.28 2008-11-04 03:22:23 espen Exp $ -;(export 'kernel::type-expand-1 "KERNEL") (defpackage "GLIB" - (:use "ALIEN" "SYSTEM" "COMMON-LISP" "PCL" "AUTOEXPORT") - (:import-from "PCL" - "LOCATION" "ALLOCATION" "DIRECT-SLOTS" - "READER-FUNCTION" "WRITER-FUNCTION" "BOUNDP-FUNCTION" - "INITIALIZE-INTERNAL-SLOT-FUNCTIONS" "COMPUTE-SLOT-ACCESSOR-INFO" - "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS" - "INITIALIZE-INTERNAL-SLOT-GFS") - (:export "DEFTYPE-METHOD" "TRANSLATE-TYPE-SPEC" "TRANSLATE-TO-ALIEN" - "TRANSLATE-FROM-ALIEN" "CLEANUP-ALIEN" "UNREFERENCE-ALIEN" - "SIZE-OF") - (:export "DEFBINDING" "DEFINE-FOREIGN" "MKBINDING" "USE-PREFIX" - "PACKAGE-PREFIX") - (:export "LONG" "UNSIGNED-LONG" "INT" "UNSIGNED-INT" "SHORT" "UNSIGNED-SHORT" - "SIGNED" "UNSIGNED" "CHAR" "POINTER") - (:export "INTERN-ARGUMENT-TRANSLATOR" "INTERN-RETURN-VALUE-TRANSLATOR" - "INTERN-CLEANUP-FUNCTION" "INTERN-WRITER-FUNCTION" - "INTERN-READER-FUNCTION" "INTERN-DESTROY-FUNCTION")) + (: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") + (:export "USER-DATA-DESTROY-CALLBACK") + + ;; Symbols from glib.lisp + (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "USER-DATA-EXISTS-P" + "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-FROM-GLIB-NAME") + ;; Symbols from gparam.lisp + (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE" + "GVALUE-GET" "GVALUE-SET" "GVALUE-UNSET" "VALUE-P" "WITH-GVALUE" + "+GVALUE-SIZE+" "+GVALUE-VALUE-OFFSET+" "GVALUE-STATIC-P" + "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" + "PARAM-POINTER" "PARAM-VALUE-ARRAY" "PARAM-OBJECT" + "PARAM-OVERRRIDE" "PARAM-NAME" "PARAM-FLAGS" "PARAM-VALUE-TYPE" + "PARAM-OWNER-TYPE" "PARAM-NICKNAME" "PARAM-DOCUMENTATION" + "PARAM-MINIMUM" "PARAM-DEFAULT-VALUE" "PARAM-ENUM-CLASS" + "PARAM-FLAGS-CLASS" "PARAM-FLOAT-EPSILON" + "PARAM-VALUE-ARRAY-ELEMENT-SPEC" "PARAM-VALUE-ARRAY-LENGTH") + ;; Symbols from gboxed.lisp + (:export "BOXED" "BOXED-CLASS" "STRINGS") + ;; 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" "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" + "COMPUTE-SIGNAL-FUNCTION" "SIGNAL-CONNECT" "COMPUTE-SIGNAL-ID" + "SIGNAL-EMIT-WITH-DETAIL" "SIGNAL-EMIT" "DEFINE-CALLBACK-MARSHAL" + "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" "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" + "QUERY-OBJECT-CLASS-PROPERTIES" "SLOT-DEFINITIONS" + "EXPAND-GOBJECT-TYPE" "GOBJECT-DEPENDENCIES" "SIGNAL-NAME-TO-STRING" + "REFERENCED" "INITIALLY-UNOWNED") + ;; Symbols from ginterface.lisp + (: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") + ;; Symbols from genum.lisp + (:export "QUERY-ENUM-VALUES"))