1 /* @(#)peekc.c	1.7 04/08/08 Copyright 1986, 1996-2003 J. Schilling */
2 /*
3  *	Copyright (c) 1986, 1996-2003 J. Schilling
4  */
5 /*
6  * The contents of this file are subject to the terms of the
7  * Common Development and Distribution License, Version 1.0 only
8  * (the "License").  You may not use this file except in compliance
9  * with the License.
10  *
11  * See the file CDDL.Schily.txt in this distribution for details.
12  * A copy of the CDDL is also available via the Internet at
13  * http://www.opensource.org/licenses/cddl1.txt
14  *
15  * When distributing Covered Code, include this CDDL HEADER in each
16  * file and include the License file CDDL.Schily.txt from this distribution.
17  */
18 
19 #include "schilyio.h"
20 
21 EXPORT int
peekc(f)22 peekc(f)
23 	FILE *f;
24 {
25 	int	c;
26 
27 	down2(f, _IOREAD, _IORW);
28 
29 	if (ferror(f))
30 		return (EOF);
31 	if ((c = getc(f)) != EOF)
32 		ungetc(c, f);
33 	return (c);
34 }
35