(Microsoft Word - eval\251Mresult\252\272\245\316\252k.doc)

Transcription

1 eval 和 result 函式用法 編寫者 :Yi-Yu 日期 :05/26/2011 原著 :T.Issariyakul and E. Hossain 參考資料 :Introduction to Network Simulator NS2 參考範例 :Ns by Example 內 Linkage 範例 學習目的 : 瞭解 eval 和 result 函式用法差異 eval 和 result 函式很容易混淆, 針對 eval 和 result 函式用法, 本文使用範例程式 逐步說明 1. # 程式 1 2. #XXX.h 3. #ifndef ns_myobject_h 4. #define ns_myobject_h 5. #include "mac.h" 6. class MyObject : public Mac 7. { 8. public: 9. MyObject(); 10. protected: 11. int command(int argc, const char*const* argv); 12. private: 13. double count_; 14. double delaytime_; 15. double delay_; 16. double Txpower_; 17. double Gt_; 18. }; 19. #endif 1. 程式 2 2. #XXX.cc 3. #include "XXX.h" static class MyObjectClass : public TclClass {

2 6. public: 7. MyObjectClass() : TclClass("MyOTclObject") {} 8. TclObject* create(int, const char*const*) { 9. return (new MyObject()); 10. } 11. } class_my_object; MyObject::MyObject() 14. { 15. bind("ocount_",&count_); 16. bind("delay_",&delay_); 17. count_=20; 18. delay_=1.1; 19. delaytime_=7.7; 20. Tcl& tcl =Tcl::instance(); 21. tcl.eval("puts \"\""); 22. tcl.evalf("set kuas %2.2f",delay_); tcl.eval("set Gt"); 25. Gt_=atoi(tcl.result()); 26. printf("gt =%.1f\n",Gt_); 27. } int MyObject::command(int argc, const char*const* argv) 30. { 31. Tcl& tcl = Tcl::instance(); if (argc==2) { 34. if (strcmp(argv[1], "show-delay") ==0) { 35. printf("delay is %g\n", delaytime_); 36. return (TCL_OK); 37. } else if (strcmp(argv[1], "get-delay") ==0) { 38. tcl.result("a string from the C++ domain"); 39. return (TCL_OK); 40. } else if (strcmp(argv[1], "get-count") ==0) { 41. tcl.resultf("%2.2f\n", count_); 42. return (TCL_OK); 43. } else if (strcmp(argv[1], "get-delaytime") ==0) {

3 44. tcl.eval("set delaytime_"); 45. delaytime_=atoi(tcl.result()); 46. printf("delaytime_ = %.2f\n",delaytime_); 47. return (TCL_OK); 48. } 49. } else if(argc == 3) { 50. if (strcasecmp(argv[1], "settxpower") == 0) { 51. Txpower_ = atof(argv[2]); 52. printf("txpower_ = %f",txpower_); 53. return TCL_OK; 54. } 55. } 56. return TclObject::command(argc, argv); 57. }; 程式 1 宣告五個私用變數為 double 型態, 其中在程式 2 可以知道有兩個變數是和 OTCL 綁定, 綁定的名稱其中一個 OTCL 變數和 C++ 變數是不一樣的, 是為了要看出 OTCL 變數使用的不同, 通常在綁定時名稱都是相同的, 在程式 2 中建構函式內除了設定變數外, 使用 eval 和 result 函式, 在建構函式中有設定 eval 和 result 時且需要從 OTCL 中設定變數時, 一定要在 new 的前面先設定完畢 2. set obj [new MyOTclObject] 當 new 一個新的實體化時, 結果顯示為錯誤訊息 Ns: set Gt: can t read Gt : no such variable While executing set Gt 在錯誤訊息中會發現執行程式 2 第 21 列的函式 tcl.eval("puts \"MyObject is created!!\"");, 之後說明程式第幾行以程式 2(21) 表示使用 eval 和 result 函式前, 必須要先設參考指標 tcl 實體化 ( 程式 2(20)) 才能夠使用,eval 主要設定 OTCL 命令使用, 雙引號 內為字串, 在程式 2(21) 主要是印出 的字串, 使用 \ 表示在字串內設定 符號,eval 函式內指令就等同於 OTCL 中執行 puts eval 函式不僅只有執行 OTCL 指令, 還可以有輸入參數一起使用, 之後看到用法再加以說明 錯誤訊息中缺少 Gt 的變數, 可以在程式 2(24) 找到, 通常這樣的寫法在 OTCL 中

4 是要得到變數的值, 但在此範例中, 並沒有看到任何設定 Gt 的值, 所以顯示錯 誤訊息, 在建構函數中, 設定 Gt 必須要在 new 的前面 在 new 前設定 Gt 為 50, 顯示結果為 在 OTCL 中設定 Gt 的值, 其中設定的 50 為字串, 程式 2(24~26) 使用 result() 來接收 OTCL 的字串, 但在 C++ 中字串並不能夠代表數值, 故使用 atoi 函式強制轉換為 int 型態, 使用標準輸出印出 Gt 值, 若在 OTCL 中設定 Gt 為 52.3, 執行結果將為 52, 要正確地接收必須要轉成浮點數使用 atof 函式, 由程式 2(24~26) 可以知道,OTCL 空間中設定變數值, 在 C++ 可以取得 新增 OTCL 命令顯示結果為 在 OTCL 使用 puts 印出 count_ 的值,count_ 和 OTCL 綁定, 綁定的名稱為 ocount_, 在程式 2(17) 列設定 count_ 為 20, 在 OTCL 中 obj 已經實體化, 得到一個參考字串 _oxxx, 要在 OTCL 中得到 C++ 變數, 可以透過程式 2(15) 綁定變數

5 在 OTCL 中使用 show-delay 會調用 command 的命令, 程式 2(33~36) 為執行的動作, 使用 if 來判斷 OTCL 中有幾個參數,argc 為參數個數, 也就 OTCL 所執行的 $obj show-delay, 所以參數為 2, 使用 strcmp 來比較字串是否相符, 相符為 0 不符 1, 其中 argv[1] 為列向量, 列向量就是 $obj 和 show-delay, 以 argv[0] 為啟始向量, 會看到 的結果, 在程式 2(19) 中定義 delaytime_, 當要調用 command 時,OTCL 必須要先為實體化, 才可以調用該命令 6. puts "The variable kuas is $kuas" The variable kuas is 1.10 在程式 2(18) 和程式 2(22) 定義初始值和調用 evalf 函式,eval 是執行 OTCL 的命令, 也可以當作參數執行, 用法類似 printf 函式, 在 OTCL 中印出 kuas 的值, 會由 C++ 所設定的 OTCL 指令來完成, 在程式 1 或程式 2 中並沒有設 kuas 變數, 則是使用 evalf 函式完成此設定, 它可以直接在 OTCL 中取已經定義好的數值, 和之前所說的 result( 程式 (24~26)) 有什麼不同, 其實功能是相同的, 只是 evalf 函式是在 C++ 設定變數, 由 OTCL 接收變數值 ;result 函式必須透過 eval 設定 Gt 變數, 在執行前先必須先設定 Gt, 在 OTCL 中設定 Gt 可以 C++ 接收此數值 在程式 2(43~48) 中的這種寫法是錯誤的, 之前說明使用 command 時, 必須使用實體化 (instances) 但使用 eval 設定 delaytime_ 變數時, 要如何設定 delaytime_ 變數值, 之前範例說明, 在 new 的前面設定可以動作, 但在這個時候是不能動作的, 因為在 new 前面設定的時候, 是在建構函式內部執行, 在 new 一個類別名時, 會執行建構函式設定初始值, 請勿使用程式 2(24~26) 的方式用在 command 指令內

6 6. puts "The variable kuas is $kuas" 7. set count [$obj get-count] 8. puts $count The variable kuas is 在程式 2(40~42) 使用 resultf 函式, 也類似於 printf 用法, 將 count_ 參數傳送到 OTCL 空間, 和程式 2(22)evalf 函式最大的差異,resultf 函式必須要透過 command 命令來傳送參數值 count_, 6. puts "The variable kuas is $kuas" 7. set count [$obj get-count] 8. puts $count 9. $obj settxpower The variable kuas is Txpower_ 在 OTCL 中設定值傳送給 C++, 使用在 command 中, 判斷 argc 是否為 3, 將字串 轉換成浮點數 ( 程式 2(49~55), 可以在 C++ 得到 OTCL 所設的值

7 說明在 OTCL 中, 經由 eval 和 result 可以互相得到不同空間的數值, 可以當作接 收或傳送, 兩者作法皆有所差異 命令 eval( OTCL statement ) evalf( OTCL statement %f,c++ variable) result() resultf( %f,c++ variable) 說明執行 OTCL 命令, 在 C++ 中執行 OTCL 使用 C++ 變數設定 OTCL 變數值通常和 eval 使用, 接收 eval 函式內所得到的值, 如 : tcl.eval("set Gt"); Gt_=atoi(tcl.result()); 傳送 C++ 變數值到 OTCL 空間, 通常和 command 一起使用 由上表可以簡單地瞭解四種互相調用 C++ 和 OTCL, 互相傳輸和接收資料, 必須要注意的是在 OTCL 和 C++ 空間中, 所使用的語法必須要非常清楚,OTCL 要如何撰寫,C++ 會執行什麼動作, 程式應該如何動作, 最後結果是否和撰寫的想法相同, 若還是沒辦法理解本文所描述的事情, 請找其它相關文獻或將此範例執行一次, 適度嘗試修改它