lib.tcl

来自「alteral训练新人的程序代码~~学习使用」· TCL 代码 · 共 9 行

proc compile {prjct} {
	project set_active_cmp $prjct
	cmp start
	while { [cmp is_running] } {
		after 10;		# sleep to avoid hogging the CPU
		FlushEventQueue   	 # flush the messages coming from the cmp
	}
}