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

make install+7zip.lisp loadable from non windows.

Browse source
This commit is contained in:
SANO Masatoshi 2017-11-09 04:33:21 +09:00
parent 1ddfa7f123
commit 2b43e4d388
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/install+7zip.lisp
View file

@ -1,3 +1,4 @@
;;;/*
(roswell:include "util-install-quicklisp")
(defpackage :roswell.install.7zip+
(:use :cl :roswell.install :roswell.util :roswell.locations))
@ -19,9 +20,7 @@
(values (merge-pathnames "7za.exe" prefix) version)))
(defun unzip (path output-path)
(zip:unzip
path
output-path))
#+win32(zip:unzip path output-path))
(defun setup-7za (argv)
(format t "setting up 7zip...~%")
@ -33,7 +32,7 @@
(format t "7zip already setup~%")
(progn
(format t "archive=~A extract ~A~%" archive (7za-uri))
(download (7za-uri) (ensure-directories-exist archive))
#-win32(download (7za-uri) (ensure-directories-exist archive))
(unzip archive (ensure-directories-exist prefix)))))
(cons t argv)))
@ -45,3 +44,11 @@
(case type
(:help '(7z-help))
(:install '(setup-7za))))
#|*/
var f=WSH.Arguments(0),d=WSH.Arguments(1),
o=new ActiveXObject('Scripting.FileSystemObject'),
s=new ActiveXObject('Shell.Application');
if(!o.FolderExists(d)){o.CreateFolder(d);}
if(o.FileExists(f)){s.NameSpace(o.getFolder(d).Path).
CopyHere(s.NameSpace(o.getFile(f).Path).Items(),20);}
//|#