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

Cleanup, adding TODO's

Browse source
This commit is contained in:
Justin Ethier 2017-03-24 17:37:04 +00:00
parent 9d1365f56f
commit 435d15d2f4
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
scheme/eval.sld
View file

@ -602,8 +602,21 @@
;; called out in the import sets ;; called out in the import sets
;; ;;
;; TODO: get any dependencies and load them, too ;; TODO: get any dependencies and load them, too
;; TODO: for some of that (prefix, maybe other stuff), can we do the renaming in the env??
(define (%import . import-sets) (define (%import . import-sets)
(let ((lib-names (lib:get-all-import-deps import-sets '() '()))) (let ((lib-names (lib:get-all-import-deps import-sets '() '())))
;; TODO:
;; Instead of blindly loading everything, should only load the libraries that are
;; actually needed. may want to create a new table in the runtime that keeps track of
;; loaded libraries. maybe have one of the libck data structures be used for it. could
;; then have supporting functions:
;; - add_lib - auto-generated call placed in each lib's entry point
;; - check_lib - called here to look up each library to see if it is already loaded
;; one issue - what if a library has changed and really should be reloaded?
;; also, is there any value to loading a library that is not compiled? I guess we can
;; sort of do that now via (load).
(for-each (for-each
(lambda (lib-name) (lambda (lib-name)
(c:dyn-load (c:dyn-load
@ -614,18 +627,7 @@
(set! *global-environment* (setup-environment *initial-environment*)) (set! *global-environment* (setup-environment *initial-environment*))
#t)) #t))
;; TODO: this function is just a proof of concept ;; Wrapper around the actual shared object import function
#;(define (lib:dyn-load import)
(let ((lib-name (lib:list->import-set import)))
(c:dyn-load
(lib:import->filename lib-name ".so")
(string-append
"c_" (lib:name->string lib-name) "_entry_pt_first_lambda")))
;; Reload env with new compiled bindings
;; NOTE: will undo any changes to these bindings!!!
(set! *global-environment* (setup-environment *initial-environment*))
#t)
(define-c c:dyn-load (define-c c:dyn-load
"(void *data, int argc, closure _, object k, object fn, object entry_fnc)" "(void *data, int argc, closure _, object k, object fn, object entry_fnc)"
" Cyc_import_shared_object(data, k, fn, entry_fnc); ") " Cyc_import_shared_object(data, k, fn, entry_fnc); ")