From 7e465ce1b99903491c6132466808c9fa51ae500e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 29 Apr 2008 15:25:28 +0000
Subject: Cleanup, part 2.

---
 src/interp/server.boot | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

(limited to 'src/interp/server.boot')

diff --git a/src/interp/server.boot b/src/interp/server.boot
index 02525de7..ea65ff3c 100644
--- a/src/interp/server.boot
+++ b/src/interp/server.boot
@@ -79,17 +79,15 @@ serverReadLine(stream) ==
        $EndServerSession := true
      action = $LispCommand =>
        $NeedToSignalSessionManager := true
-       stringBuf := MAKE_-STRING $sockBufferLength
-       sockGetString($MenuServer, stringBuf, $sockBufferLength)
-       form := unescapeStringsInForm READ_-FROM_-STRING stringBuf
+       buf := sockGetString $MenuServer
+       form := unescapeStringsInForm READ_-FROM_-STRING buf
        protectedEVAL form
      action = $QuietSpadCommand =>
        $NeedToSignalSessionManager := true
        executeQuietCommand()
      action = $SpadCommand =>
        $NeedToSignalSessionManager := true
-       stringBuf := MAKE_-STRING 512
-       sockGetString($MenuServer, stringBuf, 512)
+       stringBuf := sockGetString $MenuServer
        CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER,
 	 parseAndInterpret stringBuf)))
        PRINC MKPROMPT()
@@ -116,8 +114,7 @@ oldParseAndInterpret str ==
 
 executeQuietCommand() ==
   $QuietCommand: fluid := true
-  stringBuf := MAKE_-STRING 512
-  sockGetString($MenuServer, stringBuf, 512)
+  stringBuf := sockGetString $MenuServer
   CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER,
     parseAndInterpret stringBuf)))
 
@@ -150,15 +147,13 @@ serverLoop() ==
     action = $EndSession =>
       $EndServerSession := true
     action = $LispCommand =>
-      stringBuf := MAKE_-STRING 512
-      sockGetString($MenuServer, stringBuf, 512)
+      stringBuf := sockGetString $MenuServer
       form := unescapeStringsInForm READ_-FROM_-STRING stringBuf
       EVAL form
     action = $QuietSpadCommand =>
       executeQuietCommand()
     action = $SpadCommand =>
-      stringBuf := MAKE_-STRING 512
-      sockGetString($MenuServer, stringBuf, 512)
+      stringBuf := sockGetString $MenuServer
       CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER,
         parseAndInterpret stringBuf)))
       PRINC MKPROMPT()
-- 
cgit v1.2.3