Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Enhance dependency resolution of import sets

Browse source 
Allow the dependency resolution front-end to handle libraries that contain import sets that are not just a library name, such as `only` or `except`.
This commit is contained in:
Justin Ethier 2016-10-08 02:41:37 -04:00
parent 36a74053c2
commit 0dadb5a730
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scheme/cyclone/libraries.sld
View file

@ -47,7 +47,6 @@
lib:idb:id->import
)
(begin
; (define read cyc-read)
(define (library? ast)
(tagged-list? 'define-library ast))
@ -314,20 +313,22 @@
(lambda (import-sets)
(for-each
(lambda (i)
(let ((import-set (lib:list->import-set i)))
(let* ((import-set (lib:list->import-set i))
(lib-name (lib:import->library-name import-set)))
(cond
;; Prevent cycles by only processing new libraries
((not (assoc import-set libraries/deps))
((not (assoc lib-name libraries/deps))
;; Find all dependencies of i (IE, libraries it imports)
(let ((deps (lib:read-imports import-set))
(lib-name (lib:import->library-name import-set)))
(set! libraries/deps (cons (cons lib-name deps) libraries/deps))
(find-deps! deps)
(let* ((deps (lib:read-imports import-set))
(dep-libs (map lib:import->library-name deps)))
(set!
libraries/deps
(cons (cons lib-name dep-libs) libraries/deps))
(find-deps! dep-libs)
)))))
import-sets))))
(find-deps! imports)
;`((deps ,libraries/deps) ; DEBUG
; (result ,(lib:get-dep-list libraries/deps)))
;`((deps ,libraries/deps)) ; DEBUG
(lib:get-dep-list libraries/deps)
))