Initial revision

1984-07-20 10:44:57 +00:00
parent eb823929a1
commit 597d25decd
73 changed files with 3041 additions and 0 deletions
--- a/lang/pc/libpc/rf.c
+++ b/lang/pc/libpc/rf.c
@@ -0,0 +1,17 @@
+#include	<pc_file.h>
+#include	<pc_err.h>
+
+extern struct file	*_curfil;
+extern			_trp();
+extern			_incpt();
+
+_rf(f) struct file *f; {
+
+	_curfil = f;
+	if ((f->flags&0377) != MAGIC)
+		_trp(EBADF);
+	if (f->flags & WRBIT)
+		_trp(EREADF);
+	if ((f->flags & WINDOW) == 0)
+		_incpt(f);
+}