1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #pragma prototyped
23*b30d1939SAndy Fiddaman
24*b30d1939SAndy Fiddaman #include "stdhdr.h"
25*b30d1939SAndy Fiddaman
26*b30d1939SAndy Fiddaman wint_t
ungetwc(wint_t c,Sfio_t * f)27*b30d1939SAndy Fiddaman ungetwc(wint_t c, Sfio_t* f)
28*b30d1939SAndy Fiddaman {
29*b30d1939SAndy Fiddaman register unsigned char* s = (unsigned char*)&c;
30*b30d1939SAndy Fiddaman register unsigned char* e = s + sizeof(c);
31*b30d1939SAndy Fiddaman
32*b30d1939SAndy Fiddaman STDIO_INT(f, "ungetwc", wint_t, (wint_t, Sfio_t*), (c, f))
33*b30d1939SAndy Fiddaman
34*b30d1939SAndy Fiddaman FWIDE(f, WEOF);
35*b30d1939SAndy Fiddaman while (s < e)
36*b30d1939SAndy Fiddaman if (sfungetc(f, *s++) == EOF)
37*b30d1939SAndy Fiddaman return WEOF;
38*b30d1939SAndy Fiddaman return c;
39*b30d1939SAndy Fiddaman }
40