basis/tools/disassembler/disassembler.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types arrays byte-arrays combinators
   4 destructors generic io kernel libc math sequences system tr
   5 vocabs.loader words ;
   6 IN: tools.disassembler
   7
   8 GENERIC: disassemble ( obj -- )
   9
  10 SYMBOL: disassembler-backend
  11
  12 HOOK: disassemble* disassembler-backend ( from to -- lines )
  13
  14 TR: tabs>spaces "\t" "\s" ;
  15
  16 M: byte-array disassemble
  17     [
  18         [ malloc-byte-array &free alien-address dup ]
  19         [ length + ] bi
  20         2array disassemble
  21     ] with-destructors ;
  22
  23 M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ;
  24
  25 M: word disassemble word-xt 2array disassemble ;
  26
  27 cpu x86?
  28 "tools.disassembler.udis"
  29 "tools.disassembler.gdb" ?
  30 require