stk/Help/repl-display-prompt.n.html

34 lines
1.4 KiB
HTML
Raw Normal View History

1998-04-30 07:04:33 -04:00
<HTML><HEAD><TITLE>STk procedure - repl-display-prompt manual page</TITLE></HEAD>
<BR>
<BODY bgcolor = #c3ffc3>
<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> repl-display-prompt, repl-display-result</H2>
<I>Display a prompt/result in
interactive mode</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
<H3><A NAME="M2">SYNOPSIS</A></H3>
(<B>repl-display-prompt </B><I>module</I>)<BR>
(<B>repl-display-result </B><I>value</I>)<BR>
<H3><A NAME="M3">DESCRIPTION</A></H3>
<B>Repl-display-prompt</B> is called by the interactive toplevel loop
before reading a <I>sexpr</I>. This procedure is called with one parameter:
the selected module in the toplevel loop.
<P>
A simple form of this procedure could be:
<PRE>(define (repl-display-prompt module)
(let ((p (current-error-port)))
(format p &quot;~A&gt; &quot; (module-name module))
(flush p)))</PRE>
<P>
<B>Repl-display-result</B> is called by the interactive toplevel loop
after the evaluation of a <I>sexpr</I>. This procedure is called with the
result of this evaluation as parameter.
<P>
A simple form, mimicking the MIT Scheme way of presenting results, could be:
<PRE>(define (repl-display-result value)
(format #t &quot;\\n;Value: ~S\\n\\n&quot; value))</PRE>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>