disp.vtc

Unix下的MUD客户端程序

if (!depend_loaded) Load("depend");
register_file("disp");

func disp(d) [i] {
	if (type(d) == T_INT)		echo(itoa(d));
	else if (type(d) == T_PPTR)	echo("<prmt>");
	else if (type(d) == T_BPTR)	echo("<bobj>");
	else if (type(d) == T_RMT)	echo("<rmt>");
	else if (type(d) == T_WIN)
		echo(bprintf("<%d, %d>", win_top(d), win_bottom(d)));
	else if (type(d) == T_KEY)	echo(dispstr(key_seq(d)));
	else if (type(d) == T_FILE)	echo(file_name(d));
	else if (type(d) == T_SPTR)	echo(stringconst(d));
	else if (type(d) == T_APTR) {
		echo("&");
		if (type(d[0]) != T_NULL && type(d[1]) != T_NULL) {
			echo("{ ");
			for (i = 0; type(d[i]) != T_NULL; i++) {
			    disp(d[i]);
			    if (type(d[i + 1]) != T_NULL)
				    echo(", ");
			}
			echo(" }");
		} else
			disp(*d);
	} else if (type(d) == T_FPTR)	echo(".", func_name(d));
	else if (type(d) == T_REG)	echo("<regexp>");
	else if (type(d) == T_ASSOC)	echo("<assoc>");
	else if (type(d) == T_PLIST) {
		echo("[");
		disp(base(d));
		echo("]");
	} else				  echo("NULL");
}

func d(/ data) { disp((argc == 1) ? data : argv); echo("\n"); }