00001 static char code[] = "\n\
00002 MacInterface set debug_ 0\n\
00003 \n\
00004 LogInterface set debug_ 0\n\
00005 \n\
00006 LLInterface set debug_ 0\n\
00007 \n\
00008 Module/802_11 set debug_ 0\n\
00009 \n\
00010 Mac/802_11/Miracle set basicRate_ 1Mb\n\
00011 Mac/802_11/Miracle set dataRate_ 1Mb\n\
00012 \n\
00013 \n\
00014 \n\
00015 \n\
00016 proc create802_11MacModule {llname ifqName macName ip 802_11MacModule {qlen \"\"} } {\n\
00017 set module [new Module/802_11]\n\
00018 set ll [new $llname]\n\
00019 set mac [new $macName]\n\
00020 set ifq [new $ifqName]\n\
00021 set macinterface [new MacInterface]\n\
00022 set llinterface [new LLInterface]\n\
00023 set loginterface [new LogInterface]\n\
00024 \n\
00025 set god [God instance]\n\
00026 \n\
00027 \n\
00028 set arptable_ [new ARPTable/Mrcl $ip $mac]\n\
00029 \n\
00030 $arptable_ drop-target $macinterface\n\
00031 \n\
00032 $ll arptable $arptable_\n\
00033 $ll mac $mac\n\
00034 $ll down-target $ifq\n\
00035 $ll up-target $llinterface\n\
00036 \n\
00037 $ifq target $mac\n\
00038 if {$qlen != \"\" } {\n\
00039 $ifq set limit_ $qlen\n\
00040 }\n\
00041 \n\
00042 $mac nodes [$god num_nodes]\n\
00043 $mac up-target $ll \n\
00044 \n\
00045 \n\
00046 $module setMac $mac\n\
00047 $module setIfq $ifq\n\
00048 $module setll $ll\n\
00049 $module setMacInterface $macinterface\n\
00050 $module setLogInterface $loginterface\n\
00051 $module setLLInterface $llinterface\n\
00052 \n\
00053 \n\
00054 return $module\n\
00055 }\n\
00056 \n\
00057 \n\
00058 ";
00059 #include "tclcl.h"
00060 EmbeddedTcl InitTclCode(code);
