Subversion Repositories w11

// $Id: RtclStats.cpp 495 2013-03-06 17:13:48Z mueller $

//

// Copyright 2011-2013 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>

//

// This program is free software; you may redistribute and/or modify it under

// the terms of the GNU General Public License as published by the Free

// Software Foundation, either version 2, or at your option any later version.

//

// 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 complete details.

// 

// Revision History: 

// Date         Rev Version  Comment

// 2013-03-06   495   1.0.1  Rename Exec->Collect

// 2011-02-26   364   1.0    Initial version

// 2011-02-20   363   0.1    First draft

// ---------------------------------------------------------------------------

/*!

  \file

  \version $Id: RtclStats.cpp 495 2013-03-06 17:13:48Z mueller $

  \brief   Implemenation of RtclStats.

*/

#include <sstream>

#include "RtclStats.hpp"

#include "RtclNameSet.hpp"

#include "RtclOPtr.hpp"

using namespace std;

/*!

  \class Retro::RtclStats

  \brief FIXME_docs

*/

// all method definitions in namespace Retro

namespace Retro {

//------------------------------------------+-----------------------------------

//! FIXME_docs

bool RtclStats::GetArgs(RtclArgs& args, Context& cntx)

{

  static RtclNameSet optset("-lname|-ltext|-lvalue|-lpair|-lall|"

                            "-atext|-avalue|-print");

  string opt;

  string varname;

  string format;

  int    width=0;

  int    prec=0;

  if (args.NextOpt(opt, optset)) {

    if (opt == "-atext" || opt == "-avalue") {

      if (!args.GetArg("varName", varname)) return false;

    } else if (opt == "-print") {

      if (!args.GetArg("?format", format)) return false;

      if (!args.GetArg("?width", width, 0, 32)) return false;

      if (!args.GetArg("?prec",  prec,  0, 32)) return false;

    }

  } else {

    opt   = "-print";

    width = 12;

  }

  if (!args.AllDone()) return false;

  cntx.opt     = opt;

  cntx.varname = varname;

  cntx.format  = format;

  cntx.width   = width;

  cntx.prec    = prec;

  return true;

}

//------------------------------------------+-----------------------------------

//! FIXME_docs

bool RtclStats::Collect(RtclArgs& args, const Context& cntx,

                        const Rstats& stats)

{

  Tcl_Interp* interp = args.Interp();

  Tcl_Obj*    plist   = Tcl_GetObjResult(interp);

  if        (cntx.opt == "-lname") {        // -lname -------------------------

    for (size_t i=0; i<stats.Size(); i++) {

      const string& name(stats.Name(i));

      RtclOPtr pobj(Tcl_NewStringObj(name.data(), name.length()));

      if (Tcl_ListObjAppendElement(interp, plist, pobj) != TCL_OK) return false;

    }

  } else if (cntx.opt == "-ltext") {        // -ltext -------------------------

    for (size_t i=0; i<stats.Size(); i++) {

      const string& text(stats.Text(i));

      RtclOPtr pobj(Tcl_NewStringObj(text.data(), text.length()));

      if (Tcl_ListObjAppendElement(interp, plist, pobj) != TCL_OK) return false;

    }

  } else if (cntx.opt == "-lvalue") {

    for (size_t i=0; i<stats.Size(); i++) { // -lvalue ------------------------

      RtclOPtr pobj(Tcl_NewDoubleObj(stats.Value(i)));

      if (Tcl_ListObjAppendElement(interp, plist, pobj) != TCL_OK) return false;

    }

  } else if (cntx.opt == "-lpair" || cntx.opt == "-lall") { // -lpair -lall ---

    for (size_t i=0; i<stats.Size(); i++) {

      const string& name(stats.Name(i));

      RtclOPtr ptup(Tcl_NewListObj(0,0));

      Tcl_ListObjAppendElement(NULL, ptup,

                               Tcl_NewDoubleObj(stats.Value(i)));

      Tcl_ListObjAppendElement(NULL, ptup,

                               Tcl_NewStringObj(name.data(), name.length()));

      if (cntx.opt == "-lall") {

        const string& text(stats.Text(i));

        Tcl_ListObjAppendElement(NULL, ptup,

                                 Tcl_NewStringObj(text.data(), text.length()));

      }

      if (Tcl_ListObjAppendElement(interp, plist, ptup) != TCL_OK) return false;

    }

  } else if (cntx.opt == "-atext") {        // -atext -------------------------

    for (size_t i=0; i<stats.Size(); i++) {

      const string& text(stats.Text(i));

      RtclOPtr pobj(Tcl_NewStringObj(text.data(), text.length()));

      if (!Tcl_SetVar2Ex(interp, cntx.varname.c_str(), stats.Name(i).c_str(),

                         pobj, TCL_LEAVE_ERR_MSG)) return false;

    }

  } else if (cntx.opt == "-avalue") {       // -avalue ------------------------

    for (size_t i=0; i<stats.Size(); i++) {

      RtclOPtr pobj(Tcl_NewDoubleObj(stats.Value(i)));

      if (!Tcl_SetVar2Ex(interp, cntx.varname.c_str(), stats.Name(i).c_str(),

                         pobj, TCL_LEAVE_ERR_MSG)) return false;

    }

  } else if (cntx.opt == "-print") {        // -print -------------------------

    ostringstream sos;

    stats.Print(sos, cntx.format.c_str(), cntx.width, cntx.prec);

    args.AppendResultLines(sos);

  } else {

    args.AppendResult("-E: BUG! RtclStats::Collect: bad option '",

                      cntx.opt.c_str(), "'", NULL);

    return false;

  }

  return true;

}

} // end namespace Retro