Moonchild/fancy-build
1
0
Fork 1
Code Issues Pull Requests Releases Activity

build multiple targets at once from the command line

Browse Source
This commit is contained in:
Moonchild 2020-10-04 17:08:36 -07:00
parent d4052f2b04
commit 1467133c5d
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/fb-entry.lisp
View File

@ -23,14 +23,17 @@
(setf *global-cache* (conspack:decode buf))))) (setf *global-cache* (conspack:decode buf)))))
(load "fancy.build") (load "fancy.build")
(let ((target (gethash (or (cadr sb-ext:*posix-argv*) "default") *targets*)))
(if target
(build target)
(format t "I don't know what to do with that...~%")))
(with-open-file (fp "fancy.buildcache" (mapcar #'(lambda (target-name)
:direction :output (let ((target (gethash target-name *targets*)))
:if-exists :overwrite (if target
:if-does-not-exist :create (build target)
:element-type '(unsigned-byte 8)) (format t "No target named '~a'.~%" target-name))))
(write-sequence (conspack:encode *global-cache*) fp))) (or (cdr sb-ext:*posix-argv*) '("default")))
(with-open-file (fp "fancy.buildcache"
:direction :output
:if-exists :overwrite
:if-does-not-exist :create
:element-type '(unsigned-byte 8))
(write-sequence (conspack:encode *global-cache*) fp)))