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
	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)READLN.c 1.4 %G%";
	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	}