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

indent

Browse source
This commit is contained in:
SANO Masatoshi 2017-06-30 22:02:18 +09:00
parent 70d00cc688
commit ac6ea079ff
1 changed files with 38 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

76
lisp/install+msys2.lisp
View file

@ -27,44 +27,44 @@
(msys (merge-pathnames (format nil "impls/~A/~A/msys2/~A/" (uname-m) (uname) (getf argv :version)) (homedir))))
(if (probe-file (merge-pathnames (format nil "mingw~A/bin/gcc.exe" *msys2-bits*) msys))
(format t "msys2 have been setup~%")
(progn
(format *error-output* "Download ~a~%" (file-namestring path))
(force-output *error-output*)
(when (or (not (probe-file path))
(opt "download.force"))
(download
(format nil "~Amsys2/Base/~A/msys2-base-~A-~A.tar.xz"
(msys2-uri)
*msys2-arch* *msys2-arch* (getf argv :version))
path))
(format t " done.~%")
(expand path
(ensure-directories-exist
(merge-pathnames (format nil "impls/~A/~A/msys2/" (uname-m) (uname))
(homedir))))
(format t "extraction done.~%")
(ql-impl-util:rename-directory
(merge-pathnames (format nil "impls/~A/~A/msys2/msys~A"
(uname-m) (uname) *msys2-bits*)
(homedir))
(merge-pathnames (format nil "impls/~A/~A/msys2/~A"
(uname-m) (uname) (getf argv :version))
(homedir)))
(uiop/run-program:run-program
`(,(uiop:native-namestring (merge-pathnames "usr/bin/bash" msys))
"-lc" " ")
:output t)
(uiop/run-program:run-program
`(,(uiop:native-namestring (merge-pathnames "usr/bin/bash" msys))
"-lc"
,(format nil "~@{~A~}"
"for i in {1..3}; do pacman --noconfirm "
"-Suy autoconf automake pkg-config "
"mingw-w64-" *msys2-arch* "-gcc "
"make zlib-devel && break || sleep 15; done")))
(uiop/run-program:run-program
`(,(uiop:native-namestring (merge-pathnames "autorebase.bat" msys))))
(setf (config "msys2.version") (getf argv :version)))))
(progn
(format *error-output* "Download ~a~%" (file-namestring path))
(force-output *error-output*)
(when (or (not (probe-file path))
(opt "download.force"))
(download
(format nil "~Amsys2/Base/~A/msys2-base-~A-~A.tar.xz"
(msys2-uri)
*msys2-arch* *msys2-arch* (getf argv :version))
path))
(format t " done.~%")
(expand path
(ensure-directories-exist
(merge-pathnames (format nil "impls/~A/~A/msys2/" (uname-m) (uname))
(homedir))))
(format t "extraction done.~%")
(ql-impl-util:rename-directory
(merge-pathnames (format nil "impls/~A/~A/msys2/msys~A"
(uname-m) (uname) *msys2-bits*)
(homedir))
(merge-pathnames (format nil "impls/~A/~A/msys2/~A"
(uname-m) (uname) (getf argv :version))
(homedir)))
(uiop/run-program:run-program
`(,(uiop:native-namestring (merge-pathnames "usr/bin/bash" msys))
"-lc" " ")
:output t)
(uiop/run-program:run-program
`(,(uiop:native-namestring (merge-pathnames "usr/bin/bash" msys))
"-lc"
,(format nil "~@{~A~}"
"for i in {1..3}; do pacman --noconfirm "
"-Suy autoconf automake pkg-config "
"mingw-w64-" *msys2-arch* "-gcc "
"make zlib-devel && break || sleep 15; done")))
(uiop/run-program:run-program
`(,(uiop:native-namestring (merge-pathnames "autorebase.bat" msys))))
(setf (config "msys2.version") (getf argv :version)))))
(cons t argv))
(defun msys2-help (argv)