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

Append/prepend dirs for .o files

Browse source
This commit is contained in:
Justin Ethier 2017-01-31 18:16:56 -05:00
parent bda80e8856
commit 130274588c
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
cyclone.scm
View file

@ -325,7 +325,7 @@
string-append string-append
(map (map
(lambda (i) (lambda (i)
(string-append " " (lib:import->filename i ".o") " ")) (string-append " " (lib:import->filename i ".o" append-dirs prepend-dirs) " "))
lib-deps))) lib-deps)))
(comp-prog-cmd (comp-prog-cmd
(string-replace-all (string-replace-all
@ -395,11 +395,15 @@
;; Handle command line arguments ;; Handle command line arguments
(let* ((args (command-line-arguments)) ;; TODO: port (command-line-arguments) to husk?? (let* ((args (command-line-arguments)) ;; TODO: port (command-line-arguments) to husk??
(non-opts (filter (non-opts
(lambda (arg) (if (null? args)
(not (and (> (string-length arg) 1) '()
(equal? #\- (string-ref arg 0))))) (list (car (reverse args)))))
args)) ; (filter
; (lambda (arg)
; (not (and (> (string-length arg) 1)
; (equal? #\- (string-ref arg 0)))))
; args))
(compile? #t) (compile? #t)
(append-dirs (collect-opt-values args "-A")) (append-dirs (collect-opt-values args "-A"))
(prepend-dirs (collect-opt-values args "-I"))) (prepend-dirs (collect-opt-values args "-I")))