Bell 32V development

Work on file usr/src/libc/gen/tell.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v

diff --git a/usr/src/libc/gen/tell.c b/usr/src/libc/gen/tell.c
new file mode 100644 (file)
index 0000000..12e6bf2
--- /dev/null
+++ b/usr/src/libc/gen/tell.c
@@ -0,0 +1,10 @@
+/*
+ * return offset in file.
+ */
+
+long   lseek();
+
+long tell(f)
+{
+       return(lseek(f, 0L, 1));
+}