Return to ftell.c CVS log

Up to [CSRG BSD Unix] / 3BSD / lib / libNS

BSD 3.0

/* Copyright (c) 1979 Regents of the University of California */
#include	<stdio.h>

/*
 * Return file offset.
 * Coordinates with buffering.
 */

long	tell();

long ftell(iop)
register FILE *iop;
{
	long tres;
	register adjust;

	if (iop->_cnt < 0)
		iop->_cnt = 0;
	if (!(iop->_flag & (_IOREAD|_IOWRT)))
		_error("ftell\n");
	tres = tell(fileno(iop));
	if (tres<0)
		return(tres);
	return(tres - iop->_delta + iop->_ptr - iop->_base);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.