chiark - git - mdw - clg/blob - glib/defpackage.lisp

   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.21 2007-06-15 12:05:17 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   #+sb-thread(:use "SB-THREAD")
  31   #+clisp(:use "CLOS")
  32   #+clisp(:import-from "EXT" "RUN-PROGRAM")
  33   #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE")
  34   (:export "USER-DATA-DESTROY-CALLBACK")
  35
  36   ;; Symbols from glib.lisp
  37   (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "USER-DATA-EXISTS-P"
  38            "UPDATE-USER-DATA" "DESTROY-USER-DATA" "QUARK" "QUARK-INTERN"
  39            "QUARK-TO-STRING" "GLIST" "GSLIST")
  40   ;; Symbols from gtype.lisp
  41   (:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE"
  42            "TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF"
  43            "TYPE-CLASS-PEEK" "TYPE-NUMBER-FROM-GLIB-NAME"
  44            "REGISTER-TYPE" "REGISTER-TYPE-ALIAS""REGISTER-NEW-TYPE"
  45            "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE"
  46            "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE"
  47            "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION"
  48            "TYPE-FROM-GLIB-NAME")
  49   ;; Symbols from gparam.lisp
  50   (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE"
  51            "GVALUE-GET" "GVALUE-SET" "GVALUE-UNSET" "VALUE-P" "WITH-GVALUE"
  52            "+GVALUE-SIZE+" "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM"
  53            "PARAM-CHAR" "PARAM-UNSIGNED-CHAR" "PARAM-BOOLEAN" "PARAM-INT"
  54            "PARAM-UNSIGNED-INT" "PARAM-LONG" "PARAM-UNSIGNED-LONG"
  55            "PARAM-UNICHAR" "PARAM-ENUM" "PARAM-FLAGS" "PARAM-SINGLE-FLOAT"
  56            "PARAM-DOUBLE-FLOAT" "PARAM-STRING" "PARAM-PARAM" "PARAM-BOXED"
  57            "PARAM-POINTER" "PARAM-VALUE-ARRAY" "PARAM-OBJECT"
  58            "PARAM-OVERRRIDE" "PARAM-NAME" "PARAM-FLAGS" "PARAM-VALUE-TYPE"
  59            "PARAM-OWNER-TYPE" "PARAM-NICKNAME" "PARAM-DOCUMENTATION"
  60            "PARAM-MINIMUM" "PARAM-DEFAULT-VALUE" "PARAM-ENUM-CLASS"
  61            "PARAM-FLAGS-CLASS" "PARAM-FLOAT-EPSILON"
  62            "PARAM-VALUE-ARRAY-ELEMENT-SPEC" "PARAM-VALUE-ARRAY-LENGTH")
  63   ;; Symbols from gboxed.lisp
  64   (:export "BOXED" "BOXED-CLASS" "STRINGS")
  65   ;; Symbols from gcallback.lisp
  66   (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK"
  67            "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"
  68            "+PRIORITY-DEFAULT-IDLE+" "+PRIORITY-DEFAULT+"
  69            "ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP"
  70            "SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER"
  71            "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE"
  72            "SIGNAL-STOP-EMISSION" "SIGNAL-ADD-EMISSION-HOOK"
  73            "SIGNAL-REMOVE-EMISSION-HOOK" "SIGNAL-HAS-HANDLER-PENDING-P"
  74            "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK"
  75            "SIGNAL-HANDLER-DISCONNECT" "SIGNAL-HANDLER-IS-CONNECTED-P"
  76            "COMPUTE-SIGNAL-FUNCTION" "SIGNAL-CONNECT" "COMPUTE-SIGNAL-ID"
  77            "SIGNAL-EMIT-WITH-DETAIL" "SIGNAL-EMIT" "DEFINE-CALLBACK-MARSHAL"
  78            "WITH-CALLBACK-FUNCTION" "SIGNAL-NEW" "*SIGNAL-STOP-EMISSION*")
  79   ;; Symbols from gobject.lisp
  80   (:export "GOBJECT-CLASS" "INSTANCE-SLOTS-P" "DIRECT-PROPERTY-SLOT-DEFINITION"
  81            "SLOT-DEFINITION-PNAME" "CONSTRUCT-ONLY-PROPERTY-P"
  82            "EFFECTIVE-PROPERTY-SLOT-DEFINITION"
  83            "DIRECT-USER-DATA-SLOT-DEFINITION" "EFFECTIVE-USER-DATA-SLOT-DEFINITION"
  84            "GOBJECT" "OBJECT-FREEZE-NOTIFY" "OBJECT-THAW-NOTIFY" "USER-DATA"
  85            "USER-DATA-DESTROY-CALLBACK" "USER-DATA-P" "UNSET-USER-DATA"
  86            "QUERY-OBJECT-CLASS-PROPERTIES" "SLOT-DEFINITIONS"
  87            "EXPAND-GOBJECT-TYPE" "GOBJECT-DEPENDENCIES" "SIGNAL-NAME-TO-STRING"
  88            "REFERENCED")
  89   ;; Symbols from ginterface.lisp
  90   (:export "INTERFACE" "INTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES")
  91   ;; Symbols from gerror.lisp
  92   (:export "GERROR" "GERROR-DOMAIN" "GERROR-CODE" "GERROR-MESSAGE"
  93            "GLIB-ERROR" "GLIB-FILE-ERROR" "SIGNAL-GERROR"
  94            "GERROR-SIGNAL" "LOG-LEVELS" "LOG-DOMAIN" "LOG-MESSAGE"
  95            "UNKNOWN-LOG-LEVEL" "ERROR-LOG-LEVEL" "CRITICAL-LOG-LEVEL"
  96            "WARNING-LOG-LEVEL" "INFO-LOG-LEVEL" "DEBUG-LOG-LEVEL")
  97   ;; Symbols from genum.lisp
  98   (:export "QUERY-ENUM-VALUES"))
  99