/* -*- LPC -*- */
/*
* $Locker: $
* $Id: simul_efun.c,v 1.1 1998/01/06 05:12:03 ceres Exp $
* $Log: simul_efun.c,v $
* Revision 1.1 1998/01/06 05:12:03 ceres
* Initial revision
*
*/
/*
* Give a path to a simul_efun file. Observe that it is a string returned,
* not an object. But the object has to be loaded here. Return 0 if this
* feature isn't wanted.
*/
string get_simul_efun() {
string fname;
fname = "/secure/simul_efun";
if (catch(call_other(fname, "??"))) {
write("Failed to load " + fname + "\n");
shutdown();
return 0;
}
return fname;
} /* get_simul_efun() */
