xref: /original-bsd/usr.bin/pascal/libpc/READLN.c (revision 6c57d260)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)READLN.c 1.3 01/26/81";
4 
5 #include "h00vars.h"
6 #include "h01errs.h"
7 
8 READLN(curfile)
9 
10 	register struct iorec	*curfile;
11 {
12 	do	{
13 		IOSYNC(curfile);
14 		curfile->funit |= SYNC;
15 	} while ((curfile->funit & EOLN) == 0);
16 }
17