elf-symbols ( elf: Elf32/64_Ehdr section-data: uchar-array -- symbols )

Vocabulary

elf

Inputs

elf	a Elf32/64_Ehdr
section-data	an uchar-array

Outputs

symbols

an object

Definition

USING: accessors alien alien.c-types alien.data alien.strings
assocs io.encodings.ascii kernel math sequences typed ;

IN: elf

TYPED:: elf-symbols
    ( elf: Elf32/64_Ehdr section-data: uchar-array -- symbols )
    elf ".strtab" elf-section-data-by-name nip
    >c-ptr :> strings section-data [ >c-ptr ] [ length ] bi
    elf 64-bit?
    [ Elf64_Sym heap-size / Elf64_Sym <c-direct-array> ]
    [ Elf32_Sym heap-size / Elf32_Sym <c-direct-array> ] if [
        [
            st_name>> strings <displaced-alien>
            ascii alien>string
        ] keep
    ] map>alist ;