;;;; Ru*** roLeplay Playground virtual tabletop
;;;; Copyright (C) 2022  Zull
;;;;
;;;; 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 <https://www.gnu.org/licenses/>.

(defpackage :rulp.parameters
  (:use :cl)
  (:export +rulp-version+ +rulp-type+ +rulp-system+ *rulp-share* *rulp-local*))

(in-package :rulp.parameters)


;; by standard parameters surrounded by asterisks (*) are seen as
;; mutable globals, therefore these variables should editable and
;; the software (and the user too) should expect them to change
;;
;; parameters surrounded by pluses (+) are seen as costants, therefore
;; they should be seen as fixed variables like version compatibility
;; references and pathfinding strings.
(defparameter +rulp-version+ (slot-value (asdf:find-system 'rulp)  'asdf:version))
(defparameter +rulp-type+ (machine-type))
(defparameter +rulp-system+ (software-type))
(defparameter *rulp-share* "./media/") ; remember to close with a slash here

(defparameter *rulp-local* ".") ; subject of change