glib/gobject.gvalue.lisp

   1 (in-package :gobject)
   2
   3 (defcfun g-value-init (:pointer g-value)
   4   (value (:pointer g-value))
   5   (type g-type))
   6
   7 (defun g-value-zero (g-value)
   8   (loop
   9      for i from 0 below (foreign-type-size 'g-value)
  10      do (setf (mem-ref g-value :uchar i) 0)))
  11
  12 (defcfun g-value-copy :void
  13   (src-value (:pointer g-value))
  14   (dst-value (:pointer g-value)))
  15
  16 (defcfun g-value-reset (:pointer g-value)
  17   (value (:pointer g-value)))
  18
  19 (defcfun g-value-unset (:pointer g-value)
  20   (value (:pointer g-value)))
  21
  22 (defcfun g-value-set-instance :void
  23   (value (:pointer g-value))
  24   (instance :pointer))
  25
  26 (defcfun g-strdup-value-contents :string
  27   (value (:pointer g-value)))
  28