(n-interfaces (:pointer :uint)))
(defcstruct g-type-interface
- (:type g-type)
- (:instance-type g-type))
+ (:type g-type-designator)
+ (:instance-type g-type-designator))
(defcstruct g-type-class
- (:type g-type))
+ (:type g-type-designator))
(defcstruct g-type-instance
(:class (:pointer g-type-class)))
(:value-table :pointer))
(defcstruct g-type-query
- (:type g-type)
+ (:type g-type-designator)
(:type-name (:string :free-from-foreign nil))
(:class-size :uint)
(:instance-size :uint))
(:type-instance g-type-instance)
(:name (:string :free-from-foreign nil :free-to-foreign nil))
(:flags g-param-flags)
- (:value-type g-type)
- (:owner-type g-type))
+ (:value-type g-type-designator)
+ (:owner-type g-type-designator))
(defcunion g-value-data
(:int :int)
(:pointer :pointer))
(defcstruct g-value
- (:type g-type)
+ (:type g-type-designator)
(:data g-value-data :count 2))
(defcstruct g-object-construct-param
(defcstruct g-param-spec-g-type
(:parent-instance g-param-spec)
- (:types-root g-type))
+ (:types-root g-type-designator))
(defcstruct g-param-spec-class
(:type-class g-type-class)
- (:value-type g-type)
+ (:value-type g-type-designator)
(:finalize :pointer)
(:value-set-default :pointer)
(:value-validate :pointer)
(defcfun g-signal-lookup :uint
(name :string)
- (type g-type))
+ (type g-type-designator))
(defbitfield g-signal-flags
:run-first :run-last :run-cleanup :no-recurse :detailed :action :no-hooks)
(defcstruct g-signal-query
(:signal-id :uint)
(:signal-name :string)
- (:owner-type g-type)
+ (:owner-type g-type-designator)
(:signal-flags g-signal-flags)
- (:return-type g-type)
+ (:return-type (g-type-designator :mangled-p t))
(:n-params :uint)
- (:param-types (:pointer g-type)))
+ (:param-types (:pointer (g-type-designator :mangled-p t))))
(defcfun g-signal-query :void
(signal-id :uint)
(query (:pointer g-signal-query)))
-(defcstruct lisp-closure
- (:parent-instance g-closure)
- (:function-id :pointer))
+(defcfun g-signal-list-ids (:pointer :uint)
+ (type g-type-designator)
+ (n-ids (:pointer :uint)))
+
+(defcfun g-signal-parse-name :boolean
+ (detailed-signal :string)
+ (owner-type g-type-designator)
+ (signal-id-ptr (:pointer :uint))
+ (detail-ptr (:pointer g-quark))
+ (force-detail-quark :boolean))
(defcstruct g-object-struct
(:type-instance g-type-instance)