Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
c/lib5/stdio/getw.c
There are 7 other files named getw.c in the archive. Click here to see a list.
/*
* GETW - get an int from a stream
*
* Copyright (C) 1986 by Ian Macky, SRI International
*/
#include "stdio.h"
#include "c-env.h"
int getw(f)
FILE *f;
{
int c, i, value;
if (!_readable(f)) return EOF;
#if SYS_T20+SYS_10X
value = 0; /* return value */
for (i = 0; i < 4; i++) {
if ((c = getc(f)) == EOF) return EOF;
else value = (value << 9) | c;
}
return value;
#else
return EOF;
#endif
}