3 (defcfun g-value-init (:pointer g-value)
4 "Initializes the GValue @code{value} with the default value of @code{type}
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))
11 (defun g-value-zero (g-value)
12 "Initializes the GValue in \"unset\" state.
14 @arg[g-value]{a C pointer to the GValue structure}"
16 for i from 0 below (foreign-type-size 'g-value)
17 do (setf (mem-ref g-value :uchar i) 0)))
19 (defcfun g-value-copy :void
20 (src-value (:pointer g-value))
21 (dst-value (:pointer g-value)))
23 (defcfun g-value-reset (:pointer g-value)
24 (value (:pointer g-value)))
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.
29 @arg[value]{a C pointer to the GValue structure}"
30 (value (:pointer g-value)))
32 (defcfun g-value-set-instance :void
33 (value (:pointer g-value))
36 (defcfun g-strdup-value-contents :string
37 (value (:pointer g-value)))