hook.vtc

来自「Unix下的MUD客户端程序」· VTC 代码 · 共 20 行

func make_hook() --> callv(.new_list, argc, argv)

func add_to_hook(hook, fptr) {
	if (!list_find_eq(hook, fptr))
		add_list(hook, fptr);
}

func del_from_hook(hook, fptr) [pos] {
	pos = list_find_eq(hook, fptr);
	if (pos)
		del_list(hook, pos);
}

func exec_hook(hook) [i] {
	for (i = 1; i <= *hook; i++)
		callv(hook[i], argc - 1, argv + 1);
}