/* /secure/cmds/creator/call.c
* from the Foundation II LPC Library
* allows you to call functions in objects ad hoc
* created by Descartes of Borg 950430
*/
#include <privs.h>
#include <lib.h>
inherit LIB_DAEMON;
mixed cmd(string args) {
mixed *arg_arr;
function f;
object target;
mixed val;
string arg_targ, arg_func, err;
int i, maxi;
if(!member_group(previous_object(), PRIV_SECURE)) {
log_file("adm/call", query_privs(previous_object())
+" ("+ctime(time())+"): call "+args+"\n");
}
if( !args || args == "" ) return "Call ob->func(arg1, arg2)\n";
if( sscanf(args, "%s->%s(%s", arg_targ, arg_func, args) != 3 )
return "Call ob->func(arg1, arg2)\n";
args = trim(args);
if( args != ")" ) args = args[0..<2];
else args = "";
if( !(target = to_object(arg_targ)) )
return "Cannot identify any object as \"" + arg_targ + "\".";
if( !function_exists(arg_func, target) )
return "The function " + arg_func +"() is not in " +
identify(target) + "\n";
f = (: call_other, target, arg_func :);
if( args == "" ) {
err = catch(val = evaluate(f));
if( err) {
message("error", identify(target) + " -> " + arg_func + "()",
this_player());
message("error", "Error in execution: " + err, this_player());
return 1;
}
else {
message("system", identify(target) + " -> " + arg_func + "() = " +
identify(val), this_player());
return 1;
}
}
arg_arr = convert_string("({"+args+"})");
err = catch(val = call_other(target, ({ arg_func }) + arg_arr));
args = identify(target) + " -> " + arg_func + "( ";
for(i = 0, maxi = sizeof(arg_arr); i<maxi; i++) {
args += identify(arg_arr[i]);
if( i < maxi - 1 ) args += ", ";
}
if( err ) {
message("error", args + ")", this_player());
message("error", "Error in execution: " + err, this_player());
return 1;
}
args += " ) = " + identify(val);
message("system", args, this_player());
return 1;
}
void help() {
message("help", "Syntax: <call [object]->[function](([args]))>\n\n"
"Examples:\n\tcall me->GetName()\n"
"\tcall \"/realms/descartes/workroom\"->GetProperty(\"light\")\n\n"
"Allows you to call any function in any object with any set of "
"arguments from the command line. The syntax is identical to "
"that you would use inside LPC code, except that you can refer "
"to objects by their names or by pronouns in addition to the "
"usual manners.\n\n"
"See also: eval, gauge", this_player());
}
