newlib/libc/stdio/fwalk.c

   1 /*
   2  * Copyright (c) 1990 The Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms are permitted
   6  * provided that the above copyright notice and this paragraph are
   7  * duplicated in all such forms and that any documentation,
   8  * advertising materials, and other materials related to such
   9  * distribution and use acknowledge that the software was developed
  10  * by the University of California, Berkeley.  The name of the
  11  * University may not be used to endorse or promote products derived
  12  * from this software without specific prior written permission.
  13  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  14  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  15  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16  */
  17 /* No user fns here.  Pesch 15apr92. */
  18
  19 #if defined(LIBC_SCCS) && !defined(lint)
  20 static char sccsid[] = "%W% (Berkeley) %G%";
  21 #endif /* LIBC_SCCS and not lint */
  22
  23 #include <_ansi.h>
  24 #include <reent.h>
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <errno.h>
  28 #include "local.h"
  29
  30 static int
  31 _DEFUN(__fwalk, (ptr, function),
  32        struct _reent *ptr _AND
  33        register int (*function) (FILE *))
  34 {
  35   register FILE *fp;
  36   register int n, ret = 0;
  37   register struct _glue *g;
  38
  39   for (g = &ptr->__sglue; g != NULL; g = g->_next)
  40     for (fp = g->_iobs, n = g->_niobs; --n >= 0; fp++)
  41       if (fp->_flags != 0)
  42         {
  43           _flockfile (fp);
  44           if (fp->_flags != 0 && fp->_file != -1)
  45             ret |= (*function) (fp);
  46           _funlockfile (fp);
  47         }
  48
  49   return ret;
  50 }
  51
  52 /* Special version of __fwalk where the function pointer is a reentrant
  53    I/O function (e.g. _fclose_r).  */
  54 static int
  55 _DEFUN(__fwalk_reent, (ptr, reent_function),
  56        struct _reent *ptr _AND
  57        register int (*reent_function) (struct _reent *, FILE *))
  58 {
  59   register FILE *fp;
  60   register int n, ret = 0;
  61   register struct _glue *g;
  62
  63   for (g = &ptr->__sglue; g != NULL; g = g->_next)
  64     for (fp = g->_iobs, n = g->_niobs; --n >= 0; fp++)
  65       if (fp->_flags != 0)
  66         {
  67           _flockfile (fp);
  68           if (fp->_flags != 0 && fp->_file != -1)
  69             ret |= (*reent_function) (ptr, fp);
  70           _funlockfile (fp);
  71         }
  72
  73   return ret;
  74 }
  75
  76 int
  77 _DEFUN(_fwalk, (ptr, function),
  78        struct _reent *ptr _AND
  79        register int (*function)(FILE *))
  80 {
  81   register int ret = 0;
  82
  83   __sfp_lock_acquire ();
  84
  85   /* Must traverse given list for streams.  Note that _GLOBAL_REENT
  86      only walked once in exit().  */
  87   ret |= __fwalk (ptr, function);
  88
  89   __sfp_lock_release ();
  90
  91   return ret;
  92 }
  93
  94 /* Special version of _fwalk which handles a function pointer to a
  95    reentrant I/O function (e.g. _fclose_r).  */
  96 int
  97 _DEFUN(_fwalk_reent, (ptr, reent_function),
  98        struct _reent *ptr _AND
  99        register int (*reent_function) (struct _reent *, FILE *))
 100 {
 101   register int ret = 0;
 102
 103   __sfp_lock_acquire ();
 104
 105   /* Must traverse given list for streams.  Note that _GLOBAL_REENT
 106      only walked once in exit().  */
 107   ret |= __fwalk_reent (ptr, reent_function);
 108
 109   __sfp_lock_release ();
 110
 111   return ret;
 112 }