/* -*- LPC -*- */ int valid_save_binary(string fname) { string *bits; bits = explode(fname, "/"); switch (bits[0]) { /* case "secure" : if ( bits[ 1 ] == "simul_efun" ) return 0; */ case "global" : case "std" : case "secure" : case "cmds" : case "d" : case "p" : return 1; case "obj" : //if (sscanf(bits[sizeof(bits)-1], "%*s-%*d%*s") == 0) return 1; } return 0; } /* valid_save_binary() */