From e5888a1ffdae813d7575f5fb02275c6bb07e5199 Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 15:46:40 +0300
Subject: Import sources from 2011-03-30 iso image

---
 sys/src/libstdio/ftello.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 sys/src/libstdio/ftello.c

(limited to 'sys/src/libstdio/ftello.c')

diff --git a/sys/src/libstdio/ftello.c b/sys/src/libstdio/ftello.c
new file mode 100755
index 000000000..2480856b9
--- /dev/null
+++ b/sys/src/libstdio/ftello.c
@@ -0,0 +1,16 @@
+/*
+ * pANS stdio -- ftello
+ */
+#include "iolib.h"
+long long ftello(FILE *f){
+	long long seekp=seek(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;
+	}
+}
-- 
cgit v1.2.3