xref: /csrg-svn/usr.bin/pascal/libpc/TELL.c (revision 2193)
1*2193Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*2193Smckusick 
3*2193Smckusick static char sccsid[] = "@(#)TELL.c 1.1 01/16/81";
4*2193Smckusick 
5*2193Smckusick #include "h00vars.h"
6*2193Smckusick 
7*2193Smckusick /*
8*2193Smckusick  * Find current location
9*2193Smckusick  */
10*2193Smckusick TELL(curfile)
11*2193Smckusick 
12*2193Smckusick 	register struct iorec	*curfile;
13*2193Smckusick {
14*2193Smckusick 	long loc;
15*2193Smckusick 
16*2193Smckusick 	loc = ftell(curfile);
17*2193Smckusick 	if ((curfile->funit | SYNC) == 0)
18*2193Smckusick 		loc += 1;
19*2193Smckusick 	return loc;
20*2193Smckusick }
21