From e790551f3b73b517dda2b753e4878839ca525c5a Mon Sep 17 00:00:00 2001 From: Kirk McKusick Date: Thu, 30 Oct 1980 08:36:01 -0800 Subject: [PATCH] date and time created 80/10/30 00:36:01 by mckusick SCCS-vsn: usr.bin/pascal/libpc/TEOF.c 1.1 --- usr/src/usr.bin/pascal/libpc/TEOF.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 usr/src/usr.bin/pascal/libpc/TEOF.c diff --git a/usr/src/usr.bin/pascal/libpc/TEOF.c b/usr/src/usr.bin/pascal/libpc/TEOF.c new file mode 100644 index 0000000000..b328cfdd6e --- /dev/null +++ b/usr/src/usr.bin/pascal/libpc/TEOF.c @@ -0,0 +1,22 @@ +/* Copyright (c) 1979 Regents of the University of California */ + +static char sccsid[] = "@(#)TEOF.c 1.1 %G%"; + +#include "h00vars.h" +#include "h01errs.h" + +TEOF(filep) + + register struct iorec *filep; +{ + if (filep->fblk >= MAXFILES || _actfile[filep->fblk] != filep) { + ERROR(ENOFILE, 0); + return; + } + if (filep->funit & EOFF) + return TRUE; + IOSYNC(filep); + if (filep->funit & EOFF) + return TRUE; + return FALSE; +} -- 2.20.1