shithub: riscv

ref: 2d105c2d327a7609f79d6dc75d8e8d5b4868adc2
dir: /sys/src/ape/lib/ap/stdio/ftello.c/

View raw version 
/*
 * pANS stdio -- ftello
 */
#include "iolib.h"
off_t ftello(FILE *f){
	off_t seekp=lseek(f->fd, 0L, 1);
	if(seekp<0) return -1;		/* enter error state? */
	switch(f->state){
	default:
		return seekp;
	case RD:
		return seekp-(f->wp-f->rp);
	case WR:
		return (f->flags&LINEBUF?f->lp:f->wp)-f->buf+seekp;
	}
}