source: buchla-68k/libcio/fseek.c@ 6dd74a9

/*
   =============================================================================
        fseek.c -- perform a seek on a stream file
        Version 4 -- 1987-10-28 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stdio.h"
#include "biosdefs.h"
#include "io.h"
#include "stddefs.h"

extern  long    lseek(int fd, long pos, int how);

/*
   =============================================================================
        fseek(fp, pos, mode) -- position file 'fp' at 'pos' in mode 'mode'.
   =============================================================================
*/

int fseek(FILE *fp, long pos, int mode)
{
        register int i, lr;
        long curpos;

        if (fp->_flags & _DIRTY) {

                if (flush_(fp, -1))
                        return(EOF);

        } else {

                if (mode EQ 1 AND fp->_bp)
                        pos -= (long)fp->_bend - (long)fp->_bp;
        }

        fp->_bp = fp->_bend = NULL;
        fp->_flags &= ~_EOF;

        lr = lseek(fp->_unit, pos, mode);

        if (((struct fcb *)chantab[fp->_unit].c_arg)->modefl & FC_EOF)
                fp->_flags |= _EOF;

        if (lr < 0)
                return(EOF);

        return(0);
}