int
s_wdue(cilist *a)
{
int n;
if((n=c_due(a,WRITE))) return(n);
reading=0;
if(!curunit->uwrt) nowwriting(curunit);
return(0);
}
int
s_rdue(cilist *a)
{
int n;
if((n=c_due(a,READ))) return(n);
reading=1;
if(curunit->uwrt) nowreading(curunit);
return(0);
}
integer s_wdue(cilist *a)
#endif
{
int n;
f__reading=0;
if(n=c_due(a)) return(n);
if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
err(a->cierr,errno,"write start");
return(0);
}
integer s_rdue(cilist *a)
#endif
{
int n;
f__reading=1;
if(n=c_due(a)) return(n);
if(f__curunit->uwrt && f__nowreading(f__curunit))
err(a->cierr,errno,"read start");
return(0);
}