ASSERT dballoc.c ?^#define ASSERT(p)$? DO dofio.c ?^#define DO(x) if(n=x) err(n>0? ERR lio.h ?^#define ERR(x) if(n=(x)) err(n>0? GET fio.h ?^#define GET(x) if((x=(*getn)())<0) return(x)$? GETC lread.c ?^#define GETC(x) (x=(*getn)())$? PUT fio.h ?^#define PUT(x) {if(n=(*putn)(x)) return(n);}$? V io.c ?^#define V(z) ioc[z].iocval$? VAL fio.h ?^#define VAL(x) (x!='\n'? abs lio.h ?^#define abs(z) (z<0? abs wrtfmt.c ?^#define abs(x) (x<0? ap_end fmt.c ?^char *ap_end(s) char *s;$? b_char util.c ?^b_char(from, to, tolen) char *from, *to; ftnlen to? botch dballoc.c ?^botch(s) char *s;$? c_dfe dfe.c ?^c_dfe(a,flag) cilist *a;$? c_di rwiio.c ?^c_di(a) icilist *a;$? c_due due.c ?^c_due(a,flag) cilist *a;$? c_fi rwiio.c ?^c_fi(a) icilist *a;$? c_le dolio.c ?^c_le(a,flag) cilist *a;$? c_li rwiio.c ?^c_li(a) icilist *a;$? c_sfe sfe.c ?^c_sfe(a,flag) cilist *a; /* check */$? c_si rwiio.c ?^c_si(a) icilist *a;$? c_sue sue.c ?^c_sue(a,flag) cilist *a;$? calloc dballoc.c ?^char *calloc(nbytes,count)$? canseek util.c ?^canseek(f) FILE *f; /*SYSDEP*/$? chk_len lwrite.c ?^chk_len(w)$? clearbusy dballoc.c ?^#define clearbusy(p) (struct store *)((int)(p)&~BU? digit fmtlib.c ?^#define digit(c) ( (c > 9) ? do_fio dofio.c ?^do_fio(number,ptr,len) ftnint *number; ftnlen len;? do_lio dolio.c ?^do_lio(type,number,ptr,len) ftnint *number,*type; ? do_ud douio.c ?^do_ud(number,ptr,len) ftnint *number; ftnlen len; ? do_uio douio.c ?^do_uio(number,ptr,len) ftnint *number; ftnlen len;? do_us douio.c ?^do_us(number,ptr,len) ftnint *number; ftnlen len; ? dofclose io.c ?^LOCAL dofclose()$? dofinquire io.c ?^LOCAL dofinquire()$? dofmove io.c ?^LOCAL dofmove(subname)$? dofopen io.c ?^LOCAL dofopen()$? doio io.c ?^ doio(list)$? doiolist io.c ?^LOCAL doiolist(p0)$? dwidth lio.h ?^#define dwidth(z) ((z!=0.0 && (abs(z)>=LDHIGH || a? e_d fmt.c ?^e_d(s,p) char *s,**p;$? e_rdfe dfe.c ?^e_rdfe()$? e_rdfi riio.c ?^e_rdfi()$? e_rdue due.c ?^e_rdue()$? e_rsfe sfe.c ?^e_rsfe()$? e_rsfi riio.c ?^e_rsfi()$? e_rsle lread.c ?^e_rsle()$? e_rsli riio.c ?^e_rsli()$? e_rsue sue.c ?^e_rsue()$? e_wdfe dfe.c ?^e_wdfe()$? e_wdfi wiio.c ?^e_wdfi()$? e_wdue due.c ?^e_wdue()$? e_wsfe sfe.c ?^e_wsfe()$? e_wsfi wiio.c ?^e_wsfi()$? e_wsle lwrite.c ?^e_wsle()$? e_wsli wiio.c ?^e_wsli()$? e_wsue sue.c ?^e_wsue()$? en_fio dofio.c ?^en_fio()$? endio io.c ?^endio()$? endioctl io.c ?^endioctl()$? err fio.h ?^#define err(f,n,s) {if(f) return(errno=n); else fa? f_back backspace.c ?^f_back(a) alist *a;$? f_clos close.c ?^f_clos(a) cllist *a;$? f_end endfile.c ?^f_end(a) alist *a;$? f_exit close.c ?^f_exit()$? f_init err.c ?^f_init()$? f_inqu inquire.c ?^f_inqu(a) inlist *a;$? f_list fmt.c ?^char *f_list(s) char *s;$? f_open open.c ?^f_open(a) olist *a;$? f_rew rewind.c ?^f_rew(a) alist *a;$? f_s fmt.c ?^char *f_s(s,curloc) char *s;$? fatal err.c ?^fatal(n,s) char *s;$? finode util.c ?^finode(f) FILE *f;$? fk_open open.c ?^fk_open(rd,seq,fmt,n) ftnint n;$? flush_ close.c ?^flush_(u) ftnint *u;$? fmt_bg dofio.c ?^fmt_bg()$? fmtstmt io.c ?^fmtstmt(lp)$? free dballoc.c ?^free(p)$? g_char util.c ?^g_char(a,alen,b) char *a,*b; ftnlen alen;$? get_repet lread.c ?^get_repet()$? gt_num fmt.c ?^char *gt_num(s,n) char *s; int *n;$? i_tem fmt.c ?^char *i_tem(s) char *s;$? icvt fmtlib.c ?^char *icvt(value,ndigit,sign) long value; int *ndi? iiopos_ iio.c ?^iiopos_()$? iiorec_ iio.c ?^iiorec_()$? ini_std util.c ?^ini_std(u,F,w) FILE *F;$? inode util.c ?^inode(a) char *a;$? ioclause io.c ?^ioclause(n, p)$? iocname io.c ?^iocname()$? ioset io.c ?^LOCAL ioset(type, offset, p)$? iosetc io.c ?^LOCAL iosetc(offset, p)$? iosetip io.c ?^LOCAL iosetip(i, offset)$? iosetlc io.c ?^LOCAL iosetlc(i, offp, offl)$? isalpha rdfmt.c ?^#define isalpha(c) (c>='a' && c<='z')$? isapos lread.c ?^#define isapos(x) (ltab[x+1]&AP)$? isblnk lread.c ?^#define isblnk(x) (ltab[x+1]&B)$? isdev open.c ?^isdev(s) char *s;$? isdigit fmt.c ?^#define isdigit(x) (x>='0' && x<='9')$? isdigit lread.c ?^#define isdigit(x) (ltab[x+1]&D)$? isdigit rdfmt.c ?^#define isdigit(c) (c>='0' && c<='9')$? isexp lread.c ?^#define isexp(x) (ltab[x+1]&EX)$? issep lread.c ?^#define issep(x) (ltab[x+1]&SP)$? l_C lread.c ?^l_C()$? l_CHAR lread.c ?^l_CHAR()$? l_L lread.c ?^l_L()$? l_R lread.c ?^l_R(flg) int flg;$? l_read lread.c ?^l_read(number,ptr,len,type) ftnint *number,type; f? l_write lwrite.c ?^l_write(number,ptr,len,type) ftnint *number,type; ? last_char util.c ?^last_char(f) FILE *f;$? lcase fio.h ?^#define lcase(s) ((s >= 'A') && (s <= 'Z') ? lr_comm lread.c ?^lr_comm()$? lwrt_0 lwrite.c ?^lwrt_0()$? lwrt_A lwrite.c ?^lwrt_A(p,len) char *p; ftnlen len;$? lwrt_C lwrite.c ?^lwrt_C(a,b) float a,b;$? lwrt_D lwrite.c ?^lwrt_D(dn) double dn;$? lwrt_DC lwrite.c ?^lwrt_DC(a,b) double a,b;$? lwrt_F lwrite.c ?^lwrt_F(fn) float fn;$? lwrt_I lwrite.c ?^lwrt_I(in) ftnint in;$? lwrt_L lwrite.c ?^lwrt_L(ln) ftnint ln;$? malloc dballoc.c ?^malloc(nbytes)$? ne_d fmt.c ?^ne_d(s,p) char *s,**p;$? not_legal fio.h ?^#define not_legal(u) (u>=MXUNIT || u<0)$? nowreading util.c ?^nowreading(x) unit *x;$? nowwriting util.c ?^nowwriting(x) unit *x;$? op_gen fmt.c ?^op_gen(a,b,c,d,s) char *s;$? pars_f fmt.c ?^pars_f(s) char *s;$? pr_put wsfe.c ?^pr_put(c)$? prnt_ext err.c ?^prnt_ext()$? prnt_fmt err.c ?^prnt_fmt(n) int n;$? prnt_int err.c ?^prnt_int()$? putio io.c ?^LOCAL putio(nelt, addr)$? putiocall io.c ?^LOCAL putiocall(q)$? rd_AW rdfmt.c ?^rd_AW(p,w,len) char *p; ftnlen len;$? rd_F rdfmt.c ?^rd_F(p,w,d,len) ftnlen len; ufloat *p;$? rd_I rdfmt.c ?^rd_I(n,w,len) ftnlen len; uint *n;$? rd_L rdfmt.c ?^rd_L(n,w) ftnint *n;$? rd_ed rdfmt.c ?^rd_ed(p,ptr,len) char *ptr; struct syl *p; ftnlen ? rd_int lread.c ?^rd_int(x) double *x;$? rd_mvcur rdfmt.c ?^rd_mvcur()$? rd_ned rdfmt.c ?^rd_ned(p,ptr) char *ptr; struct syl *p;$? realloc dballoc.c ?^realloc(p, nbytes)$? s_rdfe rdfe.c ?^s_rdfe(a) cilist *a;$? s_rdfi riio.c ?^s_rdfi(a) icilist *a;$? s_rdue due.c ?^s_rdue(a) cilist *a;$? s_rsfe rsfe.c ?^s_rsfe(a) cilist *a; /* start */$? s_rsfi riio.c ?^s_rsfi(a) icilist *a;$? s_rsle lread.c ?^s_rsle(a) cilist *a; /* start read sequential list? s_rsli riio.c ?^s_rsli(a) icilist *a;$? s_rsue sue.c ?^s_rsue(a) cilist *a;$? s_wdfe wdfe.c ?^s_wdfe(a) cilist *a;$? s_wdfi wiio.c ?^s_wdfi(a) icilist *a;$? s_wdue due.c ?^s_wdue(a) cilist *a;$? s_wsfe wsfe.c ?^s_wsfe(a) cilist *a; /*start*/$? s_wsfi wiio.c ?^s_wsfi(a) icilist *a;$? s_wsle lwrite.c ?^s_wsle(a) cilist *a;$? s_wsli wiio.c ?^s_wsli(a) icilist *a;$? s_wsue sue.c ?^s_wsue(a) cilist *a;$? setbusy dballoc.c ?^#define setbusy(p) (struct store *)((int)(p)+BUSY)$? setfmt io.c ?^setfmt(lp)$? skip fmt.c ?^#define skip(s) while(*s==' ') s++$? startioctl io.c ?^startioctl()$? startrw io.c ?^startrw()$? t_getc lread.c ?^t_getc()$? t_putc lwrite.c ?^t_putc(c) char c;$? t_runc endfile.c ?^t_runc(b,flag) unit *b; ioflag flag;$? t_sep lread.c ?^t_sep()$? testbusy dballoc.c ?^#define testbusy(p) ((int)(p)&BUSY)$? type_f dofio.c ?^type_f(n)$? w_ed wrtfmt.c ?^w_ed(p,ptr,len) char *ptr; struct syl *p; ftnlen l? w_ned wrtfmt.c ?^w_ned(p,ptr) char *ptr; struct syl *p;$? width lio.h ?^#define width(z) ((z!=0.0 && (abs(z)>=LHIGH || abs? wr_mvcur wrtfmt.c ?^wr_mvcur()$? wrt_AP wrtfmt.c ?^wrt_AP(p)$? wrt_AW wrtfmt.c ?^wrt_AW(p,w,len) char * p; ftnlen len;$? wrt_E wrtfmt.c ?^wrt_E(p,w,d,e,len) ufloat *p; ftnlen len;$? wrt_F wrtfmt.c ?^wrt_F(p,w,d,len) ufloat *p; ftnlen len;$? wrt_G wrtfmt.c ?^wrt_G(p,w,d,e,len) ufloat *p; ftnlen len;$? wrt_H wrtfmt.c ?^wrt_H(a,b)$? wrt_IM wrtfmt.c ?^wrt_IM(ui,w,m,len) uint *ui; ftnlen len;$? wrt_L wrtfmt.c ?^wrt_L(l,len) ftnint *l;$? x_getc rsfe.c ?^x_getc()$? x_putc wsfe.c ?^x_putc(c)$? x_rnew rsfe.c ?^x_rnew() /* find next record */$? x_tab sfe.c ?^x_tab()$? x_wend wsfe.c ?^x_wend(last) char last;$? x_wnew wsfe.c ?^x_wnew()$? y_getc rdfe.c ?^y_getc()$? y_putc wdfe.c ?^y_putc(c)$? y_rend rdfe.c ?^y_rend()$? y_rnew rdfe.c ?^y_rnew()$? y_tab dfe.c ?^y_tab()$? y_wend wdfe.c ?^y_wend()$? y_wnew wdfe.c ?^y_wnew()$? z_getc riio.c ?^z_getc()$? z_putc wiio.c ?^z_putc(c) char c;$? z_rnew riio.c ?^z_rnew()$? z_tab rwiio.c ?^z_tab()$? z_ungetc riio.c ?^z_ungetc(ch,cf) char ch;$? z_wnew wiio.c ?^z_wnew()$?