7 lines
184 B
Factor
7 lines
184 B
Factor
|
USING: alien.structs alien.c-types strings help.markup
|
||
|
|
sequences io arrays ;
|
||
|
|
|
||
|
|
M: string slot-specs c-type struct-type-fields ;
|
||
|
|
|
||
|
|
M: array ($instance) first ($instance) " array" write ;
|