mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-30 23:23:07 +00:00
Code Issues 1 Releases Wiki Activity

Add infinite loop detection and complex deps.

Browse Source 
We needed to handle dependencies that had both a url
and a tag component.
This commit is contained in:
Calvin Rose
2020-03-26 00:34:34 -05:00
parent d2d0300c7e
commit a20ea702e2
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
auxbin/jpm
View File

@@ -693,12 +693,18 @@ int main(int argc, const char **argv) {
(def ordered-packages @[])
(def resolved @{})
(while (< (length ordered-packages) (length packages))
(var made-progress false)
(each p packages
(def {:repo r :sha s :dependencies d} p)
(def dep-urls (map |(if (string? $) $ ($ :repo)) d))
(unless (resolved r)
(when (all resolved d)
(when (all resolved dep-urls)
(array/push ordered-packages p)
(put resolved r true)))))
(set made-progress true)
(put resolved r true))))
(unless made-progress
(error (string/format "could not resolve package order for: %j"
(filter (complement resolved) (map |($ :repo) packages))))))
# Write to file
(with [f (file/open filename :w)] (with-dyns [:out f] (printf "%j" ordered-packages))))