USING: alien.c-types classes.struct ;

IN: macho

STRUCT: segment_command_64
{ cmd uint initial: 0 } { cmdsize uint initial: 0 }
{ segname char[16] } { vmaddr ulonglong initial: 0 }
{ vmsize ulonglong initial: 0 }
{ fileoff ulonglong initial: 0 }
{ filesize ulonglong initial: 0 }
{ maxprot vm_prot_t initial: 0 }
{ initprot vm_prot_t initial: 0 }
{ nsects uint initial: 0 } { flags uint initial: 0 } ;

USING: classes.struct classes.struct.private kernel macho ;

M: segment_command_64 clone
clone-underlying \ segment_command_64 memory>struct ;
inline

USING: accessors classes.struct combinators combinators.smart
macho ;

M: segment_command_64 struct-slot-values
[
{
[ cmd>> ]
[ cmdsize>> ]
[ segname>> ]
[ vmaddr>> ]
[ vmsize>> ]
[ fileoff>> ]
[ filesize>> ]
[ maxprot>> ]
[ initprot>> ]
[ nsects>> ]
[ flags>> ]
} cleave
] output>array ; inline