2 (defpackage :lineal.devvars
4 (:export
*file-tree
* compile-if-new compile-lineal
))
6 (in-package :lineal.devvars
)
8 ;;; When extending lineal, add files to this list.
9 (defparameter *file-tree
*
10 '(("math" "math";< :lineal.math
11 :lineal.math
"counting" "tuples"
12 "matrices" "row-operns" "format")
13 ("overload" "overload";< :lineal.overload
14 :lineal.overload
"numbers" "tuples" "matrices")
17 ("overload" "concatenate" "crop" "row-operns" "format")
23 ("overload" :lineal.overload
"client-fns")
27 (name src-dir
&key
(fasl-dir src-dir
)
28 compile-all
(load-all t
) ensure-dirs
31 (make-pathname :directory src-dir
32 :name name
:type
"lisp"))
34 (make-pathname :directory fasl-dir
35 :name name
:type
"fasl")))
36 (if (and (not compile-all
)
37 (probe-file fasl-file
)
38 (< (file-write-date src-file
)
39 (file-write-date fasl-file
)))
40 (when load-all
(load fasl-file
))
43 (ensure-directories-exist fasl-dir
))
45 (fasl-strm fasl-file
:direction
:output
46 :if-exists
:supersede
)
47 (compile-file src-file
:output-file fasl-strm
))
51 (file-tree src-dir fasl-dir
52 &key compile-all
(load-all t
)
53 &aux
(src-tail (last src-dir
))
54 (fasl-tail (last fasl-dir
)))
58 (ensure-directories-exist
59 (make-pathname :directory fasl-dir
))
60 (let ((*package
* *package
*))
67 ;; We have a new directory to recurse.
68 (let ((tmp-src-tail src-tail
)
69 (tmp-fasl-tail fasl-tail
)
70 (dirtail (list (car file-tree
))))
71 (setq src-tail
(setf (cdr src-tail
) dirtail
)
72 fasl-tail
(setf (cdr fasl-tail
) dirtail
))
73 (ensure-first (cdr file-tree
))
74 (setq src-tail
(rplacd tmp-src-tail nil
)
75 fasl-tail
(rplacd tmp-fasl-tail nil
))))
77 ;; Use a different package
78 ;; for loading subsequent files.
79 (setq *package
* (find-package file-tree
)))
81 ;; /file-tree/ is a file's name,
82 ;; compile it if necessary.
86 :compile-all compile-all
87 :load-all load-all
)))))
88 (ensure-first file-tree
)))
90 ;;; Just compile the whole program.
91 (defun compile-lineal (&key compile-all
(load-all t
))
93 *file-tree
* '(:relative
"src")
95 :compile-all compile-all