From 077f567c426a581c4439c9b2e3a0cc4d101e88ec Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 27 Nov 2008 18:00:06 +0000
Subject: 	* interp/server.boot (serverLoop): Remove, as unused.

---
 src/ChangeLog          |  4 ++++
 src/interp/server.boot | 43 -------------------------------------------
 2 files changed, 4 insertions(+), 43 deletions(-)

(limited to 'src')

diff --git a/src/ChangeLog b/src/ChangeLog
index 4f0a367e..e47d57a1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+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.
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
-- 
cgit v1.2.3