/** * /secure/simul_efun/base_name.c from the Nightmare 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 */ #if !efun_defined(base_name) /** * This method returns the name of the file of an object without * the # extensions. * @param val the ob or string name * @return the base name of the object */ string base_name( mixed val ) { string name, base; if( stringp(val) ) name = val; else name = file_name(val); if( sscanf( name, "%s#%*d", base ) == 2 ) return base; else return name; } /* base_name() */ #endif