src/basics/defsys.lsp

   1 ;;; -*- mode: lisp -*-
   2
   3 (in-package :lisp-stat-config)
   4
   5 ;;; KCL
   6
   7 ;; (proclaim '(optimize (safety 2) (space 3) (speed 3)))
   8 ;; (setf *break-enable* nil)
   9
  10
  11 ;;; EXCL (Allegro)
  12
  13 ;; (setf *read-default-float-format* 'double-float)
  14
  15 (defvar *common-lisp-stat-version* "1.0 Alpha 1")
  16
  17 (defvar *default-path* "./")
  18
  19 ;;;
  20 ;;; Functions for switching into and out of debug mode
  21 ;;;
  22 ;;; Note that ANSI Common Lisp post-dates these, we need to ensure
  23 ;;; that CL's signal handling is taken into consideration.
  24
  25
  26 (defun ls-debug-on (signals-to-break-on) ;; FIXME:AJR
  27   (setf *break-on-signals* signals-to-break-on))
  28
  29 (defun ls-debug-off ()
  30   (setf *break-on-signals* nil))
  31
  32
  33 ;;;;
  34 ;;;; Compilation and Loading Utilities
  35 ;;;;
  36
  37 (defvar *lsos-files* (list "lsobjects"))
  38
  39 (defvar *basic-files*
  40   (list "lsbasics"
  41         "lsfloat"
  42         "compound"
  43         "matrices"
  44         "ladata"
  45         "linalg"
  46         "dists"))
  47
  48 (defvar *ls-files*
  49   (list "lsmath"
  50 ;       #-:kcl "help"
  51         "statistics"
  52         "regression"
  53         "nonlin"
  54         "maximize"
  55         "bayes"
  56         "lstoplevel"))
  57
  58 (defun use-ls-package (name)
  59   (shadowing-import (package-shadowing-symbols name))
  60   (use-package name))
  61
  62 (defun use-stats ()
  63   #+:kcl (shadowing-import '(ls::x))
  64   (use-ls-package 'lisp-stat-object-system)
  65   (use-ls-package 'lisp-stat-basics)
  66   (use-ls-package 'lisp-stat))
  67
  68 (defun lispfile (x)
  69   "Add suffix/type to string name."
  70   (concatenate 'string x
  71                #+:kcl ".lsp"
  72                #+(or :mcl :excl) ".lisp"))
  73
  74 (defun load-files (files)
  75   (dolist (f files) (load f :verbose t)))
  76
  77 (defun compile-load-files (files &optional (load t))
  78   (dolist (f files)
  79           #+:mcl (format t "compiling ~a~%" f)
  80           #+:excl (load (lispfile f))
  81           (compile-file f)
  82           (if load (load f))))
  83
  84 (defun load-lsos ()
  85   (load-files *lsos-files*))
  86
  87 (defun load-ls-basics ()
  88   (load-lsos)
  89   (load-files *basic-files*)
  90   #+:kcl (if (and (probe-file "kclglue.o")
  91                   (probe-file "lib/clib.a"))
  92              (si:faslink "kclglue" *clibs*)))
  93
  94 (defun load-stats ()
  95   (load-ls-basics)
  96   (load-files *ls-files*))
  97
  98 (defun compile-lsos ()
  99   (compile-load-files *lsos-files*))
 100
 101 (defun compile-ls-basics (&optional (compile-all t))
 102   (if compile-all (compile-lsos) (load-lsos))
 103   (compile-load-files *basic-files*)
 104   #+:kcl (progn (compile-file "kclglue")
 105                 (si:faslink "kclglue" *clibs*)))
 106
 107 (defun compile-stats (&optional (compile-all t))
 108   (if compile-all (compile-ls-basics) (load-ls-basics))
 109   (compile-load-files *ls-files*))
 110
 111
 112 (defvar *lispstat-home-dir* #p"/home/tony/sandbox/CLS.git/"
 113         "Value considered \"home\" for our data")
 114
 115 (setf *lispstat-home-dir*
 116       ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"w
 117       ;; #p"/home/tony/sandbox/CommonLispStat.git/"
 118       #p"/home/tony/sandbox/CLS.git/")
 119
 120 (defmacro ls-dir (root-str)
 121   `(pathname (concatenate 'string (namestring *lispstat-home-dir*) ,root-str)))
 122
 123 (defmacro ls-defdir (target-dir-var  root-str)
 124   `(defvar ,target-dir-var (ls-dir ,root-str)))
 125
 126 ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))
 127 ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))
 128 ;;(macroexpand-1 '(ls-dir "ASDF"))
 129
 130 (ls-defdir *lispstat-asdf-dir* "ASDF/")
 131 (ls-defdir *lispstat-data-dir* "data/")
 132 (ls-defdir *lispstat-external-dir* "external/")
 133 (ls-defdir *lispstat-examples-dir* "examples/")
 134
 135 ;; Load ASDF if it isn't loaded
 136 #-asdf(load (pathname (concatenate 'string (namestring *lispstat-external-dir*) "asdf")))
 137
 138 ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
 139 ;;(pushnew  *lispstat-asdf-dir*  asdf:*central-registry*))
 140