00001 static char code[] = "\n\
00002 \n\
00003 proc createWirelessChModule {CSThres freq L} {\n\
00004 set module [new Module/WirelessCh]\n\
00005 if {$CSThres == \"\"} {\n\
00006 $module set CSThresh_ 1.559e-11\n\
00007 } else {\n\
00008 $module set CSThresh_ CSThres\n\
00009 }\n\
00010 if {$freq == \"\"} {\n\
00011 $module set freq_ 2.472e9\n\
00012 } else {\n\
00013 $module set freq_ freq\n\
00014 }\n\
00015 if {$L == \"\"} {\n\
00016 $module set L_ 1.0\n\
00017 } else {\n\
00018 $module set L_ L\n\
00019 }\n\
00020 return $module\n\
00021 }\n\
00022 \n\
00023 Module/WirelessCh set CSThresh_ 1.559e-11\n\
00024 Module/WirelessCh set freq_ 2.472e9\n\
00025 Module/WirelessCh set L_ 1.0\n\
00026 Module/WirelessCh set debug_ 0\n\
00027 \n\
00028 Module/DumbWirelessCh set debug_ 0\n\
00029 Module/DumbWirelessCh set usePropagationDelay_ true\n\
00030 ";
00031 #include "tclcl.h"
00032 EmbeddedTcl InitTclCode(code);
