Пример #1
0
int
s_wdue(cilist *a)
{
	int n;
	if((n=c_due(a,WRITE))) return(n);
	reading=0;
	if(!curunit->uwrt) nowwriting(curunit);
	return(0);
}
Пример #2
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);
}
Пример #3
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);
}
Пример #4
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);
}