xref: /original-bsd/usr.bin/pascal/libpc/TELL.c (revision c7de680c)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)TELL.c 1.3 06/17/81";
4 
5 #include "h00vars.h"
6 
7 /*
8  * Find current location
9  */
10 struct seekptr
11 TELL(curfile)
12 
13 	register struct iorec	*curfile;
14 {
15 	struct seekptr loc;
16 
17 	if ((curfile->funit & FREAD) && (curfile->funit & SYNC) == 0) {
18 		fseek(curfile->fbuf, -curfile->fsize, 1);
19 		curfile->funit |= SYNC;
20 	}
21 	loc.cnt = ftell(curfile->fbuf);
22 	return loc;
23 }
24