/* support for virtual object servers -- Truilkan@TMI 92/05 */
 
/*  /std/virtual/comiple.c  */
 
int query_prevent_shadow()
{
   return 1;
}
 
object compile_object(string s)
{
   object obj;
   string *tmp;
 
write( "EUID = " + geteuid() + "\n" );
write( "EUID = " + geteuid() + "\n" );
write( "FILE = " + file_name(this_object()) + "\n" );
   obj = new(file_name(this_object()));
   tmp = explode(s,"/");
write( "OBJ = " + file_name(obj) + "\n" );
   obj->virtual_setup(tmp[sizeof(tmp) - 1]);
write( "OBJ = " + file_name(obj) + "\n" );
   return obj;
}