diff options
author | Efraim Flashner <efraim@flashner.co.il> | 2017-03-13 23:08:49 +0200 |
---|---|---|
committer | Efraim Flashner <efraim@flashner.co.il> | 2017-03-13 23:08:49 +0200 |
commit | 3f9543aee1e49001d0f80542dd71ba73c44787c7 (patch) | |
tree | 50ee1bdd53b1e5ec69cb8655f23da79c332dde1e /gnu/services/kerberos.scm | |
parent | 864a9590ad948df09f2ad6e9e929608a7587a5f7 (diff) | |
parent | a71c863834448e2645518b31b60a96ef488dd761 (diff) | |
download | patches-3f9543aee1e49001d0f80542dd71ba73c44787c7.tar patches-3f9543aee1e49001d0f80542dd71ba73c44787c7.tar.gz |
Merge remote-tracking branch 'origin/master' into core-updates
Diffstat (limited to 'gnu/services/kerberos.scm')
-rw-r--r-- | gnu/services/kerberos.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gnu/services/kerberos.scm b/gnu/services/kerberos.scm index cb33a7c53d..f09f47893c 100644 --- a/gnu/services/kerberos.scm +++ b/gnu/services/kerberos.scm @@ -96,6 +96,12 @@ trailing '?' removed." (unless (eq? val unset-field) (serialize-field* field-name (string-join val " ")))) +(define (space-separated-string-list? val) + (and (list? val) + (and-map (lambda (x) + (and (string? x) (not (string-index x #\space)))) + val))) + (define space-separated-string-list/unset? (predicate/unset space-separated-string-list?)) @@ -118,10 +124,19 @@ trailing '?' removed." (lambda (val) (string-prefix? "/" val)))) +(define (serialize-field field-name val) + (format #t "~a ~a\n" (uglify-field-name field-name) val)) + +(define (serialize-string field-name val) + (serialize-field field-name val)) + (define (serialize-file-name field-name val) (unless (eq? val unset-field) (serialize-string field-name val))) +(define (serialize-space-separated-string-list field-name val) + (serialize-field field-name (string-join val " "))) + (define (non-negative-integer? val) (and (exact-integer? val) (not (negative? val)))) |