suptcl.cc

static char code[] = "\n\
ConnectorTrace set depth_ 0\n\
ConnectorTrace set debug_ 0\n\
\n\
\n\
NodeCore set X_ 0\n\
NodeCore set Y_ 0\n\
NodeCore set battery_ 0\n\
\n\
\n\
ConnectorTrace/Bin set depth 10\n\
ConnectorTrace/Bin set depthUp_ 10\n\
ConnectorTrace/Bin set depthDown_ 10\n\
ConnectorTrace/Bin set depthToNC_ 10\n\
ConnectorTrace/Bin set depthToP_ 10\n\
\n\
ConnectorTrace/SAP set depthUp_ 0\n\
ConnectorTrace/SAP set depthDown_ 0\n\
\n\
ConnectorTrace/ChSAP set depthUp_ 0\n\
ConnectorTrace/ChSAP set depthDown_ 0\n\
\n\
ConnectorTrace/ClSAP set depthToP_ 0\n\
ConnectorTrace/ClSAP set depthToNC_ 0\n\
\n\
\n\
\n\
Class M_Node\n\
\n\
M_Node set nLayer_ 0\n\
M_Node set nSap_ 0\n\
M_Node set nChSap_ 0\n\
\n\
M_Node set id_ 0\n\
M_Node set nPlugin_ 0\n\
\n\
M_Node instproc init args {\n\
$self instvar id_ \n\
$self instvar nPlugin_\n\
\n\
$self set id_ 0\n\
$self set nPlugin_ 0\n\
$self set position_ \"\"\n\
}\n\
\n\
\n\
M_Node instproc addModule {layer module param1 {param2 \"\"} {param3 \"\"}} {\n\
$self instvar nPlugin_ bin_ nodeCore_ traceCLfd_ modules_ layer_ id_\n\
\n\
if {$layer < 1} {\n\
puts \" addModule: invalid value ($layer) for layer, must be >=1\"\n\
exit 1\n\
}\n\
\n\
$module Id_ $nPlugin_\n\
$module setlayer $layer\n\
\n\
set clsap [new ConnectorTrace/ClSAP]\n\
$module addBin $bin_\n\
$module addclsap $clsap\n\
\n\
set clDepthP 0\n\
set clDepthNC 0\n\
set moduleName \"\"\n\
if {$param3 == \"\"} {\n\
set clDepthP $param1\n\
set clDepthNC $param1\n\
set moduleName $param2\n\
} else {\n\
set clDepthP $param1\n\
set clDepthNC $param2\n\
set moduleName $param3\n\
}\n\
if {$moduleName != \"\"} {\n\
$module settag \"$moduleName\"\n\
} elseif {[$module gettag] == \"---\"} {\n\
$module settag \"$nPlugin_\"\n\
}\n\
\n\
\n\
$clsap set depthToP_ $clDepthP\n\
$clsap set depthToNC_ $clDepthNC\n\
$clsap module $module\n\
$clsap nodecore $nodeCore_\n\
$clsap preambleToPlugin \"$id_ NC [$module gettag]\"\n\
$clsap preambleToNodeCore \"$id_ [$module gettag] NC\" \n\
$clsap attach $traceCLfd_\n\
$nodeCore_ addclsap $clsap $layer\n\
\n\
set modules_($nPlugin_) $module\n\
set layer_($nPlugin_) $layer\n\
\n\
incr nPlugin_\n\
}\n\
\n\
M_Node instproc addPlugin {plugin param1 {param2 \"\"} {param3 \"\"}} {\n\
$self instvar nPlugin_ bin_ nodeCore_ traceCLfd_ modules_ layer_ id_\n\
\n\
$plugin Id_ $nPlugin_\n\
\n\
set clsap [new ConnectorTrace/ClSAP]\n\
$plugin addBin $bin_\n\
$plugin addclsap $clsap\n\
set clDepthP 0\n\
set clDepthNC 0\n\
set pluginName \"\"\n\
if {$param3 == \"\"} {\n\
set clDepthP $param1\n\
set clDepthNC $param1\n\
set pluginName $param2\n\
} else {\n\
set clDepthP $param1\n\
set clDepthNC $param2\n\
set pluginName $param3\n\
}\n\
if {$pluginName != \"\"} {\n\
$plugin settag \"$pluginName\"\n\
} elseif {[$plugin gettag] == \"---\"} {\n\
$plugin settag \"$nPlugin_\"\n\
}\n\
$clsap set depthToP_ $clDepthP\n\
$clsap set depthToNC_ $clDepthNC\n\
$clsap module $plugin\n\
$clsap nodecore $nodeCore_\n\
$clsap preambleToPlugin \"$id_ NC [$plugin gettag]\"\n\
$clsap preambleToNodeCore \"$id_ [$plugin gettag] NC\" \n\
$clsap attach $traceCLfd_\n\
$nodeCore_ addclsap $clsap 0\n\
\n\
set modules_($nPlugin_) $plugin\n\
set layer_($nPlugin_) 0\n\
\n\
incr nPlugin_\n\
}\n\
\n\
M_Node instproc contains {module} {\n\
$self instvar modules_ layer_\n\
if {$modules_([$module Id_]) == $module} {\n\
return 1\n\
} else {\n\
return 0\n\
}\n\
}\n\
\n\
M_Node instproc addPosition {position} {\n\
$self instvar nodeCore_\n\
\n\
$nodeCore_ position $position\n\
}\n\
\n\
M_Node instproc position {} {\n\
$self instvar nodeCore_\n\
\n\
return [$nodeCore_ position]\n\
}\n\
\n\
\n\
M_Node instproc setConnection {moduleUp moduleDown {trace \"notrace\"} {traceup \"\"}} {\n\
$self instvar nodeCore_ tracefd_ layer_ id_\n\
if {$moduleUp == \"\" || $moduleDown == \"\"} {\n\
error \"The specified module does not exist !\"\n\
}\n\
if {![$self contains $moduleUp]} {\n\
error \"The given up module does not belong to this node!!\"\n\
}\n\
if {![$self contains $moduleDown]} {\n\
error \"The given down module does not belong to this node!!\"\n\
}\n\
if {$layer_([$moduleUp Id_]) < [expr $layer_([$moduleDown Id_])]} {\n\
error \"The up module must be above or at most in the same layer of the down module!!\"\n\
}\n\
set depth 0\n\
if {$trace == \"trace\"} {\n\
set depth 1\n\
}\n\
if {[regexp {^[0-9]+$} $trace]} {\n\
set depth $trace\n\
}\n\
set depthup $depth\n\
if {$traceup != \"\"} {\n\
set depthup 0\n\
if {$traceup == \"trace\"} {\n\
set depthup 1\n\
}\n\
if {[regexp {^[0-9]+$} $traceup]} {\n\
set depth $traceup\n\
}\n\
}\n\
set sap [new ConnectorTrace/SAP]\n\
$sap upmodule $moduleUp\n\
$sap downmodule $moduleDown\n\
\n\
$sap preambleUp \"$id_ [$moduleDown gettag] [$moduleUp gettag]\"\n\
$sap preambleDown \"$id_ [$moduleUp gettag] [$moduleDown gettag]\"\n\
$sap attach $tracefd_\n\
$sap set depthDown_ $depth\n\
$sap set depthUp_ $depthup\n\
$moduleUp addDownsap $sap\n\
$moduleDown addUpsap $sap\n\
return $sap\n\
}\n\
\n\
M_Node instproc addToChannel {channel module {trace \"notrace\"} {traceup \"\"}} {\n\
$self instvar nodeCore_ id_ tracefd_\n\
\n\
if {$channel == \"\" || $module == \"\"} {\n\
error \"The specified down module does not exist!\"\n\
}\n\
if {$nodeCore_ == \"\"} {\n\
error \"The node must be setup first!\"\n\
}\n\
set depth 0\n\
if {$trace == \"trace\" || $trace == \"1\"} {\n\
set depth 1\n\
}\n\
set depthup $depth\n\
if {$traceup != \"\"} {\n\
if {$traceup == \"trace\" || $traceup == \"1\"} {\n\
set depthup 1\n\
} else {\n\
set depthup 0\n\
}\n\
}\n\
set chsap [new ConnectorTrace/ChSAP]\n\
$chsap module $module\n\
$chsap channel $channel\n\
if {[$channel gettag] == \"---\"} {\n\
set chtag \"CH\" \n\
} else {\n\
set chtag [$channel gettag]\n\
}\n\
$chsap preambleUp \"$id_ $chtag [$module gettag]\"\n\
$chsap preambleDown \"$id_ [$module gettag] $chtag\"\n\
$chsap attach $tracefd_\n\
$chsap set depthDown_ $depth\n\
$chsap set depthUp_ $depthup\n\
$chsap nodeCore $nodeCore_\n\
$module addDownsap $chsap\n\
$channel addsap $chsap\n\
return $chsap\n\
}\n\
\n\
\n\
Simulator instproc create-M_Node {{tracefd \"\"} {traceCLfd \"\"}} {\n\
$self instvar nM_Node\n\
\n\
if {$tracefd == \"\"} {\n\
set tracefd [$self get-ns-traceall]\n\
}\n\
if {$traceCLfd == \"\"} {\n\
set traceCLfd $tracefd\n\
}\n\
\n\
\n\
set node [new M_Node]\n\
$node set tracefd_ $tracefd\n\
$node set traceCLfd_ $traceCLfd\n\
$node set id_ $nM_Node\n\
\n\
$node set nodeCore_ [new NodeCore]\n\
$node set bin_ [new ConnectorTrace/Bin]\n\
[$node set bin_] preamble \"$nM_Node BIN\"\n\
[$node set bin_] attach $tracefd\n\
\n\
incr nM_Node\n\
return $node\n\
}\n\
\n\
Simulator instproc use-Miracle {} {\n\
$self instvar nM_Node\n\
$self set nM_Node 0\n\
}\n\
";
#include "tclcl.h"
EmbeddedTcl tclSupp(code);

---