suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

working on the evaluator

Browse Source
This commit is contained in:
Danny Yoo 2011-03-09 13:39:41 -05:00
parent 5f42959da5
commit 55a7de098f
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
test-assemble.rkt
View File

@ -27,16 +27,25 @@
(define e (make-evaluate
(lambda (a-statement op)
(let ([code
(string-append
"(function() { "
runtime
"return function(success, fail, params){" (assemble-statement a-statement) "success(String(MACHINE.val)); };"
"});")])
(define -E (make-evaluate
(lambda (a-statement+inspector op)
(let* ([a-statement (car a-statement+inspector)]
[inspector (cdr a-statement+inspector)]
[code
(string-append
"(function() { "
runtime
"return function(success, fail, params){" (assemble-statement a-statement)
(format "success(String(~a)); };" inspector)
"});")])
(display code op)))))
(define (E a-statement (inspector "MACHINE.val"))
(evaluated-value (-E (cons a-statement inspector))))
(test (evaluated-value (e (make-AssignImmediateStatement 'val (make-Const 42))))
"42")
(test (E (make-AssignImmediateStatement 'val (make-Const 42)))
"42")
(test (E (make-AssignImmediateStatement 'val (make-Const "Danny")))
"Danny")