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

Externalize gcc commands

Browse source
This commit is contained in:
Justin Ethier 2016-07-29 17:56:28 -04:00
parent 6a50eff1e0
commit c1451e26ae
1 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
cyclone.scm
View file

@ -319,9 +319,19 @@
(string-append " " (lib:import->filename i ".o") " "))
lib-deps)))
(comp-prog-cmd
(string-append "gcc " src-file " -g -c -o " exec-file ".o"))
(string-replace-all
(string-replace-all
(Cyc-compilation-environment 'cc-prog)
"~src-file~" src-file)
"~exec-file~" exec-file))
(comp-objs-cmd
(string-append "gcc " exec-file ".o " objs-str " -pthread -lcyclone -lck -lm -g -o " exec-file)))
(string-replace-all
(string-replace-all
(string-replace-all
(Cyc-compilation-environment 'cc-exec)
"~exec-file~" exec-file)
"~obj-files~" objs-str)
"~exec-file~" exec-file)))
;(write `(DEBUG all imports ,lib-deps objs ,objs-str))
;(write `(DEBUG ,(lib:get-all-import-deps (cdar in-prog))))
(cond
@ -343,7 +353,11 @@
(write (macro:get-defined-macros))))
;; Compile library
(let ((comp-lib-cmd
(string-append "gcc " src-file " -g -c -o " exec-file ".o")))
(string-replace-all
(string-replace-all
(Cyc-compilation-environment 'cc-lib)
"~src-file~" src-file)
"~exec-file~" exec-file)))
(cond
(cc?
(system comp-lib-cmd))