/* by Julian H. Stacey 
Returns	pointer	to file	base name, (main part, not extension, or directory)
Called with optionally rooted name  */

	char *
vsl_basename(file_name,suffix)
	char *file_name;
	char *suffix; 
	{
	char	*base_name;

	/* get base_name (filename without directory) */
	for (base_name = file_name; *base_name != '\0' ; base_name++ );	
	for (base_name-- ; (base_name >= file_name ) &&	(*base_name != '/') 
#ifdef MSDOS
		&& (*base_name != '\\')
#endif
 		; base_name-- ); 
	/* p & base_name now point at 1st char of name of file 
		(main part, not extension, & not directory */
	/* JJ LATER do something with suffix */
	return(++base_name);
	}