char *RAND_file_name(char *buf, int size)
const char *RAND_file_name(char *buf, int size)
char *RAND_file_name(char *buf, int size)	{	char *s;	char *ret=NULL;	s=getenv("RANDFILE");	if (s != NULL)		{		strncpy(buf,s,size-1);		buf[size-1]='\0';		ret=buf;		}	else		{		s=getenv("HOME");		if (s == NULL) return(RFILE);		if (((int)(strlen(s)+strlen(RFILE)+2)) > size)			return(RFILE);		strcpy(buf,s);#ifndef VMS		strcat(buf,"/");#endif		strcat(buf,RFILE);		ret=buf;		}	return(ret);	}