minix: lib/ack/libp/efl.c Source File

00001 /* $Header: /opt/proj/minix/cvsroot/src/lib/ack/libp/efl.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
00002 /*
00003  * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
00004  *
00005  *          This product is part of the Amsterdam Compiler Kit.
00006  *
00007  * Permission to use, sell, duplicate or disclose this software must be
00008  * obtained in writing. Requests for such permissions may be sent to
00009  *
00010  *      Dr. Andrew S. Tanenbaum
00011  *      Wiskundig Seminarium
00012  *      Vrije Universiteit
00013  *      Postbox 7161
00014  *      1007 MC Amsterdam
00015  *      The Netherlands
00016  *
00017  */
00018 
00019 /* Author: J.W. Stevenson */
00020 
00021 #include        <pc_file.h>
00022 #include        <pc_err.h>
00023 
00024 extern struct file      *_curfil;
00025 extern                  _trp();
00026 extern                  _incpt();
00027 
00028 int _efl(f) struct file *f; {
00029 
00030         _curfil = f;
00031         if ((f->flags & 0377) != MAGIC)
00032                 _trp(EBADF);
00033         if ((f->flags & (WINDOW|WRBIT|EOFBIT)) == 0)
00034                 _incpt(f);
00035         return((f->flags & EOFBIT) != 0);
00036 }