31 lines
904 B
Factor
31 lines
904 B
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: dump
|
|
USING: alien assembler generic kernel kernel-internals lists
|
|
math memory sequences stdio strings unparser ;
|
|
|
|
: cell. >hex cell 2 * CHAR: 0 pad write ;
|
|
|
|
: slot@ ( address n -- n ) cell * swap 7 bitnot bitand + ;
|
|
|
|
: dump-line ( address n value -- )
|
|
>r slot@ cell. ": " write r> cell. terpri ;
|
|
|
|
: (dump) ( address list -- )
|
|
0 swap [ >r 2dup r> dump-line 1 + ] each 2drop ;
|
|
|
|
: integer-slots ( obj -- list )
|
|
dup size cell / [ integer-slot ] project-with ;
|
|
|
|
: dump ( obj -- )
|
|
#! Dump an object's memory.
|
|
dup address swap integer-slots (dump) ;
|
|
|
|
: alien-slots ( address length -- list )
|
|
cell / [ cell * alien-unsigned-4 ] project-with ;
|
|
|
|
: dump* ( alien len -- )
|
|
#! Dump an alien's memory.
|
|
dup string? [ c-size ] when
|
|
>r [ alien-address ] keep r> alien-slots (dump) ;
|