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

Adding compiler stubs

Browse source
This commit is contained in:
Justin Ethier 2015-04-29 12:48:42 -04:00
parent 2f409d141c
commit 0b13361cc3
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
cyclone.scm
View file

@ -63,7 +63,8 @@
(set! lib-exports (lib:exports (car input-program))) (set! lib-exports (lib:exports (car input-program)))
(set! lib-imports (lib:imports (car input-program))) (set! lib-imports (lib:imports (car input-program)))
(set! input-program (lib:body (car input-program))) (set! input-program (lib:body (car input-program)))
(error "TODO: I do not know how to compile a library"))) ;(error "TODO: I do not know how to compile a library")
))
;; TODO: how to handle stdlib when compiling a library?? ;; TODO: how to handle stdlib when compiling a library??
;; either need to keep track of what was actually used, ;; either need to keep track of what was actually used,
@ -186,6 +187,7 @@
(define (run-compiler args cc?) (define (run-compiler args cc?)
(let* ((in-file (car args)) (let* ((in-file (car args))
(in-prog (read-file in-file)) (in-prog (read-file in-file))
(program? (not (library? (car in-prog))))
(exec-file (basename in-file)) (exec-file (basename in-file))
(src-file (string-append exec-file ".c")) (src-file (string-append exec-file ".c"))
(create-c-file (create-c-file
@ -197,7 +199,8 @@
(result (create-c-file in-prog))) (result (create-c-file in-prog)))
;; Load other modules if necessary ;; Load other modules if necessary
(cond (cond
((not (null? result)) ((and program?
(not (null? result)))
(let ((program (let ((program
(append (append
(if (member 'eval result) (if (member 'eval result)
@ -209,13 +212,17 @@
'((define read cyc-read))) '((define read cyc-read)))
'()) '())
in-prog))) in-prog)))
(create-c-file program)))) (create-c-file program)))) ;; TODO: no, don't do same work twice. real answer is linking
;; Compile the generated C file ;; Compile the generated C file
(if cc? (if cc?
(system (if program?
;; -I is a hack, real answer is to use 'make install' to place .h file (system
(string-append "gcc " src-file " -L. -lcyclone -lm -I. -g -o " exec-file))))) ;; -I is a hack, real answer is to use 'make install' to place .h file
(string-append "gcc " src-file " -L. -lcyclone -lm -I. -g -o " exec-file))
(system
(string-append "gcc " src-file " -I. -g -c -o " exec-file ".o"))))))
;; 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??