00001 static char code[] = "\n\
00002 Module/Phy set debug_ 0\n\
00003 \n\
00004 Propagation/SimplePathLoss set gamma_ 2.5\n\
00005 Propagation/SimplePathLoss set d0_ 10\n\
00006 \n\
00007 PacketHeaderManager set tab_(PacketHeader/MrclWrlPhy) 1\n\
00008 \n\
00009 proc createPhyModule {phyname pmodel anttype 802_11MacModule em} {\n\
00010 set module [new Module/Phy]\n\
00011 set ant_ [new $anttype]\n\
00012 set netif [new $phyname]\n\
00013 \n\
00014 $netif channel $module\n\
00015 $netif up-target $module\n\
00016 \n\
00017 $netif propagation $pmodel ;# Propagation Model\n\
00018 $netif antenna $ant_\n\
00019 \n\
00020 $module setPhy $netif\n\
00021 \n\
00022 set mac [$802_11MacModule getMac]\n\
00023 $mac netif $netif\n\
00024 return $module\n\
00025 }\n\
00026 \n\
00027 ";
00028 #include "tclcl.h"
00029 EmbeddedTcl InitTclCode(code);
