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
|
2006-06-15 01:21:16 -04:00
|
|
|
USING: callback-responder generic hashtables help html httpd
|
2006-09-05 01:29:26 -04:00
|
|
|
tools kernel namespaces prettyprint sequences ;
|
2006-01-23 18:01:46 -05:00
|
|
|
|
|
|
|
|
! Mini object inspector
|
|
|
|
|
: http-inspect ( obj -- )
|
2006-06-15 01:21:16 -04:00
|
|
|
dup summary [ describe ] simple-html-document ;
|
2006-01-23 18:01:46 -05:00
|
|
|
|
|
|
|
|
M: general-t browser-link-href
|
2006-06-15 01:21:16 -04:00
|
|
|
[ http-inspect ] curry t register-html-callback ;
|
2006-01-23 18:01:46 -05:00
|
|
|
|
2006-01-23 18:07:41 -05:00
|
|
|
: inspect-responder ( url -- )
|
2006-06-15 01:21:16 -04:00
|
|
|
serving-html global http-inspect ;
|