/*
* The master object is asked if it is ok to shadow object ob. Use
* previous_object() to find out who is asking.
*
* In this example, we allow shadowing as long as the victim object
* hasn't denied it with a query_prevent_shadow() returning 1.
*/
int valid_shadow(object ob) {
string dummy;
return (!ob->query_prevent_shadow(previous_object()) &&
!sscanf(file_name(ob), "/secure/%s", dummy));
} /* query_allow_shaodw() */