/* 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; }