From 8c255d2e633248ac5fa57cd8f75d55b832b5e606 Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Sat, 2 May 2015 21:00:25 +0900 Subject: [PATCH] support install system to install bin --- src/lisp/install.ros | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/lisp/install.ros b/src/lisp/install.ros index af81c89..a5a85e0 100644 --- a/src/lisp/install.ros +++ b/src/lisp/install.ros @@ -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)))))