1 files changed, 38 insertions, 0 deletions
diff --git a/sys/ki/ktzcls.x b/sys/ki/ktzcls.x
new file mode 100644
index 00000000..826ad9f7
--- /dev/null
+++ b/sys/ki/ktzcls.x
@@ -0,0 +1,38 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include	<config.h>
+include	"ki.h"
+
+# KT_ZCLS -- Close a text device.  We are called only if the device does not
+# reside on the local node.
+
+procedure kt_zcls (device, chan, status)
+
+int	device			# device driver code
+int	chan			# channel assigned device
+int	status			# receives ok|err
+
+int	server
+int	ki_sendrcv()
+include	"kichan.com"
+include	"kii.com"
+
+begin
+	server   = k_node[chan]
+	p_arg[1] = k_oschan[chan]
+
+	# If we receive error on the KS channel when trying to close a file,
+	# it is most likely due to a previous i/o error on the channel.  Do
+	# not return error here because we are probably being called during
+	# error recovery to free the logical channel, and if we return error
+	# the real error will be hidden.
+
+	if (ki_sendrcv (server, device, TX_CLS) == ERR)
+	    status = OK
+	else
+	    status = p_arg[1]
+
+	call mfree (k_bufp[chan], TY_STRUCT)
+	call ki_freechan (chan)
+end