demo11.g

来自「这是一个Linux下的集成开发环境」· G 代码 · 共 26 行

t := client("timer 0.5")

whenever t->ready do
	{
	print "<1>", $value
	count +:= 1

	foo := current_whenever()

	if ( count > 5 )
		deactivate
	}

whenever t->ready do
	{
	print "<2>", $value

	if ( count > 5 )
		{
		count +:= 1

		if ( count > 10 )
			activate foo
		}
	}