diff options
Diffstat (limited to 'src/interp')
-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 |