|
|
/***
*ftell.c - get current file position** Copyright (c) 1985-2001, Microsoft Corporation. All rights reserved.**Purpose:* defines ftell() - find current current position of file pointer**Revision History:* 09-02-83 RN initial version* ??-??-?? TC added code to allow variable buffer sizes* 05-22-86 TC added code to seek to send if last operation was a* write and append mode specified* 11-20-86 SKS do not seek to end of file in append mode* 12-01-86 SKS fix off-by-1 problem in text mode when last byte in* buffer was a '\r', and it was followed by a '\n'. Since* the \n was pushed back and the \r was discarded, we* must adjust the computed position for the \r.* 02-09-87 JCR Added errno set code (if flag (_IORW not set)* 09-09-87 JCR Optimized to eliminate two lseek() calls in binary mode.* 09-28-87 JCR Corrected _iob2 indexing (now uses _iob_index() macro).* 11-04-87 JCR Multi-thread version* 12-11-87 JCR Added "_LOAD_DS" to declaration* 01-13-88 JCR Removed unnecessary calls to mthread fileno/feof/ferror* 05-27-88 PHG Merged DLL and normal versions* 06-06-88 JCR Use _iob2_ macro instead of _iob_index* 06-15-88 JCR Near reference to _iob[] entries; improve REG variables* 07-27-88 JCR Changed some variables from int to unsigned (bug fix)* 08-25-88 GJF Don't use FP_OFF() macro for the 386* 12-05-88 JCR Added _IOCTRLZ support (fixes bug pertaining to ^Z at* eof)* 08-17-89 GJF Cleanup, now specific to OS/2 2.0 (i.e., 386 flat* model), also fixed copyright* 02-15-90 GJF _iob[], _iob2[] merge. Also, fixed copyright and* indents.* 03-19-90 GJF Made calling type _CALLTYPE1, added #include* <cruntime.h> and removed #include <register.h>.* 07-23-90 SBM Replaced <assertm.h> by <assert.h>* 10-02-90 GJF New-style function declarators.* 01-21-91 GJF ANSI naming.* 03-27-92 DJM POSIX support.* 08-26-92 GJF Include unistd.h for POSIX build.* 09-01-92 GJF Fixed POSIX support (was returning -1 for all except* read-write streams).* 04-06-93 SKS Replace _CRTAPI* with __cdecl* 06-29-93 GJF Fixed bug related to variable buffer sizing (Cuda* #5456).* 09-06-94 CFW Replace MTHREAD with _MT.* 02-06-94 CFW assert -> _ASSERTE.* 02-20-95 GJF Merged in Mac version.* 03-07-95 GJF _[un]lock_str macros now take FILE * arg.* 06-12-95 GJF Replaced _osfile[] with _osfile() (macro referencing* field in ioinfo struct).* 02-27-98 RKP Add 64 bit support.* 03-02-98 GJF Exception-safe locking.* 05-17-99 PML Remove all Macintosh support.* 07-23-02 BWT If the second lseek fails when doing a text read, return -1* technically, we're SOL here because we just finished seeking* to the end of the image...********************************************************************************/
#include <cruntime.h>
#include <stdio.h>
#include <file2.h>
#include <dbgint.h>
#include <errno.h>
#ifdef _POSIX_
#include <unistd.h>
#else
#include <msdos.h>
#endif
#include <stddef.h>
#include <io.h>
#include <internal.h>
#ifndef _POSIX_
#include <mtdll.h>
#endif
/***
*long ftell(stream) - query stream file pointer**Purpose:* Find out what stream's position is. coordinate with buffering; adjust* backward for read-ahead and forward for write-behind. This is NOT* equivalent to fseek(stream,0L,1), because fseek will remove an ungetc,* may flush buffers, etc.**Entry:* FILE *stream - stream to query for position**Exit:* return present file position if succeeds* returns -1L and sets errno if fails**Exceptions:********************************************************************************/
#ifdef _MT /* multi-thread; define both ftell() and _lk_ftell() */
long __cdecl ftell ( FILE *stream ){ long retval;
_ASSERTE(stream != NULL);
_lock_str(stream);
__try { retval = _ftell_lk (stream); } __finally { _unlock_str(stream); }
return(retval);}
/***
*_ftell_lk() - Ftell() core routine (assumes stream is locked).**Purpose:* Core ftell() routine; assumes caller has aquired stream lock).** [See ftell() above for more info.]**Entry: [See ftell()]**Exit: [See ftell()]**Exceptions:********************************************************************************/
long __cdecl _ftell_lk (
#else /* non multi-thread; define only ftell() */
long __cdecl ftell (
#endif /* rejoin common code */
FILE *str ){ REG1 FILE *stream; unsigned int offset; long filepos;#if !defined(_POSIX_)
REG2 char *p; char *max;#endif
int fd; unsigned int rdcnt;
_ASSERTE(str != NULL);
/* Init stream pointer and file descriptor */ stream = str;#ifdef _POSIX_
fd = fileno(stream);#else
fd = _fileno(stream);#endif
if (stream->_cnt < 0) stream->_cnt = 0;
#ifdef _POSIX_
if ((filepos = lseek(fd, 0L, SEEK_CUR)) < 0L)#else
if ((filepos = _lseek(fd, 0L, SEEK_CUR)) < 0L)#endif
return(-1L);
if (!bigbuf(stream)) /* _IONBF or no buffering designated */ return(filepos - stream->_cnt);
offset = (unsigned)(stream->_ptr - stream->_base);
#ifndef _POSIX_
if (stream->_flag & (_IOWRT|_IOREAD)) { if (_osfile(fd) & FTEXT) for (p = stream->_base; p < stream->_ptr; p++) if (*p == '\n') /* adjust for '\r' */ offset++; } else if (!(stream->_flag & _IORW)) { errno=EINVAL; return(-1L); }#endif
if (filepos == 0L) return((long)offset);
if (stream->_flag & _IOREAD) /* go to preceding sector */
if (stream->_cnt == 0) /* filepos holds correct location */ offset = 0;
else {
/* Subtract out the number of unread bytes left in the buffer.
[We can't simply use _iob[]._bufsiz because the last read may have hit EOF and, thus, the buffer was not completely filled.] */
rdcnt = stream->_cnt + (unsigned)(stream->_ptr - stream->_base);
#if !defined(_POSIX_)
/* If text mode, adjust for the cr/lf substitution. If binary
mode, we're outta here. */ if (_osfile(fd) & FTEXT) { /* (1) If we're not at eof, simply copy _bufsiz onto rdcnt
to get the # of untranslated chars read. (2) If we're at eof, we must look through the buffer expanding the '\n' chars one at a time. */
/* [NOTE: Performance issue -- it is faster to do the two
_lseek() calls than to blindly go through and expand the '\n' chars regardless of whether we're at eof or not.] */
if (_lseek(fd, 0L, SEEK_END) == filepos) {
max = stream->_base + rdcnt; for (p = stream->_base; p < max; p++) if (*p == '\n') /* adjust for '\r' */ rdcnt++;
/* If last byte was ^Z, the lowio read didn't tell us
about it. Check flag and bump count, if necessary. */
if (stream->_flag & _IOCTRLZ) ++rdcnt; }
else {
if (_lseek(fd, filepos, SEEK_SET) < 0) return (-1);
/* We want to set rdcnt to the number of bytes
originally read into the stream buffer (before crlf->lf translation). In most cases, this will just be _bufsiz. However, the buffer size may have been changed, due to fseek optimization, at the END of the last _filbuf call. */
if ( (rdcnt <= _SMALL_BUFSIZ) && (stream->_flag & _IOMYBUF) && !(stream->_flag & _IOSETVBUF) ) { /* The translated contents of the buffer is small
and we are not at eof. The buffer size must have been set to _SMALL_BUFSIZ during the last _filbuf call. */
rdcnt = _SMALL_BUFSIZ; } else rdcnt = stream->_bufsiz;
/* If first byte in untranslated buffer was a '\n',
assume it was preceeded by a '\r' which was discarded by the previous read operation and count the '\n'. */ if (_osfile(fd) & FCRLF) ++rdcnt; }
} /* end if FTEXT */#endif
filepos -= (long)rdcnt;
} /* end else stream->_cnt != 0 */
return(filepos + (long)offset);}
|
