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

edit debian.ros filtering uris

Browse source
This commit is contained in:
SANO Masatoshi 2017-05-05 13:05:31 +09:00
parent 473d0f6957
commit 7254bd4b83
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
scripts/debian.ros
View file

@ -4,7 +4,7 @@
exec ros -Q -L sbcl-bin -- $0 "$@"
|#
(ql:quickload '(:cl-emb :cl-html-parse :dexador :ironclad :uiop) :silent t)
(ql:quickload '(:cl-html-parse :dexador :uiop) :silent t)
(defvar *pwd* (make-pathname :defaults cl:*load-pathname* :name nil :type nil))
(defvar *package-name* "roswell")
@ -12,18 +12,20 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
(defun get-newest-url (base)
(block nil
(multiple-value-bind (body res)
(dex:get (format nil "https://github.com/~A/releases/" base))
(dex:get (format nil "https://github.com/~A/releases/" base))
(when (= res 200)
(net.html.parser:parse-html
body
:callbacks
(list (cons :a (lambda (arg)
(let ((href (getf (cdr (car arg)) :href)))
(when (and (> (length href) 6)
(equal (subseq href (-(length href) 6))
"tar.gz"))
(return-from nil (format nil "https://github.com~A" href)))))))
:callback-only t)))))
(net.html.parser:parse-html
body
:callbacks
(list (cons :a (lambda (arg)
(let ((href (getf (cdr (car arg)) :href)))
(when (and (> (length href) 6)
(equal (subseq href (-(length href) 6))
"tar.gz")
;; href which include "archive" not "release"
(eql (aref href (1+ (position #\a href))) #\r))
(return-from nil (format nil "https://github.com~A" href)))))))
:callback-only t)))))
(defun download (uri path)
(if (probe-file path)