/basis/tools/disassembler/utils/utils.factor

http://github.com/abeaumont/factor · Factor · 20 lines · 15 code · 5 blank · 0 comment · 5 complexity · a516ba7c0dcb4aac68bb05652dc84957 MD5 · raw file 

    

  1. USING: accessors kernel math math.parser prettyprint sequences
    2. 

  2. splitting tools.memory ;
    3. 

  3. IN: tools.disassembler.utils
    4. 

  4. 

  5. : 0x- ( str -- str' ) "0x" prepend ;
    6. 

    7. 

  7. : complete-address ( n seq -- str )
    8. 

  8.     [ nip owner>> unparse-short ] [ entry-point>> - ] 2bi
    9. 

  9.     [ >hex 0x- " + " glue ] unless-zero ;
    10. 

  10. 

  11. : search-xt ( addr -- str/f )
    12. 

  12.     dup lookup-return-address
    13. 

  13.     dup [ complete-address ] [ 2drop f ] if ;
    14. 

  14. 

  15. : resolve-xt ( str -- str' )
    16. 

  16.     [ 0x- ] [ hex> ] bi
    17. 

  17.     [ search-xt [ " (" ")" surround append ] when* ] when* ;
    18. 

  18. 

  19. : resolve-call ( str -- str' )
    20. 

  20.     "0x" split1-last [ resolve-xt "0x" glue ] when* ;
    21.