13e12c5d1SDavid du Colombier /* 23e12c5d1SDavid du Colombier * pANS stdio -- ftell 33e12c5d1SDavid du Colombier */ 43e12c5d1SDavid du Colombier #include "iolib.h" ftell(FILE * f)5d9dc5dd1SDavid du Colombierlong ftell(FILE *f){ 6*22df390cSDavid du Colombier long seekp=lseek(f->fd, 0, SEEK_CUR); 73e12c5d1SDavid du Colombier if(seekp<0) return -1; /* enter error state? */ 83e12c5d1SDavid du Colombier switch(f->state){ 93e12c5d1SDavid du Colombier default: 103e12c5d1SDavid du Colombier return seekp; 113e12c5d1SDavid du Colombier case RD: 123e12c5d1SDavid du Colombier return seekp-(f->wp-f->rp); 133e12c5d1SDavid du Colombier case WR: 143e12c5d1SDavid du Colombier return (f->flags&LINEBUF?f->lp:f->wp)-f->buf+seekp; 153e12c5d1SDavid du Colombier } 163e12c5d1SDavid du Colombier } 17