diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-27 18:00:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-27 18:00:06 +0000 |
| commit | 077f567c426a581c4439c9b2e3a0cc4d101e88ec (patch) | |
| tree | 0ac7c8e9a7ff1992b16a78a12bbbfcddc5650972 /src/interp/server.boot | |
| parent | df58c8db0c065f238f901ecba89827cc87d8c6bf (diff) | |
| download | open-axiom-077f567c426a581c4439c9b2e3a0cc4d101e88ec.tar.gz | |
* interp/server.boot (serverLoop): Remove, as unused.
Diffstat (limited to 'src/interp/server.boot')
| -rw-r--r-- | src/interp/server.boot | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/src/interp/server.boot b/src/interp/server.boot index 9c37a0d2..67218f2a 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -116,49 +116,6 @@ executeQuietCommand() == CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) --- Includued for compatability with old-parser systems -serverLoop() == - IN_-STREAM: fluid := $InputStream - _*EOF_*: fluid := NIL - while not $EndServerSession and not _*EOF_* repeat - if $Prompt and not $leanMode then printPrompt "andFlush" - $Prompt := NIL - action := serverSwitch() - action = $CallInterp => - CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, - parseAndInterpret read_-line($InputStream) ))) - not $leanMode and printPrompt "andFlush" - sockSendInt($SessionManager, $EndOfOutput) - action = $CreateFrame => - frameName := GENSYM('"frame") - addNewInterpreterFrame(frameName) - $frameAlist := [[$frameNumber,:frameName], :$frameAlist] - $currentFrameNum := $frameNumber - sockSendInt($SessionManager, $frameNumber) - $frameNumber := $frameNumber + 1 - sockSendString($SessionManager, MKPROMPT()) - action = $SwitchFrames => - $currentFrameNum := sockGetInt($SessionManager) - currentFrame := LASSOC($currentFrameNum, $frameAlist) - changeToNamedInterpreterFrame currentFrame - action = $EndSession => - $EndServerSession := true - action = $LispCommand => - stringBuf := sockGetString $MenuServer - form := unescapeStringsInForm READ_-FROM_-STRING stringBuf - EVAL form - action = $QuietSpadCommand => - executeQuietCommand() - action = $SpadCommand => - stringBuf := sockGetString $MenuServer - CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, - parseAndInterpret stringBuf))) - not $leanMode and printPrompt "andFlush" - sockSendInt($SessionManager, $EndOfOutput) - NIL - if _*EOF_* then $Prompt := true - NIL - parseAndEvalToHypertex str == lines := parseAndEvalToStringForHypertex str len := LENGTH lines |