inline_write_timeslice_map_obj_disk.cc

Go to the documentation of this file.

/*! \file
 * \brief Inline task to time-sliced std::map object
 */
 
#include "chromabase.h"
#include "singleton.h"
#include "funcmap.h"
 
#include "qdp_map_obj_disk.h"
#include "qdp_disk_map_slice.h"
 
#include "meas/inline/abs_inline_measurement_factory.h"
#include "meas/inline/io/inline_write_timeslice_map_obj_disk.h"
#include "meas/inline/io/named_objmap.h"
 
#include "util/info/proginfo.h"
 
#include "util/ferm/subset_ev_pair.h"
#include "util/ferm/subset_vectors.h"
#include "util/ferm/key_timeslice_colorvec.h"
 
#include "util/gauge/key_timeslice_gauge.h"
 
namespace Chroma 
{ 
  namespace InlineWriteTimeSliceMapObjDiskEnv 
  { 
    namespace WriteMapObjCallEnv
    { 
      struct DumbDisambiguator {};
 
      //! Write object function std::map
      /*! \ingroup inlineio */
      typedef SingletonHolder< 
        FunctionMap<DumbDisambiguator,
                    void,
                    std::string,
                    TYPELIST_1(const Params&),
                    void (*)(const Params& named_obj),
                    StringFunctionMapError> >
      TheWriteMapObjFuncMap;
 
 
      namespace 
      { 
        static bool registered = false;
 
        void writeMapObjEVPairLCV(const Params& params)
        {
          // Input object
          QDP::MapObject<int,EVPair<LatticeColorVector> >& input_obj = 
            *(TheNamedObjMap::Instance().getData< Handle< QDP::MapObject<int,EVPair<LatticeColorVector> > > >(params.named_obj.input_id));
          std::vector<int> keys; input_obj.keys(keys);
 
          const int decay_dir = Nd-1;
 
          XMLBufferWriter file_xml;
 
          push(file_xml, "MODMetaData");
          write(file_xml, "id", std::string("eigenVecsTimeSlice"));
          write(file_xml, "lattSize", QDP::Layout::lattSize());
          write(file_xml, "decay_dir", decay_dir);
          write(file_xml, "num_vecs", keys.size());
          proginfo(file_xml);    // Print out basic program info
          write(file_xml, "Weights", getEigenValues(input_obj, keys.size()));
          pop(file_xml);
 
          // Create the entry
          QDP::MapObjectDisk<KeyTimeSliceColorVec_t,TimeSliceIO<LatticeColorVector> > output_obj;
 
          output_obj.insertUserdata(file_xml.str());
          output_obj.open(params.named_obj.output_file, std::ios_base::in | std::ios_base::out | std::ios_base::trunc);
 
          // Copy the key/value-s
          int Lt = Layout::lattSize()[decay_dir];
 
          int start = params.param.start_t;
          int end = params.param.end_t;
          QDPIO::cout << "start_t = " << start << ", end_t = " << end << "\n";
 
          for(int i=0; i < keys.size(); i++) 
          {
            // Get the value
            EVPair<LatticeColorVector> tmpvec; input_obj.get(keys[i], tmpvec);
 
            // We know the keys are simple integers from 0 to N-1.
            // Write with a time-slice key.
            for(int t=0; t < Lt; t++) 
            {
              if ( ( ( start < end ) && ( t >= start && t < end ) ) ||
                   ( ( end < start ) && ( t >= start || t < end ) ) )
                {
                  KeyTimeSliceColorVec_t time_key;
                  time_key.t_slice = t;
                  time_key.colorvec = keys[i];
 
                  output_obj.insert(time_key, TimeSliceIO<LatticeColorVector>(tmpvec.eigenVector,t));
                }
            }
          }
 
          output_obj.flush();
        }
 
 
        template<typename V>
        void writeMapObjArrayLatColMat(const Params& params)
        {
          // Input object
          XMLBufferWriter gauge_xml;
 
          // Make a copy because the TimeSliceIO critter wants a modifiable reference
          multi1d<V> u = TheNamedObjMap::Instance().getData< multi1d<V> >(params.named_obj.input_id);
          TheNamedObjMap::Instance().get(params.named_obj.input_id).getRecordXML(gauge_xml);
 
          const int decay_dir = Nd-1;
 
          XMLBufferWriter file_xml;
 
          push(file_xml, "MODMetaData");
          write(file_xml, "id", std::string("gaugeFieldTimeSlice"));
          write(file_xml, "lattSize", QDP::Layout::lattSize());
          write(file_xml, "decay_dir", decay_dir);
          proginfo(file_xml);    // Print out basic program info
          write(file_xml, "Config_info", gauge_xml);
          pop(file_xml);
 
          // Create the entry
          QDP::MapObjectDisk<KeyTimeSliceGauge_t,TimeSliceIO<V> > output_obj;
 
          output_obj.insertUserdata(file_xml.str());
          output_obj.open(params.named_obj.output_file, std::ios_base::in | std::ios_base::out | std::ios_base::trunc);
 
          // Copy the key/value-s
          int Lt = Layout::lattSize()[decay_dir];
 
          for(int mu=0; mu < u.size(); mu++) 
          {
            // Write with a time-slice key.
            for(int t=0; t < Lt; t++) 
            {
              KeyTimeSliceGauge_t time_key;
              time_key.t_slice = t;
              time_key.dir     = mu;
 
              output_obj.insert(time_key, TimeSliceIO<V>(u[mu],t));
            }
          }
 
          output_obj.flush();
        }
 
 
 
        template<typename V>
        void writeMapObjKeyIntValLat(const Params& params)
        {
          // Input object
          XMLBufferWriter gauge_xml;
 
          // Make a copy because the TimeSliceIO critter wants a modifiable reference
          V u = TheNamedObjMap::Instance().getData<V>(params.named_obj.input_id);
          TheNamedObjMap::Instance().get(params.named_obj.input_id).getRecordXML(gauge_xml);
 
          const int decay_dir = Nd-1;
 
          XMLBufferWriter file_xml;
 
          push(file_xml, "MODMetaData");
          write(file_xml, "id", std::string("gaugeFieldTimeSlice"));
          write(file_xml, "lattSize", QDP::Layout::lattSize());
          write(file_xml, "decay_dir", decay_dir);
          proginfo(file_xml);    // Print out basic program info
          write(file_xml, "Config_info", gauge_xml);
          pop(file_xml);
 
          // Create the entry
          QDP::MapObjectDisk<int,TimeSliceIO<V> > output_obj;
 
          output_obj.insertUserdata(file_xml.str());
 
          // Open file. Note, a trunc is used. Doesn't have to be here, but if only time-slices are written as the key,
          // there isn't any other way to disambiguate the keys. So, not much use in allowing multiple writes to the
          // file
          output_obj.open(params.named_obj.output_file, std::ios_base::in | std::ios_base::out | std::ios_base::trunc);
 
          // Copy the key/value-s
          int Lt = Layout::lattSize()[decay_dir];
 
          // Write with a time-slice key.
          for(int t=0; t < Lt; t++) 
          {
            output_obj.insert(t, TimeSliceIO<V>(u,t));
          }
 
          output_obj.flush();
        }
 
 
        bool registerAll(void) 
        {
          bool success = true; 
          if (! registered ) 
          { 
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyTintValTLatticeColorVector",
                                                                          writeMapObjEVPairLCV);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("ArrayLatticeColorMatrix",
                                                                          writeMapObjArrayLatColMat<LatticeColorMatrix>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("ArrayLatticeColorMatrixF",
                                                                          writeMapObjArrayLatColMat<LatticeColorMatrixF>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("ArrayLatticeColorMatrixD",
                                                                          writeMapObjArrayLatColMat<LatticeColorMatrixD>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticePropagator",
                                                                          writeMapObjKeyIntValLat<LatticePropagator>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticePropagatorF",
                                                                          writeMapObjKeyIntValLat<LatticePropagatorF>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticePropagatorD",
                                                                          writeMapObjKeyIntValLat<LatticePropagatorD>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeFermion",
                                                                          writeMapObjKeyIntValLat<LatticeFermion>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeFermionF",
                                                                          writeMapObjKeyIntValLat<LatticeFermionF>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeFermionD",
                                                                          writeMapObjKeyIntValLat<LatticeFermionD>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeColorMatrix",
                                                                          writeMapObjKeyIntValLat<LatticeColorMatrix>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeColorMatrixF",
                                                                          writeMapObjKeyIntValLat<LatticeColorMatrixF>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeColorMatrixD",
                                                                          writeMapObjKeyIntValLat<LatticeColorMatrixD>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeColorVector",
                                                                          writeMapObjKeyIntValLat<LatticeColorVector>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeColorVectorF",
                                                                          writeMapObjKeyIntValLat<LatticeColorVectorF>);
            success &= TheWriteMapObjFuncMap::Instance().registerFunction("KeyIntValLatticeColorVectorD",
                                                                          writeMapObjKeyIntValLat<LatticeColorVectorD>);
 
            registered = true;
          }
          return success;
        }
      }
    }
 
 
    namespace
    {
      AbsInlineMeasurement* createMeasurement(XMLReader& xml_in, 
                                              const std::string& path) 
      {
        return new InlineMeas(Params(xml_in, path));
      }
 
      //! Local registration flag
      bool registered = false;
 
      const std::string name = "WRITE_TIMESLICE_MAP_OBJECT_DISK";
    }
 
    //! Register all the factories
    bool registerAll() 
    {
      bool success = true; 
      if (! registered)
      {
        success &= TheInlineMeasurementFactory::Instance().registerObject(name, createMeasurement);
        success &= WriteMapObjCallEnv::registerAll();
        registered = true;
      }
      return success;
    }
 
    
    void read(XMLReader& xml, const std::string& path, Params::Param_t& input)
    {
      XMLReader inputtop(xml, path);
 
      read(inputtop, "start_t", input.start_t);
      read(inputtop, "end_t", input.end_t);
    }
 
 
    //! Object buffer
    void read(XMLReader& xml, const std::string& path, Params::NamedObject_t& input)
    {
      XMLReader inputtop(xml, path);
 
      read(inputtop, "object_type", input.object_type);
      read(inputtop, "input_id", input.input_id);
      read(inputtop, "output_file", input.output_file);
    }
 
    // Param stuff
    Params::Params() { frequency = 0; }
 
    Params::Params(XMLReader& xml_in, const std::string& path) 
    {
      try 
      {
        XMLReader paramtop(xml_in, path);
 
        if (paramtop.count("Frequency") == 1)
          read(paramtop, "Frequency", frequency);
        else
          frequency = 1;
 
        // Parameters for source construction
        read(paramtop, "NamedObject", named_obj);
        
        if (paramtop.count("Param") == 1)
          read(paramtop, "Param", param);
        else
          {
            param.start_t = 0;
            param.end_t = Layout::lattSize()[Nd-1];
          }
      }
      catch(const std::string& e) 
      {
        QDPIO::cerr << __func__ << ": caught Exception reading XML: " << e << std::endl;
        QDP_abort(1);
      }
    }
 
 
    void 
    InlineMeas::operator()(unsigned long update_no, XMLWriter& xml_out) 
    {
      START_CODE();
 
      registerAll();
 
      push(xml_out, "write_timeslice_map_object_disk");
      write(xml_out, "update_no", update_no);
 
      QDPIO::cout << name << ": std::map object write to a time-slice format" << std::endl;
      StopWatch swatch;
 
      // Write the object
      QDPIO::cout << "Attempt to time-slice write the input object name = " << params.named_obj.input_id << std::endl;
 
      write(xml_out, "object_type", params.named_obj.object_type);
      write(xml_out, "input_id", params.named_obj.input_id);
      write(xml_out, "output_file", params.named_obj.output_file);
 
      try
      {
        swatch.reset();
        swatch.start();
 
        // Write the object
        WriteMapObjCallEnv::TheWriteMapObjFuncMap::Instance().callFunction(params.named_obj.object_type, params);
 
        swatch.stop();
 
        QDPIO::cout << "Object successfully copied: time= " 
                    << swatch.getTimeInSeconds() 
                    << " secs" << std::endl;
      }
      catch( std::bad_cast ) 
      {
        QDPIO::cerr << name 
                    << ": cast error for input_id= " << params.named_obj.input_id 
                    << " with type= " << params.named_obj.object_type 
                    << std::endl;
        QDP_abort(1);
      }
      catch (const std::string& e) 
      {
        QDPIO::cerr << name << ": error message: " << e << std::endl;
        QDP_abort(1);
      }
      catch(const char* e) 
      { 
        QDPIO::cout << name << ": Caught const char * exception: " << e << std::endl;
        QDP_abort(1);
      }
    
      QDPIO::cout << name << ": ran successfully" << std::endl;
 
      pop(xml_out);  // read_named_obj
 
      END_CODE();
    } 
 
  }
}