aboutsummaryrefslogtreecommitdiff
path: root/doc/local.mk
diff options
context:
space:
mode:
Diffstat (limited to 'doc/local.mk')
0 files changed, 0 insertions, 0 deletions
generated by cgit
er-group sexp->subid-range default-shell)) ;;; Commentary: ;;; ;;; Data structures representing user accounts and user groups. This is meant ;;; to be used both on the host side and at run time--e.g., in activation ;;; snippets. ;;; ;;; Code: (define default-shell ;; Default shell for user accounts (a string or string-valued gexp). (make-parameter "/bin/sh")) (define-record-type* <user-account> user-account make-user-account user-account? (name user-account-name) (password user-account-password (default #f)) (uid user-account-uid (default #f)) (group user-account-group) ; number | string (supplementary-groups user-account-supplementary-groups (default '())) ; list of strings (comment user-account-comment (default "")) (home-directory user-account-home-directory (thunked) (default (default-home-directory this-record))) (create-home-directory? user-account-create-home-directory? ;Boolean (default #t)) (shell user-account-shell ; gexp (default (default-shell))) (system? user-account-system? ; Boolean (default #f))) (define-record-type* <user-group> user-group make-user-group user-group? (name user-group-name) (password user-group-password (default #f)) (id user-group-id (default #f)) (system? user-group-system? ; Boolean (default #f))) (define-record-type* <user-extra-groups> user-extra-groups make-user-extra-groups user-extra-groups? (user user-extra-groups-user) (groups user-extra-groups-groups)) ; list of strings (define (user-account-extend account extra-groups) (match-record account <user-account> (name supplementary-groups) (user-account (inherit account) (supplementary-groups (apply append supplementary-groups (vhash-fold* cons '() name extra-groups)))))) (define (merge-extra-groups-data accounts-data) (let* ((extra-groups-alist (map (match-record-lambda <user-extra-groups> (user groups) (cons user groups)) (filter user-extra-groups? accounts-data))) (extra-groups (alist->vhash extra-groups-alist)) (user-accounts (map (cut user-account-extend <> extra-groups) (filter user-account? accounts-data))) (other-records (filter (lambda (record) (not (or (user-account? record) (user-extra-groups? record)))) accounts-data))) (append other-records user-accounts))) (define-record-type* <subid-range> subid-range make-subid-range subid-range? (name subid-range-name) (start subid-range-start (default #f)) ; number (count subid-range-count ; number ; from find_new_sub_gids.c and ; find_new_sub_uids.c (default 65536))) (define (subid-range-end range) "Returns the last subid referenced in RANGE." (and (subid-range-has-start? range) (+ (subid-range-start range) (subid-range-count range) -1))) (define (subid-range-has-start? range) "Returns #t when RANGE's start is a number." (number? (subid-range-start range))) (define (subid-range-less a b) "Returns #t when subid range A either starts before, or is more specific than B. When it is not possible to determine whether a range is more specific w.r.t. another range their names are compared alphabetically." (define start-a (subid-range-start a)) (define start-b (subid-range-start b)) (cond ((and (not start-a) (not start-b)) (string< (subid-range-name a) (subid-range-name b))) ((and start-a start-b) (< start-a start-b)) (else (and start-a (not start-b))))) (define (default-home-directory account) "Return the default home directory for ACCOUNT." (string-append "/home/" (user-account-name account))) (define (sexp->user-group sexp) "Take SEXP, a tuple as returned by 'user-group->gexp', and turn it into a user-group record." (match sexp ((name password id system?) (user-group (name name) (password password) (id id) (system? system?))))) (define (sexp->user-account sexp) "Take SEXP, a tuple as returned by 'user-account->gexp', and turn it into a user-account record." (match sexp ((name uid group supplementary-groups comment home-directory create-home-directory? shell password system?) (user-account (name name) (uid uid) (group group) (supplementary-groups supplementary-groups) (comment comment) (home-directory home-directory) (create-home-directory? create-home-directory?) (shell shell) (password password) (system? system?))))) (define (sexp->subid-range sexp) "Take SEXP, a tuple as returned by 'subid-range->gexp', and turn it into a subid-range record." (match sexp ((name start count) (subid-range (name name) (start start) (count count)))))
generated by cgit