steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

classes.struct: set dependency on slot types in slot accessors, so that accessors update when types change. enables pointers to make circular references between struct types

db4
Joe Groff 2010-02-21 22:46:52 -08:00
parent 310b3df2ec
commit c7acbda342
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/classes/struct/struct.factor
View File

@ -8,7 +8,8 @@ generalizations generic.parser kernel kernel.private lexer libc
locals macros make math math.order parser quotations sequences locals macros make math math.order parser quotations sequences
slots slots.private specialized-arrays vectors words summary slots slots.private specialized-arrays vectors words summary
namespaces assocs vocabs.parser math.functions namespaces assocs vocabs.parser math.functions
classes.struct.bit-accessors bit-arrays ; classes.struct.bit-accessors bit-arrays
stack-checker.dependencies ;
QUALIFIED: math QUALIFIED: math
IN: classes.struct IN: classes.struct
@ -124,6 +125,14 @@ M: struct-bit-slot-spec (writer-quot)
: (unboxer-quot) ( class -- quot ) : (unboxer-quot) ( class -- quot )
drop [ >c-ptr ] ; drop [ >c-ptr ] ;
MACRO: read-struct-slot ( slot -- )
dup type>> depends-on-c-type
(reader-quot) ;
MACRO: write-struct-slot ( slot -- )
dup type>> depends-on-c-type
(writer-quot) ;
PRIVATE> PRIVATE>
M: struct-class boa>object M: struct-class boa>object
@ -138,10 +147,10 @@ M: struct-class initial-value* <struct> ; inline
GENERIC: struct-slot-values ( struct -- sequence ) GENERIC: struct-slot-values ( struct -- sequence )
M: struct-class reader-quot M: struct-class reader-quot
nip (reader-quot) ; nip '[ _ read-struct-slot ] ;
M: struct-class writer-quot M: struct-class writer-quot
nip (writer-quot) ; nip '[ _ write-struct-slot ] ;
: offset-of ( field struct -- offset ) : offset-of ( field struct -- offset )
struct-slots slot-named offset>> ; inline struct-slots slot-named offset>> ; inline