alien.syntax classes classes.struct combinators
combinators.short-circuit io.encodings.ascii io.encodings.string
kernel literals make math sequences specialized-arrays typed
-fry io.mmap formatting locals splitting io.binary arrays ;
-FROM: alien.c-types => short ;
+io.mmap formatting splitting endian ;
IN: macho
! FFI data
[ symtab_command? ] filter ; inline
: read-array-string ( uchar-array -- string )
- ascii decode [ 0 = ] reject ;
+ ascii decode 0 swap remove ;
: segment-sections ( segment-command -- sections )
{
: sections-array ( segment-commands -- sections-array )
[
dup first segment_command_64?
- [ section_64 ] [ section ] if <struct> ,
+ [ section_64 ] [ section ] if new ,
segment-commands [ segment-sections [ , ] each ] each
] { } make ;