1*3e12c5d1SDavid du Colombier /* 2*3e12c5d1SDavid du Colombier * pANS stdio -- ftell 3*3e12c5d1SDavid du Colombier */ 4*3e12c5d1SDavid du Colombier #include "iolib.h" ftell(FILE * f)5*3e12c5d1SDavid du Colombierlong ftell(FILE *f){ 6*3e12c5d1SDavid du Colombier long seekp=seek(f->fd, 0L, 1); 7*3e12c5d1SDavid du Colombier if(seekp<0) return -1; /* enter error state? */ 8*3e12c5d1SDavid du Colombier switch(f->state){ 9*3e12c5d1SDavid du Colombier default: 10*3e12c5d1SDavid du Colombier return seekp; 11*3e12c5d1SDavid du Colombier case RD: 12*3e12c5d1SDavid du Colombier return seekp-(f->wp-f->rp); 13*3e12c5d1SDavid du Colombier case WR: 14*3e12c5d1SDavid du Colombier return (f->flags&LINEBUF?f->lp:f->wp)-f->buf+seekp; 15*3e12c5d1SDavid du Colombier } 16*3e12c5d1SDavid du Colombier } 17