:i	static char d_fopen_sccs_id[] = "%W% %G%";
:1#include "V_s_lc.h"
/*
*/
FILE* d_fopen(n,m)
	char*n, *m;
{	FILE*v=0;
	int  e=0, f=0;
:f	Fenter("d_fopen");
:5	ChkNull(n,"Filename");
:5	ChkNull(m,"Mode");
:8	V8s "fopen(\"%s\",\"%s\")",n,m D;
	errno = 0;
	v = fopen(n,m);
	e = errno;
:8	V8s "fopen(\"%s\",\"%s\")=%08X",n,m,v D;
	if (v) {		/* Remember the file's name */
:8		V8s "Get Fileno(%08X) ...",v D;
		f = Fileno(v);
:6		V3s "==fopen(\"%s\",\"%s\")=%06X file %d [Err %d=%s=%s]",n,m,v,f,Errinfo D;
		d_newfile(File_LOCAL,f,n,"fopen");
:6	} else {
:6		V3s "==fopen(\"%s\",\"%s\")=%06X failed [Err %d=%s=%s]",n,m,v,Errinfo D;
	}
fail:
:f	FExit;
:6	V6s "fopen(\"%s\",\"%s\")=%06X",n,m,v D;
	errno = e;
	return v;
}