/* -*-  Mode: C++; c-file-style: "gnu"; indent-tabs-mode:nil; -*- */

/*

 * Copyright (c) 2005,2006,2007 INRIA

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License version 2 as

 * published by the Free Software Foundation;

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

 *

 * Author: Mathieu Lacage <mathieu.lacage@sophia.inria.fr>

 */

#include "ns3/wifi-net-device.h"

#include "ns3/wifi-channel.h"

#include "ns3/simulator.h"

#include "ns3/callback.h"

#include "ns3/ptr.h"

#include "ns3/node.h"

#include "ns3/onoff-application.h"

#include "ns3/static-mobility-model.h"

#include "ns3/random-variable.h"

#include "ns3/packet-socket-address.h"

#include "ns3/packet.h"

#include "ns3/socket.h"

#include "ns3/socket-factory.h"

#include "ns3/command-line.h"

#include "ns3/gnuplot.h"

#include <iostream>

using namespace ns3;

static uint32_t g_bytesTotal = 0;

static GnuplotDataset *g_output = 0;

static Ptr<Node>

CreateAdhocNode (Ptr<WifiChannel> channel,

                 Vector position, const char *address)

{

  Ptr<Node> node = Create<Node> ();  

  Ptr<AdhocWifiNetDevice> device = Create<AdhocWifiNetDevice> (node, Mac48Address (address));

  Ptr<MobilityModel> mobility = Create<StaticMobilityModel> ();

  mobility->SetPosition (position);

  node->AddInterface (mobility);

  return node;

}

static void

SetPosition (Ptr<Node> node, Vector position)

{

  Ptr<MobilityModel> mobility = node->QueryInterface<MobilityModel> (MobilityModel::iid);

  mobility->SetPosition (position);

}

static Vector

GetPosition (Ptr<Node> node)

{

  Ptr<MobilityModel> mobility = node->QueryInterface<MobilityModel> (MobilityModel::iid);

  return mobility->GetPosition ();

}

static void 

AdvancePosition (Ptr<Node> node) 

{

  Vector pos = GetPosition (node);

  double mbs = ((g_bytesTotal * 8.0) / 1000000);

  g_bytesTotal = 0;

  g_output->Add (pos.x, mbs);

  pos.x += 1.0;

  if (pos.x >= 210.0) 

    {

      return;

    }

  SetPosition (node, pos);

  //std::cout << "x="<<pos.x << std::endl;

  Simulator::Schedule (Seconds (1.0), &AdvancePosition, node);

}

static void

ReceivePacket (Ptr<Socket> socket, Ptr<Packet> packet, const Address &address)

{

  g_bytesTotal += packet->GetSize ();

}

static Ptr<Socket>

SetupPacketReceive (Ptr<Node> node, uint16_t port)

{

  InterfaceId iid = InterfaceId::LookupByName ("Packet");

  Ptr<SocketFactory> socketFactory = node->QueryInterface<SocketFactory> (iid);

  Ptr<Socket> sink = socketFactory->CreateSocket ();

  sink->Bind ();

  sink->SetRecvCallback (MakeCallback (&ReceivePacket));

  return sink;

}

static void

RunOneExperiment (void)

{

  g_bytesTotal = 0;

  Ptr<WifiChannel> channel = Create<WifiChannel> ();

  Ptr<Node> a = CreateAdhocNode (channel, 

                                 Vector (5.0,0.0,0.0),

                                 "00:00:00:00:00:01");

  Ptr<Node> b = CreateAdhocNode (channel,

                                 Vector (0.0, 0.0, 0.0),

                                 "00:00:00:00:00:02");

  PacketSocketAddress destination = PacketSocketAddress ();

  destination.SetProtocol (1);

  destination.SetSingleDevice (0);

  destination.SetPhysicalAddress (Mac48Address ("00:00:00:00:00:02"));

  Ptr<Application> app = Create<OnOffApplication> (a, destination, 

                                                   "Packet", 

                                                   ConstantVariable (250),

                                                   ConstantVariable (0),

                                                   DataRate (60000000),

                                                   2000);

  app->Start (Seconds (0.5));

  app->Stop (Seconds (250.0));

  Simulator::Schedule (Seconds (1.5), &AdvancePosition, b);

  Ptr<Socket> recvSink = SetupPacketReceive (b, 10);

  Simulator::Run ();

  Simulator::Destroy ();

}

int main (int argc, char *argv[])

{

  Simulator::SetLinkedList ();

  // disable fragmentation

  DefaultValue::Bind ("WifiFragmentationThreshold", "2200");

  CommandLine::Parse (argc, argv);

  Gnuplot gnuplot = Gnuplot ("reference-rates.png");

  DefaultValue::Bind ("WifiRtsCtsThreshold", "2200");

  g_output = new GnuplotDataset ("54mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "54mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("48mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "48mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("36mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "36mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("24mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "24mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("18mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "18mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("12mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "12mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("9mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "9mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("6mb");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRateControlAlgorithm", "ConstantRate");

  DefaultValue::Bind ("WifiConstantDataRate", "6mb");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  gnuplot.GenerateOutput (std::cout);

  gnuplot = Gnuplot ("rate-control.png");

  DefaultValue::Bind ("WifiPhyStandard", "holland");

  g_output = new GnuplotDataset ("arf");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRtsCtsThreshold", "2200");

  DefaultValue::Bind ("WifiRateControlAlgorithm", "Arf");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("aarf");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRtsCtsThreshold", "2200");

  DefaultValue::Bind ("WifiRateControlAlgorithm", "Aarf");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  g_output = new GnuplotDataset ("ideal");

  g_output->SetStyle (GnuplotDataset::LINES);

  DefaultValue::Bind ("WifiRtsCtsThreshold", "2200");

  DefaultValue::Bind ("WifiRateControlAlgorithm", "Ideal");

  RunOneExperiment ();

  gnuplot.AddDataset (*g_output);

  delete g_output;

  gnuplot.GenerateOutput (std::cout);

  return 0;

}