From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/fio/frmbfs.x | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 sys/fio/frmbfs.x

(limited to 'sys/fio/frmbfs.x')

diff --git a/sys/fio/frmbfs.x b/sys/fio/frmbfs.x
new file mode 100644
index 00000000..ec1df5e7
--- /dev/null
+++ b/sys/fio/frmbfs.x
@@ -0,0 +1,38 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<config.h>
+include	<fio.h>
+
+# FRMBFS -- Return file buffer.  Called by FSET to change the buffer size,
+# and by FRTNFD when a file is closed.
+
+procedure frmbfs (fd)
+
+int	fd			# file descriptor
+
+long	offset
+errchk	mfree, flush
+include	<fio.com>
+
+begin
+	fp = fiodes[fd]
+	if (bufptr[fd] == NULL)
+	    return
+	else
+	    call fcanpb (fd)
+
+	# Note file offset, return buffer and initialize i/o pointers,
+	# restore seek offset (which depends on buffer pointer, buf offset).
+
+	offset = LNOTE(fd)
+	call mfree (bufptr[fd], TY_CHAR)
+	call mfree (FPBBUF(fp), TY_CHAR)
+
+	bufptr[fd] = NULL
+	boffset[fd] = NULL
+	buftop[fd] = NULL
+	itop[fd] = NULL
+	otop[fd] = NULL
+
+	LSEEK (fd, offset)
+end
-- 
cgit