steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add style to factor output allowing "see", etc to be hyperlinked.

cvs
Chris Double 2004-07-26 00:47:15 +00:00
parent d591e6187b
commit cb918db171
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/cont-responder/eval-responder.factor
View File

@ -25,6 +25,7 @@
! !
IN: eval-responder IN: eval-responder
USE: cont-html USE: cont-html
USE: html
USE: cont-responder USE: cont-responder
USE: cont-utils USE: cont-utils
USE: stack USE: stack
@ -58,7 +59,7 @@ USE: errors
<table border= "1" table> [ <table border= "1" table> [
<tr> [ <tr> [
<td> [ "Last Output" write ] </td> <td> [ "Last Output" write ] </td>
<td> [ write ] </td> <td> [ <pre> [ write ] </pre> ] </td>
] </tr> ] </tr>
] </table> ; ] </table> ;
@ -89,9 +90,12 @@ USE: errors
#! Evaluate expression using 'list' as the current callstack. #! Evaluate expression using 'list' as the current callstack.
#! All output should go to a string which is returned on the #! All output should go to a string which is returned on the
#! callstack along with the resulting datastack as a list. #! callstack along with the resulting datastack as a list.
1024 <string-output-stream> dup >r [ <namespace> [
do-eval "inspect" "responder" set
] with-stream r> stream>str ; 1024 <string-output-stream> dup >r <html-stream> [
do-eval
] with-stream r> stream>str
] bind ;
: run-eval-requester ( list string -- ) : run-eval-requester ( list string -- )
#! Enter a loop request an expression to #! Enter a loop request an expression to