|
|
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.