blob: e675ef93e69af26009d589d7d9bbc4260bcc2da7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
;;;; init.lisp
(in-package #:dnd)
;;; CONFIGURATION
(defvar *config* nil
"Instance of the config class globally available.")
(defclass/std config ()
((datastore-directory :ir :std #P"/srv/dnd/store/")
(swank-port :std nil :doc "If set, swank is started on this port.")
(host :std "0.0.0.0")
(port :ir :std 8888)))
(defun config-from-file (path)
"PATH should be a path to a file containing a PLIST suitable for
passing as the keyword arguments to (MAKE-INSTANCE 'CONFIG ...)"
(apply #'make-instance 'config (read-from-file path)))
;;; DATASTORE
(defun init-db (config)
"Initializes the data store with values from the CONFIG."
(ensure-directories-exist (datastore-directory config))
(unless (boundp 'db:*store*)
(make-instance
'db:mp-store
:directory (datastore-directory config)
:subsystems (list (make-instance 'db:store-object-subsystem)))))
|
