* Copyright (c) 1990 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid
[] = "@(#)findfp.c 5.10 (Berkeley) 2/24/91";
#endif /* LIBC_SCCS and not lint */
#define NSTATIC 20 /* stdin + stdout + stderr + the usual */
#define NDYNAMIC 10 /* add ten more whenever necessary */
#define std(flags, file) \
{0,0,0,flags,file,{0},0,__sF+file,__sclose,__sread,__sseek,__swrite}
/* p r w flags file _bf z cookie close read seek write */
static FILE usual
[NSTATIC
- 3]; /* the usual */
static struct glue uglue
= { 0, NSTATIC
- 3, usual
};
std(__SRD
, STDIN_FILENO
), /* stdin */
std(__SWR
, STDOUT_FILENO
), /* stdout */
std(__SWR
|__SNBF
, STDERR_FILENO
) /* stderr */
struct glue __sglue
= { &uglue
, 3, __sF
};
g
= (struct glue
*)malloc(sizeof(*g
) + n
* sizeof(FILE));
* Find a free FILE for fopen et al.
for (g
= &__sglue
;; g
= g
->next
) {
for (fp
= g
->iobs
, n
= g
->niobs
; --n
>= 0; fp
++)
if (g
->next
== NULL
&& (g
->next
= moreglue(NDYNAMIC
)) == NULL
)
fp
->_flags
= 1; /* reserve this slot; caller sets real flags */
fp
->_p
= NULL
; /* no current pointer */
fp
->_w
= 0; /* nothing to read or write */
fp
->_bf
._base
= NULL
; /* no buffer */
fp
->_lbfsize
= 0; /* not line buffered */
fp
->_file
= -1; /* no file */
/* fp->_cookie = <any>; */ /* caller sets cookie, _read/_write etc */
fp
->_ub
._base
= NULL
; /* no ungetc buffer */
fp
->_lb
._base
= NULL
; /* no line buffer */
* XXX. Force immediate allocation of internal memory. Not used by stdio,
* but documented historically for certain applications. Bad applications.
int n
= getdtablesize() - NSTATIC
+ 20; /* 20 for slop */
for (g
= &__sglue
; (n
-= g
->niobs
) > 0 && g
->next
; g
= g
->next
)
* exit() calls _cleanup() through *__cleanup, set whenever we
* open or buffer a file. This chicanery is done so that programs
* that do not use stdio need not link it all in.
* The name `_cleanup' is, alas, fairly well known outside stdio.
/* (void) _fwalk(fclose); */
(void) _fwalk(__sflush
); /* `cheating' */
* __sinit() is called whenever stdio's internal variables must be set up.
/* make sure we clean up on exit */
__cleanup
= _cleanup
; /* conservative */