Return to seek.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / pifuncs

Annotation of 43BSD/contrib/icon/pifuncs/seek.c, revision 1.1

1.1     ! root        1: /*
        !             2: #      SEEK(3.icon)
        !             3: #
        !             4: #      Seek to position in stream
        !             5: #
        !             6: #      Stephen B. Wampler
        !             7: #
        !             8: #      Last modified 8/19/84
        !             9: #
        !            10: */
        !            11: 
        !            12: #include "../h/rt.h"
        !            13: 
        !            14: /*
        !            15:  * seek(file,offset,start) - seek to offset byte from start in file.
        !            16:  */
        !            17: 
        !            18: Xseek(nargs, arg3, arg2, arg1, arg0)
        !            19: int nargs;
        !            20: struct descrip arg3, arg2, arg1, arg0;
        !            21:    {
        !            22:    long l1, l2;
        !            23:    int status;
        !            24:    FILE *fd;
        !            25:    long ftell();
        !            26: 
        !            27:    DeRef(arg1)
        !            28:    if (arg1.type != D_FILE)
        !            29:       runerr(106);
        !            30: 
        !            31:    defint(&arg2, &l1, 0);
        !            32:    defshort(&arg3, 0);
        !            33: 
        !            34:    fd = BLKLOC(arg1)->file.fd;
        !            35: 
        !            36:    if ((BLKLOC(arg1)->file.status == 0) ||
        !            37:        (fseek(fd, l1, arg3.value.integr) == -1))
        !            38:       fail();
        !            39:    mkint(ftell(fd), &arg0);
        !            40:    }
        !            41: 
        !            42: Procblock(seek,3)

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