glib/glib.quark.lisp

   1 (in-package :glib)
   2
   3 (defctype quark-value-type :uint32)
   4
   5 (defcfun g-quark-from-string quark-value-type
   6   (string :string))
   7
   8 (defcfun g-quark-to-string :string
   9   (quark quark-value-type))
  10
  11 (define-foreign-type quark-type ()
  12   ()
  13   (:actual-type quark-value-type)
  14   (:simple-parser g-quark))
  15
  16 (defmethod translate-to-foreign (value (type quark-type))
  17   (g-quark-from-string value))
  18
  19 (defmethod translate-from-foreign (value (type quark-type))
  20   (g-quark-to-string value))