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

Handle any import set in lib:import->library-name

Browse source
This commit is contained in:
Justin Ethier 2016-10-08 02:48:06 -04:00
parent 940c045176
commit 0b4bb36ec0
1 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
scheme/cyclone/libraries.sld
View file

@ -68,6 +68,20 @@
(define (lib:name ast) (define (lib:name ast)
(lib:list->import-set (cadr ast))) (lib:list->import-set (cadr ast)))
;; Convert an import-set to its corresponding library name.
;; These are not always the same thing, but each import-set
;; does reference a specific library.
(define (lib:import->library-name import)
(cond
((or (tagged-list? 'only import)
(tagged-list? 'except import)
(tagged-list? 'prefix import)
(tagged-list? 'rename import))
(cadr import))
(else
import)))
;; Convert name (as list of symbols) to a mangled string ;; Convert name (as list of symbols) to a mangled string
(define (lib:name->string name) (define (lib:name->string name)
(apply string-append (map mangle (lib:import->library-name name)))) (apply string-append (map mangle (lib:import->library-name name))))
@ -205,14 +219,6 @@
(close-input-port fp) (close-input-port fp)
imports)) imports))
(define (lib:import->library-name import)
(cond
((or (tagged-list? 'only import)
(tagged-list? 'except import))
(cadr import))
(else
import)))
;; Read export list for a given import ;; Read export list for a given import
(define (lib:import->export-list import) (define (lib:import->export-list import)
(let* ((lib-name (lib:import->library-name import)) (let* ((lib-name (lib:import->library-name import))