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

Added cmd line option to autogen blocks of code

Browse source
This commit is contained in:
Justin Ethier 2015-02-24 12:54:05 -05:00
parent a4fcdf0e9e
commit 8e40505015
2 changed files with 18 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
cgen.scm
View file

@ -1048,10 +1048,11 @@
(emit "}") (emit "}")
(emit *c-main-function*))) (emit *c-main-function*)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Automatically generate blocks of code for the compiler ;; Automatically generate blocks of code for the compiler
;; TODO: need a compiler option to call this from cmd line (define (autogen filename)
(define (autogen) (let ((fp (open-output-file filename)))
(let ((fp (open-output-file "tmp.txt")))
(autogen:defprimitives fp) (autogen:defprimitives fp)
(autogen:primitive-procedures fp) (autogen:primitive-procedures fp)
(close-output-port fp))) (close-output-port fp)))
@ -1071,13 +1072,17 @@
;; List of primitive procedures ;; List of primitive procedures
(define (autogen:primitive-procedures fp) (define (autogen:primitive-procedures fp)
(pp ;; CHICKEN pretty-print (let ((code
(cons (cons
'list 'list
(map (map
(lambda (p) (lambda (p)
`(list (quote ,p) ,p)) `(list (quote ,p) ,p))
*primitives*)) *primitives*))))
fp)) (cond-expand
(chicken
(pp code fp)) ;; CHICKEN pretty-print
(else
(write code fp)))))

2
cyclone.scm
View file

@ -158,6 +158,8 @@
(newline)) (newline))
((member "-v" args) ((member "-v" args)
(display *version-banner*)) (display *version-banner*))
((member "--autogen" args)
(autogen "autogen.out"))
((member "-d" args) ((member "-d" args)
(run-compiler args #f)) ;; Debug, do not run GCC (run-compiler args #f)) ;; Debug, do not run GCC
(else (else