InitTcl.cc

static char code[] = "\n\
DropInterface set debug_ 0\n\
\n\
Class ConnectorList\n\
\n\
ConnectorList instproc init {  } {\n\
$self next \n\
$self instvar head_ tail_ \n\
$self set head_ [new Connector]\n\
$self set tail_ [new Connector]\n\
$head_ target $tail_\n\
}\n\
\n\
ConnectorList instproc tail {} {\n\
$self instvar tail_\n\
return $tail_ \n\
}\n\
\n\
\n\
ConnectorList instproc head {} {\n\
$self instvar head_\n\
return $head_\n\
}\n\
\n\
ConnectorList instproc add-to-head { connector } {\n\
$self instvar head_\n\
$connector target [$head_ target]\n\
$head_ target $connector\n\
}\n\
\n\
\n\
\n\
\n\
set NModuleLink 0\n\
\n\
Module/Link set debug_ 0\n\
\n\
Module/Link instproc init {} {\n\
global NModuleLink\n\
eval $self next    \n\
$self instvar delaylink_ queue_ link_ bin_ di_\n\
$self set link_ [new ConnectorList]\n\
\n\
$self setLinkHead [$link_ head]\n\
[$link_ tail] target $self\n\
\n\
set delaylink_ [new DelayLink]\n\
$link_ add-to-head $delaylink_\n\
\n\
set queue_ [new Queue/DropTail]   \n\
$link_ add-to-head $queue_\n\
\n\
$self setLinkHead $queue_\n\
$queue_ target $delaylink_\n\
$delaylink_ target $self        \n\
\n\
set bin_ [new ConnectorTrace/Bin]\n\
set fd [[Simulator instance] get-ns-traceall]\n\
$bin_ preamble \"$NModuleLink CHBIN\"\n\
$bin_ attach $fd\n\
$self addbin $bin_\n\
set di_ [new DropInterface]\n\
$di_ setChannel $self\n\
$queue_ drop-target $di_\n\
$self id_ $NModuleLink\n\
incr NModuleLink\n\
}\n\
\n\
\n\
Module/Link instproc connect {node1 mod1 verb1 node2 mod2 verb2} {\n\
$node1 addToChannel $self $mod1 $verb1\n\
$node2 addToChannel $self $mod2 $verb2\n\
}\n\
\n\
\n\
Module/Link instproc delay {del} {\n\
$self instvar delaylink_\n\
$delaylink_ set delay_ $del\n\
}\n\
\n\
Module/Link instproc bandwidth {bw} {\n\
$self instvar delaylink_\n\
$delaylink_ set bandwidth_ $bw\n\
}\n\
\n\
Module/Link instproc qsize {qs} {\n\
$self instvar queue_\n\
$queue_ set limit_ $qs\n\
}\n\
\n\
\n\
Module/Link instproc addErrorModel {em} {\n\
$self instvar delaylink_ queue_ link_ bin_ di_\n\
$delaylink_ target $em\n\
$em target [$link_ tail]\n\
$em drop-target $di_\n\
}\n\
\n\
\n\
Module/Link instproc print-params {} {\n\
$self instvar queue_ delaylink_\n\
set d [$delaylink_ set delay_]\n\
set b [$delaylink_ set bandwidth_]\n\
set q [$queue_ set limit_]\n\
puts \"delay=$d bw=$b qsize=$q\"\n\
}\n\
\n\
\n\
\n\
\n\
Class Module/DuplexLink \n\
\n\
\n\
Module/DuplexLink instproc init {} {\n\
$self instvar uplink_ downlink_\n\
set uplink_ [new Module/Link]\n\
set downlink_ [new Module/Link]\n\
}\n\
\n\
Module/DuplexLink instproc delay {del} {\n\
$self instvar uplink_ downlink_\n\
$uplink_   delay $del\n\
$downlink_ delay $del\n\
}\n\
\n\
Module/DuplexLink instproc bandwidth {bw} {\n\
$self instvar uplink_ downlink_\n\
$uplink_    bandwidth $bw\n\
$downlink_  bandwidth $bw  \n\
}\n\
\n\
Module/DuplexLink instproc qsize {qs} {\n\
$self instvar uplink_ downlink_\n\
$uplink_     qsize $qs\n\
$downlink_   qsize $qs\n\
}\n\
\n\
Module/DuplexLink instproc connect {node1 mod1 verb1 node2 mod2 verb2} {\n\
$self instvar uplink_ downlink_\n\
$uplink_ connect $node1 $mod1 $verb1 $node2 $mod2 $verb2\n\
$downlink_ connect $node2 $mod2 $verb2 $node1 $mod1 $verb1\n\
}\n\
\n\
Module/DuplexLink instproc settags {tagprefix} {\n\
$self instvar downlink_ uplink_\n\
$uplink_ settag ${tagprefix}up\n\
$downlink_ settag ${tagprefix}dw\n\
}\n\
\n\
Module/DuplexLink instproc addErrorModel {em} {\n\
puts \"Currently you cannot add an error model to a Module/DuplexLink\"\n\
puts \"Please use two instances of Module/Link and add a module to each.\"\n\
exit 0\n\
}\n\
\n\
\n\
\n\
";
#include "tclcl.h"
EmbeddedTcl InitTclCode(code);

---