build: Rename (mcron main) to (mcron utils).

* src/mcron/main.scm: Rename to ...
* src/mcron/utils.scm: ... this.
* src/mcron/scripts/cron.scm: Adapt.
* src/mcron/scripts/crontab.scm: Likewise.
* src/mcron/scripts/mcron.scm: Likewise.
* Makefile.am (dist_mcronmodule_DATA): Likewise.

1 files changed, 0 insertions, 119 deletions

diff --git a/src/mcron/main.scm b/src/mcron/main.scm
deleted file mode 100644
index 74b49e5..0000000
--- a/src/mcron/main.scm
+++ /dev/null
@@ -1,119 +0,0 @@
-;;; main.scm -- helper procedures
-;;; Copyright © 2003, 2012 Dale Mellor <dale_mellor@users.sourceforge.net>
-;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
-;;;
-;;; This file is part of GNU Mcron.
-;;;
-;;; GNU Mcron is free software: you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation, either version 3 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; GNU Mcron is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GNU Mcron.  If not, see <http://www.gnu.org/licenses/>.
-
-(define-module (mcron main)
-  #:use-module (ice-9 getopt-long)
-  #:use-module (ice-9 rdelim)
-  #:use-module (mcron config)
-  #:use-module (mcron base)
-  #:use-module (mcron job-specifier)
-  #:use-module (mcron vixie-specification)
-  #:export (catch-mcron-error
-            mcron-error
-            parse-args
-            show-version
-            show-package-information
-            stdin->string
-            for-each-file
-            process-update-request)
-  #:re-export (option-ref))
-
-(define (mcron-error exit-code . rest)
-  "Print an error message (made up from the parts of REST), and if the
-EXIT-CODE error is fatal (present and non-zero) then exit to the system with
-EXIT-CODE."
-  (with-output-to-port (current-error-port)
-    (lambda ()
-      (for-each display (cons "mcron: " rest))
-      (newline)))
-  (when (and exit-code (not (eq? exit-code 0)))
-    (primitive-exit exit-code)))
-
-(define-syntax-rule (catch-mcron-error exp ...)
-  "Evaluate EXP .... if an 'mcron-error exception occurs, print its diagnostics
-and exit with its error code."
-  (catch 'mcron-error
-    (lambda () exp ...)
-    (lambda (key exit-code . msg)
-      (apply mcron-error exit-code msg))))
-
-(define (parse-args args option-desc-list)
-  "Parse ARGS with OPTION-DESC-LIST specification."
-  (catch 'misc-error
-    (lambda () (getopt-long args option-desc-list))
-    (lambda (key func fmt args . rest)
-      (mcron-error 1 (apply format (append (list #f fmt) args))))))
-
-(define (show-version command)
-  "Display version information for COMMAND and quit."
-  (let* ((name       config-package-name)
-         (short-name (cadr (string-split name #\space)))
-         (version    config-package-version))
-    (simple-format #t "~a (~a) ~a
-Copyright (C) 2015 the ~a authors.
-License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
-This is free software: you are free to change and redistribute it.
-There is NO WARRANTY, to the extent permitted by law.\n"
-		   command name version short-name)))
-
-(define (show-package-information)
-  "Display where to get help and send bug reports."
-  (simple-format #t "\nReport bugs to: ~a.
-~a home page: <~a>
-General help using GNU software: <http://www.gnu.org/gethelp/>\n"
-		 config-package-bugreport
-		 config-package-name
-		 config-package-url))
-
-(define (stdin->string)
-  "Return standard input as a string."
-  (with-output-to-string (lambda () (do ((in (read-char) (read-char)))
-                                        ((eof-object? in))
-                                        (display in)))))
-
-(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)))
-    (do ((file-name (readdir dir) (readdir dir)))
-        ((eof-object? file-name) (closedir dir))
-      (proc file-name))))
-
-(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
-user's updated file.  In the special case drop all the system jobs and re-read
-the /etc/crontab file.  This function should be called whenever a message
-comes in on the above socket."
-  (let* ((sock      (car (accept (car fdes-list))))
-         (user-name (read-line sock)))
-    (close sock)
-    (set-configuration-time (current-time))
-    (catch-mcron-error
-     (if (string=? user-name "/etc/crontab")
-         (begin
-           (clear-system-jobs)
-           (use-system-job-list)
-           (read-vixie-file "/etc/crontab" parse-system-vixie-line)
-           (use-user-job-list))
-         (let ((user (getpw user-name)))
-           (remove-user-jobs user)
-           (set-configuration-user user)
-           (read-vixie-file (string-append config-spool-dir "/" user-name)))))))