Public Git Hosting - CommonLispStat.git/blob

1 ;; -*- mode: lisp -*-

3 ;;; ASDF packaging for CommonLisp Stat

4 ;;; License: BSD, see the top level directory file LICENSE for details.

5 ;;; Time-stamp: <2008-09-05 08:13:26 tony>

6 ;;; Created: <2005-05-30 17:09:47 blindglobe>

7

8 (in-package :cl-user)

9

10 (defvar *lispstat-home-dir*

11 (directory-namestring

12 (truename (asdf:system-definition-pathname :lispstat)))

13 "Value considered \"home\" for our data")

14

15 #|

16 (setf *lispstat-home-dir*

17 (directory-namestring (truename (asdf:system-definition-pathname

18 :lispstat))))

19 |#

20

21 (macrolet ((ls-dir (root-str)

22 `(pathname (concatenate 'string

23 (namestring *lispstat-home-dir*) ,root-str)))

24

25 (ls-defdir (target-dir-var root-str)

26 `(defvar ,target-dir-var (ls-dir ,root-str))))

27

28 ;; reminder of testing

29 ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))

30 ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))

31 ;;(macroexpand-1 '(ls-dir "ASDF"))

32

33 (ls-defdir *lispstat-asdf-dir* "ASDF/")

34 (ls-defdir *lispstat-data-dir* "data/")

35 (ls-defdir *lispstat-external-dir* "external/")

36 (ls-defdir *lispstat-examples-dir* "examples/"))

37

38 (pushnew *lispstat-asdf-dir* asdf:*central-registry*)

39 ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal) ; eg for Microsoft

40

41 ;;; back to our regularly scheduled work...

42 ;;; We should NOT need these, but have in the past due to errors...

43 ;; (asdf:oos 'asdf:compile-op :cffi) ;; FFI

44 ;; (asdf:oos 'asdf:compile-op :lift) ;; Unit Testing

45 ;; (asdf:oos 'asdf:load-op :cffi) ;; FFI

46 ;; (asdf:oos 'asdf:load-op :lift) ;; Unit Testing

47

48 ;;; MAJOR HACK, FIXME!

49 ;;(load "/media/disk/Desktop/sandbox/matlisp.git/start.lisp")

50

51 (in-package :cl-user)

52

53 (defpackage #:lispstat-system

54 (:use :common-lisp :asdf))

55

56 (in-package #:lispstat-system)

57

58 ;;; To avoid renaming everything from *.lsp to *.lisp...

59 ;;; borrowed from Cyrus Harmon's work, for example for the ch-util.

60 ;;; NOT secure against serving multiple architectures/hardwares from

61 ;;; the same file system (i.e. PPC and x86 would not be

62 ;;; differentiated).

63

64 (defclass lispstat-lsp-source-file (cl-source-file) ())

65 (defparameter *fasl-directory*

66 (make-pathname :directory '(:relative

67 #+sbcl "sbcl-fasl"

68 #+openmcl "openmcl-fasl"

69 #+cmu "cmucl-fasl"

70 #+clisp "clisp-fasl"

71 #-(or sbcl openmcl clisp cmucl) "fasl"

72 )))

73

74

75 ;;; Handle Luke's *.lsp suffix

76 (defmethod source-file-type ((c lispstat-lsp-source-file) (s module)) "lsp")

77 (defmethod asdf::output-files :around ((operation compile-op)

78 (c lispstat-lsp-source-file))

79 (list (merge-pathnames *fasl-directory*

80 (compile-file-pathname (component-pathname c)))))

81 ;;; again, thanks to Cyrus for saving me time...

82

83

84 (defsystem "lispstat"

85 :version #.(with-open-file

86 (vers (merge-pathnames "version.lisp-expr" *load-truename*))

87 (read vers))

88 :author "A.J. Rossini <blindglobe@gmail.com>"

89 :license "BSD"

90 :description "CommonLispStat (CLS): A System for Statistical

91 Computing with Common Lisp; based on CLS alpha1 by Luke Tierney

92 <luke@stat.uiowa.edu> (apparently originally written when Luke was

93 at CMU, on leave somewhere?). Last touched by him in 1991, then in

94 2005--2008."

95 :serial t

96 :depends-on (:cffi :lift) ;; need a matrix library

97 :components ((:static-file "version" :pathname #p"version.lisp-expr")

98 (:static-file "LICENSE")

99 (:static-file "README")

100

101 (:module "proto-objects"

102 :pathname "src/objsys/"

103 :components

104 ((:lispstat-lsp-source-file "lsobjects")))

105

106 (:module "lispstat-core"

107 :pathname "src/basics/"

108 :serial t

109 :depends-on ("proto-objects")

110 :components

111 ((:lispstat-lsp-source-file "defsys")

112 (:lispstat-lsp-source-file "lstypes")

113 (:lispstat-lsp-source-file "lsfloat")

114

115 (:lispstat-lsp-source-file "compound")

116 (:lispstat-lsp-source-file "lsmacros"

117 :depends-on ("compound"))

118

119 (:lispstat-lsp-source-file "lsmath"

120 :depends-on ("compound"

121 "lsmacros"

122 "lsfloat"))))

123

124 (:module

125 "numerics-internal"

126 :pathname "src/numerics/"

127 :depends-on ("proto-objects" "lispstat-core")

128 :components

129 ((:lispstat-lsp-source-file "cffiglue")

130 (:lispstat-lsp-source-file "dists"

131 :depends-on ("cffiglue"))

132 (:lispstat-lsp-source-file "matrices"

133 :depends-on ("cffiglue"))

134 (:lispstat-lsp-source-file "ladata"

135 :depends-on ("cffiglue"

136 "matrices"))

137 (:lispstat-lsp-source-file "linalg"

138 :depends-on ("cffiglue"

139 "matrices"

140 "ladata"))))

141

142 (:module

143 "stat-data"

144 :pathname "src/data/"

145 :depends-on ("proto-objects"

146 "lispstat-core"

147 "numerics-internal")

148 :components

149 (;; (:file "data-clos")

150 (:file "data")))

151

152 (:module

153 "cls-basics"

154 :pathname "src/basics/"

155 :depends-on ("proto-objects"

156 "lispstat-core"

157 "numerics-internal" )

158 :components

159 ((:lispstat-lsp-source-file "lsbasics")))

160

161 (:module

162 "describe"

163 :pathname "src/describe/"

164 :depends-on ("proto-objects"

165 "lispstat-core"

166 "numerics-internal"

167 "stat-data"

168 "cls-basics")

169 :components

170 ((:lispstat-lsp-source-file "statistics")))

171

172 (:module

173 "optimization"

174 :pathname "src/numerics/"

175 :depends-on ("proto-objects"

176 "lispstat-core"

177 "numerics-internal")

178 :components ((:file "optimize")))

179

180

181 ;; Applications

182 (:module

183 "stat-models"

184 :pathname "src/stat-models/"

185 :depends-on ("proto-objects"

186 "lispstat-core"

187 "numerics-internal"

188 "cls-basics"

189 "describe")

190 :components

191 ((:lispstat-lsp-source-file "regression")

192 ;; (:lispstat-lsp-source-file "nonlin"

193 ;; :depends-on ("regression"))

194 ;; (:lispstat-lsp-source-file "bayes"

195 ;; :depends-on ("proto-objects"

196 ;; "lsmath"

197 ;; "dists"))

198 ))

199

200 (:module

201 "lisp-stat-one"

202 :pathname "src/"

203 :depends-on ("proto-objects"

204 "lispstat-core"

205 "numerics-internal"

206 "cls-basics"

207 "stat-data"

208 "describe"

209 "stat-models")

210 :components ((:file "ls-user")))

211

212 (:module

213 "lisp-stat-unittest"

214 :depends-on ( "lisp-stat-one" ) ;; shouldn't need :lift!

215 :pathname "src/unittests/"

216 :components ((:file "unittests")

217 (:file "unittests-lstypes")

218 ;; "unittests-arrays.lisp"

219 ;; "unittests-data-clos.lisp"

220 ;; "unittests-proto.lisp"

221 ;; "unittests-regression.lisp"

222 ))))