NS by Example 笔记（1）OTcl: The User Language

http://www.servns.net/read.php?tid=57

 

 

原作者：kooyee
原教材地址 http://nile.wpi.edu/NS/ 读过原文的笔记，写成中文以后也便于理解。并没有100%对原文逐字翻译，所以有歧义的地方还需要参考原文。 OTcl: The User Language  基本上， ns是一个带有模拟对象库的OTcl解释器。 例题1：如何建立procedure 并运行， 变量赋值，for循环。 OTcl 是具有面向对象的 Tcl 语言，就像C 和 C++ 的关系一样. 运行脚本， 把代码保存到 ex-tcl.tcl 文件。 然后在命令行下输入"ns ex-tcl.tcl" 或者 "tcl ex-tcl.tcl"
复制代码

1.     1. # Writing a procedure called "test"  
2.    2. proc test {} {  
3.    3.     set a 43  
4.    4.     set b 27  
5.    5.     set c [expr $a + $b]  
6.    6.     set d [expr [expr $a - $b] * $c]  
7.    7.     for {set k 0} {$k < 10} {incr k} {  
8.    8.     if {$k < 5} {  
9.    9.         puts "k < 5, pow = [expr pow($d, $k)]"  
10.   10.     } else {  
11.   11.         puts "k >= 5, mod = [expr $d % $k]"  
12.   12.     }  
13.   13.     }  
14.   14. }  
15.   15.  
16.   16. # Calling the "test" procedure created above  
17.   17. test  

在 Tcl 中, 关键字 proc 去定义一个 procedure, 后边加上 procedure 名和大括号中加入需要的参数（arguments）。关键字 set 用来给变量赋值。 [expr ...] 让解释器去计算 expr 之后的表达式的结果。关键字 $ 用得到变量的值。关键字 puts 打印双引号中的字符串。 结果为 例题2：OTcl中面向对象编程 解释了如何建立和使用对象。因为ns中无论ns对象是否是用C++编写还是用OTcl影像，本质上都是OTcl对象
复制代码

1.    1. # Create a class call "mom" and  
2.    2. # add a member function call "greet"  
3.    3. Class mom  
4.    4. mom instproc greet {} {  
5.    5.     $self instvar age_  
6.    6.     puts "$age_ years old mom say:  
7.    7.     How are you doing?"  
8.    8. }  
9.    9.  
10.   10. # Create a child class of "mom" called "kid"  
11.   11. # and overide the member function "greet"  
12.   12. Class kid -superclass mom  
13.   13. kid instproc greet {} {  
14.   14.     $self instvar age_  
15.   15.     puts "$age_ years old kid say:  
16.   16.     What's up, dude?"  
17.   17. }  
18.   18.  
19.   19. # Create a mom and a kid object set each age  
20.   20. set a [new mom]  
21.   21. $a set age_ 45  
22.   22. set b [new kid]  
23.   23. $b set age_ 15  
24.   24.  
25.   25. # Calling member function "greet" of each object  
26.   26. $a greet  
27.   27. $b greet  

例子定义2个对象, "mom" 和 "kid"。"kid" 是 "mom" 的子类， 并且分别给这两个类定义一个名叫"greet"的成员函数（member function）。  类定义好后我们个每个类声明一个实例，分别是 a 和 b。然后分别把 a 和 b 的 "age" 变量赋值为45 和 15。最后调用这两个实例的 "greet" 函数 关键字 Class 新建对象的类关键字 instproc 给类定义一个成员函数member function关键字 -superclass 类的继承关系 关键字 $self 和 C++中 "this" 指针相似关键字 instvar 检查变量名是否已经在这个类或者他的父类中声明， 如果已经声明的话则直接引用，否则声明一个新的关键字 new 新建一个对象类的实例 运行方法相信大家都知道了，输出的给过应该是：                                                                  45 years old mum say:                                                                  How are you doing?                                                                  15 years old kid say:                                                                  What's up, dude （怎么这样和你老妈说话啊， 呵呵）
原文：http://kooyee.javaeye.com/blog/317115