Main Page | Namespace List | Class Hierarchy | Alphabetical List | Compound List | File List | Compound Members | File Members

telnet.cc

Go to the documentation of this file.
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 }

Generated on Tue Apr 20 12:14:36 2004 for NS2.26SourcesOriginal by doxygen 1.3.3