diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/server.boot | 43 |
2 files changed, 4 insertions, 43 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 4f0a367e..e47d57a1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2008-11-27 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/server.boot (serverLoop): Remove, as unused. + +2008-11-27 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/nruncomp.boot (NRTgetAddForm): Remove, as unused. 2008-11-27 Gabriel Dos Reis <gdr@cs.tamu.edu> 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 |