Files
Arquivotheca.SunOS-4.1.4/sccs/lib/getline.c
seta75D ff309bfe1c Init
2021-10-11 18:37:13 -03:00

48 lines
1013 B
C

#include "../hdr/defines.h"
SCCSID(@(#)getline.c 1.1 94/10/31 SMI); /* from System III 5.1 */
/*
Routine to read a line into the packet. The main reason for
it is to make sure that pkt->p_wrttn gets turned off,
and to increment pkt->p_slnno.
*/
char *
getline(pkt)
register struct packet *pkt;
{
register char *n;
register char *p;
char *fgets();
if(pkt->p_wrttn==0)
putline(pkt,0);
if ((n = fgets(pkt->p_line,sizeof(pkt->p_line),pkt->p_iop)) != NULL) {
pkt->p_slnno++;
pkt->p_wrttn = 0;
for (p = pkt->p_line; *p; )
pkt->p_chash += *p++;
}
else {
if (!pkt->p_reopen) {
fclose(pkt->p_iop);
pkt->p_iop = 0;
}
if (!pkt->p_chkeof)
fatal("premature eof (co5)");
if (pkt->do_chksum && (pkt->p_chash ^ pkt->p_ihash)&0xFFFF)
fatal("corrupted file (co6)");
if (pkt->p_reopen) {
fseek(pkt->p_iop,0L,0);
pkt->p_reopen = 0;
pkt->p_slnno = 0;
pkt->p_ihash = 0;
pkt->p_chash = 0;
pkt->p_nhash = 0;
pkt->p_keep = 0;
pkt->do_chksum = 0;
}
}
return(n);
}