;; 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.12 2006-02-26 15:30:00 espen Exp $
+;; $Id: defpackage.lisp,v 1.13 2006-04-25 20:55:22 espen Exp $
;(export 'kernel::type-expand-1 "KERNEL")
(defpackage "GLIB"
- (:use "COMMON-LISP""AUTOEXPORT")
- #+cmu(:use "SYSTEM" "KERNEL" "PCL" "EXT")
- #+sbcl(:use "SB-SYS" "SB-KERNEL" "SB-MOP" "SB-EXT")
- #+cmu(:shadowing-import-from "PCL"
- "CLASS-DIRECT-SUPERCLASSES" "CLASS-DIRECT-SUPERCLASSES")
- (:shadow "POINTER")
- (:import-from #+cmu"PCL" #+sbcl"SB-PCL"
- "READER-FUNCTION" "WRITER-FUNCTION" "BOUNDP-FUNCTION"
- "INITIALIZE-INTERNAL-SLOT-FUNCTIONS" "COMPUTE-SLOT-ACCESSOR-INFO"
- "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS"
- #-sbcl>=0.9.8"INITIALIZE-INTERNAL-SLOT-GFS")
- #+sbcl(:import-from "SB-EXT" "COLLECT")
- #+cmu(:import-from "ALIEN" "CALLBACK")
- (:import-from #+cmu"ALIEN" #+sbcl"SB-ALIEN"
- "WITH-ALIEN" "ALIEN-FUNCALL" "%HEAP-ALIEN" "MAKE-HEAP-ALIEN-INFO"
- "ADDR" "PARSE-ALIEN-TYPE" "SYSTEM-AREA-POINTER" "EXTERN-ALIEN"
- "ALIEN-SAP")
- #+cmu(:import-from "C-CALL" "%NATURALIZE-C-STRING" "VOID")
- #+sbcl(:import-from "SB-ALIEN"
- "%NATURALIZE-UTF8-STRING" "%DEPORT-UTF8-STRING" "VOID")
- (:export "DEFINE-TYPE-METHOD" "DEFINE-TYPE-GENERIC"
- "ALIEN-TYPE" "SIZE-OF" "TO-ALIEN-FORM" "FROM-ALIEN-FORM"
- "CLEANUP-FORM" "CALLBACK-FROM-ALIEN-FORM" "CALLBACK-CLEANUP-FORM"
- "TO-ALIEN-FUNCTION" "FROM-ALIEN-FUNCTION" "CLEANUP-FUNCTION"
- "COPY-TO-ALIEN-FORM" "COPY-TO-ALIEN-FUNCTION"
- "COPY-FROM-ALIEN-FORM" "COPY-FROM-ALIEN-FUNCTION"
- "WRITER-FUNCTION" "READER-FUNCTION" "DESTROY-FUNCTION"
- "UNBOUND-VALUE")
- (:export "DEFBINDING" "DEFINE-FOREIGN" "MKBINDING" "USE-PREFIX"
- "PACKAGE-PREFIX" "DEFCALLBACK" "CALLBACK" "CALL-NEXT-HANDLER"
- "DEFINE-CALLBACK" "CALLBACK-ADDRESS" "USER-DATA-DESTROY-CALLBACK")
- (:export "LONG" "UNSIGNED-LONG" "INT" "UNSIGNED-INT" "SHORT" "UNSIGNED-SHORT"
- "SIGNED" "UNSIGNED" "CHAR" "POINTER" "COPY-OF")
- (:export "LOCATION" "READER-FUNCTION" "WRITER-FUNCTION" "BOUNDP-FUNCTION"
- "INITIALIZE-INTERNAL-SLOT-FUNCTIONS"
- "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS"))
+ (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
+ #+cmu(:use "PCL" "EXT")
+ #+sbcl(:use "SB-MOP" "SB-EXT")
+ #+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" "QUARK" "QUARK-INTERN"
+ "QUARK-TO-STRING" "GLIST" "GSLIST")
+ ;; 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")
+ ;; 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"
+ "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"
+ "ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP"
+ "SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER"
+ "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE"
+ "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")
+ ;; 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"
+ "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")
+ ;; Symbols from ginterface.lisp
+ (:export "GINTERFACE" "GINTERFACE-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"))
~mdw / clg / commitdiff