parameters.lisp

   1 ;;;; Ru*** roLeplay Playground virtual tabletop
   2 ;;;; Copyright (C) 2022  Zull
   3 ;;;;
   4 ;;;; This program is free software: you can redistribute it and/or modify
   5 ;;;; it under the terms of the GNU General Public License as published by
   6 ;;;; the Free Software Foundation, either version 3 of the License, or
   7 ;;;; (at your option) any later version.
   8 ;;;;
   9 ;;;; This program is distributed in the hope that it will be useful,
  10 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ;;;; GNU General Public License for more details.
  13 ;;;;
  14 ;;;; You should have received a copy of the GNU General Public License
  15 ;;;; along with this program. If not, see <https://www.gnu.org/licenses/>.
  16
  17 (defpackage :rulp.parameters
  18   (:use :cl)
  19   (:export +rulp-version+ +rulp-type+ +rulp-system+ *rulp-share* *rulp-local*))
  20
  21 (in-package :rulp.parameters)
  22
  23
  24 ;; by standard parameters surrounded by asterisks (*) are seen as
  25 ;; mutable globals, therefore these variables should editable and
  26 ;; the software (and the user too) should expect them to change
  27 ;;
  28 ;; parameters surrounded by pluses (+) are seen as costants, therefore
  29 ;; they should be seen as fixed variables like version compatibility
  30 ;; references and pathfinding strings.
  31 (defparameter +rulp-version+ (slot-value (asdf:find-system 'rulp)  'asdf:version))
  32 (defparameter +rulp-type+ (machine-type))
  33 (defparameter +rulp-system+ (software-type))
  34 (defparameter *rulp-share* "./media/") ; remember to close with a slash here
  35
  36 (defparameter *rulp-local* ".") ; subject of change