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

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

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

#include "h00vars.h"

/*
 * Find current location
 */
TELL(curfile)

	register struct iorec	*curfile;
{
	long loc;

	loc = ftell(curfile);
	if ((curfile->funit | SYNC) == 0)
		loc += 1;
	return loc;
}
Commit	Line	Data
0f913343 KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)TELL.c 1.1 %G%";
	4
	5	#include "h00vars.h"
	6
	7	/*
	8	* Find current location
	9	*/
	10	TELL(curfile)
	11
	12	register struct iorec *curfile;
	13	{
	14	long loc;
	15
	16	loc = ftell(curfile);
	17	if ((curfile->funit \| SYNC) == 0)
	18	loc += 1;
	19	return loc;
	20	}