(enum channel_type): New types for server sockets and directories.

diff --git a/v7/src/microcode/osio.h b/v7/src/microcode/osio.h
index 963e124caead7316fc74ca8ae71304032bead52c..0ba7a38a15a2ed2ad43cd715f4053df6895ae2a4 100644 (file)
--- a/v7/src/microcode/osio.h
+++ b/v7/src/microcode/osio.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osio.h,v 1.3 1990/08/16 19:20:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osio.h,v 1.4 1990/11/08 11:03:44 cph Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,9 @@ enum channel_type
   channel_type_terminal,
   channel_type_pty_master,
   channel_type_unix_stream_socket,
-  channel_type_tcp_stream_socket
+  channel_type_tcp_stream_socket,
+  channel_type_tcp_server_socket,
+  channel_type_directory
 };
 
 extern size_t OS_channel_table_size;
@@ -54,6 +56,7 @@ extern size_t OS_channel_table_size;
 extern int EXFUN (OS_channel_open_p, (Tchannel channel));
 extern void EXFUN (OS_channel_close, (Tchannel channel));
 extern void EXFUN (OS_channel_close_noerror, (Tchannel channel));
+extern void EXFUN (OS_channel_close_on_abort, (Tchannel channel));
 extern enum channel_type EXFUN (OS_channel_type, (Tchannel channel));
 extern size_t EXFUN
   (OS_channel_read_load_file, (Tchannel channel, PTR buffer, size_t nbytes));