aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/server.boot43
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