;;;; OpenScenarioNext --- OpenScenario Language Design
;;;; This is copyrighted software.  See documentation for terms.
;;;; 
;;;; setup-common.lisp --- Common setup for building

(cl:in-package #:cl-user)

;;;; %File Description:
;;;; 
;;;; Setup everything so that ASDF building of the system will work,
;;;; regardless of the current working directory or other stuff.
;;;; 

;;; Require asdf just in case it is not present.

(require "ASDF")

;;; Add current path and tool paths to central-registry

(let ((base-dir (make-pathname :name nil :type nil :defaults *load-pathname*)))
  ;; The OSN directory itself
  (push base-dir asdf:*central-registry*)
  ;; All needed and bundled tools
  (dolist (path '(#p"tools/cl-ppcre/" #p"tools/cl-yacc/" #p"tools/puri/"
                  #p"tools/trivial-gray-streams/" #p"tools/trivial-features/"
                  #p"tools/alexandria/" #p"tools/babel/"
                  #p"tools/closure-common/" #p"tools/cxml/"))
    (push (merge-pathnames path base-dir) asdf:*central-registry*)))