00001 static char code[] = "\n\
00002 \n\
00003 \n\
00004 Module/TCP instproc init {args} {\n\
00005 eval $self next $args\n\
00006 \n\
00007 }\n\
00008 \n\
00009 \n\
00010 \n\
00011 Class Module/TCP/Tahoe -superclass Module/TCP\n\
00012 \n\
00013 Module/TCP/Tahoe instproc init {args} {\n\
00014 eval $self next $args\n\
00015 $self setTcpAgent [new Agent/TCP]\n\
00016 \n\
00017 }\n\
00018 \n\
00019 \n\
00020 \n\
00021 Class Module/TCP/Reno -superclass Module/TCP\n\
00022 \n\
00023 Module/TCP/Reno instproc init {args} {\n\
00024 eval $self next $args\n\
00025 $self setTcpAgent [new Agent/TCP/Reno]\n\
00026 }\n\
00027 \n\
00028 Class Module/TCP/Newreno -superclass Module/TCP\n\
00029 \n\
00030 Module/TCP/Newreno instproc init {args} {\n\
00031 eval $self next $args\n\
00032 $self setTcpAgent [new Agent/TCP/Newreno]\n\
00033 }\n\
00034 \n\
00035 Class Module/TCP/Vegas -superclass Module/TCP\n\
00036 \n\
00037 Module/TCP/Vegas instproc init {args} {\n\
00038 eval $self next $args\n\
00039 $self setTcpAgent [new Agent/TCP/Vegas]\n\
00040 }\n\
00041 \n\
00042 \n\
00043 Class Module/TCP/Sack1 -superclass Module/TCP\n\
00044 \n\
00045 Module/TCP/Sack1 instproc init {args} {\n\
00046 $self setTcpAgent [new Agent/TCP/Sack1]\n\
00047 eval $self next $args\n\
00048 }\n\
00049 \n\
00050 Class Module/TCP/FACK -superclass Module/TCP\n\
00051 \n\
00052 Module/TCP/FACK instproc init {args} {\n\
00053 eval $self next $args\n\
00054 $self setTcpAgent [new Agent/TCP/FACK]\n\
00055 }\n\
00056 \n\
00057 \n\
00058 \n\
00059 Class Module/TCPSink -superclass Module/TCP\n\
00060 \n\
00061 Module/TCPSink instproc init {args} {\n\
00062 eval $self next $args\n\
00063 $self setTcpAgent [new Agent/TCPSink]\n\
00064 }\n\
00065 \n\
00066 \n\
00067 Class Module/TCPSink/DelAck -superclass Module/TCP\n\
00068 \n\
00069 Module/TCPSink/DelAck instproc init {args} {\n\
00070 eval $self next $args\n\
00071 $self setTcpAgent [new Agent/TCPSink/DelAck]\n\
00072 }\n\
00073 \n\
00074 \n\
00075 Class Module/TCPSink/Sack1 -superclass Module/TCP\n\
00076 \n\
00077 Module/TCPSink/Sack1 instproc init {args} {\n\
00078 eval $self next $args\n\
00079 $self setTcpAgent [new Agent/TCPSink/Sack1]\n\
00080 }\n\
00081 \n\
00082 \n\
00083 Class Module/TCPSink/Sack1/DelAck -superclass Module/TCP\n\
00084 \n\
00085 Module/TCPSink/Sack1/DelAck instproc init {args} {\n\
00086 eval $self next $args\n\
00087 $self setTcpAgent [new Agent/TCPSink/Sack1/DelAck]\n\
00088 }\n\
00089 \n\
00090 \n\
00091 \n\
00092 Module/TCP set debug_ 0\n\
00093 Module/TCP/Tahoe set debug_ 0\n\
00094 Module/TCP/Reno set debug_ 0\n\
00095 Module/TCP/Newreno set debug_ 0\n\
00096 Module/TCP/Vegas set debug_ 0\n\
00097 Module/TCP/Sack1 set debug_ 0\n\
00098 Module/TCP/FACK set debug_ 0\n\
00099 Module/TCPSink set debug_ 0\n\
00100 Module/TCPSink/DelAck set debug_ 0\n\
00101 Module/TCPSink/Sack1 set debug_ 0\n\
00102 Module/TCPSink/Sack1/DelAck set debug_ 0\n\
00103 \n\
00104 Module/TCP set agent_addr_ 0\n\
00105 Module/TCP set agent_port_ 0\n\
00106 Module/TCP set dst_addr_ 0\n\
00107 Module/TCP set dst_port_ 0\n\
00108 \n\
00109 \n\
00110 \n\
00111 \n\
00112 PacketHeaderManager set tab_(PacketHeader/Flags) 1\n\
00113 PacketHeaderManager set tab_(PacketHeader/Mac) 1\n\
00114 PacketHeaderManager set tab_(PacketHeader/IP) 1\n\
00115 PacketHeaderManager set tab_(PacketHeader/TCP) 1\n\
00116 PacketHeaderManager set tab_(PacketHeader/QS) 1\n\
00117 \n\
00118 \n\
00119 ";
00120 #include "tclcl.h"
00121 EmbeddedTcl InitTclCode(code);
