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

WIP - help banner

Browse source
This commit is contained in:
Justin Ethier 2015-04-27 18:18:07 -04:00
parent caf6f85c7c
commit d208c95609
1 changed files with 20 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
cyclone.scm
View file

@ -82,9 +82,16 @@
(trace:info input-program) ;pretty-print (trace:info input-program) ;pretty-print
;; TODO: do not run this if eval is in play, or (better) only do opts that are safe in that case (will be much more limited)
;; because of this, programs such as icyc can only be so optimized. it would be much more beneficial if modules like
;; eval.scm could be compiled separately and then linked to by a program such as icyc.scm. that would save a *lot* of compile
;; time. in fact, it might be more beneficial than adding these optimizations.
;;
;; TODO: run CPS optimization (not all of these phases may apply) ;; TODO: run CPS optimization (not all of these phases may apply)
;; phase 1 - constant folding, function-argument expansion, beta-contraction of functions called once, ;; phase 1 - constant folding, function-argument expansion, beta-contraction of functions called once,
;; and other "contractions" ;; and other "contractions". some of this is already done in previous phases. we will leave
;; that alone for now
; (set! input-program (cps-opt:contractions input-program))
;; phase 2 - beta expansion ;; phase 2 - beta expansion
;; phase 3 - eta reduction ;; phase 3 - eta reduction
;; phase 4 - hoisting ;; phase 4 - hoisting
@ -190,8 +197,18 @@
((< (length args) 1) ((< (length args) 1)
(display "cyclone: no input file") (display "cyclone: no input file")
(newline)) (newline))
((member "-h" args) ((or (member "-h" args)
(display "TODO: display help text") (member "--help" args))
(write " -t Show intermediate trace output in generated C files")
(write " -d Only generate intermediate C files, do not compile them")
(write " -h, --help Display usage information")
(write " -v Display version information")
(write " --autogen Cyclone developer use only, create autogen.out file")
(newline))
((member "-v" args)
(display *version-banner*))
((member "--autogen" args)
(autogen "autogen.out")
(newline)) (newline))
((member "-v" args) ((member "-v" args)
(display *version-banner*)) (display *version-banner*))