:i	static char d_fgets_sccs_id[] = "%W% %G%";
:1#include "V_s_lc.h"
:n	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;
:5	int   fd;
:f	Fenter("d_fgets");
:6	errno = 0;
:3	ChkNull(buf,"d_fgets buffer");
:3	ChkNull(fp,"d_fgets file");
:5	fd = Fileno(fp);
:8	V7s "fgets(%08lX,%d,%08X->%d)",buf,len,fp,fd D;

	v = fgets(buf,len,fp);

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