glib/gobject.gvalue.lisp

   1 (in-package :gobject)
   2
   3 (defcfun g-value-init (:pointer g-value)
   4   "Initializes the GValue @code{value} with the default value of @code{type}
   5
   6 @arg[value]{a C pointer to the GValue structure}
   7 @arg[type]{an integer specifying the GType}"
   8   (value (:pointer g-value))
   9   (type g-type-designator))
  10
  11 (defun g-value-zero (g-value)
  12   "Initializes the GValue in \"unset\" state.
  13
  14 @arg[g-value]{a C pointer to the GValue structure}"
  15   (loop
  16      for i from 0 below (foreign-type-size 'g-value)
  17      do (setf (mem-ref g-value :uchar i) 0)))
  18
  19 (defcfun g-value-copy :void
  20   (src-value (:pointer g-value))
  21   (dst-value (:pointer g-value)))
  22
  23 (defcfun g-value-reset (:pointer g-value)
  24   (value (:pointer g-value)))
  25
  26 (defcfun g-value-unset (:pointer g-value)
  27   "Clears the current value in @code{value} and \"unsets\" the type, releasing all resources associated with this GValue. An unset value is the same as an unitialized GValue.
  28
  29 @arg[value]{a C pointer to the GValue structure}"
  30   (value (:pointer g-value)))
  31
  32 (defcfun g-value-set-instance :void
  33   (value (:pointer g-value))
  34   (instance :pointer))
  35
  36 (defcfun g-strdup-value-contents :string
  37   (value (:pointer g-value)))
  38