2006-01-23 18:01:46 -05:00
|
|
|
! Copyright (C) 2006 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: inspect-responder
|
|
|
|
|
USING: cont-responder generic hashtables help html inspector
|
|
|
|
|
kernel lists namespaces sequences ;
|
|
|
|
|
|
|
|
|
|
! Mini object inspector
|
|
|
|
|
: http-inspect ( obj -- )
|
|
|
|
|
"Inspecting " over summary append
|
|
|
|
|
[ describe ] simple-html-document ;
|
|
|
|
|
|
|
|
|
|
M: general-t browser-link-href
|
|
|
|
|
"/responder/inspector/" swap
|
|
|
|
|
[ [ http-inspect ] show-final ] curry quot-url
|
|
|
|
|
append ;
|
|
|
|
|
|
2006-01-23 18:07:41 -05:00
|
|
|
: inspect-responder ( url -- )
|
2006-01-23 20:05:39 -05:00
|
|
|
[ global http-inspect ] show-final ;
|
