;; From gparam.h

;; Original typedef:
;; typedef enum
;; {
;;   G_PARAM_READABLE            = 1 << 0,
;;   G_PARAM_WRITABLE            = 1 << 1,
;;   G_PARAM_CONSTRUCT	      = 1 << 2,
;;   G_PARAM_CONSTRUCT_ONLY      = 1 << 3,
;;   G_PARAM_LAX_VALIDATION      = 1 << 4,
;;   G_PARAM_STATIC_NAME	      = 1 << 5,
;; #ifndef G_DISABLE_DEPRECATED
;;   G_PARAM_PRIVATE	      = G_PARAM_STATIC_NAME,
;; #endif
;;   G_PARAM_STATIC_NICK	      = 1 << 6,
;;   G_PARAM_STATIC_BLURB	      = 1 << 7
;; } GParamFlags;

(define-flags-extended ParamFlags
  (in-module "G")
  (c-name "GParamFlags")
  (values
    '("readable" "G_PARAM_READABLE" "1 << 0")
    '("writable" "G_PARAM_WRITABLE" "1 << 1")
    '("construct" "G_PARAM_CONSTRUCT" "1 << 2")
    '("construct-only" "G_PARAM_CONSTRUCT_ONLY" "1 << 3")
    '("lax-validation" "G_PARAM_LAX_VALIDATION" "1 << 4")
    '("static-name" "G_PARAM_STATIC_NAME" "1 << 5")
    '("private" "G_PARAM_PRIVATE" "0x20")
    '("static-nick" "G_PARAM_STATIC_NICK" "1 << 6")
    '("static-blurb" "G_PARAM_STATIC_BLURB" "1 << 7")
  )
)

;; From gsignal.h

;; Original typedef:
;; typedef enum
;; {
;;   G_SIGNAL_RUN_FIRST	= 1 << 0,
;;   G_SIGNAL_RUN_LAST	= 1 << 1,
;;   G_SIGNAL_RUN_CLEANUP	= 1 << 2,
;;   G_SIGNAL_NO_RECURSE	= 1 << 3,
;;   G_SIGNAL_DETAILED	= 1 << 4,
;;   G_SIGNAL_ACTION	= 1 << 5,
;;   G_SIGNAL_NO_HOOKS	= 1 << 6
;; } GSignalFlags;

(define-flags-extended SignalFlags
  (in-module "G")
  (c-name "GSignalFlags")
  (values
    '("run-first" "G_SIGNAL_RUN_FIRST" "1 << 0")
    '("run-last" "G_SIGNAL_RUN_LAST" "1 << 1")
    '("run-cleanup" "G_SIGNAL_RUN_CLEANUP" "1 << 2")
    '("no-recurse" "G_SIGNAL_NO_RECURSE" "1 << 3")
    '("detailed" "G_SIGNAL_DETAILED" "1 << 4")
    '("action" "G_SIGNAL_ACTION" "1 << 5")
    '("no-hooks" "G_SIGNAL_NO_HOOKS" "1 << 6")
  )
)

;; Original typedef:
;; typedef enum
;; {
;;   G_CONNECT_AFTER	= 1 << 0,
;;   G_CONNECT_SWAPPED	= 1 << 1
;; } GConnectFlags;

(define-flags-extended ConnectFlags
  (in-module "G")
  (c-name "GConnectFlags")
  (values
    '("after" "G_CONNECT_AFTER" "1 << 0")
    '("swapped" "G_CONNECT_SWAPPED" "1 << 1")
  )
)

;; Original typedef:
;; typedef enum
;; {
;;   G_SIGNAL_MATCH_ID	   = 1 << 0,
;;   G_SIGNAL_MATCH_DETAIL	   = 1 << 1,
;;   G_SIGNAL_MATCH_CLOSURE   = 1 << 2,
;;   G_SIGNAL_MATCH_FUNC	   = 1 << 3,
;;   G_SIGNAL_MATCH_DATA	   = 1 << 4,
;;   G_SIGNAL_MATCH_UNBLOCKED = 1 << 5
;; } GSignalMatchType;

(define-flags-extended SignalMatchType
  (in-module "G")
  (c-name "GSignalMatchType")
  (values
    '("id" "G_SIGNAL_MATCH_ID" "1 << 0")
    '("detail" "G_SIGNAL_MATCH_DETAIL" "1 << 1")
    '("closure" "G_SIGNAL_MATCH_CLOSURE" "1 << 2")
    '("func" "G_SIGNAL_MATCH_FUNC" "1 << 3")
    '("data" "G_SIGNAL_MATCH_DATA" "1 << 4")
    '("unblocked" "G_SIGNAL_MATCH_UNBLOCKED" "1 << 5")
  )
)

;; From gtype.h

;; Original typedef:
;; typedef enum	/*< skip >*/
;; {
;;   G_TYPE_DEBUG_NONE	= 0,
;;   G_TYPE_DEBUG_OBJECTS	= 1 << 0,
;;   G_TYPE_DEBUG_SIGNALS	= 1 << 1,
;;   G_TYPE_DEBUG_MASK	= 0x03
;; } GTypeDebugFlags;

(define-flags-extended TypeDebugFlags
  (in-module "G")
  (c-name "GTypeDebugFlags")
  (values
    '("none" "G_TYPE_DEBUG_NONE" "0x0")
    '("objects" "G_TYPE_DEBUG_OBJECTS" "1 << 0")
    '("signals" "G_TYPE_DEBUG_SIGNALS" "1 << 1")
    '("mask" "G_TYPE_DEBUG_MASK" "0x03")
  )
)

;; Original typedef:
;; typedef enum    /*< skip >*/
;; {
;;   G_TYPE_FLAG_CLASSED           = (1 << 0),
;;   G_TYPE_FLAG_INSTANTIATABLE    = (1 << 1),
;;   G_TYPE_FLAG_DERIVABLE         = (1 << 2),
;;   G_TYPE_FLAG_DEEP_DERIVABLE    = (1 << 3)
;; } GTypeFundamentalFlags;

(define-flags-extended TypeFundamentalFlags
  (in-module "G")
  (c-name "GTypeFundamentalFlags")
  (values
    '("classed" "G_TYPE_FLAG_CLASSED" "(1 << 0)")
    '("instantiatable" "G_TYPE_FLAG_INSTANTIATABLE" "(1 << 1)")
    '("derivable" "G_TYPE_FLAG_DERIVABLE" "(1 << 2)")
    '("deep-derivable" "G_TYPE_FLAG_DEEP_DERIVABLE" "(1 << 3)")
  )
)

;; Original typedef:
;; typedef enum    /*< skip >*/
;; {
;;   G_TYPE_FLAG_ABSTRACT		= (1 << 4),
;;   G_TYPE_FLAG_VALUE_ABSTRACT	= (1 << 5)
;; } GTypeFlags;

(define-flags-extended TypeFlags
  (in-module "G")
  (c-name "GTypeFlags")
  (values
    '("abstract" "G_TYPE_FLAG_ABSTRACT" "(1 << 4)")
    '("value-abstract" "G_TYPE_FLAG_VALUE_ABSTRACT" "(1 << 5)")
  )
)

