basis/tools/disassembler/disassembler.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tr arrays sequences io words generic system combinators
   4 vocabs.loader kernel ;
   5 IN: tools.disassembler
   6
   7 GENERIC: disassemble ( obj -- )
   8
   9 SYMBOL: disassembler-backend
  10
  11 HOOK: disassemble* disassembler-backend ( from to -- lines )
  12
  13 TR: tabs>spaces "\t" "\s" ;
  14
  15 M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ;
  16
  17 M: word disassemble word-xt 2array disassemble ;
  18
  19 M: method-spec disassemble first2 method disassemble ;
  20
  21 cpu x86? os unix? and
  22 "tools.disassembler.udis"
  23 "tools.disassembler.gdb" ?
  24 require