blob: 1949f9cd0d580e2ba0dc90f63e189d2a0ca399b2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include "ratdef.h"
FINT
GETLIN(line, fd)
RCHAR *line;
FINT *fd;
{
register int c=0;
register int count=0;
register RCHAR *cs;
FILE *fp;
fp = _fdtofile[*fd];
cs = line;
while (++count<MAXLINE && (c = getc(fp))>=0) {
*cs++ = c;
if (c == '\n') {
*cs++ = REOS;
return (count); /* count includes newline, but does
not include the EOS */
}
}
if (c<0 && cs==line)
return(REOF);
*cs++ = REOS;
return(count);
}
|
