src/common/gnuplot.cc
author Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
Tue, 06 Nov 2007 15:11:22 +0100
changeset 2082 d041fc198aad
parent 2080 3e7ccbe1815c
permissions -rw-r--r--
a real test
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2076
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     1
/* -*- Mode:C++; c-file-style:"gnu"; indent-tabs-mode:nil; -*- */
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     2
/*
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     3
 * Copyright (c) 2007 INRIA
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     4
 *
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     6
 * it under the terms of the GNU General Public License version 2 as
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     7
 * published by the Free Software Foundation;
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     8
 *
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    12
 * GNU General Public License for more details.
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    13
 *
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    14
 * You should have received a copy of the GNU General Public License
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    15
 * along with this program; if not, write to the Free Software
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    16
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    17
 *
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    18
 * Author: Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    19
 */
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    20
#include "gnuplot.h"
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    21
#include <ostream>
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    22
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    23
namespace ns3 {
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    24
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    25
GnuplotDataset::GnuplotDataset (std::string title)
2080
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    26
  : m_title (title),
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    27
    m_style (LINES)
2076
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    28
{}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    29
void 
2080
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    30
GnuplotDataset::SetStyle (enum Style style)
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    31
{
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    32
  m_style = style;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    33
}
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    34
void 
2076
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    35
GnuplotDataset::Add (double x, double y)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    36
{
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    37
  m_dataset.push_back (std::make_pair (x,y));
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    38
}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    39
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    40
Gnuplot::Gnuplot (std::string pngFilename)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    41
  : m_pngFilename (pngFilename)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    42
{}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    43
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    44
Gnuplot::~Gnuplot ()
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    45
{
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    46
  for (Datasets::const_iterator i = m_datasets.begin (); i != m_datasets.end (); i++)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    47
    {
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    48
      delete *i;
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    49
    }
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    50
  m_datasets.clear ();
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    51
}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    52
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    53
void 
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    54
Gnuplot::AddDataset (const GnuplotDataset &dataset)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    55
{
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    56
  m_datasets.push_back (new GnuplotDataset (dataset));
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    57
}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    58
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    59
void 
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    60
Gnuplot::GenerateOutput (std::ostream &os)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    61
{
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    62
  os << "set terminal png" << std::endl;
2078
4c8e0469448d generate correct output. avoid infinite loop.
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2076
diff changeset
    63
  os << "set output '" << m_pngFilename << "'" << std::endl;
2076
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    64
  os << "plot ";
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    65
  for (Datasets::const_iterator i = m_datasets.begin (); i != m_datasets.end ();)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    66
    {
2078
4c8e0469448d generate correct output. avoid infinite loop.
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2076
diff changeset
    67
      os << "'-' title '" << (*i)->m_title << "'";
2080
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    68
      switch ((*i)->m_style) {
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    69
      case GnuplotDataset::LINES:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    70
	os << " with lines";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    71
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    72
      case GnuplotDataset::POINTS:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    73
	os << " with points";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    74
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    75
      case GnuplotDataset::LINES_POINTS:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    76
	os << " with linespoints";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    77
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    78
      case GnuplotDataset::DOTS:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    79
	os << " with dots";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    80
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    81
      case GnuplotDataset::IMPULSES:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    82
	os << " with impulses";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    83
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    84
      case GnuplotDataset::STEPS:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    85
	os << " with steps";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    86
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    87
      case GnuplotDataset::FSTEPS:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    88
	os << " with fsteps";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    89
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    90
      case GnuplotDataset::HISTEPS:
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    91
	os << " with histeps";
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    92
	break;
3e7ccbe1815c add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2078
diff changeset
    93
      }
2076
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    94
      i++;
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    95
      if (i != m_datasets.end ())
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    96
	{
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    97
	  os << ", ";
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    98
	}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
    99
    }
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   100
  os << std::endl;
2078
4c8e0469448d generate correct output. avoid infinite loop.
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents: 2076
diff changeset
   101
  for (Datasets::const_iterator i = m_datasets.begin (); i != m_datasets.end (); i++)
2076
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   102
    {
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   103
      for (GnuplotDataset::Dataset::const_iterator j = (*i)->m_dataset.begin ();
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   104
	   j != (*i)->m_dataset.end (); j++)
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   105
	{
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   106
	  os << j->first << " " << j->second << std::endl;
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   107
	}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   108
      os << "e" << std::endl;
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   109
    }
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   110
}
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   111
e95e6a0130cb generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
   112
} // namespace ns3