diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-24 02:53:25 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-24 02:53:25 +0000 |
commit | 5b693510bb2368f453b71086fcd1916cee7fea82 (patch) | |
tree | 15f3680440bfa6293ceaa341cd73116bffc768d3 /src/interp/server.boot | |
parent | 81dc2af2e2cab54deda566b72949d3d58ee532bf (diff) | |
download | open-axiom-5b693510bb2368f453b71086fcd1916cee7fea82.tar.gz |
* interp/i-output.boot ($RecordSeparator): New.
(maprin): Use it. Separate record in lean mode.
* interp/sys-globals.boot ($leanMode): Define.
* interp/sys-driver.boot (systemMain): Initialize.
* interp/ht-util.boot (executeInterpreterCommand): Print prompt
only in non-lean mode.
* interp/int-top.boot (SpadInterpretStream): Likewise.
(intloopReadConsole): Likewise.
* interp/metalex.lisp (get-a-line): Likewise.
* interp/server.boot: Likewise.
Diffstat (limited to 'src/interp/server.boot')
-rw-r--r-- | src/interp/server.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/server.boot b/src/interp/server.boot index 6e0ee514..9c37a0d2 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -90,7 +90,7 @@ serverReadLine(stream) == stringBuf := sockGetString $MenuServer CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) - printPrompt "andFlush" + not $leanMode and printPrompt "andFlush" action = $NonSmanSession => $SpadServer := nil action = $KillLispSystem => @@ -121,13 +121,13 @@ serverLoop() == IN_-STREAM: fluid := $InputStream _*EOF_*: fluid := NIL while not $EndServerSession and not _*EOF_* repeat - if $Prompt then printPrompt "andFlush" + if $Prompt and not $leanMode then printPrompt "andFlush" $Prompt := NIL action := serverSwitch() action = $CallInterp => CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret read_-line($InputStream) ))) - printPrompt "andFlush" + not $leanMode and printPrompt "andFlush" sockSendInt($SessionManager, $EndOfOutput) action = $CreateFrame => frameName := GENSYM('"frame") @@ -153,7 +153,7 @@ serverLoop() == stringBuf := sockGetString $MenuServer CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) - printPrompt "andFlush" + not $leanMode and printPrompt "andFlush" sockSendInt($SessionManager, $EndOfOutput) NIL if _*EOF_* then $Prompt := true |