/* -*- LPC -*- */
/*
* 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) {
if (previous_object() == ob)
return 0;
return (!ob->query_prevent_shadow(previous_object()) &&
!sscanf(file_name(ob), "/secure/%*s") &&
!sscanf(file_name(ob), "/cmds/%*s"));
} /* query_allow_shaodw() */