macho-nm ( path -- )

Vocabulary

macho

Inputs

path

an object

Outputs

None

Definition

USING: accessors generalizations io kernel locals.backend
namespaces sequences ;

IN: macho

: macho-nm ( path -- )
    [
        load-local
        0 get-local load-commands segment-commands
        sections-array load-local
        -1 get-local load-commands symtab-commands -1 get-local
        0 get-local [
            2 load-locals -1 get-local 0 get-local [
                2 load-locals load-local
                -2 get-local 0 get-local symbols -1 get-local [
                    load-local [
                        drop n_value>> ~quotation~ 0 ndip
                        ~quotation~ 0 ndip
                        output-stream get ~quotation~ curry
                        2 napply
                    ] 0 get-local [
                        load-local drop n_sect>> 0 get-local nth
                        sectname>> read-array-string ~quotation~
                        0 ndip
                        output-stream get ~quotation~ curry
                        1 napply 1 drop-locals
                    ] curry [
                        symbol-name ~quotation~ 0 ndip
                        ~quotation~ 0 ndip
                        output-stream get ~quotation~ curry
                        2 napply
                    ] 2tri 1 drop-locals
                ] curry curry each 3 drop-locals
            ] curry curry call 2 drop-locals
        ] curry curry each 2 drop-locals
    ] with-mapped-macho ;