00001 /* -*- Mode:C++; c-basic-offset:8; tab-width:8; indent-tabs-mode:t -*- */ 00002 /* 00003 * Copyright (c) 1997 Regents of the University of California. 00004 * All rights reserved. 00005 * 00006 * Redistribution and use in source and binary forms, with or without 00007 * modification, are permitted provided that the following conditions 00008 * are met: 00009 * 1. Redistributions of source code must retain the above copyright 00010 * notice, this list of conditions and the following disclaimer. 00011 * 2. Redistributions in binary form must reproduce the above copyright 00012 * notice, this list of conditions and the following disclaimer in the 00013 * documentation and/or other materials provided with the distribution. 00014 * 3. All advertising materials mentioning features or use of this software 00015 * must display the following acknowledgement: 00016 * This product includes software developed by the Daedalus Research 00017 * Group at the University of California Berkeley. 00018 * 4. Neither the name of the University nor of the Laboratory may be used 00019 * to endorse or promote products derived from this software without 00020 * specific prior written permission. 00021 * 00022 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 00023 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 00024 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 00025 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 00026 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 00027 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 00028 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 00029 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 00030 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 00031 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 00032 * SUCH DAMAGE. 00033 * 00034 * @(#) $Header: /nfs/jade/vint/CVSROOT/ns-2/apps/telnet.cc,v 1.5 1998/08/14 20:09:33 tomh Exp $ 00035 */ 00036 00037 #include "random.h" 00038 #include "tcp.h" 00039 #include "telnet.h" 00040 00041 extern double tcplib_telnet_interarrival(); 00042 00043 static class TelnetAppClass : public TclClass { 00044 public: 00045 TelnetAppClass() : TclClass("Application/Telnet") {} 00046 TclObject* create(int, const char*const*) { 00047 return (new TelnetApp); 00048 } 00049 } class_app_telnet; 00050 00051 00052 TelnetApp::TelnetApp() : running_(0), timer_(this) 00053 { 00054 bind("interval_", &interval_); 00055 } 00056 00057 00058 void TelnetAppTimer::expire(Event*) 00059 { 00060 t_->timeout(); 00061 } 00062 00063 00064 void TelnetApp::start() 00065 { 00066 running_ = 1; 00067 double t = next(); 00068 timer_.sched(t); 00069 } 00070 00071 void TelnetApp::stop() 00072 { 00073 running_ = 0; 00074 } 00075 00076 void TelnetApp::timeout() 00077 { 00078 if (running_) { 00079 /* call the TCP advance method */ 00080 agent_->sendmsg(agent_->size()); 00081 /* reschedule the timer */ 00082 double t = next(); 00083 timer_.resched(t); 00084 } 00085 } 00086 00087 double TelnetApp::next() 00088 { 00089 if (interval_ == 0) 00090 /* use tcplib */ 00091 return tcplib_telnet_interarrival(); 00092 else 00093 return Random::exponential() * interval_; 00094 }
1.3.3