31 lines
775 B
Factor
Executable File
31 lines
775 B
Factor
Executable File
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien alien.c-types arrays byte-arrays combinators
|
|
destructors generic io kernel libc math sequences system tr
|
|
vocabs.loader words alien.data ;
|
|
IN: tools.disassembler
|
|
|
|
GENERIC: disassemble ( obj -- )
|
|
|
|
SYMBOL: disassembler-backend
|
|
|
|
HOOK: disassemble* disassembler-backend ( from to -- lines )
|
|
|
|
TR: tabs>spaces "\t" "\s" ;
|
|
|
|
M: byte-array disassemble
|
|
[
|
|
[ malloc-byte-array &free alien-address dup ]
|
|
[ length + ] bi
|
|
2array disassemble
|
|
] with-destructors ;
|
|
|
|
M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ;
|
|
|
|
M: word disassemble word-xt 2array disassemble ;
|
|
|
|
cpu x86?
|
|
"tools.disassembler.udis"
|
|
"tools.disassembler.gdb" ?
|
|
require
|