elf-segment-sections ( segment: Elf32/64_Phdr sections: Elf32/64_Shdr-array -- sections )

Vocabulary

elf

Inputs

segment	a Elf32/64_Phdr
sections	a Elf32/64_Shdr-array

Outputs

sections

an object

Definition

USING: accessors arrays assocs kernel math math.intervals
sequences typed ;

IN: elf

TYPED:: elf-segment-sections
    ( segment: Elf32/64_Phdr sections: Elf32/64_Shdr-array -- sections )
    segment [ p_offset>> dup ] [ p_filesz>> + ] bi [a,b)
    :> segment-interval sections
    [ dup [ sh_offset>> dup ] [ sh_size>> + ] bi [a,b) 2array ]
    { } map-as :> section-intervals section-intervals [
        second segment-interval interval-intersect
        empty-interval = not
    ] filter keys ;