hackloss.cc

Go to the documentation of this file.

/* -*-  Mode:C++; c-basic-offset:8; tab-width:8; indent-tabs-mode:t -*- */
#ifndef lint
static const char rcsid[] =
    "@(#) $Header: /nfs/jade/vint/CVSROOT/ns-2/link/hackloss.cc,v 1.6 2000/09/01 03:04:05 haoboy Exp $";
#endif

#include "connector.h"

#include "packet.h"
#include "queue.h"

class HackLossyLink : public Connector {
public:
    HackLossyLink() : down_(0), src_(0), dst_(0), fid_(0), ctr_(0), nth_(0){
    }
protected:
    int command(int argc, const char*const* argv);
    void recv(Packet* p, Handler* h);
    NsObject* down_;
    int src_, dst_, fid_;
    int ctr_, nth_;
};

static class HackLossyLinkClass : public TclClass {
public:
    HackLossyLinkClass() : TclClass("HackLossyLink") {}
    TclObject* create(int, const char*const*) {
        return (new HackLossyLink);
    }
} class_dynamic_link;


int HackLossyLink::command(int argc, const char*const* argv)
{
    if (strcmp(argv[1], "down-target") == 0) {
        NsObject* p = (NsObject*)TclObject::lookup(argv[2]);
        if (p == 0) {
            Tcl::instance().resultf("no object %s", argv[2]);
            return TCL_ERROR;
        }
        down_ = p;
        return TCL_OK;
    }
    if (strcmp(argv[1], "show-params") == 0) {
        Tcl::instance().resultf("src_ = %d, dst_ = %d, fid_ = %d, nth_ = %d",
                    src_, dst_, fid_, nth_);
        return TCL_OK;
    }
    if (strcmp(argv[1], "set-params") == 0) {
        src_ = atoi(argv[2]);
        dst_ = atoi(argv[3]);
        fid_ = atoi(argv[4]);
        return TCL_OK;
    }
    if (strcmp(argv[1], "nth") == 0) {
        nth_ = atoi(argv[2]);
        return TCL_OK;
    }
    return Connector::command(argc, argv);
}

void HackLossyLink::recv(Packet* p, Handler* h)
{
    hdr_ip* iph = hdr_ip::access(p);
    if (nth_ && (iph->flowid() == fid_) &&
        (iph->saddr() == src_) && (iph->daddr() == dst_) &&
        ((++ctr_ % nth_) == 0))
        down_->recv(p); // XXX  Why no handler?
    else
        target_->recv(p, h);
}

---