lala.windsh

来自「基于嵌入式实时开发系统Tornado 2的工具使用内部培训资料」· WINDSH 代码 · 共 14 行

# preserve old directory in Tcl variable oldDir
?set oldDir [pwd]
?cd c:/ToolsClass/instructor/demos/windSh/SIMNTgnu

ld 1 < perm.o
anagramInit ("insane anglo warlord")
tid1 = sp (anagramIt, 30)
tid2 = sp (anagramIt, 60)
tid3 = sp (anagramIt, 90)
i

# restore old directory
?cd $oldDir