|
|
1.1 ! root 1: #include "fio.h" ! 2: setcilist(x,u,fmt,rec,xerr,end) cilist *x; ! 3: char *fmt; ! 4: { ! 5: x->ciunit=u; ! 6: x->cifmt=fmt; ! 7: x->cirec=rec; ! 8: x->cierr=xerr; ! 9: x->ciend=end; ! 10: } ! 11: setolist(x,xunit,fname,sta,fm,rl,blnk,oerr) olist *x; ! 12: char *fname,*sta,*fm,*blnk; ! 13: { ! 14: x->oerr=oerr; ! 15: x->ounit=xunit; ! 16: x->ofnm=fname; ! 17: x->ofnmlen=strlen(fname); ! 18: x->osta=sta; ! 19: x->ofm=fm; ! 20: x->orl=rl; ! 21: x->oblnk=blnk; ! 22: } ! 23: stcllist(x,xunit,stat,cerr) cllist *x; char *stat; ! 24: { ! 25: x->cerr=cerr; ! 26: x->cunit=xunit; ! 27: x->csta=stat; ! 28: } ! 29: setalist(x,xunit,aerr) alist *x; ! 30: { ! 31: x->aunit=xunit; ! 32: x->aerr=aerr; ! 33: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.