From 8366d3d32cb2b36e6b72bc0379514250256db384 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 26 Aug 2012 08:44:18 +0000
Subject: 	* include/sockio.h (init_purpose_table): Remove declaration. 
 (redirect_stdio): Likewise. 	(init_socks): Likewise. 
 (flush_stdout): Likewise. 	(print_line): Likewise. 
 (BaloonServer): Remove. 	(DebugWindow): Likewise. 	(Forker):
 Likewise. 	(AV): Likewise. 	* interp/server.boot (serverReadLine):
 Do not flushOutput. 	* interp/sys-constants.boot ($MessageServer): Remove. 
 ($DebugWindow): Likewise. 	($Forker): Likewise. 	* interp/sys-os.boot
 (printLine): Remove associated foreign import. 	* lib/sockio-c.c
 (init_purpose_table): Do not export. 	(init_socks): Likewise. 
 (get_socket_type): Simplify.  Remove dead code. 	(redirect_stdio):
 Remove. 	(flush_stdio): Likewise. 	(print_line): Likewise.

---
 src/interp/server.boot        | 1 -
 src/interp/sys-constants.boot | 7 ++-----
 src/interp/sys-os.boot        | 4 +---
 3 files changed, 3 insertions(+), 9 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/server.boot b/src/interp/server.boot
index e989fe80..0b206263 100644
--- a/src/interp/server.boot
+++ b/src/interp/server.boot
@@ -48,7 +48,6 @@ $sockBufferLength := 9217
 
 serverReadLine(stream) ==
 -- used in place of READ-LINE in a scratchpad server system.
-  flushOutput()
   not $SpadServer or not ioTerminal? stream =>
     line := readLine stream
     line ~= %nothing => line
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index 017e5bb8..9f7d5223 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -662,11 +662,8 @@ $SessionManager == 1
 $ViewportServer == 2
 $MenuServer == 3
 $SessionIO == 4
-$MessageServer == 5
-$InterpWindow == 6
-$KillSpad == 7
-$DebugWindow == 8
-$Forker == 9
+$InterpWindow == 5
+$KillSpad == 6
 
 $CreateFrame == 1
 $SwitchFrames == 2
diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot
index f4d4658f..2095c14e 100644
--- a/src/interp/sys-os.boot
+++ b/src/interp/sys-os.boot
@@ -1,4 +1,4 @@
--- Copyright (C) 2007-2011 Gabriel Dos Reis.
+-- Copyright (C) 2007-2012 Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -179,8 +179,6 @@ import flush__stdout: () -> int for flushStdout
 
 import sock__send__signal: (int,int) -> int for sockSendSignal
 
-import print__line: string -> int for printLine
-
 --%
 
 import oa__system: string -> int for runCommand
-- 
cgit v1.2.3