obj.scp

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

// object test file

object linknode(str)
{
	value = str;
	get_value = function () {return this.value;};
	//return null;
}

function push_front(list, value)
{
	temp = list.next;
	list.next = new linknode(value);
	list.next.next = temp;
}

function print_linklist(list)
{
	while(list != null)
	{
		print(list.get_value(), "->");
		list = list.next;
	}
	print("<back>");
}

function main()
{
	list = "list";
	list = new linknode("<front>");
	push_front(list, "张三");
	push_front(list, "李四");
	push_front(list, "王五");
	
	print_linklist(list);

}