mirror of https://codeberg.org/cage/tinmop/
55 lines
2.3 KiB
Common Lisp
55 lines
2.3 KiB
Common Lisp
;; tinmop: a multiprotocol client
|
|
;; Copyright © cage
|
|
|
|
;; This program 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.
|
|
|
|
;; This program 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 this program.
|
|
;; If not, see [[http://www.gnu.org/licenses/][http://www.gnu.org/licenses/]].
|
|
|
|
(in-package :modules)
|
|
|
|
(a:define-constant +shared-modules-dir+ "data/modules" :test #'string=)
|
|
|
|
(a:define-constant +module-sys-data-dir+ (fs:cat-parent-dir +sys-data-dir+
|
|
+shared-modules-dir+)
|
|
:test #'string=)
|
|
|
|
(defun load-sys-module (path &key (not-found-signal-error t))
|
|
(a:when-let ((file (if not-found-signal-error
|
|
(get-sys-config-file path)
|
|
(ignore-errors (get-sys-config-file path)))))
|
|
(load file :verbose nil :print nil)))
|
|
|
|
(defun load-module (path &key (not-found-signal-error t))
|
|
(flet ((%load (file)
|
|
(load file :verbose nil :print nil)))
|
|
(let ((config-file (conditions:with-default-on-error (nil)
|
|
(get-config-file path)))
|
|
(data-file (conditions:with-default-on-error (nil)
|
|
(get-data-file (fs:cat-parent-dir +shared-modules-dir+ path)))))
|
|
(cond
|
|
(config-file
|
|
(%load config-file))
|
|
(data-file
|
|
(%load data-file))
|
|
(t
|
|
(let ((error-message (format nil
|
|
(_ "Unrecoverable error: file ~a not found in any of the directory ~a ~a ~a ~a")
|
|
path
|
|
+module-sys-data-dir+
|
|
+sys-conf-dir+
|
|
(home-datadir)
|
|
(home-confdir))))
|
|
(if not-found-signal-error
|
|
(error error-message)
|
|
(values nil error-message))))))))
|