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

fix #534

Browse source
This commit is contained in:
SANO Masatoshi 2022-11-27 01:56:35 +09:00
parent 921d445cff
commit dae5e63c7b
5 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/install-abcl-bin.lisp
View file

@ -11,7 +11,7 @@
(let ((file (merge-pathnames "tmp/abcl-bin.html" (homedir))))
(format *error-output* "Checking version to install....~%")
(download (abcl-bin-uri) file)
(loop for a in (plump:get-elements-by-tag-name
(loop for a in (get-elements-by-tag-name
(plump:parse file) "a")
for x = (string-right-trim "/" (plump:get-attribute a "href"))
when (ignore-errors (digit-char-p (aref x 0)))

2
lisp/install-clisp.lisp
View file

@ -11,7 +11,7 @@
(let ((file (merge-pathnames "tmp/clisp.html" (homedir))))
(format *error-output* "Checking version to install....~%")
(download (clisp-version-uri) file :interval (* 60 60))
(loop for link in (plump:get-elements-by-tag-name (plump:parse file) "a")
(loop for link in (get-elements-by-tag-name (plump:parse file) "a")
for href = (plump:get-attribute link "href") for len = (1- (length href))
when (and (eql (aref href len) #\/)
(not (eql (aref href 0) #\/))

2
lisp/install-cmu-bin.lisp
View file

@ -7,7 +7,7 @@
(let ((file (merge-pathnames "tmp/cmu-bin.html" (homedir))))
(format *error-output* "Checking version to install...~%")
(download (format nil "~Arelease/" (cmu-bin-uri)) file :interval (* 60 60))
(loop for link in (plump:get-elements-by-tag-name (plump:parse file) "a")
(loop for link in (get-elements-by-tag-name (plump:parse file) "a")
for href = (plump:get-attribute link "href")
for len = (length href)
when (and (digit-char-p (aref href 0))

12
lisp/util-install-quicklisp.lisp
View file

@ -5,6 +5,18 @@
(defvar *build-hook* nil)
(defun get-elements-by-tag-name (node tag)
(let* ((current-version
(ignore-errors
(let* ((* "plump")
(* (ql-dist:find-system *))
(* (ql-dist:dist *))
(* (ql-dist:version *)))
*)))
(new (string< "2022-07-08" current-version)))
(funcall (if new #'nreverse #'identity)
(plump:get-elements-by-tag-name node tag))))
#+sbcl
(defclass count-line-stream (sb-gray:fundamental-character-output-stream)
((base :initarg :base

5
lisp/util-install.lisp
View file

@ -5,7 +5,8 @@
:install-system-script :install-impl-if-probed :install-script-if-probed
:install-system-if-probed :mingw-namestring :install-github :*checkout-default*
:install :decide-version :decide-download :require-system-package
:start :setup :date :github-version :version :install-script :count-line-stream))
:start :setup :date :github-version :version :install-script :count-line-stream
:get-elements-by-tag-name))
(in-package :roswell.install)
(defvar *ros-path* nil)
@ -77,7 +78,7 @@ To differentiate it from the system with the same name in quicklisp, the path sh
(download uri file :interval (* 60 60))
(read-call "plump:parse" file))))
(nreverse
(loop for link in (read-call "plump:get-elements-by-tag-name" elts "link")
(loop for link in (read-call "roswell.install:get-elements-by-tag-name" elts "link")
for href = (read-call "plump:get-attribute" link "href")
when (funcall filter href)
collect it))))