\ struct 99.1.11 11:36 pm NAB
needs toolkit
0 constant struct
: field ( n "fieldname" -- )
over create , +
does> ( o -- o+n) @ + ;
: end-struct ( s "structname" --)
create ,
does> ( "name" --) @ create 0allot ;
: sizeof ( "structname" -- s)
' >body @ ;