Pristine Ack-5.5
[Ack-5.5.git] / modules / src / system / system.c
1 /*
2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
3  * See the copyright notice in the ACK home directory, in the file "Copyright".
4  */
5 /* RCS: $Id: system.c,v 1.3 1994/06/24 11:24:59 ceriel Exp $ */
6
7 #include <system.h>
8
9 File _sys_ftab[SYS_NOPEN] = {
10         { 0, OP_READ},
11         { 1, OP_APPEND},
12         { 2, OP_APPEND}
13 };
14
15 File *
16 _get_entry()
17 {
18         register File *fp;
19
20         for (fp = &_sys_ftab[0]; fp < &_sys_ftab[SYS_NOPEN]; fp++)
21                 if (fp->o_flags == 0)
22                         return fp;
23         return (File *)0;
24 }