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