rmtio.vtc

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

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

func getline(/ rmt) [line] {
	rmt ?:= cur_rmt;
	line = rmt ? read(rmt) : NULL;
	return line ? : abort();
}

func regetline(/ rmt) [line] {
	rmt ?:= cur_rmt;
	line = rmt ? reread(rmt) : NULL;
	return line ? : abort();
}

func waitfor(match / rmt) {
	waitfor_and_suppress(match, rmt);
	pass(rmt ? : cur_rmt, match);
}

func waitfor_and_suppress(match / rmt) [line] {
	rmt ?:= cur_rmt;
	for (line = getline(rmt); strcmp(line, match); line = regetline(rmt))
		pass(rmt, line);
}

func waitfor_strstr(what / rmt) [text] {
	rmt ?:= cur_rmt;
	for (text = getline(rmt); !strstr(text, what); line = regetline(rmt))
		pass(rmt, text);
	pass(rmt, text);
}

func waitfor_reg(reg / rmt) [line] {
	pass(rmt ? : cur_rmt, waitfor_reg_and_suppress(reg, rmt));
}

func waitfor_reg_and_suppress(reg / rmt) [line] {
	rmt ?:= cur_rmt;
	for (line = getline(rmt); !regexec(reg, line); line = regetline(rmt))
		pass(rmt, line);
	return line;
}

func suppress_until(match / rmt) [l] {
	for (l = getline(rmt); strcmp(l, match); l = regetline(rmt));
}

func suppress_until_reg(reg / rmt) [l] {
	for (l = getline(rmt); !regexec(reg, l); l = regetline(rmt));
	return line;
}