sections-array ( segment-commands -- sections-array )

Vocabulary

macho

Inputs

segment-commands

an object

Outputs

sections-array

an object

Definition

USING: kernel make sequences ;

IN: macho

: sections-array ( segment-commands -- sections-array )
    [
        dup first segment_command_64?
        [ section_64 ] [ section ] if new , segment-commands
        [ segment-sections [ , ] each ] each
    ] { } make ;