Return to ftell.c CVS log

Up to [MW Coherent from dump] / coherent / d / lib / libc / stdio

Annotation of coherent/d/lib/libc/stdio/ftell.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Standard I/O Library
        !             3:  * Tell logical (vs physical) file position
        !             4:  * in units compatible with fseek
        !             5:  */
        !             6: 
        !             7: #include <stdio.h>
        !             8: 
        !             9: long
        !            10: ftell(fp)
        !            11: register FILE  *fp;
        !            12: {
        !            13:        extern  long    lseek();
        !            14:        long    offset;
        !            15: 
        !            16:        if ((offset=lseek(fileno(fp), 0L, SEEK_CUR)) == -1L)
        !            17:                return (-1L);
        !            18:        if (fp->_bp!=NULL)
        !            19:                offset += fp->_cp - fp->_dp;
        !            20:        if (fp->_ff&_FUNGOT)
        !            21:                --offset;
        !            22:        return (offset);
        !            23: }

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