Return to lib.c CVS log

Up to [Research Unix] / researchv10no / libI77 / notused

Annotation of researchv10no/libI77/notused/lib.c, revision 1.1

1.1     ! root        1: /*     @(#)lib.c       1.2     */
        !             2: #include "fio.h"
        !             3: setcilist(x,u,fmt,rec,xerr,end) cilist *x;
        !             4: char *fmt;
        !             5: {
        !             6:        x->ciunit=u;
        !             7:        x->cifmt=fmt;
        !             8:        x->cirec=rec;
        !             9:        x->cierr=xerr;
        !            10:        x->ciend=end;
        !            11: }
        !            12: setolist(x,xunit,fname,sta,fm,rl,blnk,oerr) olist *x;
        !            13:        char *fname,*sta,*fm,*blnk;
        !            14: {
        !            15:        x->oerr=oerr;
        !            16:        x->ounit=xunit;
        !            17:        x->ofnm=fname;
        !            18:        x->ofnmlen=strlen(fname);
        !            19:        x->osta=sta;
        !            20:        x->ofm=fm;
        !            21:        x->orl=rl;
        !            22:        x->oblnk=blnk;
        !            23: }
        !            24: stcllist(x,xunit,stat,cerr) cllist *x; char *stat;
        !            25: {
        !            26:        x->cerr=cerr;
        !            27:        x->cunit=xunit;
        !            28:        x->csta=stat;
        !            29: }
        !            30: setalist(x,xunit,aerr) alist *x;
        !            31: {
        !            32:        x->aunit=xunit;
        !            33:        x->aerr=aerr;
        !            34: }

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