[unix-history] / usr / src / usr.bin / pascal / libpc / READLN.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)READLN.c 1.4 %G%";

#include "h00vars.h"

READLN(curfile)

	register struct iorec	*curfile;
{
	do	{
		IOSYNC(curfile);
		curfile->funit |= SYNC;
	} while ((curfile->funit & EOLN) == 0);
}
Commit	Line	Data
3a83a779 KM	1	/* Copyright (c) 1979 Regents of the University of California */
3a83a779 KM	2
86997b19	3	static char sccsid[] = "@(#)READLN.c 1.4 %G%";
3a83a779 KM	4
3a83a779 KM	5	#include "h00vars.h"
3a83a779 KM	6
	7	READLN(curfile)
	8
	9	register struct iorec *curfile;
	10	{
8066db34 KM	11	do {
	12	IOSYNC(curfile);
	13	curfile->funit \|= SYNC;
	14	} while ((curfile->funit & EOLN) == 0);
3a83a779	15	}