// /adm/simul_efun/base_name.c
// from the Dead Souls mudlib
// returns the name of the file of an object without extensions
// based on the simul_efun originally by Truilkan@Basis
// created by Descartes of Borg 22 december 1992
#ifndef __FLUFFOS__
string base_name(mixed val) {
string name, base;
int borg;
if(!val) return "";
if(objectp(val)) name = file_name(val);
else if(val == "") return "";
else if(stringp(val) && sizeof(val)) name = val;
else name = file_name(val);
if(sscanf(name, "%s#%d", base, borg) ==2) return base;
else return name;
}
#endif
