;; note that we have hacked this from (define-enum...) to (define-flags...) in
;; order that the generated translation code pick up the actual ordinals, not
;; our hard wired zero origin ones.

(define-flags Command
  (in-module "Unique")
  (c-name "UniqueCommand")
  (values
    '("invalid" "UNIQUE_INVALID")
    '("activate" "UNIQUE_ACTIVATE")
    '("new" "UNIQUE_NEW")
    '("open" "UNIQUE_OPEN")
    '("close" "UNIQUE_CLOSE")
  )
  (import-header "unique/unique.h")
)

