refactoring: separated gobject.ffi with ffi definitions

[cl-gtk2.git] / glib / gobject.gvalue.lisp

diff --git a/glib/gobject.gvalue.lisp b/glib/gobject.gvalue.lisp
index 22b1b04..ed67c9b 100644 (file)
--- a/glib/gobject.gvalue.lisp
+++ b/glib/gobject.gvalue.lisp
@@ -1,28 +1,10 @@
 (in-package :gobject)
 
-(defcfun g-value-init (:pointer g-value)
-  (value (:pointer g-value))
-  (type g-type))
-
 (defun g-value-zero (g-value)
+  "Initializes the GValue in \"unset\" state.
+
+@arg[g-value]{a C pointer to the GValue structure}"
   (loop
      for i from 0 below (foreign-type-size 'g-value)
      do (setf (mem-ref g-value :uchar i) 0)))
 
-(defcfun g-value-copy :void
-  (src-value (:pointer g-value))
-  (dst-value (:pointer g-value)))
-
-(defcfun g-value-reset (:pointer g-value)
-  (value (:pointer g-value)))
-
-(defcfun g-value-unset (:pointer g-value)
-  (value (:pointer g-value)))
-
-(defcfun g-value-set-instance :void
-  (value (:pointer g-value))
-  (instance :pointer))
-
-(defcfun g-strdup-value-contents :string
-  (value (:pointer g-value)))
-