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

continuing to implement performstatement

Browse Source
This commit is contained in:
Danny Yoo 2011-03-04 16:55:16 -05:00
parent f1a9c6039c
commit c84eba7786
5 changed files with 28 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
il-structs.rkt
View File

@ -155,11 +155,10 @@
;; Assign the value in the val register into ;; Assign the value in the val register into the prefix installed at (depth, pos).
;; the prefix installed at (depth, pos).
(define-struct: SetToplevel! ([depth : Natural] (define-struct: SetToplevel! ([depth : Natural]
[pos : Natural] [pos : Natural]
[name : Symbol]) [name : Symbol])
#:transparent) #:transparent)
;; Check that the value in the prefix has been defined. ;; Check that the value in the prefix has been defined.

2
simulator-prims.rkt
View File

@ -23,7 +23,7 @@
cname] cname]
... ...
[else [else
(error 'lookup)] (void)]
)))))])) )))))]))

2
simulator-structs.rkt
View File

@ -21,7 +21,7 @@
) )
#:transparent) #:transparent)
(define-struct: toplevel ([vals : (Vectorof Any)]) (define-struct: toplevel ([vals : (Listof Any)])
#:transparent) #:transparent)

5
simulator.rkt
View File

@ -144,9 +144,8 @@
(error 'step-perform)] (error 'step-perform)]
[(ExtendEnvironment/Prefix!? op) [(ExtendEnvironment/Prefix!? op)
(env-push m (env-push m
(make-toplevel (list->vector (make-toplevel (map lookup-primitive
(map lookup-primitive (ExtendEnvironment/Prefix!-names op))))]
(ExtendEnvironment/Prefix!-names op)))))]
[(InstallClosureValues!? op) [(InstallClosureValues!? op)
(error 'step-perform)]))) (error 'step-perform)])))

26
test-simulator.rkt
View File

@ -222,8 +222,24 @@
;; AssignPrimOpStatement ;; AssignPrimOpStatement
(let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(+ - * =)))))]) (let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(+ - * =)))))])
(test (first (machine-env (run m))) (void (run m))
(make-toplevel (vector (lookup-primitive '+) ;; FIXME: I'm hitting what appears to be a Typed Racket bug that prevents me from inspecting
(lookup-primitive '-) ;; the toplevel structure in the environment... :(
(lookup-primitive '*) #;(test (first (machine-env (run m)))
(lookup-primitive '=))))) (make-toplevel (vector (lookup-primitive '+)
(lookup-primitive '-)
(lookup-primitive '*)
(lookup-primitive '=)))))
(let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(some-variable)))
,(make-AssignImmediateStatement 'val (make-Const "Danny"))
,(make-PerformStatement (make-SetToplevel! 0 0 'some-variable))))])
(run m)
;; FIXME: I'm hitting what appears to be a Typed Racket bug that prevents me from inspecting
;; the toplevel structure in the environment... :(
#;(test (first (machine-env (run m)))
(make-toplevel (vector (lookup-primitive '+)
(lookup-primitive '-)
(lookup-primitive '*)
(lookup-primitive '=)))))