ex-linkage.tcl

来自「这个电子教程是教你如何使用网络仿真软件ns。它比较系统的说明了该软件的体系结构和」· TCL 代码 · 共 13 行

# Jae Chung  7-13-99

# Create MyAgent (This will give two warning messages that 
# no default vaules exist for my_var1_otcl and my_var2_otcl)
set myagent [new Agent/MyAgentOtcl]

# Set configurable parameters of MyAgent
$myagent set my_var1_otcl 2
$myagent set my_var2_otcl 3.14

# Give a command to MyAgent
$myagent call-my-priv-func