guile-hurd/mach/port-right.scm

(define-module (mach port-right)
  #:export (ffi:port-right-type right:send right:receive right:send-once
                                right:port-set right:dead-name
                                right:number %wrap-port-right-type
                                %unwrap-port-right-type)
  #:use-module (mach ffi))

;;
;; The port right type. Represents different kinds of port rights.
;; This used to be callend 'port-right', but this is just a number and
;; not the actual capability.
;;

;; XXX is the underlying type correct?
(define-ffi-enum (ffi:port-right-type ffi:int)
  (%wrap-port-right-type %unwrap-port-right-type)
  (right:send 0)
  (right:receive 1)
  (right:send-once 2)
  (right:port-set 3)
  (right:dead-name 4)
  (right:number 5))