Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
d1a35cb8
Commit
d1a35cb8
authored
Aug 13, 2019
by
Eric Timmons
Browse files
Add resolve-requirement for project requirements
parent
028a509f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/clpm/resolve.lisp
View file @
d1a35cb8
...
...
@@ -483,16 +483,16 @@ objects to a list of system-releases."))
(
mapcar
(
rcurry
#'
cons
t
)
(
release/system-files
vcs-release
)))))))
;;
(defmethod resolve-requirement ((req project-requirement) s
ources
)
;;
(let* ((project-name (requirement/name req))
;;
(version-spec (requirement/version-spec req))
;;
(project (find-project-in-sources project-name
sources
))
;;
(releases (project/releases project))
;;
(applicable-releases (remove-if-not (rcurry #'release-satisfies-version-spec-p version-spec)
;;
releases)))
;;
(mapcar (lambda (x)
;;
(
cons x
(release/system-releases x)))
;;
(sort applicable-releases #'release->))))
(
defmethod
resolve-requirement
((
req
project-requirement
)
s
earch-state
)
(
let*
((
project-name
(
requirement/name
req
))
(
version-spec
(
requirement/version-spec
req
))
(
project
(
find-project-in-sources
project-name
))
(
releases
(
project/releases
project
))
(
applicable-releases
(
remove-if-not
(
rcurry
#'
release-satisfies-version-spec-p
version-spec
)
releases
)))
(
mapcar
(
lambda
(
x
)
(
list
x
:system-releases
(
release/system-releases
x
)))
(
sort
applicable-releases
#'
release->
))))
(
defmethod
resolve-requirement
((
req
system-requirement
)
search-state
)
(
let*
((
system-name
(
requirement/name
req
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment