elf-sections ( elf: Elf32/64_Ehdr -- sections )

Vocabulary

elf

Inputs

elf	a Elf32/64_Ehdr

Outputs

sections

an object

Definition

USING: accessors alien alien.strings assocs io.encodings.ascii
kernel typed ;

IN: elf

TYPED:: elf-sections ( elf: Elf32/64_Ehdr -- sections )
    elf elf-section-headers :> sections elf elf e_shstrndx>>
    elf-section-data-by-index nip
    >c-ptr :> section-names sections [
        [
            sh_name>> section-names <displaced-alien>
            ascii alien>string
        ] keep
    ] { } map>assoc ;