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

port layout

Browse Source
This commit is contained in:
Jay McCarthy 2016-02-20 16:57:27 -05:00
parent 09419cdb67
commit dfa2b7b076
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
remix/layout0.rkt
View File

@ -111,8 +111,8 @@
(match-define (vector the-name-f the-dt the-f-idx) v) (match-define (vector the-name-f the-dt the-f-idx) v)
(list the-f the-name-f (list the-f the-name-f
(if the-dt (if the-dt
(list the-name-f '#:is the-dt) #`(remix:#%brackets #,the-dt #,the-name-f)
(list the-name-f)) the-name-f)
the-f-idx))] the-f-idx))]
[stx-the-planner-id the-planner-id] [stx-the-planner-id the-planner-id]
[stx-f->acc f->acc] [stx-f->acc f->acc]
@ -124,8 +124,12 @@
(list #'vector (list #'vector
#'unsafe-vector*-ref #'unsafe-vector*-ref
#'unsafe-vector*-set! #'unsafe-vector*-set!
#'((remix:#%brackets #:set! name-set!) #'((remix:def
(remix:#%brackets #:! name-set!))) (remix:#%brackets static-interface-member #:set!)
name-set!)
(remix:def
(remix:#%brackets static-interface-member #:!)
name-set!)))
(list #'vector-immutable (list #'vector-immutable
#'unsafe-vector*-ref #'unsafe-vector*-ref
#'void #'void
@ -225,18 +229,22 @@
...) ...)
(remix:def (remix:def
(remix:#%brackets static-interface name) (remix:#%brackets static-interface name)
(remix:#%brackets #:alloc name-alloc) (remix:def (remix:#%brackets static-interface-member #:alloc)
(remix:#%brackets #:set name-set) name-alloc)
(remix:#%brackets #:= name-set) (remix:def (remix:#%brackets static-interface-member #:set)
name-set)
(remix:def (remix:#%brackets static-interface-member #:=)
name-set)
mutation-interface ... mutation-interface ...
(remix:#%brackets all-f . all-f-si-rhs) (remix:def (remix:#%brackets static-interface-member all-f)
all-f-si-rhs)
... ...
#:extensions (remix:def (remix:#%brackets static-interface-extension)
#:methods gen:layout #:methods gen:layout
[(define (layout-planner-id _) [(define (layout-planner-id _)
#'stx-the-planner-id) #'stx-the-planner-id)
(define (layout-field->acc _) (define (layout-field->acc _)
f->acc)]))))]))])) f->acc)])))))]))]))
(provide (rename-out [phase0:layout layout]) (provide (rename-out [phase0:layout layout])
(for-syntax gen:layout (for-syntax gen:layout