{ FILE *ufd
; /*0=unconnected*/
int url
; /*0=sequential*/
flag useek
; /*true=can backspace, use dir, ...*/
flag uwrt
; /*last io was write*/
extern cilist
*f__elist
; /*active external io list*/
extern flag f__reading
,f__external
,f__sequential
,f__formatted
;
extern int (*f__getn
)(),(*f__putn
)(); /*for formatted io*/
extern int (*f__donewrec
)(), t_putc(), x_wSL();
extern int c_sfe(), err_fl(), xrd_SL();
extern int (*f__getn
)(void),(*f__putn
)(int); /*for formatted io*/
extern long f__inode(char*,int*);
extern void sig_die(char*,int);
extern void f__fatal(int,char*);
extern int t_runc(alist
*);
extern int f__nowreading(unit
*), f__nowwriting(unit
*);
extern int fk_open(int,int,ftnint
);
extern void f_init(void);
extern int (*f__donewrec
)(void), t_putc(int), x_wSL(void);
extern void b_char(char*,char*,ftnlen
), g_char(char*,ftnlen
,char*);
extern int c_sfe(cilist
*), z_rnew(void);
extern int err__fl(int,int,char*);
extern int (*f__doend
)(Void
);
extern FILE *f__cf
; /*current file*/
extern unit
*f__curunit
; /*current unit*/
#define err(f,m,s) {if(f) errno= m; else f__fatal(m,s); return(m);}
#define errfl(f,m,s) return err__fl(f,m,s)
extern int f__recpos
; /*position in current record*/
extern int f__cursor
; /* offset to move to */
extern int f__hiwater
; /* so TL doesn't confuse us */
#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ)