glib/gobject.package.lisp

   1 (defpackage :gobject
   2   (:use :cl :glib :cffi :tg :bind :anaphora :bordeaux-threads :iter)
   3   (:export #:g-object
   4            #:register-object-type
   5            #:g-object-call-constructor
   6            #:register-flags-type
   7            #:register-enum-type
   8            #:g-type-from-object
   9            #:g-type-name
  10            #:g-type-from-name
  11            #:g-signal-connect
  12            #:define-g-object-class
  13            #:g-initially-unowned
  14            #:define-g-enum
  15            #:*lisp-name-package*
  16            #:define-g-boxed-class
  17            #:define-g-flags
  18            #:fixed-array
  19            #:g-boxed-inline
  20            #:g-boxed-ptr
  21            #:boxed-c-structure-name
  22            #:define-g-interface
  23            #:release
  24            #:using
  25            #:using*
  26            #:define-g-boxed-ref
  27            #:g-boxed-ref
  28            #:allocate-stable-pointer
  29            #:free-stable-pointer
  30            #:get-stable-pointer-value
  31            #:with-stable-pointer
  32            #:release*
  33            #:disown-boxed-ref
  34            #:pointer
  35            #:g-type-interface
  36            #:g-value
  37            #:register-object-type-implementation
  38            #:ensure-g-type
  39            #:define-vtable
  40            #:g-type
  41            #:set-g-value
  42            #:parse-gvalue
  43            #:emit-signal
  44            #:g-value-unset
  45            #:g-value-zero))
  46
  47 (in-package :gobject)
  48
  49 (load-foreign-library "libgobject-2.0.so")
  50
  51 (defvar *gobject-debug* nil)
  52
  53 (defun debugf (&rest args)
  54   (when *gobject-debug*
  55     (apply 'format t args)))