* Copyright (c) 1990 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid
[] = "@(#)ungetc.c 5.5 (Berkeley) %G%";
#endif /* LIBC_SCCS and not lint */
* Expand the ungetc buffer `in place'. That is, adjust fp->_p when
* the buffer moves, so that it points the same distance from the end,
* and move the bytes in the buffer around as necessary so that they
* are all at the end (stack-style).
register unsigned char *p
;
if (fp
->_ub
._base
== fp
->_ubuf
) {
* Get a new buffer (rather than expanding the old one).
if ((p
= malloc((size_t)BUFSIZ
)) == NULL
)
p
+= BUFSIZ
- sizeof(fp
->_ubuf
);
for (i
= sizeof(fp
->_ubuf
); --i
>= 0;)
p
= realloc(fp
->_ub
._base
, i
<< 1);
(void) memcpy((void *)(p
+ i
), (void *)p
, (size_t)i
);
if ((fp
->_flags
& __SRD
) == 0) {
* Not already reading: no good unless reading-and-writing.
* Otherwise, flush any current write stuff.
if ((fp
->_flags
& __SRW
) == 0)
if (fp
->_flags
& __SWR
) {
* If we are in the middle of ungetc'ing, just continue.
* This may require expanding the current ungetc buffer.
if (fp
->_r
>= fp
->_ub
._size
&& __submore(fp
))
* If we can handle this by simply backing up, do so,
* but never replace the original character.
* (This makes sscanf() work when scanning `const' data.)
if (fp
->_bf
._base
!= NULL
&& fp
->_p
> fp
->_bf
._base
&&
* Create an ungetc buffer.
* Initially, we will use the `reserve' buffer.
fp
->_ub
._base
= fp
->_ubuf
;
fp
->_ub
._size
= sizeof(fp
->_ubuf
);
fp
->_ubuf
[sizeof(fp
->_ubuf
) - 1] = c
;
fp
->_p
= &fp
->_ubuf
[sizeof(fp
->_ubuf
) - 1];