#include "V_s_lc.h"
	global int dbn_fgets = 0;	/* Read counter */

char * d_fgets(buf,len,fp)
	char *buf;
	Sizt  len;
	FILE *fp;
{	char *v=0;
	int   e=0;
	int   fd;
	Fenter("d_fgets");
	errno = 0;
	ChkNull(buf,"d_fgets buffer");
	ChkNull(fp,"d_fgets file");
	fd = Fileno(fp);


	v = fgets(buf,len,fp);

	e = errno;


	++dbn_fgets;
	V5s "fgets(%08lX,%d,%08X->%d)=%08X [Err %d=%s=%s]",buf,len,fp,fd,v,Errinfo D;
	if (v) H7s(v,Strlen(v),"fgets");
fail:
	errno = e;
	FExit;
	return v;
}