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

port class

Browse Source
This commit is contained in:
Jay McCarthy 2016-02-20 17:04:32 -05:00
parent dfa2b7b076
commit 2dc468ca66
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
remix/class0.rkt
View File

@ -54,12 +54,14 @@
(remix:#%dot vt v))
...
(remix:def (remix:#%brackets static-interface int)
(remix:#%brackets v obj-v)
(remix:def (remix:#%brackets static-interface-member v)
obj-v)
...
#:extensions
#:methods gen:interface
[(define (interface-vtable _) #'int-vtable)
(define (interface-vtable-id _) #'int-vtable-id)]))))]))]))
(remix:def
(remix:#%brackets static-interface-extension)
#:methods gen:interface
[(define (interface-vtable _) #'int-vtable)
(define (interface-vtable-id _) #'int-vtable-id)])))))]))]))
(begin-for-syntax
(define-generics class)
@ -128,19 +130,22 @@
(syntax/loc stx
(cls-alloc* (remix:#%app (remix:#%dot rep #:alloc) . args)))]))
(remix:def (remix:#%brackets static-interface cls-Current)
(remix:#%brackets #:alloc cls-alloc))
(remix:def (remix:#%brackets static-interface-member #:alloc)
cls-alloc))
(splicing-syntax-parameterize
([Current (make-rename-transformer #'cls-Current)])
cls-new-def
cls-int-impl-def ...
(remix:def (remix:#%brackets static-interface cls-this))
(remix:def (remix:#%brackets static-interface cls)
(remix:#%brackets #:new cls-new)
(remix:#%brackets int cls-int-impl)
(remix:def (remix:#%brackets static-interface-member #:new)
cls-new)
(remix:def (remix:#%brackets static-interface-member int)
cls-int-impl)
...
#:extensions
#:methods gen:class
[]))
(remix:def (remix:#%brackets static-interface-extension)
#:methods gen:class
[])))
(define cls-vtables
(make-immutable-hasheq
(list (cons int-vtable cls-int-impl)