common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

support install system to install bin

Browse source
This commit is contained in:
SANO Masatoshi 2015-05-02 21:00:25 +09:00
parent 3c29fbf296
commit 8c255d2e63
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/lisp/install.ros
View file

@ -175,4 +175,16 @@ exec ros -Q +R -L sbcl-bin -- $0 "$@"
:defaults (merge-pathnames "subcmd/" *home-path*)
:name (pathname-name sub)
:type (pathname-type sub))))
((ql-dist:find-system impl/version)
(format *error-output* "found system ~A.~%Attempting install scripts...~%" impl/version)
(ql:quickload impl/version :silent t)
(loop for sub in (directory (merge-pathnames "bin/*.*" (ql:where-is-system impl/version)))
for to = (ensure-directories-exist
(make-pathname
:defaults (merge-pathnames "bin/" *home-path*)
:name (pathname-name sub)
:type (pathname-type sub)))
do (format *error-output* "~&~A~%" to)
(uiop/stream:copy-file sub to)
#+sbcl(sb-posix:chmod to #o700)))
(t (format *error-output* "not supported software ~A" imp)))))