write-disassembly ( lines -- )

Vocabulary

tools.disassembler.private

Inputs

lines

an object

Outputs

None

Definition

USING: io kernel layouts make math math.order math.parser
sequences ;

IN: tools.disassembler.private

: write-disassembly ( lines -- )
    dup [ second length ] [ max ] map-reduce [
        [ [ second ] ] dip [ 32 pad-tail % "  " % ] curry
        compose
        [ [ [ first >hex cell 2 * 48 pad-head % ": " % ] ] ] dip
        [ [ third [ % ] [ resolve-call ] bi ] tri 10 , ] curry
        compose each
    ] "" make write ;