aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2012-08-26 08:44:18 +0000
committerdos-reis <gdr@axiomatics.org>2012-08-26 08:44:18 +0000
commit8366d3d32cb2b36e6b72bc0379514250256db384 (patch)
treed8b80c39a657c9d1ac7c4380235b9a6bcf59a4ce /src/interp
parente4d0798fd570256bd6d399ce714fe55293044da6 (diff)
downloadopen-axiom-8366d3d32cb2b36e6b72bc0379514250256db384.tar.gz
* 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.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/server.boot1
-rw-r--r--src/interp/sys-constants.boot7
-rw-r--r--src/interp/sys-os.boot4
3 files changed, 3 insertions, 9 deletions
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