/* -*- LPC -*- */ /* * $Locker: $ * $Id: query_ident.c,v 1.2 1998/03/24 07:28:59 pinkfish Exp $ * $Log: query_ident.c,v $ * Revision 1.2 1998/03/24 07:28:59 pinkfish * Add some docs to make the simulefuns more usefully lookupable. * * Revision 1.1 1998/01/06 05:13:15 ceres * Initial revision * */ /** * Cotains some simul_efuns. * @author Pinkfish */ /** @ignore yes */ string query_ident(object ob) { switch (explode(file_name(previous_object()), "/")[0]) { case "secure" : case "obj" : return (string)ob->query_my_ident(); } return 0; } /* query_ident() */