Return to doset.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/doset.c, revision 1.1

1.1     ! root        1: 
        !             2: 
        !             3: /*
        !             4:        doset( ioptr,offset,whence ) does an lssek on the file described
        !             5:        by ioptr with offset and whence.  for output files, the buffer
        !             6:        must be flushed before doing the lseek.  for input files, any
        !             7:        "unread" characters in the buffer must be lseeked back.
        !             8: */
        !             9: 
        !            10: #include "spitblks.h"
        !            11: #include "spitio.h"
        !            12: 
        !            13: doset( ioptr,offset,whence )
        !            14: 
        !            15: struct ioblk   *ioptr;
        !            16: int    offset;
        !            17: int    whence;
        !            18: 
        !            19: {
        !            20:        struct  bfblk   *bfptr;
        !            21: 
        !            22:        if ( ioptr -> flg & IO_OUP ) {
        !            23:                flush( ioptr );
        !            24:        } else {
        !            25:                ioptr -> flg &= ~IO_EOF;
        !            26:                bfptr   = ioptr -> buf;
        !            27:                if ( (bfptr -> rem != 0) && (whence == 1) )
        !            28:                        lseek( ioptr -> fdn,-(bfptr -> rem),1 );
        !            29:                bfptr -> rem = 0;
        !            30:                bfptr -> off = 0;
        !            31:        }
        !            32:        return lseek( ioptr -> fdn,offset,whence );
        !            33: }
        !            34: 
        !            35: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.