init.lisp

   1 ;;; Basic initialization for LispStat
   2 ;;; Time-stamp: <2007-06-25 19:58:14 ROSSIAN6>
   3 ;;; Created: <2007-05-30 17:09:47 ROSSIAN6>
   4
   5 ;; Goal:
   6 ;;
   7 ;; Associate ASDF directory for loading.
   8 ;; Make sure that we have initialized any locally defined global variables
   9 ;; ensure appropriate tools are linked in for loading.
  10 ;; i.e. if features don't exist, load from particular locations in
  11 ;; this directory structure.
  12
  13
  14 ;; What package should we be in?  Contaminating cl-user is probably EVIL.
  15
  16 ;; Need to replace this with some form of self-referential structure.
  17
  18 ;; Add the critical paths to the ASDF facility and set up other
  19 ;; things; currently this will not do the other setups.
  20
  21 (progn
  22
  23   (defvar *lispstat-home-dir* #p"/home/tony/sandbox/CLS.git/"
  24     "Value considered \"home\" for our data")
  25
  26   (setf *lispstat-home-dir*
  27         ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"w
  28         ;; #p"/home/tony/sandbox/CommonLispStat.git/"
  29         #p"/home/tony/sandbox/CLS.git/")
  30
  31   (defmacro ls-dir (root-str)
  32     `(pathname (concatenate 'string (namestring *lispstat-home-dir*) ,root-str)))
  33
  34   (defmacro ls-defdir (target-dir-var  root-str)
  35     `(defvar ,target-dir-var (ls-dir ,root-str)))
  36
  37   ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))
  38   ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))
  39   ;;(macroexpand-1 '(ls-dir "ASDF"))
  40
  41   (ls-defdir *lispstat-asdf-dir* "ASDF/")
  42   (ls-defdir *lispstat-data-dir* "data/")
  43   (ls-defdir *lispstat-external-dir* "external/")
  44   (ls-defdir *lispstat-examples-dir* "examples/")
  45
  46   ;; Load ASDF if it isn't loaded
  47   #-asdf(load (pathname (concatenate 'string (namestring *lispstat-external-dir*) "asdf")))
  48
  49   ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
  50   (pushnew  *lispstat-asdf-dir*  asdf:*central-registry*))
  51
  52 ;; Load the packages that we will need.
  53 (progn
  54
  55   ;; FFI
  56   (asdf:oos 'asdf:load-op :cffi)
  57
  58   ;; Unit Testing
  59   (asdf:oos 'asdf:load-op :lift)
  60
  61   ;;(asdf:oos 'asdf:load-op :lisp-unit)
  62
  63   (asdf:oos 'asdf:load-op :clem)
  64   #+nil(asdf:oos 'asdf:load-op :clem-test)
  65   #+nil(asdf:oos 'asdf:load-op :clem-benchmark)
  66
  67   ;; Constraint System
  68   ;;(asdf:oos 'asdf:load-op :cells)
  69
  70   ;; Finally...
  71   #+nil(asdf:oos 'asdf:load-op :lispstat)
  72   )
  73
  74 #+nil(progn
  75        (asdf:oos 'asdf:compile-op :cffi)
  76        (asdf:oos 'asdf:compile-op :lisp-unit)
  77        (asdf:oos 'asdf:compile-op :lift)
  78        (asdf:oos 'asdf:compile-op :rclg)
  79        (asdf:oos 'asdf:compile-op :cl-cairo2)
  80        (asdf:oos 'asdf:load-op :celtk)
  81        (asdf:oos 'asdf:compile-op :lispstat)