/* -*- LPC -*- */ /* * $Locker: $ * $Id: valid_override.c,v 1.2 2002/05/05 17:54:08 wodan Exp $ * $Log: valid_override.c,v $ * Revision 1.2 2002/05/05 17:54:08 wodan * Added the third argument to valid_override. * * Revision 1.1 1998/01/06 05:12:03 ceres * Initial revision * */ int valid_override(string file, string func, string filename) { string *bing; bing = explode(file, "/") - ({ "", "." }); switch (bing[0]) { case "secure" : return 1; case "std" : case "obj" : case "simul_efun" : case "global" : case "cmds" : return (func != "snoop"); default : return 0; } } /* valid_override() */