exectest.scpexe

来自「一个脚本语言的解释器」· SCPEXE 代码 · 共 15 行

function main(arg)
{
	if(arg == null) dir = "current directory";
	else dir = "["+arg+"]";
	print("do you want to list the files in ", dir, "?(y/n)");
	answer = get();
	if(answer == '' || answer == 'y' || answer == 'Y')
		print(arg, ' ', exec("dir "+arg , "pause"));
	else
	{
		print("input the directory name : ");
		arg = getline();
		print(arg, ' ', exec("dir "+arg , "pause"));
	}
}