Return to seek.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / pi / pil

Annotation of researchv10dc/cmd/icon/pi/pil/seek.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     SEEK
                      3:  *
                      4:  *     Seek to position in stream
                      5:  *
                      6:  *     Stephen B. Wampler
                      7:  *
                      8:  *     Last modified 5/2/86 by Ralph E. Griswold
                      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: FncDcl(seek,3)
                     19:    {
                     20:    long l1, l2;
                     21:    int status;
                     22:    FILE *fd;
                     23:    long ftell();
                     24: 
                     25:    if (Arg1.dword != D_File)
                     26:       runerr(106);
                     27: 
                     28:    defint(&Arg2, &l1, 0);
                     29:    defshort(&Arg3, 0);
                     30: 
                     31:    fd = BlkLoc(Arg1)->file.fd;
                     32: 
                     33:    if ((BlkLoc(Arg1)->file.status == 0) ||
                     34:        (fseek(fd, l1, Arg3.vword.integr) == -1))
                     35:       Fail;
                     36:    Mkint(ftell(fd), &Arg0);
                     37:    Return;
                     38:    }

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