world.vtc

Unix下的MUD客户端程序

Twtype ?:= new_assoc();
Tworld ?:= new_assoc();
worlds ?:= make_tree(.stricmp);

func new_world(type, name, addr, port) [world] {
	world = alloc(4, Tworld);
	world->type = type;
	world->name = name;
	world->addr = addr;
	world->port = port;
	return world;
}

func add_world(world) { insert_tree(worlds, world->name, world); }
func find_world(name) --> find_tree(worlds, name)
func Find_world(name) --> efind(.find_world, "world", name)
func list_worlds(s) { traverse_tree(worlds, .list_world, s); }
func list_world(n, w, s) { if (!*s || smatch(s, n)) (*w->type->list)(w); }
func print_world(name) [w] { w = Find_world(name); (*w->type->print)(w); }
func unworld(pattern) { del_smatches(worlds, pattern); }
func save_worlds(fp) { traverse_tree(worlds, .save_world, fp); }
func save_world(n, w, fp) { (*w->type->save)(w, fp); }
func List_worlds(s) { print_or_list(s, .print_world, .list_worlds); }
func Unworld(s) { unworld(s); }
add_cmd("list_worlds", -1, .List_worlds, "/list_worlds [<name>]");
add_cmd("unworld", 1, .Unworld, "/unworld <name>");