[PATCH 2/2] dmd: Make config file if necessary when not run as root.

[Alex Sassmannshausen]

* modules/dmd/support.scm (make-bare-init-file): new procedure to
  generate basic init file.
  (default-logfile): Check for init file, create it if necessary.
---
 modules/dmd/support.scm |   42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/modules/dmd/support.scm b/modules/dmd/support.scm
index f9c9989..f1b6248 100644
--- a/modules/dmd/support.scm
+++ b/modules/dmd/support.scm
@@ -162,6 +162,45 @@ There is NO WARRANTY, to the extent permitted by law.")))
 ;; dmd default subdirectory if dmd is run as a normal user.
 (define user-dmddir (string-append user-homedir "/.dmd.d"))
 
+(define (make-bare-init-file target)
+  "Return #t if a bare init file was created at TARGET; #f otherwise.
+
+TARGET should be a string representing a filepath + name."
+  (with-output-to-file target
+    (lambda ()
+      (format #t
+";; init.scm -- default dmd configuration file.
+;; Copyright (C) 2014 A. Sassmannshausen <address@hidden>
+;;
+;; This file is part of GNU dmd.
+;;
+;; GNU dmd 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 dmd 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 dmd.  If not, see <http://www.gnu.org/licenses/>.
+
+;; Services known to dmd:
+;; Add new services to dmd here by providing them through the
+;; MAKE-SERVICE procedure to REGISTER SERVICES.
+ (register-services)
+
+;; Send dmd into the background
+ (action 'dmd 'daemonize)
+
+;; Services to start when dmd starts:
+;; Add the name of each service known to dmd that should be started to
+;;the list passed to FOR-EACH.
+ (for-each start '())
+"))))
+
 ;; Logfile.
 (define default-logfile
   (if (zero? (getuid))
@@ -176,7 +215,10 @@ There is NO WARRANTY, to the extent permitted by law.")))
         (let ((config-file (string-append user-dmddir "/init.scm")))
           (cond ((not (file-exists? user-dmddir))
                  (mkdir user-dmddir)
+                 (make-bare-init-file config-file)
                  config-file)
+                ((not (file-exists? config-file))
+                 (make-bare-init-file config-file))
                 (else config-file))))))
 
 ;; The directory where the socket resides.
-- 
1.7.9.5