glib/gobject.signals.lisp

   1 (in-package :gobject)
   2
   3 (defun emit-signal (object signal-name &rest args)
   4   "Emits the signal.
   5 @arg[object]{an instance of @class{g-object}. Signal is emitted on this object}
   6 @arg[signal-name]{a string specifying the signal}
   7 @arg[args]{arguments for the signal}
   8 @return{none}"
   9   (let* ((object-type (g-type-from-object (pointer object)))
  10          (signal-info (parse-signal-name object-type signal-name)))
  11     (unless signal-info
  12       (error "Signal ~A not found on object ~A" signal-name object))
  13     (let ((params-count (length (signal-info-param-types object))))
  14       (with-foreign-object (params 'g-value (1+ params-count))
  15         (set-g-value (mem-aref params 'g-value 0) object object-type :zero-g-value t)
  16         (iter (for i from 0 below params-count)
  17               (for arg in args)
  18               (for type in (signal-info-param-types signal-info))
  19               (set-g-value (mem-aref params 'g-value (1+ i)) arg type :zero-g-value t))
  20         (prog1
  21             (if (= (g-type-numeric (signal-info-return-type signal-info)) +g-type-void+)
  22                 (g-signal-emitv params (signal-info-id signal-info) signal-name (null-pointer))
  23                 (with-foreign-object (return-value 'g-value)
  24                   (g-value-zero return-value)
  25                   (g-value-init return-value (signal-info-return-type signal-info))
  26                   (prog1 (parse-gvalue return-value)
  27                     (g-value-unset return-value))))
  28           (iter (for i from 0 below (1+ params-count))
  29                 (g-value-unset (mem-aref params 'g-value i))))))))