[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: TCP-INT's cwnd_




Oops. Forgot about the bug in TCP-INT. Here's a fix:

int
IntTcpAgent::command(int argc, const char*const* argv)
{
	Tcl& tcl = Tcl::instance();

	if (argc == 3) {
		if (!strcmp(argv[1], "setwt")) {
			if (!session_)
				createTcpSession();
			session_->set_weight(this,atoi(argv[2]));
			return (TCL_OK);
		}
	}
	else if (argc == 2) {
		if (!strcmp(argv[1], "session")) {
			/* UW Bug fix: make sure there is a session. */
			if (!session_)
				createTcpSession();
			tcl.resultf("%s", session_->name());
			return (TCL_OK);
		}
	}
	return (TcpAgent::command(argc,argv));
}

Then you have to make sure you call [$tcp session] only after you've
attached the INT agent to a node, so it knows which TCP Session to bind
to.

neal


On Tue, 16 Feb 1999, Arnold P. Siboro wrote:

> At 5:46 PM 2/15/99, Neal Cardwell wrote:
> > The cwnd_ of a TCP-INT connection is in the corresponding TCP Session,
> > which can be accessed via (untested code):
> > 
> >         set our_session [$tcp session]
> >         $our_session set cwnd_
> > 
> > neal
> 
> Neal, 
> Thanks for your reply. I tried the above code, but my script, which worked
> well when using other TCPs, crashed with "Segmentation fault (core dumped)".
> 
> Any other ideas?
> 
> 
> Arnold Pandapotan SIBORO   $B%7%\%m!&%"!<%N%k%I(J
> -------------------------------------------------------------
> Information Network Lab, KIT, Iizuka-shi, Japan.
> $B6e=#9)6HBg3XEE;R>pJs9)3X2JHx2H8&5f<<!!(J
> 
> [email protected], [email protected]
> http://www.fsai.kyutech.ac.jp/~asiboro
> 
> "Put your hand on a hot stove for a minute, and it seems like an hour. 
> Sit with a pretty girl for an hour, and it seems like a minute. 
> THAT's relativity." -- Albert Einstein 
> 
> 
>