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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-05-04 22:58:44 -04:00
parent 709a13808d
commit ff4e8bf3b9
4 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Makefile
View file

@ -24,6 +24,8 @@ SMODULES = \
scheme/read \
scheme/time \
scheme/write \
scheme/cyclone/ast \
scheme/cyclone/optimize-cps \
scheme/cyclone/cgen \
scheme/cyclone/common \
scheme/cyclone/libraries \
@ -101,6 +103,8 @@ bootstrap: icyc
cp scheme/cyclone/common.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp icyc.scm $(BOOTSTRAP_DIR)
cp tests/unit-tests.scm $(BOOTSTRAP_DIR)
cp scheme/cyclone/ast.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp scheme/cyclone/optimize-cps.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp scheme/cyclone/libraries.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp scheme/cyclone/macros.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp scheme/cyclone/pretty-print.c $(BOOTSTRAP_DIR)/scheme/cyclone

10
scheme/cyclone/ast.sld
View file

@ -9,7 +9,9 @@
(define-library (ast)
;(define-library (scheme cyclone ast)
(import (scheme base))
(import (scheme base)
(scheme cyclone util)
)
(export
ast:make-lambda
ast:lambda?
@ -20,10 +22,14 @@
ast:se-lambda-body!
)
(begin
(define *lambda-id* 0)
(define-record-type <lambda-ast>
(ast:make-lambda id args body)
(ast:%make-lambda id args body)
ast:lambda?
(id ast:lambda-id)
(args ast:lambda-args ast:set-lambda-args!)
(body ast:lambda-body ast:se-lambda-body!))
(define (ast:make-lambda args body)
(set! *lambda-id* (+ 1 *lambda-id*))
(ast:%make-lambda *lambda-id* args body))
))

5
scheme/cyclone/opti-test.scm
View file

@ -17,6 +17,9 @@
(newline))
(define l (ast:make-lambda 0 '() '((write 1) (write 2) (write 3))))
(define l (ast:make-lambda '() '((write 1) (write 2) (write 3))))
(write l)
(newline)
(set! l (ast:make-lambda '() '((write 1) (write 2) (write 3))))
(write `(l is now ,l))
(newline)

1
scheme/cyclone/transforms.sld
View file

@ -15,6 +15,7 @@
(scheme file)
(scheme read)
(scheme write)
(scheme cyclone ast)
(scheme cyclone common)
(scheme cyclone libraries)
(scheme cyclone macros)