init.lisp

   1 ;;; Basic initialization for LispStat
   2 ;;; Time-stamp: <2007-12-26 18:23:24 rossini>
   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 ;; (setf *my-base-directory*
  15 ;;       #p"/home/tony/sandbox/CLS.git/"
  16 ;;       #p"/Users/ungil/lisp/CommonLispStat/")
  17
  18
  19
  20 ;; What package should we be in?  Contaminating cl-user is probably EVIL.
  21
  22 ;; Need to replace this with some form of self-referential structure.
  23
  24 ;; Add the critical paths to the ASDF facility and set up other
  25 ;; things; currently this will not do the other setups.
  26
  27 (progn
  28   (defvar *lispstat-home-dir*
  29     ;; #p"/home/tony/sandbox/CommonLispStat.git/"
  30     ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"
  31     ;; #p"/Users/ungil/lisp/CommonLispStat/")
  32     #p"/home/rossini/public_html/GIT.repos/CommonLispStat/"
  33     "Value considered \"home\" for our data")
  34
  35   (setf *lispstat-home-dir*
  36         ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"
  37         ;; #p"/home/tony/sandbox/CommonLispStat.git/"
  38         ;; #p"/Users/ungil/lisp/CommonLispStat/")
  39         #p"/home/rossini/public_html/GIT.repos/CommonLispStat/")
  40
  41   (defmacro ls-dir (root-str)
  42     `(pathname (concatenate 'string (namestring *lispstat-home-dir*) ,root-str)))
  43
  44   (defmacro ls-defdir (target-dir-var  root-str)
  45     `(defvar ,target-dir-var (ls-dir ,root-str)))
  46
  47   ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))
  48   ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))
  49   ;;(macroexpand-1 '(ls-dir "ASDF"))
  50
  51   (ls-defdir *lispstat-asdf-dir* "ASDF/")
  52   (ls-defdir *lispstat-data-dir* "data/")
  53   (ls-defdir *lispstat-external-dir* "external/")
  54   (ls-defdir *lispstat-examples-dir* "examples/")
  55
  56   ;; Load ASDF if it isn't loaded
  57   #-asdf(load (pathname (concatenate 'string (namestring *lispstat-external-dir*) "asdf")))
  58
  59   ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
  60   (pushnew  *lispstat-asdf-dir*  asdf:*central-registry*))
  61
  62 (progn
  63   ;; Load needed packages
  64
  65   (asdf:oos 'asdf:load-op :cffi)     ;; FFI
  66   (asdf:oos 'asdf:load-op :lift)     ;; Unit Testing
  67
  68   ;; soon...
  69   #+nil(asdf:oos 'asdf:load-op :clem)     ;; matrixes
  70   #+nil(asdf:oos 'asdf:load-op :clem-test)
  71   #+nil(asdf:oos 'asdf:load-op :clem-benchmark)
  72
  73   ;; Constraint System
  74   ;;(asdf:oos 'asdf:load-op :cells)
  75
  76   ;; Finally...
  77   (asdf:oos 'asdf:load-op :lispstat)
  78   )
  79
  80 #+nil(progn
  81        (asdf:oos 'asdf:compile-op :cffi)
  82        (asdf:oos 'asdf:compile-op :lisp-unit)
  83        (asdf:oos 'asdf:compile-op :lift)
  84        (asdf:oos 'asdf:compile-op :rclg)
  85        (asdf:oos 'asdf:compile-op :cl-cairo2)
  86 ;; (asdf:operate 'asdf:load-op 'cffi)
  87 ;; (asdf:operate 'asdf:load-op 'rclg)
  88        (asdf:oos 'asdf:load-op :celtk)
  89        (asdf:oos 'asdf:compile-op :lispstat :force t)
  90 ;; (asdf:operate 'asdf:compile-op 'lispstat)
  91        )
  92
  93