Initial revision

1987-01-27 15:57:55 +00:00
parent ee89196671
commit e49bbfbe1f
112 changed files with 4068 additions and 0 deletions
--- a/lang/cem/libcc/stdio/ftell.c
+++ b/lang/cem/libcc/stdio/ftell.c
@@ -0,0 +1,25 @@
+#include <stdio.h>
+
+
+long ftell(iop)
+FILE *iop;
+{
+	long result;
+	long lseek();
+	int adjust = 0;
+
+	if ( io_testflag(iop,IO_READMODE) )
+		adjust -= iop->_count;
+	else if ( io_testflag(iop,IO_WRITEMODE) && iop->_buf && !io_testflag(iop,IO_UNBUFF))
+		adjust = iop->_ptr - iop->_buf;
+	else
+		return(-1);
+	
+	result = lseek(fileno(iop), 0L, 1);
+
+	if ( result < 0 )
+		return ( result );
+
+	result += (long) adjust;
+	return(result);
+}