/*
  FormatString  -  string template formatting based on boost::format 

  Copyright (C)         Lumiera.org
    2011,               Hermann Vosseler <Ichthyostega@web.de>

  This program is free software; you can redistribute it and/or
  modify it under the terms of the GNU General Public License as
  published by the Free Software Foundation; either version 2 of
  the License, 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 more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

* *****************************************************/

/** @file format-string.cpp
 ** Implementation for printf-style formatting, based on boost::format.
 ** This file holds the generic implementation of our format frontend,
 ** which actually just invokes boost::format. The corresponding header
 ** format-string.hpp contains some template functions and classes,
 ** which select an appropriate wrapper to pass the calls down.
 ** Here, we define explicit specialisations for the frontend to invoke,
 ** which in turn just pass on the given argument value to the embedded
 ** boost::format object, which in turn integrates the formatted result
 ** into an embedded string stream.
 ** 
 ** To avoid exposing boost::format in the frontend header, we use an
 ** opaque buffer of appropriate size to piggyback the formatter object.
 ** @warning unfortunately this requires a hard coded buffer size constant
 **          in the front-end, which we define there manually, based on
 **          the current implementation layout found in the boost libraries.
 **          If Boost eventually changes the implementation, the assertion
 **          in our constructor will trigger.
 ** 
 ** @see FormatString_test
 ** 
 */



#include "lib/error.hpp"
#include "lib/format-util.hpp"
#include "lib/format-string.hpp"

#include <boost/static_assert.hpp>
#include <boost/format.hpp>
#include <iostream>





namespace util {
  
  using boost::format;
  
  namespace { // implementation details...
    
    inline boost::format&
    accessImpl (char* buffer)
    {
      return reinterpret_cast<boost::format&> (*buffer);
    }
    
    
    /** in case the formatting of a (primitive) value fails,
     *  we try to use a error indicator instead
     */
    void
    pushFailsafeReplacement (char* formatter, const char* errorMsg =NULL)
    try {
        string placeholder("<Error");
        if (errorMsg){
            placeholder += ": ";
            placeholder += errorMsg;
        }
        placeholder += ">";
        
        accessImpl(formatter) % placeholder;
      }
    ERROR_LOG_AND_IGNORE (progress, "Supplying placeholder for problematic format parameter")
    
    
    /** Core function: let boost::format handle a value */
    template<typename VAL>
    void
    doFormatParameter (char* formatter, VAL const& val)
    try {
        accessImpl(formatter) % val;
      }
    
    catch (boost::io::too_many_args& argErr)
      {
        WARN (progress, "Format: excess argument '%s' of type %s ignored."
                      , cStr(str(val))
                      , cStr(tyStr(val)));
      }
    catch (std::exception& failure)
      {
        WARN (progress, "Format: Parameter '%s' causes problems: %s"
                      , cStr(str(val))
                      , failure.what());
        pushFailsafeReplacement (formatter, failure.what());
      }
    catch (...)
      {
        WARN (progress, "Format: Unexpected problems accepting format parameter '%s'", cStr(str(val)));
        pushFailsafeReplacement (formatter);
      }
    
    
    inline void
    suppressInsufficientArgumentErrors (char* formatter)
    {
      using namespace boost::io;
      accessImpl(formatter).exceptions (all_error_bits ^ too_few_args_bit); 
    }
    
    
  }//(End) implementation details
  
  
  
  
  
  /** */
  _Fmt::_Fmt (string formatString)
  {
    BOOST_STATIC_ASSERT (sizeof(boost::format) <= FORMATTER_SIZE);
    
    new(formatter_) boost::format(formatString);
    suppressInsufficientArgumentErrors (formatter_);
  }
  
  _Fmt::~_Fmt ()
  {
    accessImpl(formatter_).~format();
  }
  
  
  /** @internal access points for the frontend,
   * allowing to push a parameter value down into the implementation
   * for the actual formatting.
   * @note we need to generate instantiations of this template function
   *       explicitly for all basic types to be supported for direct handling,
   *       otherwise we'll get linker errors. Lumiera uses the ``inclusion model''
   *       for template instantiation, which means there is no compiler magic
   *       involved and a template function either needs to be \em defined in
   *       a header or explicitly instantiated in some translation unit.
   */
  template<typename VAL>
  void
  _Fmt::pushParameter (const VAL val)
  {
    doFormatParameter (formatter_, val);
  }
  
  template<typename VAL>
  void
  _Fmt::pushParameter (const VAL * pVal)
  {
    if (pVal)
      doFormatParameter (formatter_, *pVal);
    else
      doFormatParameter (formatter_, "<null>");
  }
  
  template<>
  void
  _Fmt::pushParameter (const char * cString)
  {
    doFormatParameter (formatter_, cString? cString : "↯" );
  }
  template<>
  void
  _Fmt::pushParameter (const void * address)
  {
    doFormatParameter (formatter_, address);
  }
  
  
  
  /* ===== explicitly supported =================== */
  
  template void _Fmt::pushParameter(const string);
  template void _Fmt::pushParameter(const char);
  template void _Fmt::pushParameter(const uchar);
  template void _Fmt::pushParameter(const int);
  template void _Fmt::pushParameter(const uint);
  template void _Fmt::pushParameter(const short);
  template void _Fmt::pushParameter(const ushort);
  template void _Fmt::pushParameter(const int64_t);
  template void _Fmt::pushParameter(const uint64_t);
  template void _Fmt::pushParameter(const float);
  template void _Fmt::pushParameter(const double);
  
  template void _Fmt::pushParameter(const string * );
  template void _Fmt::pushParameter(const uchar *  );
  template void _Fmt::pushParameter(const int *    );
  template void _Fmt::pushParameter(const uint *   );
  template void _Fmt::pushParameter(const short *  );
  template void _Fmt::pushParameter(const ushort * );
  template void _Fmt::pushParameter(const int64_t *);
  template void _Fmt::pushParameter(const uint64_t*);
  template void _Fmt::pushParameter(const float *  );
  template void _Fmt::pushParameter(const double * );
  
  
  
  
  /** @remarks usually the _Fmt helper is used inline
   * at places where a string is expected. The '%' operator
   * used to fed parameters has a higher precedence than the
   * assignment or comparison operators, ensuring that all parameters
   * are evaluated and formatted prior to receiving the formatted result
   */
  _Fmt::operator string()  const
  try {
      return accessImpl(formatter_).str();
    }
  
  catch (std::exception& failure)
    {
      WARN (progress, "Format: Failure to receive formatted result: %s", failure.what());
      return "<formatting failure>";
    }
  catch (...)
    {
      WARN (progress, "Format: Unexpected problems while formatting output.");
      return "<unexpected problems>";
    }
  
  
  
  /** send the formatted buffer directly to the output stream.
   * @note this is more efficient than creating a string and outputting that,
   *       because boost::format internally uses a string-stream to generate
   *       the formatted representation, relying on the C++ output framework
   */
  std::ostream&
  operator<< (std::ostream& os, _Fmt const& fmt)
  try {
      return os << accessImpl(fmt.formatter_);
    }
  
  catch(std::exception& failure)
    {
      WARN (progress, "Format: Failure when outputting formatted result: %s", failure.what());
      return os << "<formatting failure>";
    }
  catch(...)
    {
      WARN (progress, "Format: Unexpected problems while producing formatted output.");
      return os << "<unexpected problems>";
    }
  
  
  
} // namespace util