2 * This Cplant(TM) source code is the property of Sandia National
5 * This Cplant(TM) source code is copyrighted by Sandia National
8 * The redistribution of this Cplant(TM) source code is subject to the
9 * terms of the GNU Lesser General Public License
10 * (see cit/LGPL or http://www.gnu.org/licenses/lgpl.html)
12 * Cplant(TM) Copyright 1998-2003 Sandia Corporation.
13 * Under the terms of Contract DE-AC04-94AL85000, there is a non-exclusive
14 * license for use of this work by or on behalf of the US Government.
15 * Export of this program may require a license from the United States
20 * This library is free software; you can redistribute it and/or
21 * modify it under the terms of the GNU Lesser General Public
22 * License as published by the Free Software Foundation; either
23 * version 2.1 of the License, or (at your option) any later version.
25 * This library is distributed in the hope that it will be useful,
26 * but WITHOUT ANY WARRANTY; without even the implied warranty of
27 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
28 * Lesser General Public License for more details.
30 * You should have received a copy of the GNU Lesser General Public
31 * License along with this library; if not, write to the Free Software
32 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
34 * Questions or comments about this library should be sent to:
37 * Sandia National Laboratories, New Mexico
39 * Albuquerque, NM 87185-1110
47 #include <sys/types.h>
49 #include <sys/queue.h>
56 * Support for file IO.
60 * The open files table and it's size.
62 static struct file **_sysio_oftab = NULL;
63 static size_t _sysio_oftab_size = 0;
66 * Create and initialize open file record.
69 _sysio_fnew(struct inode *ino, int flags)
73 fil = malloc(sizeof(struct file));
77 _SYSIO_FINIT(fil, ino, flags);
85 * Destroy open file record.
88 _sysio_fgone(struct file *fil)
94 err = (*fil->f_ino->i_ops.inop_close)(fil->f_ino);
101 * IO operation completion handler.
104 _sysio_fcompletio(struct ioctx *ioctx, struct file *fil)
108 if (ioctx->ioctx_cc <= 0)
111 assert(ioctx->ioctx_ino == fil->f_ino);
112 off = fil->f_pos + ioctx->ioctx_cc;
113 if (fil->f_pos && off <= fil->f_pos)
119 * Grow (or truncate) the file descriptor table.
125 struct file **noftab, **filp;
128 * Sanity check the new size.
134 * We never shrink the table.
136 if (n <= _sysio_oftab_size)
139 noftab = realloc(_sysio_oftab, n * sizeof(struct file *));
142 _sysio_oftab = noftab;
143 count = _sysio_oftab_size;
144 _sysio_oftab_size = n;
145 filp = _sysio_oftab + count;
152 #ifdef ZERO_SUM_MEMORY
158 _sysio_oftab_size = 0;
163 * Find a free slot in the open files table greater than or equal to the
167 find_free_fildes(int low)
173 for (n = low, filp = _sysio_oftab + low;
174 n >= 0 && (unsigned )n < _sysio_oftab_size && *filp;
179 if ((unsigned )n >= _sysio_oftab_size) {
180 err = fd_grow((unsigned )n + 1);
183 filp = &_sysio_oftab[n];
191 * Find open file record from file descriptor.
194 _sysio_fd_find(int fd)
196 if (fd < 0 || (unsigned )fd >= _sysio_oftab_size)
199 return _sysio_oftab[fd];
203 * Close an open descriptor.
206 _sysio_fd_close(int fd)
210 fil = _sysio_fd_find(fd);
214 _sysio_oftab[fd] = NULL;
222 * Associate open file record with given file descriptor (if forced), or any
223 * available file descriptor if less than zero, or any available descriptor
224 * greater than or equal to the given one if not forced.
227 _sysio_fd_set(struct file *fil, int fd, int force)
233 * Search for a free descriptor if needed.
235 if (fd < 0 || !force) {
238 fd = find_free_fildes(fd);
243 if ((unsigned )fd >= _sysio_oftab_size) {
244 err = fd_grow((unsigned )fd + 1);
252 ofil = _sysio_fd_find(fd);
256 _sysio_oftab[fd] = fil;
264 * Duplicate old file descriptor.
266 * If the new file descriptor is less than zero, the new file descriptor
267 * is chosen freely. Otherwise, choose an available descriptor greater
268 * than or equal to the new, if not forced. Otherwise, if forced, (re)use
272 _sysio_fd_dup(int oldfd, int newfd, int force)
277 if (oldfd == newfd && oldfd >= 0)
280 fil = _sysio_fd_find(oldfd);
284 fd = _sysio_fd_set(fil, newfd, force);
291 _sysio_fd_close_all()
297 * Close all open descriptors.
299 for (fd = 0, filp = _sysio_oftab;
300 (size_t )fd < _sysio_oftab_size;
309 * Release current working directory.