Files
cpython-source-deps/os_brew/fgetc.c
2017-09-04 13:40:25 -05:00

32 lines
466 B
C

/*-
* See the file LICENSE for redistribution information.
*
* Copyright (c) 2006,2008 Oracle. All rights reserved.
*
* $Id: fgetc.c 63573 2008-05-23 21:43:21Z trent.nelson $
*/
#include "db_config.h"
#include "db_int.h"
/*
* fgetc --
*
* PUBLIC: #ifndef HAVE_FGETC
* PUBLIC: int fgetc __P((FILE *));
* PUBLIC: #endif
*/
int
fgetc(fp)
FILE *fp;
{
char b[1];
if (IFILE_Read(fp, b, 1))
return ((int)b[0]);
__os_set_errno(EIO);
return (EOF);
}