diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2018-03-20 14:44:54 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-20 19:27:10 +0100 |
| commit | f908c5395c24da621e5e30814a7a3e4fb76abcbc (patch) | |
| tree | 27746720c8c9768f63c1bf4e95ad88407fc8551b /src/mcron/utils.scm | |
| parent | 09e452b62a82845736e638eecd762a911d95a349 (diff) | |
| download | mcron-f908c5395c24da621e5e30814a7a3e4fb76abcbc.tar.gz mcron-f908c5395c24da621e5e30814a7a3e4fb76abcbc.tar.bz2 mcron-f908c5395c24da621e5e30814a7a3e4fb76abcbc.zip | |
utils: Use 'scandir' instead of custom 'for-each-file'
* src/mcron/utils.scm (for-each-file): Delete.
* src/mcron/scripts/cron.scm (process-files-in-system-directory): Use
'scandir' which has the benefit of being deterministic.
* src/mcron/scripts/mcron.scm (process-files-in-user-directory):
Likewise.
* tests/schedule.sh: Update expected output which is now more reliable.
* NEWS: Update.
Suggested-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'src/mcron/utils.scm')
| -rw-r--r-- | src/mcron/utils.scm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/src/mcron/utils.scm b/src/mcron/utils.scm index 062e756..bb23f4a 100644 --- a/src/mcron/utils.scm +++ b/src/mcron/utils.scm @@ -1,6 +1,6 @@ ;;;; utils.scm -- helper procedures ;;; Copyright © 2003, 2012 Dale Mellor <dale_mellor@users.sourceforge.net> -;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> +;;; Copyright © 2015, 2016, 2018 Mathieu Lirzin <mthl@gnu.org> ;;; ;;; This file is part of GNU Mcron. ;;; @@ -29,7 +29,6 @@ parse-args show-version show-package-information - for-each-file process-update-request) #:re-export (option-ref read-string)) @@ -81,18 +80,6 @@ General help using GNU software: <http://www.gnu.org/gethelp/>\n" config-package-name config-package-url)) -(define (for-each-file proc directory) - "Apply PROC to each file in DIRECTORY. DIRECTORY must be a valid directory name. -PROC must be a procedure that take one file name argument. The return value -is not specified" - (let ((dir (opendir directory))) - (let loop ((file-name (readdir dir))) - (if (eof-object? file-name) - (closedir dir) - (begin - (proc file-name) - (loop (readdir dir))))))) - (define (process-update-request fdes-list) "Read a user name from the socket, dealing with the /etc/crontab special case, remove all the user's jobs from the job list, and then re-read the |