segment-sections ( segment-command -- sections )

Vocabulary

macho

Inputs

segment-command

an object

Outputs

sections

an object

Definition

USING: accessors alien alien.c-types alien.data classes
combinators kernel ;

IN: macho

: segment-sections ( segment-command -- sections )
    {
        [ class-of heap-size ]
        [ >c-ptr <displaced-alien> ]
        [ nsects>> ]
        [ segment_command_64? ]
    } cleave
    [ section_64 <c-direct-array> ] [ section <c-direct-array> ]
    if ;