Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/fseek.c

@@ -0,0 +1,59 @@
+/**************************************************************************
+*
+*			f s e e k   F u n c t i o n
+*			---------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"fseek" sets the read/write pointer of a stream to an arbitrary
+*	offset.
+*
+*	Calling sequence:
+*		ret = fseek(sp,offset,sense)
+*	Where:
+*		sp -> (FILE *) stream to seek on
+*		offset = signed number of bytes
+*		sense =	0  =>	offset from beginning of file
+*			1  =>	offset from current position
+*			2  =>	from end of file
+*		ret = 0 for success, -1 for failure
+*
+*****************************************************************************/
+
+#include "stdio.h"
+
+WORD	fseek(sp,offs,sense)			/* CLEAR FUNCTION ***********/
+REG	FILE *sp;
+	LONG offs;
+	WORD sense;
+{
+	LONG p, lseek();
+
+	if ( fflush(sp) == FAILURE )
+		return( FAILURE );
+	p = lseek(fileno(sp),offs,sense);
+	sp->_flag &= ~_IOEOF;			/* any seek clears EOF flag */
+	return( p==(LONG) FAILURE ? FAILURE : SUCCESS);
+}
+
+
+/************************************************************************
+*
+*			r e w i n d   F u n c t i o n
+*			-----------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"rewind" sets the read/write pointer of a stream file to the
+*	beginning of the stream.
+*
+*	Calling sequence:
+*		ret = rewind(sp)
+*	Where:
+*		sp -> a stream file (FILE *)
+*		ret = 0 for success, -1 for failure
+*
+*************************************************************************/
+WORD	rewind(sp)				/* CLEAR FUNCTION ***********/
+	FILE *sp;
+{
+	return(fseek(sp,0L,0));
+}