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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2015-05-13 18:26:11 -04:00
parent 145d055af2
commit 515719d774
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
cyclone.scm
View file

@ -238,10 +238,11 @@
(program? (program?
; TODO: if there is an (import) ; TODO: if there is an (import)
; (write `(DEBUG ,(lib:imports->objs (cdar in-prog) "."))) ; (write `(DEBUG ,(lib:imports->objs (cdar in-prog) ".")))
(let ((objs-str "")) ;; TODO: populate using above (if prog) and link to objs below (will need to run 2 gcc commands)
(system (system
;; -I is a hack, real answer is to use 'make install' to place .h file ;; -I is a hack, real answer is to use 'make install' to place .h file
;TODO: need to link to object files from lib:import->obj-file ;TODO: need to link to object files from lib:import->obj-file
(string-append "gcc " src-file " -L" (cyc:get-clib-dir) " -lcyclone -lm -I" (cyc:get-include-dir) " -g -o " exec-file))) (string-append "gcc " src-file " -L" (cyc:get-clib-dir) " -lcyclone -lm -I" (cyc:get-include-dir) " -g -o " exec-file))))
(else (else
(system (system
(string-append "gcc " src-file " -I" (cyc:get-include-dir) " -g -c -o " exec-file ".o"))))))) (string-append "gcc " src-file " -I" (cyc:get-include-dir) " -g -c -o " exec-file ".o")))))))