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

Added collect-opt-values

Browse source
This commit is contained in:
Justin Ethier 2017-01-31 17:03:28 -05:00
parent f58a44ebd0
commit 7b927d8b35
1 changed files with 24 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
cyclone.scm
View file

@ -297,7 +297,7 @@
(read-all port))))
;; Compile and emit:
(define (run-compiler args cc?)
(define (run-compiler args cc? append-dirs prepend-dirs)
(let* ((in-file (car args))
(in-prog (read-file in-file))
(program? (not (library? (car in-prog))))
@ -373,7 +373,25 @@
(else
(display comp-lib-cmd)
(newline))))))))
;; Collect values for the given command line arguments and option.
;; Will return a list of values for the option.
;; For example:
;; ("-a" "1" "2") ==> ("1")
;; ("-a" "1" -a "2") ==> ("1" "2")
(define (collect-opt-values args opt)
(cdr
(foldl
(lambda (arg accum)
(cond
((equal? arg opt)
(cons opt (cdr accum)))
((car accum) ;; we are at an opt value
(cons #f (cons arg (cdr accum))))
(else
(cons #f (cdr accum)))))
(list #f)
args)))
;; Handle command line arguments
(let* ((args (command-line-arguments)) ;; TODO: port (command-line-arguments) to husk??
@ -382,7 +400,9 @@
(not (and (> (string-length arg) 1)
(equal? #\- (string-ref arg 0)))))
args))
(compile? #t))
(compile? #t)
(append-dirs (collect-opt-values args "-A"))
(prepend-dirs (collect-opt-values args "-I")))
;; Set optimization level(s)
(if (member "-O0" args)
(set! *optimization-level* 0))
@ -419,5 +439,5 @@
(display "cyclone: no input file")
(newline))
(else
(run-compiler non-opts compile?))))
(run-compiler non-opts compile? append-dirs prepend-dirs))))