function

MudOS 有一种称为 function　 (函数指针) 的变量类型. 这种类型的变量可以用来指向各种不同的函数. 您也许早已熟悉把一个函数当作某些外部函数 (efuns)　 参数. 举例来说, 像是过滤数组的外部函数. 它读入一个数组, 并经由一个函数过滤数组中的元素. 让此函数返回非零值 (non-zero) 的元素就保留下来, 结果返回一个新的数组. 传统上, 这样做要传入一个物件和函数的名称. 现在, 可以用函数指针这种变量类型做到. 函数指针只含有一个函数的信息, 可以在稍后执行其函数.

函数指针可以创造并指定为变量:

function f = (: local_func :);

foo(f);　 map_array( ({ 1, 2 }), f);

x = evaluate(f, "hi");

x = local_func("hi");

注意 evaluate() 的参数如果不是函数, 就只会返回参数值. 所以您可以做以下的
事:

void set_short(mixed x) { short = x; }
mixed query_short() { return evaluate(short); }

最简单的函数指针如上面所述. 只是简单地指向同一个物件中的一个局部函数 (local function), 即 (: function_name :). 函数指针的值可以包括函数的参数, 例如:

string foo( string a, string b ) {
return "(" + a "," + b + ")";
}

void create() {
function f = (: foo, "left" :);
printf( "%s %s\n", evaluate(f), evaluate(f, "right") );
}

第二种的函数指针是外部函数指针, 就是 (: efun_name :). 这样与局部函数指针很类似. 譬如说, objects() 外部函数要传入函数, 并返回任何使函数为真值的物件. 所以:

objects( (: clonep :) )

void create() {
int i;
function f = (: write, "Hello, world!\n" :);

for (i=0; i<3; i++) { evaluate(f); }

}

Hello, world!
Hello, world!
Hello, world!

注意, 对函数指针来说, simul_efuns　 (模拟外部函数) 与外部函数是相同的.

第三种形式是 call_other 函数指针, 与以前 MudOS　 所使用的函数指针类型类似. 其形式为 (: object, function :).　 要使用参数的话, 应将函数名称与参数的数组并用. 以下是范例:
　

void create()
{
string *ret;
function f = (: this_player(), "query" :);

ret = map( ({ "name", "short", "long" }), f );
write(implode(ret, "\n"));

}

要使一个函数指针直接调用 query("short") :

f = (: this_player(), ({ "query", "short" }) :)

f = (: call_other, this_player(), "query", "short" :)　　　　　　　 /* 一个外部函数指针, 使用 call_other */
f = (: this_player()->query("short") :)　　　　　　　 // 有效的运算式; 请见下文.

第四种形式是运算式 (expression) 函数指针. 就是 (: 运算式 :).　 在一个运算式函数指针中, 参数可以用 $1, $2, $3 ... 代表, 举例如下:

evaluate( (: $1 + $2 :), 3, 4)　　　　　　　 // 返回 7.

top_ten = sort_array( player_list,

(: $2->query_level() - $1->query_level :) )[0..9];

void create() {
function f = function(int x) {
int y;

switch(x) {

case 1: y = 3;
case 2: y = 5;
}
return y - 2;
　　　 };

printf("%i %i %i\n", (*f)(1), (*f)(2), (*f)(3));

}

注意, (*f)(...) 等于 evaluate(f, ...) , 保留这种语法是为了与旧版相容. 任何普通函数合法 (legal)　 的写法, 都可以用于不知名函数.

创造带有参数的外部函数、局部函数、模拟外部函数指针时, 会执行函数. 而运算式和功能性 (functional) 函数指针, 只有在使用函数指针时执行函数:

(: destruct, this_player() :)　　　　　　　 /* 创造这个函数指针时, 就会摧毁 this_player(). 函数于创造时执行. */
(: destruct(this_player()) :)　　　　　　　 /* 在稍后使用此函数指针时, 才会摧毁 this_player()" */

(: destruct( $(this_player) ) :)　　　　　　　 // 与上面第一个范例相同.

map_array(listeners,
(: tell_object($1, $(this_player()->query_name()) + " bows.\n") :) );

map_array(listeners,
(: tell_object($1, $(this_player()->query_name() + " bows.\n")) :) );

map_array(listeners,
(: tell_object, this_player()->query_name() + " bows.\n" :) );