Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 16:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #165 - Handle includes as well

Browse source
This commit is contained in:
Justin Ethier 2017-02-02 02:03:28 -05:00
parent 4bcbb2ad16
commit cc0aefd3f2
2 changed files with 29 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
cyclone.scm
View file

@ -73,9 +73,10 @@
(for-each
(lambda (include)
(set! input-program
(append (read-file (string-append
(lib:import->path lib-name)
include))
(append (read-file ;(string-append
(lib:import->path lib-name append-dirs prepend-dirs include)
;include)
)
input-program)))
(reverse includes))))) ;; Append code in same order as the library's includes
(else

30
scheme/cyclone/libraries.sld
View file

@ -234,7 +234,7 @@
))
;; Get path to directory that contains the library
(define (lib:import->path import)
(define (lib:import->path import append-dirs prepend-dirs include)
(let* ((import-path (reverse (cdr (reverse import))))
(path
(apply
@ -242,10 +242,30 @@
(map
(lambda (i)
(string-append (lib:atom->string i) "/"))
import-path))))
(if (tagged-list? 'scheme import)
(string-append (Cyc-installation-dir 'sld) "/" path) ;; Built-in library
path)))
import-path)))
(filename
(string-append path "" include))
(dir (if (or (tagged-list? 'scheme import)
;(tagged-list? 'srfi import)
)
(Cyc-installation-dir 'sld)
"")))
(call/cc
(lambda (return)
(for-each
(lambda (path)
(let ((f (string-append path "/" filename)))
(if (file-exists? f)
(return f))))
(append prepend-dirs (list dir) append-dirs))
;; Not found, just return base name
(if (> (string-length dir) 0)
(string-append dir "/" filename)
filename)))
;(if (tagged-list? 'scheme import)
; (string-append (Cyc-installation-dir 'sld) "/" path) ;; Built-in library
; path)
))
;; Given a program's import set, resolve each import to its .o file, then
;; process each import recursively to get the .o files that each one of those