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/read \
scheme/time \ scheme/time \
scheme/write \ scheme/write \
scheme/cyclone/ast \
scheme/cyclone/optimize-cps \
scheme/cyclone/cgen \ scheme/cyclone/cgen \
scheme/cyclone/common \ scheme/cyclone/common \
scheme/cyclone/libraries \ scheme/cyclone/libraries \
@ -101,6 +103,8 @@ bootstrap: icyc
cp scheme/cyclone/common.c $(BOOTSTRAP_DIR)/scheme/cyclone cp scheme/cyclone/common.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp icyc.scm $(BOOTSTRAP_DIR) cp icyc.scm $(BOOTSTRAP_DIR)
cp tests/unit-tests.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/libraries.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp scheme/cyclone/macros.c $(BOOTSTRAP_DIR)/scheme/cyclone cp scheme/cyclone/macros.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp scheme/cyclone/pretty-print.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 (ast)
;(define-library (scheme cyclone ast) ;(define-library (scheme cyclone ast)
(import (scheme base)) (import (scheme base)
(scheme cyclone util)
)
(export (export
ast:make-lambda ast:make-lambda
ast:lambda? ast:lambda?
@ -20,10 +22,14 @@
ast:se-lambda-body! ast:se-lambda-body!
) )
(begin (begin
(define *lambda-id* 0)
(define-record-type <lambda-ast> (define-record-type <lambda-ast>
(ast:make-lambda id args body) (ast:%make-lambda id args body)
ast:lambda? ast:lambda?
(id ast:lambda-id) (id ast:lambda-id)
(args ast:lambda-args ast:set-lambda-args!) (args ast:lambda-args ast:set-lambda-args!)
(body ast:lambda-body ast:se-lambda-body!)) (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)) (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) (write l)
(newline) (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 file)
(scheme read) (scheme read)
(scheme write) (scheme write)
(scheme cyclone ast)
(scheme cyclone common) (scheme cyclone common)
(scheme cyclone libraries) (scheme cyclone libraries)
(scheme cyclone macros) (scheme cyclone macros)