1

Tcl 配列を C++ に送信するにはどうすればよいですか? 私は次のコードを書きました：

Tcl:

set ns [new Simulator]


    set n [$ns node]
$n set X_ 100
$n set Y_ 30
$n set Z_ 0
set x [$n set X_]
set y [$n set Y_]
set z [$n set Z_]
#after 2000
set b {12 2 3 4 5}

set aa [new "Application/Trust/ITLeach"]
$aa set bufer_ 1
$aa set allnode_ $n
$aa set X_ $x
$aa set Y_ $y
$aa set Z_ $z
$aa set ClausterHeadID_   [array get b] **#send array to c++**
$ns at 0.0 "$aa start"
puts $b
$ns run

ITLEACH.h:

#ifndef ns_ITLeach_h
#define ns_ITLeach_h
#include "app.h"
#include "node.h"
#include "tcl.h"
#include "mobilenode.h"
#include <iostream>
#include <fstream>
class ITLeach;
#define TCL_OK 0
class ITLeach : public  Application {
 public:
    ITLeach();


  virtual int command(int argc, const char*const* argv);

 protected:
  // need to define recv and timeout
  void start();
  int Buffer;
  MobileNode * node ;
  ofstream nodeSetting;
  double XPos ;
  double YPos ;
  double ZPos ;
  int ClausterHeadID [] ; //int array that passed from tcl file
  int  ClausterID [] ;
  int id_node;
};


#endif

ITLEACH.cc:

/*
 * ITLeach.cc
 *
 *  Created on: Oct 29, 2013
 *      Author: root
 */

#include "ITLeach.h"
static class ITLeachClass : public TclClass {
public:
    ITLeachClass() : TclClass("Application/Trust/ITLeach") {}
    TclObject* create(int, const char*const*) {
        return (new ITLeach());
    }
} class_app_ITLeach;

ITLeach::ITLeach() : Application() {
    Tcl_Obj *baObj = Tcl_NewObj();
bind("bufer_",&Buffer);
bind("allnode_",&node);
bind("X_",&XPos);
bind("Y_",&YPos);
bind("Z_",&ZPos);
bind("ClausterHeadID_",(int *) &ClausterHeadID); // call array from tcl
bind("ClausterID_",ClausterID);
bind("id_",&id_node);

}

int ITLeach::command(int argc, const char*const* argv) {

        if (strcmp(argv[1], "start") == 0) {
            ITLeach::start();
            return(TCL_OK);
        }



      return(ITLeach::command(argc, argv));
    }
void ITLeach::start()
{
//double x=0, y =0 , z =0;
    nodeSetting.open("./leachnode.txt",fstream::app);

        //node = (MobileNode*)Node::get_node_by_address(i);
//node->location()->getLocation(x,y,z);
//node->getLoc(&x,&y,&z);
        nodeSetting << "id " << id_node << " x "<< XPos << " y " << YPos << " z " << ZPos <<"\n";



    nodeSetting.close();

    printf(" claster head number : %d \n" ,ClausterHeadID[1]);
    printf("node number is : %d \n",Buffer);
}

次のコードを使用して、Tcl から配列を送信します。

$aa set ClausterHeadID_   [array get b] **#send array to c++**

次のコードで C++ から配列を受け取ります。

bind("ClausterHeadID_",(int *) &ClausterHeadID); // call array from tcl

しかし、うまくいきません、助けてください。

4

1 に答える 1

1

そのコマンドを文字列インターフェイスにバインドしている場合 (つまり、引数が を介して到着するint argc, char **argv場合) を使用Tcl_SplitList()して、関連する引数 (argv[argc-1]最後の引数である可能性があります) を分解しTcl_GetInt()、それらのそれぞれから整数を取得します。値。これらの整数は、その Tcl リストのメンバーです。

int listc;
char **listv;
if (Tcl_SplitList(interp, argv[argc-1], &listc, &listv) != TCL_OK) {
    // wasn't a valid list!
    return TCL_ERROR;
}
std::vector<int> theArray(listc, 0);
for (int i=0 ; i<listc ; i++) {
    if (Tcl_GetInt(interp, listv[i], &theArray[i]) != TCL_OK) {
        // wasn't an int in the list!
        return TCL_ERROR;
    }
}

これは非常に高速ではありません ！Tcl_Objより高速な方法として、実装関数を正しく登録することから始めて、ベースの API (これTcl_Objは基本的な Tcl ファーストクラスの値の型です)を使用する必要があります。その後、上記のコードを変換するのはかなり簡単です。

int listc;
Tcl_Obj **listv;
if (Tcl_ListObjGetElements(interp, argv[argc-1], &listc, &listv) != TCL_OK) {
    // wasn't a valid list!
    return TCL_ERROR;
}
std::vector<int> theArray(listc, 0);
for (int i=0 ; i<listc ; i++) {
    if (Tcl_GetIntFromObj(interp, listv[i], &theArray[i]) != TCL_OK) {
        // wasn't an int in the list!
        return TCL_ERROR;
    }
}

大きな違いは？ATcl_Objは、文字列または整数 (または float またはその他の任意の数) を保持しているかどうかを認識しているため、Tcl ランタイムは通常、値を再解析または型変換する必要はありませんが、すべてが文字列の場合は、変換が多い。(Tcl では「<em>すべてが文字列である」と言うのが一般的ですが、それは不正確です。正しいバージョンは「<em>すべてが完全な文字列のシリアル化を持っている、または名前付きエンティティです」ですが、それはかなり冗長です。)

于 2013-11-03T17:54:14.363 に答える