JProperties.hh

Go to the documentation of this file.

#ifndef __JEEP__JPROPERTIES__
#define __JEEP__JPROPERTIES__
 
#include <string>
#include <istream>
#include <ostream>
#include <fstream>
#include <sstream>
#include <map>
#include <vector>
 
#include "JSystem/JStat.hh"
#include "JLang/JStringStream.hh"
#include "JLang/JAbstractIO.hh"
#include "JLang/JException.hh"
#include "JLang/JSharedPointer.hh"
#include "JLang/JEquationParameters.hh"
#include "JLang/JEquationFacet.hh"
#include "JLang/JEquation.hh"
#include "JLang/JComparisonAvailable.hh"
#include "JLang/JCategory.hh"
#include "JLang/JClass.hh"
#include "Jeep/JStreamToolkit.hh"
#include "Jeep/JComparisonToolkit.hh"
#include "Jeep/JMessage.hh"
 
 
/**
 * \file
 * Utility class to parse parameter values.
 * \author mdejong
 */
namespace JEEP {}
namespace JPP { using namespace JEEP; }
 
namespace JEEP {
  
  using JLANG::JStreamInput;
  using JLANG::JStreamOutput;
  using JLANG::JStreamSuffixOutput;
  using JLANG::JFileOpenException;
  using JLANG::JFileReadException;
  using JLANG::JSharedPointer;
  using JLANG::JEquationParameters;
  using JLANG::JEquationFacet;
  using JLANG::JEquation;
  using JLANG::JComparisonAvailable;
  using JLANG::JPropertiesException;
 
 
  /**
   * Check for stream state.
   *
   * Note that end-of-file is not defined as an error so to normally process e.g.\ std::string and std::vector.
   *
   * \param  in            input stream
   * \return               true if failure; else false
   */
  inline bool fail(std::istream& in)
  {
    return in.bad() || (in.fail() && !in.eof());
  }
  
 
  /**
   * Interface for I/O of properties element.
   */
  class JPropertiesElementInterface :
    public JStreamInput,
    public JStreamOutput,
    public JStreamSuffixOutput
  {
  public:
 
    using JStreamOutput::write;
    using JStreamSuffixOutput::write;
    
    
    /**
     * Get properties type.
     *
     * \return               false
     */
    virtual bool is_properties() const 
    { 
      return false;
    }
 
 
    /**
     * Equality between property element interfaces.
     *
     * \param  element       properties element interface
     * \return               false
     */
    virtual bool equals(const JPropertiesElementInterface& element) const 
    {
      return false;
    }
  };
 
 
  class JPropertiesElement;     // Forward declaration.
 
 
  /**
   * Template class for I/O of properties element. 
   *
   * This class implements the JPropertiesElementInterface interface.
   */
  template<class T>
  class JPropertiesTemplateElement :
    public JPropertiesElementInterface 
  {
 
    friend class JPropertiesElement;
 
  public:
    /**
     * Constructor.
     *
     * \param  value         reference of template object
     */
    JPropertiesTemplateElement(T& value) : 
      JPropertiesElementInterface(),
      object(value)
    {}
 
 
    /**
     * Stream input.
     *
     * \param  in            input stream
     * \return               input stream
     */
    virtual std::istream& read(std::istream& in) override 
    {
      using namespace std;
 
      readObject(in, object);
 
      string buffer;
 
      in >> buffer;
 
      if (!buffer.empty()) {
        THROW(JPropertiesException, "JProperties: pending data <" << buffer << (in.peek() != EOF ? "..." : "") << ">");
      }
 
      return in;
    }
 
 
    /**
     * Stream output.
     *
     * \param  out           output stream
     * \param  prefix        prefix
     * \param  postfix       postfix
     * \return               output stream
     */
    virtual std::ostream& write(std::ostream& out,
                                const char*   prefix, 
                                const char    postfix) const override
    { 
      return writeObject(out, prefix, object, postfix);
    }
 
 
    /**
     * Stream output.
     *
     * \param  out           output stream
     * \return               output stream
     */
    virtual std::ostream& write(std::ostream& out) const override 
    { 
      return writeObject(out, object);
    }
 
 
    /**
     * Equality between property element interfaces.
     *
     * \param  element       properties element interface
     * \return               true if equal; else false
     */
    virtual bool equals(const JPropertiesElementInterface& element) const override 
    { 
      const JPropertiesTemplateElement<T>* p = dynamic_cast<const JPropertiesTemplateElement<T>*>(&element);
 
      if (p != NULL)
        return compareObjects(object, p->object);
      else
        return false;
    }
 
 
  protected:
    T& object;
  };
 
 
  /**
   * Template specialisation of JPropertiesTemplateElement for const data type.
   *
   * This class implements the JPropertiesElementInterface interface.
   */
  template<class T>
  class JPropertiesTemplateElement<const T> : 
    public JPropertiesElementInterface 
  {
 
    friend class JPropertiesElement;
 
  public:
    /**
     * Constructor.
     *
     * \param  value         reference of template object
     */
    JPropertiesTemplateElement(const T& value) : 
      JPropertiesElementInterface(),
      object(value)
    {}
 
 
    /**
     * Stream input.
     *
     * \param  in            input stream
     * \return               input stream
     */
    virtual std::istream& read(std::istream& in) override 
    {
      THROW(JPropertiesException, "JPropertiesTemplateElement<>::read() reading of const data type.");
    }
 
 
    /**
     * Stream output.
     *
     * \param  out           output stream
     * \return               output stream
     */
    virtual std::ostream& write(std::ostream& out) const override 
    { 
      return writeObject(out, object);
    }
 
 
    /**
     * Stream output.
     *
     * \param  out           output stream
     * \param  prefix        prefix
     * \param  postfix       postfix
     * \return               output stream
     */
    virtual std::ostream& write(std::ostream& out,
                                const char*   prefix, 
                                const char    postfix) const override
    { 
      return writeObject(out, prefix, object, postfix);
    }
 
 
    /**
     * Equality between property element interfaces.
     *
     * \param  element       properties element interface
     * \return               true if equal; else false
     */
    virtual bool equals(const JPropertiesElementInterface& element) const override 
    { 
      const JPropertiesTemplateElement<const T>* p = dynamic_cast<const JPropertiesTemplateElement<const T>*>(&element);
 
      if (p != NULL)
        return compareObjects(object, p->object);
      else
        return false;
    }
 
 
  protected:
    const T& object;
  };
 
 
  /**
   * The property value class.
   * This class consists of a pointer to the JPropertiesElementInterface.
   * This class implements the assignment and type conversion operators.
   */
  class JPropertiesElement :
    public JSharedPointer<JPropertiesElementInterface>
  {
  public:
    /**
     * Default constructor.
     */
    JPropertiesElement() :
      end_marker(false)
    {}
 
 
    /**
     * Constructor.
     *
     * \param  value         reference to template object
     */
    template<class T>
    JPropertiesElement(T& value) :
      end_marker(false)
    {
      reset(new JPropertiesTemplateElement<T>(value));
    }
 
 
    /**
     * Equality between property elements.
     *
     * \param  element       properties element
     * \return               true if equal; else false
     */
    bool equals(const JPropertiesElement& element) const
    { 
      return get()->equals(*element.get());
    }
 
    
    /**
     * Assignment operator.
     *
     * \param  value         reference to template object
     * \return               this JPropertiesElement
     */
    template<class T>
    JPropertiesElement& operator=(T& value)
    {
      reset(new JPropertiesTemplateElement<T>(value));
 
      return *this;
    }
 
    
    /**
     * Get value.
     *
     * \return               value of this JPropertiesElement
     */
    template<class T>
    const T& getValue() const
    {
      const JPropertiesTemplateElement<T>* p = dynamic_cast<const JPropertiesTemplateElement<T>*>(this->get());
 
      if (p != NULL)
        return p->object;
      else
        THROW(JPropertiesException, "Inconsistent data type.");
    }
 
    
    /**
     * Get value.
     *
     * \return               value of this JPropertiesElement
     */
    template<class T>
    T& getValue()
    {
      JPropertiesTemplateElement<T>* p = dynamic_cast<JPropertiesTemplateElement<T>*>(this->get());
 
      if (p != NULL)
        return p->object;
      else
        THROW(JPropertiesException, "Inconsistent data type.");
    }
 
 
    
    /**
     * Set value of this JPropertiesElement.
     *
     * \param  value         value
     */
    template<class T>
    void setValue(const T& value)
    {
      JPropertiesTemplateElement<T>* p = dynamic_cast<JPropertiesTemplateElement<T>*>(this->get());
 
      if (p != NULL)
        p->object = value;
      else
        THROW(JPropertiesException, "Inconsistent data type.");
    }
 
 
    /**
     * Convert to string.
     *
     * \return               value of this JPropertiesElement
     */
    std::string toString() const
    {
      std::ostringstream os;
      
      get()->write(os, "", '\0');
 
      return os.str();
    }
 
    
    /**
     * Convert to template type.
     *
     * \return               value of this JPropertiesElement
     */
    template<class T>
    T toValue() const
    {
      T value;
 
      std::istringstream in(this->toString());
 
      in >> value;
 
      return value;
    }
 
    
    /**
     * Type conversion operator.
     *
     * \return               value of this JPropertiesElement
     */
    template<class T>
    operator const T&() const
    {
      return getValue<T>();
    }
 
 
    /**
     * Get end marker.
     *
     * \return               end marker
     */
    bool getEndMarker() const
    {
      return end_marker;
    }
 
 
    /**
     * Set end marker.
     *
     * \param  marker        if true stop reading after this properties element, else continue
     */
    void setEndMarker(const bool marker)
    {
      end_marker = marker;
    }
 
 
  private:
    bool end_marker;
    using JSharedPointer<JPropertiesElementInterface>::equals;
  };
 
 
  /**
   * Utility class to parse parameter values.
   *
   * The mapping between a parameter (of any type) and a value
   * has to be defined in the user's program, e.g.
   *
   *\code{.cpp}
   
   #include "Jeep/JProperties.hh"
 
   ifstream in(filename.c_str());
    
   JProperties zap;
   
   int    integer_value;
   double double_value;
   string string_value;
   
   zap.insert(make_property(integer_value));   // key == parameter name
   zap.insert(make_property(double_value));    // key == parameter name
   
   zap["mies"] = string_value;
   
   zap.read(in);
   zap.write(cout);
   \endcode
   */
  class JProperties : 
    public std::map<std::string, JPropertiesElement>,
    public JEquationParameters,
    public JMessage<JProperties>
  {
  public:
 
    typedef std::map<std::string, JPropertiesElement>                  JMap_t;
 
    using JMessage<JProperties>::debug;
 
    
    /**
     * Utility method to strip off all leading characters from a string until specified character(s).
     *
     * \param  buffer        input string
     * \param  sep           last character(s) to strip
     * \return               modified string
     */
    static inline std::string getKey(const std::string& buffer, const std::string& sep)
    {
      using namespace std;
 
      const size_type pos = buffer.find_last_of(sep);
 
      if (pos != string::npos)
        return buffer.substr(pos + 1);
      else
        return buffer;
    }
 
 
    /**
     * Constructor.
     *
     * \param  debug             debug level
     */
    JProperties(const int debug = 0) :
      JMap_t(),
      JEquationParameters()
    {
      this->debug = debug;
    }
 
 
    /**
     * Constructor.
     *
     * \param  parameters        equation parameters
     * \param  debug             debug level
     */
    JProperties(const JEquationParameters& parameters,
                const int debug = 0) :
      JMap_t(),
      JEquationParameters(parameters)
    {
      this->debug = debug;
    }
 
 
    /**
     * Put object at given key.
     *
     * \param  key               key
     * \param  object            object
     */
    template<class T>
    void put(const std::string& key, T& object)
    {
      this->insert(value_type(key, JPropertiesElement(object)));
    }
    
 
    /** 
     * Join properties objects.
     *
     * \param  properties        properties
     * \return                   properties
     */
    JProperties& join(const JProperties& properties)
    { 
      JEquationParameters::join(properties);
 
      insert(properties.begin(), properties.end());
 
      return *this;
    }
 
    
    /**
     * Read equation.
     *
     * \param  equation          equation
     * \return                   status
     */
    bool read(const JEquation& equation)
    {
      using namespace std;
 
      iterator p = find(equation.getKey());
          
      DEBUG("Processing key: " << equation.getKey() << ' ' << (p != end()) << endl);
      
      if (p != end()) {
          
        istringstream is(equation.getValue());
 
        if        (isDivision(equation.getSeparator())) {
            
          if (p->second->is_properties()) {
 
            p->second->read(is);
              
          } else {
            
            ERROR("JProperties::read(): no properties object after division <" << equation.getKey() << ">" << endl);
          }
          
        } else if (isSeparator(equation.getSeparator())) {
          
          try {
            p->second->read(is);     
          }
          catch(const exception& error) {
            ERROR("JProperties::read(): read error at key <" << equation.getKey() << "> " << error.what() << endl);
          }
          
        } else {
          
          ERROR("JProperties::read(): illegal character following key <" << equation.getKey() << "> " << equation.getSeparator() << endl);
        }
        
        if (p->second.getEndMarker()) {
          return false;
        }
        
        if (fail(is)) {
          
          ERROR("JProperties::read(): error reading data for key <" << equation.getKey() << "> " << equation.getValue() << endl);
        }
        
      } else {
        
        WARNING("JProperties::read(): unknown key <" << equation.getKey() << ">" << endl);
      }
 
      return true;
    }
 
 
    /**
     * Read from input string.
     *
     * \param  buffer            input string
     * \return                   read status
     */
    bool read(const std::string& buffer) 
    { 
      std::istringstream in(buffer); 
 
      return !fail(read(in));
    }
 
 
    /**
     * Read from input stream.
     *
     * The input format is:
     * <pre>
     *    [<key><sub>]<key><sep><value><eol>
     *    [<key><sub>]<key><sep><value><eol>
     * </pre>
     * In this, white spaces are ignored.
     * The reading of key and value pairs is controlled by the JLANG::JEquationFacet class.
     *
     * \param  in                input stream
     * \return                   input stream
     */
    std::istream& read(std::istream& in)
    {
      using namespace std;
      using namespace JPP;
 
      JStringStream is(in);
 
      if (getFileStatus(is.str().c_str())) {
        is.load();
      }
 
      is.imbue(locale(is.getloc(), new JEquationFacet(*this)));
 
      for (JEquation equation; is >> equation && read(equation); ) {}
 
      return in;
    }
 
 
    /**
     * Read from input stream according given format.
     *
     * For each key in the format specification,
     * a corresponding value will be read from the input stream.
     *
     * \param  in                input stream
     * \param  format            format
     * \return                   input stream
     */
    std::istream& read(std::istream& in, const std::string& format) 
    {
      using namespace std;
      
      istringstream is(format);
 
      vector<string> buffer;
 
      for (string key; is >> key; ) {
        buffer.push_back(key);
      }
 
      return read(in, buffer.begin(), buffer.end());
    }
 
 
    /**
     * Read from input stream according given format.
     *
     * For each key in the format specification,
     * a corresponding value will be read from the input stream.
     *
     * \param  in                input stream
     * \param  __begin           begin of format
     * \param  __end             end   of format
     * \return                   input stream
     */
    template<class T>
    std::istream& read(std::istream& in, T __begin, T __end)
    {
      using namespace std;
      
      for (T i = __begin; i != __end; ++i) {
 
        iterator p = find(*i);
          
        if (p != end()) {
 
          p->second->read(in);
          
        } else {
        
          WARNING("JProperties::read(): unknown key <" << *i << ">" << endl);
        }
      }
 
      return in;
    }
 
    
    /** 
     * Write the current parameter values.
     *
     * The output format is
     *
     *    [<key><sub>]<key><sep><value><eol>
     *    [<key><sub>]<key><sep><value><eol>
     *
     * in this, white spaces are omitted.
     *
     * \param  out               output stream
     * \return                   output stream
     */
    std::ostream& write(std::ostream& out) const
    {
      using namespace std;
 
      for (const_iterator i = begin(); i != end(); ++i) {
 
        char c = ' ';
 
        if (i->second->is_properties()) {
          c = getDefaultDivision ();
        } else {
          c = getDefaultSeparator();
        }
 
        i->second->write(out, (i->first + c).c_str(), getDefaultEndOfLine());
      }
 
      out << flush;
 
      return out;
    }
 
 
    /**
     * Write to output stream according given format.
     *
     * For each key in the format specification,
     * a corresponding value will be written to the output stream.
     *
     * \param  out               output stream
     * \param  format            format
     * \return                   output stream
     */
    std::ostream& write(std::ostream& out, const std::string& format) 
    {
      using namespace std;
      
      istringstream is(format);
 
      vector<string> buffer;
 
      for (string key; is >> key; ) {
        buffer.push_back(key);
      }
 
      return write(out, buffer.begin(), buffer.end());
    }
 
 
    /**
     * Write to output stream according given format.
     *
     * For each key in the format specification,
     * a corresponding value will be written to the output stream.
     *
     * \param  out               output stream
     * \param  __begin           begin of format
     * \param  __end             end   of format
     * \return                   output stream
     */
    template<class T>
    std::ostream& write(std::ostream& out, T __begin, T __end)
    {
      using namespace std;
      
      for (T i = __begin; i != __end; ++i) {
 
        iterator p = find(*i);
          
        if (p != end()) {
 
          out << getDefaultWhiteSpace();
 
          p->second->write(out);
          
        } else {
        
          WARNING("JProperties::write(): unknown key <" << *i << ">" << endl);
        }
      }
 
      return out;
    }
 
 
    /**
     * Stream editing of input format.
     *
     * For each key in the format specification,
     * a corresponding value will be written to the output stream.
     *
     * \param  format            format
     * \param  prefix            prefix  key word
     * \param  postfix           postfix key word
     * \return                   output stream
     */
    std::string sed(const std::string& format,
                    const std::string& prefix  = "", 
                    const std::string& postfix = "")
    {
      using namespace std;
      
      string buffer = format;
      
      for (iterator i = begin(); i != end(); ++i) {
 
        string::size_type ipos = 0;
        
        while ((ipos = buffer.find(prefix + i->first + postfix, ipos)) != string::npos) {
 
          ostringstream out;
 
          i->second->write(out);
 
          buffer.replace(ipos, prefix.length() + i->first.length() + postfix.length(), out.str());
        }
      }
      
      return buffer;
    }
 
    
    /**
     * Get value.
     *
     * \param  key               key
     * \return                   value of this JPropertiesElement
     */
    template<class T>
    const T& getValue(const std::string& key) const
    {
      const_iterator i = find(key);
 
      if (i != end())
        return i->second.getValue<T>();
      else
        THROW(JPropertiesException, "Key <" << key << "> not found at JPropertiesElement::getValue()");
    }
 
    
    /**
     * Get value.
     *
     * \param  key               key
     * \return                   value of this JPropertiesElement
     */
    template<class T>
    T& getValue(const std::string& key) 
    {
      iterator i = find(key);
 
      if (i != end())
        return i->second.getValue<T>();
      else
        THROW(JPropertiesException, "Key <" << key << "> not found at JPropertiesElement::getValue()");
    }
 
    
    /**
     * Set value.
     *
     * \param  key               key
     * \param  value             value
     */
    template<class T>
    void setValue(const std::string& key, const T& value)
    {
      iterator i = find(key);
 
      if (i != end())
        return i->second.setValue<T>(value);
      else
        THROW(JPropertiesException, "Key <" << key << "> not found at JPropertiesElement::setValue()");
    }
 
 
    /**
     * Get string value.
     *
     * \param  key               key
     * \return                   value
     */
    std::string getString(const std::string& key) const
    {
      const_iterator i = find(key);
 
      if (i != end())
        return i->second.toString();
      else
        THROW(JPropertiesException, "Key <" << key << "> not found at JPropertiesElement::getString()");
    }
 
 
    /** 
     * Print the current parameter values.
     *
     * \param  out               output stream
     * \return                   output stream
     */
    std::ostream& print(std::ostream& out) const
    {
      write(out);
 
      return out;
    }
 
 
    /**
     * Stream input.
     *
     * \param  in                input stream
     * \param  properties        properties
     * \return                   input stream
     */
    friend inline std::istream& operator>>(std::istream& in, JProperties& properties)
    {
      return properties.read(in); 
    }
  
  
    /**
     * Stream output.
     *
     * \param  out               output stream
     * \param  properties        properties
     * \return                   output stream
     */
    friend inline std::ostream& operator<<(std::ostream& out, const JProperties& properties)
    { 
      return properties.write(out); 
    }
  };
 
 
  /**
   * Template specialisation for JProperties.
   */
  template<>
  class JPropertiesTemplateElement<JProperties> : 
    public JPropertiesElementInterface 
  {
  public:
    /**
     * Constructor.
     *
     * \param  value             reference of template bject
     */
    JPropertiesTemplateElement(const JProperties& value) : 
      JPropertiesElementInterface(),
      object(value)
    {}
 
 
    /**
     * Stream input.
     *
     * \param  in                input stream
     * \return                   input stream
     */
    virtual std::istream& read(std::istream& in) override 
    {
      object.read(in);
 
      return in;
    }
 
 
    /**
     * Stream output.
     *
     * \param  out               output stream
     * \param  prefix            prefix
     * \param  postfix           postfix
     * \return                   output stream
     */
    virtual std::ostream& write(std::ostream& out, 
                                const char*   prefix, 
                                const char    postfix) const override
    {
      using namespace std;
      
      for (JProperties::const_iterator i = object.begin(); i != object.end(); ++i) {
        
        char c = ' ';
 
        if (i->second->is_properties()) {
          c = object.getDefaultDivision ();
        } else {
          c = object.getDefaultSeparator();
        }
 
        i->second->write(out, (prefix + i->first + c).c_str(), postfix);
      }
      
      out << flush;
      
      return out;
    }
 
 
    /**
     * Stream output.
     *
     * \param  out               output stream
     * \return                   output stream
     */
    virtual std::ostream& write(std::ostream& out) const override 
    {
      return writeObject(out, object);
    }
 
 
    /**
     * Get properties type.
     *
     * \return                   true
     */
    virtual bool is_properties() const override 
    {
      return true;
    }
 
 
  private:
    JProperties object;
  };
 
 
  /**
   * Get properties of a given object.
   *
   * This method transfers the making of the property object to the corresponding class 
   * whilst preserving the constness of the argument.\n
   * The corresponding class should implement the method:
   * <pre>
   *   template<bool is_constant>
   *   static JProperties getProperties(typename JCategory<T, is_constant>::reference_type object,
   *                                    const JEquationParameters& equation,
   *                                    const int debug)
   * </pre>
   *
   * \param  object            object
   * \param  parameters        equation parameters
   * \param  debug             debug level
   */
  template<class T>
  inline JProperties& getProperties(T& object,
                                    const JEquationParameters& parameters = JEquationParameters(),
                                    const int debug = 1)
  {
    using namespace JPP;
 
    static JProperties properties;
 
    properties = T::template getProperties<JClass<T>::is_constant>(object, parameters, debug);
    
    return properties; 
  }
}
 
 
using JLANG::JEquationParameters;
using JLANG::JCategory;
using JEEP::JProperties;
using JEEP::getProperties;
 
 
/**
 * macros to convert (template) parameter to JPropertiesElement object
 */
#define gmake_property(A) JProperties::value_type(JProperties::getKey(#A,".>/:"), JEEP::JPropertiesElement(A))
#define zmake_property(A) JProperties::value_type(#A,                             JEEP::JPropertiesElement(A))
 
#endif