main.vtc

Unix下的MUD客户端程序

DIST_VERSION = "VTC distribution: last rev 1/11/93";
load_path ?:= "~/vt/dist;/usr/local/lib/vt;~/vt/extra;/usr/local/lib/vt/extra;\
~/vt;~";

func Load(fname) [s, l, f, dir] {
	if (*fname == '/')
		return -1;
	dir = "";
	s = load_path;
	while (*s) {
		l = strcspn(s, ";");
		strcpy(dir, s, l);
		s += l + 1;
		strcat(dir, "/" + fname);
		if (!load_file(dir + ".vtc") || !load_file(dir))
			return 0;
	}
	if (!load_file(fname) || !load_file(fname + ".vtc"))
		return 0;
	f = find_func("output") ? : .echo;
	(*f)("Cannot open file " + fname + "\n");
	return -1;
}

func load_cmd(fname) [fp, line] {
	fp = fopen(fname, "r");
	if (!fp)
		return printf("Couldn't open file %s\n", fname);
	while (line = fread(fp)) {
		line[strlen(line) - 1] = 0;
		if (*line != '#')
			detach(.process_cmdline, line);
	}
	fclose(fp);
}

Load("util");
Load("hook");
Load("avl");
Load("command");
Load("trig");
Load("remote");
Load("world");
Load("window");
Load("hist");
Load("bind");
Load("quote");
Load("resident");
Load("raw");
Load("line");
Load("mud");
Load("lp");
Load("misc");
if (!obj(active)) init_win(active);
load_file("~/.local.vtc");
load_file(default_save_file);

add_cmd("load", 1, .Load, "/load <filename>");