////////////////////////////////////////////
//
// C++ interface to gnuplot for MSVC 6.0
//
// Modifications by Peter Blockley
// peterblockley.tripod.com
//
///////////////////////////////////////////

////////////////////////////////////////////
//
// A C++ interface to gnuplot. 
//
// This is a direct translation from the C interface
// written by N. Devillard (which is available from
// http://ndevilla.free.fr/gnuplot/).
//
// As in the C interface this uses pipes and so wont
// run on a system that does'nt have POSIX pipe 
// support
//
// Rajarshi Guha
// <rajarshi@presidency.com>
//
// 07/03/03
//
////////////////////////////////////////////



#include "gnuplot_i.hpp"
#define PATH_MAXNAMESZ       4096

using namespace std;

/////////////////////////////
//
// A string tokenizer taken from
// http://www.sunsite.ualberta.ca/Documentation/Gnu/libstdc++-2.90.8/html/21_strings/stringtok_std_h.txt
//
/////////////////////////////
template <typename Container>
void
stringtok (Container &container, string const &in,
           const char * const delimiters = " \t\n")
{
    const string::size_type len = in.length();
          string::size_type i = 0;

    while ( i < len )
    {
        // eat leading whitespace
        i = in.find_first_not_of (delimiters, i);
        if (i == string::npos)
            return;   // nothing left but white space

        // find the end of the token
        string::size_type j = in.find_first_of (delimiters, i);

        // push token
        if (j == string::npos) {
            container.push_back (in.substr(i));
            return;
        } else
            container.push_back (in.substr(i, j-i));

        // set up for next loop
        i = j + 1;
    }
}

//
// Constructors
//
Gnuplot::Gnuplot(void)
{
#if 0
    if (getenv("DISPLAY") == NULL)
      {
        this->valid = false;
        throw GnuplotException("cannot find DISPLAY variable");
      }
    if (!this->get_program_path("pgnuplot"))
      {
        this->valid = false;
        throw GnuplotException("Can't find gnuplot in your PATH");
      }
#endif    
    this->gnucmd = _popen("pgnuplot","w");
    if (!this->gnucmd)
      {
        this->valid = false;
        throw GnuplotException("Could'nt open connection to gnuplot");
      }

    this->set_style("points");
    this->nplots = 0;
    this->valid = true;
}

Gnuplot::Gnuplot(const string &style)
{
#if 0
    if (getenv("DISPLAY") == NULL)
      {
        this->valid = false;
        throw GnuplotException("cannot find DISPLAY variable");
      }
#endif
#if 0
    if (!this->get_program_path("pgnuplot"))
      {
        this->valid = false;
        throw GnuplotException("Can't find gnuplot in your PATH");
      }
#endif

    this->gnucmd = _popen("pgnuplot","w");

    if (!this->gnucmd)
      {
        this->valid = false;
        throw GnuplotException("Could'nt open connection to gnuplot");
      }
    this->set_style(style);
    this->nplots = 0;
    this->valid = true;
}

Gnuplot::Gnuplot(
         const string &title,
         const string &style,
         const string &labelx,  const string &labely,
         vector<double> x, vector<double> y)
{
#if 0
    if (getenv("DISPLAY") == NULL)
      {
        this->valid = false;
        throw GnuplotException("cannot find DISPLAY variable");
      }
    if (!this->get_program_path("pgnuplot"))
      {
        this->valid = false;
        throw GnuplotException("Can't find gnuplot in your PATH");
      }
#endif

    this->gnucmd = _popen("pgnuplot","w");
    if (!this->gnucmd)
      {
        this->valid = false;
        throw GnuplotException("Could'nt open connection to gnuplot");
      }
    this->nplots = 0;
    this->valid = true;


    if (x.size() == 0 || y.size() == 0)
        throw GnuplotException("vectors too small");

    if (style == "")
        this->set_style("lines");
    else
        this->set_style(style);

    if (labelx == "")
        this->set_xlabel("X");
    else
        this->set_xlabel(labelx);
    if (labely == "")
        this->set_ylabel("Y");
    else
        this->set_ylabel(labely);
    
    this->plot_xy(x,y,title);

    cout << "Press enter to continue" << endl;
    while (getchar() != '\n'){}
}

Gnuplot::Gnuplot(
         const string &title,
         const string &style,
         const string &labelx,  const string &labely,
         vector<double> x)
{
#if 0
    if (getenv("DISPLAY") == NULL)
      {
        this->valid = false;
        throw GnuplotException("cannot find DISPLAY variable");
      }
    if (!this->get_program_path("pgnuplot"))
      {
        this->valid = false;
        throw GnuplotException("Can't find gnuplot in your PATH");
      }
#endif

    this->gnucmd = _popen("pgnuplot","w");
    if (!this->gnucmd)
      {
        this->valid = false;
        throw GnuplotException("Could'nt open connection to gnuplot");
      }
    this->nplots = 0;
    this->valid = true;
    
    this->nplots = 0;
    this->valid = true;


    if (x.size() == 0)
        throw GnuplotException("vector too small");
    if (!this->gnucmd)
        throw GnuplotException("Could'nt open connection to gnuplot");

    if (style == "")
        this->set_style("lines");
    else
        this->set_style(style);

    if (labelx == "")
        this->set_xlabel("X");
    else
        this->set_xlabel(labelx);
    if (labely == "")
        this->set_ylabel("Y");
    else
        this->set_ylabel(labely);
    
    this->plot_x(x,title);

    cout << "Press enter to continue" << endl;
    while (getchar() != '\n'){}
}

//
// Destructor
// 
Gnuplot::~Gnuplot()
{
#if 1
    if ((this->to_delete).size() > 0)
      {
        for (int i = 0; i < this->to_delete.size(); i++)
            remove(this->to_delete[i].c_str());
        to_delete.clear();
      }
    if (_pclose(this->gnucmd) == -1)
        cerr << "Problem closing communication to gnuplot" << endl;
#endif
    return;
}

bool Gnuplot::is_valid(void)
{
    return(this->valid);
}

bool Gnuplot::get_program_path(const string pname)
{
    list<string> ls;
    char *path;

    path = getenv("PATH");
    if (!path)
      {
        cerr << "Path is not set" << endl;
        return false;
      }
    else
      {
        stringtok(ls,path,":");
        for (list<string>::const_iterator i = ls.begin();
                i != ls.end(); ++i)
          {
            string tmp = (*i) + "/" + pname;
            if (_access(tmp.c_str(),1) == 0)
                return true;
          }
      }
    return false;
}

void Gnuplot::reset_plot(void)
{       
    if (this->to_delete.size() > 0)
      {
        for (int i = 0; i < this->to_delete.size(); i++)
            remove(this->to_delete[i].c_str());
        to_delete.clear();
      }
    this->nplots = 0;
    return;
}

void Gnuplot::set_style(const string &stylestr)
{
    if (stylestr != "lines" &&
            stylestr != "points" &&
            stylestr != "linespoints" &&
            stylestr != "impulses" &&
            stylestr != "dots" &&
            stylestr != "steps" &&
            stylestr != "errorbars" &&
            stylestr != "boxes" &&
            stylestr != "boxerrorbars")
        this->pstyle = string("points");
    else
        this->pstyle = stylestr;
}

void Gnuplot::cmd(const char *cmdstr, ...)
{
    va_list ap;
    char local_cmd[GP_CMD_SIZE];

    va_start(ap, cmdstr);
    vsprintf(local_cmd, cmdstr, ap);
    va_end(ap);
    strcat(local_cmd,"\n");
    fputs(local_cmd,this->gnucmd);
  
    fflush(this->gnucmd);

    return;
}

void Gnuplot::set_ylabel(const string &label)
{
    ostringstream cmdstr;

    cmdstr << "set ylabel \"" << label << "\"";
    this->cmd(cmdstr.str().c_str());

    return;
}

void Gnuplot::set_xlabel(const string &label)
{
    ostringstream cmdstr;

    cmdstr << "set xlabel \"" << label << "\"";
    this->cmd(cmdstr.str().c_str());

    return;
}

// 
// Plots a linear equation (where you supply the
// slope and intercept)
//
void Gnuplot::plot_slope(double a, double b, const string &title)
{
    ostringstream stitle;
    ostringstream cmdstr;

    if (title == "")
        stitle << "no title";
    else
        stitle << title;

    if (this->nplots > 0)
        cmdstr << "replot " << a << " * x + " << b << " title \"" << stitle.str() << "\" with " << pstyle;
    else
        cmdstr << "plot " << a << " * x + " << b << " title \"" << stitle.str() << "\" with " << pstyle;
    this->cmd(cmdstr.str().c_str());
    this->nplots++;
    return;
}

//
// Plot an equation which is supplied as a string
// 
void Gnuplot::plot_equation(const string &equation, const string &title)
{
    string titlestr, plotstr;
    ostringstream cmdstr;

    if (title == "")
        titlestr = "no title";
    else
        titlestr = title;

    if (this->nplots > 0)
        plotstr = "replot";
    else
        plotstr = "plot";

    cmdstr << plotstr << " " << equation << " " << "title \"" << titlestr << "\" with " << this->pstyle;
    this->cmd(cmdstr.str().c_str());
    this->nplots++;

    return;
}

void Gnuplot::plot_x(vector<double> d, const string &title)
{
    ofstream tmp;
    ostringstream cmdstr;
    char *result;
    char name[10];
    strcpy(name,"fnXXXXXX");

    if (this->to_delete.size() == GP_MAX_TMP_FILES - 1)
      {
        cerr << "Maximum number of temporary files reached (" << GP_MAX_TMP_FILES << "): cannot open more files" << endl;
        return;
      }

    //
    //open temporary files for output

    result=mktemp(name);

    if (result == NULL)
      {
        cerr << "Cannot create temporary file: exiting plot" << endl;
        return;
      }

    tmp.open(result);
    if (tmp.bad())
      {
        cerr << "Cannot create temorary file: exiting plot" << endl;
        return;
      }

    //
    // Save the temporary filename
    // 
    this->to_delete.push_back(result);

    //
    // write the data to file
    //
    for (int i = 0; i < d.size(); i++)
        tmp << d[i] << endl;
    tmp.flush();    
    tmp.close();

    //
    // command to be sent to gnuplot
    //
    if (this->nplots > 0)
        cmdstr << "replot ";
    else cmdstr << "plot ";
    if (title == "")
        cmdstr << "\"" << result << "\" with " << this->pstyle;
    else
        cmdstr << "\"" << result << "\" title \"" << title << "\" with " << this->pstyle;

    //
    // Do the actual plot
    //
    this->cmd(cmdstr.str().c_str());
    this->nplots++;

    return;
}
    
void Gnuplot::plot_xy(vector<double> x, vector<double> y, const string &title)
{
    ofstream tmp;
    ostringstream cmdstr;
    char *result;
    char name[10];
    strcpy(name,"fnXXXXXX");
    
    // should raise an exception
    if (x.size() != y.size())
        return;

    if ((this->to_delete).size() == GP_MAX_TMP_FILES - 1)
      {
        cerr << "Maximum number of temporary files reached (" << GP_MAX_TMP_FILES << "): cannot open more files" << endl;
        return;
      }

    //
    //open temporary files for output
    //

    result=_mktemp(name);

    if (result == NULL)
      {
        cerr << "Cannot create temporary file: exiting plot" << endl;
        return;
      }

    tmp.open(result);
    if (tmp.bad())
      {
        cerr << "Cannot create temorary file: exiting plot" << endl;
        return;
      }

    //
    // Save the temporary filename
    // 
    this->to_delete.push_back(result);

    //
    // write the data to file
    //
    for (int i = 0; i < x.size(); i++)
        tmp << x[i] << " " << y[i] << endl;
    tmp.flush();    
    tmp.close();

    //
    // command to be sent to gnuplot
    //
    if (this->nplots > 0)
        cmdstr << "replot ";
    else cmdstr << "plot ";
    if (title == "")
        cmdstr << "\"" << result << "\" with " << this->pstyle;
    else
        cmdstr << "\"" << result << "\" title \"" << title << "\" with " << this->pstyle;

    //
    // Do the actual plot
    //
    this->cmd(cmdstr.str().c_str());
    this->nplots++;

    return;
}