From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Nov 1990 11:03:44 +0000 (+0000)
Subject: (enum channel_type): New types for server sockets and directories.
X-Git-Tag: 20090517-FFI~11105
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=84be68dde8741dd5d1ee1f3e8c84812ed06fc02d;p=mit-scheme.git

(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 963e124ca..0ba7a38a1 100644
--- 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));