00001 static char code[] = "\n\ 00002 PacketHeaderManager set tab_(PacketHeader/CBR) 1\n\ 00003 \n\ 00004 Module/CBR set packetSize_ 180\n\ 00005 Module/CBR set period_ 0.02\n\ 00006 Module/CBR set destPort_ 0\n\ 00007 Module/CBR set destAddr_ 0\n\ 00008 Module/CBR set debug_ 0\n\ 00009 Module/CBR set alpha_ 0.8 \n\ 00010 Module/CBR set PoissonTraffic_ 0\n\ 00011 Module/CBR instproc init {args} {\n\ 00012 $self next $args\n\ 00013 $self settag \"CBR\"\n\ 00014 }\n\ 00015 \n\ 00016 \n\ 00017 \n\ 00018 "; 00019 #include "tclcl.h" 00020 EmbeddedTcl InitTclCode(code);