guile-hurd/common/ids.lisp

(in-package :hurd-common)

(defctype uid-t :int "Represents an user ID")

(defctype gid-t :int "Represents a group ID")

(defun valid-id-p (id)
  "Checks if the ID (uid or gid) is valid."
  (and id
       (numberp id)
       (>= id 0)))

(defconstant +uid-t-size+ (foreign-type-size 'uid-t))
(defconstant +gid-t-size+ (foreign-type-size 'gid-t))

;; The CL port has some bindings to getuid, geteuid,
;; getgid, getegid, but guile itself has bindings for
;; these, so there is no need to redefine them.