25 lines
615 B
Factor
25 lines
615 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: tr arrays sequences io words generic system combinators
|
|
vocabs.loader kernel ;
|
|
IN: tools.disassembler
|
|
|
|
GENERIC: disassemble ( obj -- )
|
|
|
|
SYMBOL: disassembler-backend
|
|
|
|
HOOK: disassemble* disassembler-backend ( from to -- lines )
|
|
|
|
TR: tabs>spaces "\t" "\s" ;
|
|
|
|
M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ;
|
|
|
|
M: word disassemble word-xt 2array disassemble ;
|
|
|
|
M: method-spec disassemble first2 method disassemble ;
|
|
|
|
cpu x86? os unix? and
|
|
"tools.disassembler.udis"
|
|
"tools.disassembler.gdb" ?
|
|
require
|