Return to doset.c CVS log

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

Annotation of researchv10no/cmd/spitbol/doset.c, revision 1.1.1.1

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

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