Return to sue.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / old

Annotation of researchv10dc/libI77/old/sue.c, revision 1.1.1.1

1.1       root        1: /*     @(#)sue.c       1.2     */
                      2: /*     3.0 SID #       1.2     */
                      3: #include "fio.h"
                      4: extern int reclen;
                      5: long recloc;
                      6: s_rsue(a) cilist *a;
                      7: {
                      8:        int n;
                      9:        if(!init) f_init();
                     10:        reading=1;
                     11:        if(n=c_sue(a)) return(n);
                     12:        recpos=0;
                     13:        if(curunit->uwrt) (void) nowreading(curunit);
                     14:        if(fread((char *)&reclen,sizeof(int),1,cf)
                     15:                != 1)
                     16:        {       if(feof(cf))
                     17:                {       curunit->uend = 1;
                     18:                        err(a->ciend, EOF, "start");
                     19:                }
                     20:                clearerr(cf);
                     21:                err(a->cierr, errno, "start");
                     22:        }
                     23:        return(0);
                     24: }
                     25: s_wsue(a) cilist *a;
                     26: {
                     27:        int n;
                     28:        if(!init) f_init();
                     29:        if(n=c_sue(a)) return(n);
                     30:        reading=0;
                     31:        reclen=0;
                     32:        if(!curunit->uwrt) (void) nowwriting(curunit);
                     33:        recloc=ftell(cf);
                     34:        (void) fseek(cf,(long)sizeof(int),1);
                     35:        return(0);
                     36: }
                     37: c_sue(a) cilist *a;
                     38: {
                     39:        if(a->ciunit >= MXUNIT || a->ciunit < 0)
                     40:                err(a->cierr,101,"startio");
                     41:        external=sequential=1;
                     42:        formatted=0;
                     43:        curunit = &units[a->ciunit];
                     44:        elist=a;
                     45:        if(curunit->ufd==NULL && fk_open(SEQ,UNF,a->ciunit))
                     46:                err(a->cierr,114,"sue");
                     47:        cf=curunit->ufd;
                     48:        if(curunit->ufmt) err(a->cierr,103,"sue")
                     49:        if(!curunit->useek) err(a->cierr,103,"sue")
                     50:        return(0);
                     51: }
                     52: e_wsue()
                     53: {      long loc;
                     54:        (void) fwrite((char *)&reclen,sizeof(int),1,cf);
                     55:        loc=ftell(cf);
                     56:        (void) fseek(cf,recloc,0);
                     57:        (void) fwrite((char *)&reclen,sizeof(int),1,cf);
                     58:        (void) fseek(cf,loc,0);
                     59:        return(0);
                     60: }
                     61: e_rsue()
                     62: {
                     63:        (void) fseek(cf,(long)(reclen-recpos+sizeof(int)),1);
                     64:        return(0);
                     65: }

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