Imported Upstream version 93u+upstream

1 files changed, 67 insertions, 0 deletions

diff --git a/src/lib/libast/sfio/sfwalk.c b/src/lib/libast/sfio/sfwalk.c
new file mode 100644
index 0000000..7019863
--- /dev/null
+++ b/src/lib/libast/sfio/sfwalk.c
@@ -0,0 +1,67 @@
+/***********************************************************************
+*                                                                      *
+*               This software is part of the ast package               *
+*          Copyright (c) 1985-2011 AT&T Intellectual Property          *
+*                      and is licensed under the                       *
+*                 Eclipse Public License, Version 1.0                  *
+*                    by AT&T Intellectual Property                     *
+*                                                                      *
+*                A copy of the License is available at                 *
+*          http://www.eclipse.org/org/documents/epl-v10.html           *
+*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
+*                                                                      *
+*              Information and Software Systems Research               *
+*                            AT&T Research                             *
+*                           Florham Park NJ                            *
+*                                                                      *
+*                 Glenn Fowler <gsf@research.att.com>                  *
+*                  David Korn <dgk@research.att.com>                   *
+*                   Phong Vo <kpv@research.att.com>                    *
+*                                                                      *
+***********************************************************************/
+#include	"sfhdr.h"
+
+/* Walk streams and run operations on them
+**
+** Written by Kiem-Phong Vo.
+*/
+
+#if __STD_C
+int sfwalk(Sfwalk_f walkf, Void_t* data, int type)
+#else
+int sfwalk(walkf, data, type)
+Sfwalk_f	walkf;	/* return <0: stop, >=0: continue	*/
+Void_t*		data;
+int		type;	/* walk streams with all given flags	*/
+#endif
+{
+	Sfpool_t	*p;
+	Sfio_t		*f;
+	int		n, rv;
+
+	/* truly initializing std-streams before walking */
+	if(sfstdin->mode & SF_INIT)
+		_sfmode(sfstdin, (sfstdin->mode & SF_RDWR), 0);
+	if(sfstdout->mode & SF_INIT)
+		_sfmode(sfstdout, (sfstdout->mode & SF_RDWR), 0);
+	if(sfstderr->mode & SF_INIT)
+		_sfmode(sfstderr, (sfstderr->mode & SF_RDWR), 0);
+
+	for(rv = 0, p = &_Sfpool; p; p = p->next)
+	{	for(n = 0; n < p->n_sf; )
+		{	f = p->sf[n];
+
+			if(type != 0 && (f->_flags&type) != type )
+				continue; /* not in the interested set */
+
+			if((rv = (*walkf)(f, data)) < 0)
+				return rv;
+
+			if(p->sf[n] == f) /* move forward to next stream */
+				n += 1;
+			/* else - a sfclose() was done on current stream */
+		}
+	}
+
+	return rv;
+}