#include "duration.hpp"
#include "date.hpp"
#include "calendar.hpp"

namespace xios
{
      /// ////////////////////// Définitions ////////////////////// ///
      const CDuration Year   = {1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0},
                      Month  = {0.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0},
                      Week   = {0.0, 0.0, 7.0, 0.0, 0.0, 0.0, 0.0},
                      Day    = {0.0, 0.0, 1.0, 0.0, 0.0, 0.0, 0.0},
                      Hour   = {0.0, 0.0, 0.0, 1.0, 0.0, 0.0, 0.0},
                      Minute = {0.0, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0},
                      Second = {0.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0},
                      NoneDu = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0},
                      TimeStep = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0};

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

      CDuration & CDuration::operator=(const CDuration & duration)
      {
         year = duration.year;  month  = duration.month;  day    = duration.day;
         hour = duration.hour;  minute = duration.minute; second = duration.second; timestep=duration.timestep;
         return *this;
      }

      StdOStream & operator<<(StdOStream & out, const CDuration & duration)
      {
         out << duration.toString();
         return out;
      }

      StdIStream & operator>>(StdIStream & in , CDuration & duration)
      {
         duration.year = duration.month  = duration.day    =
         duration.hour = duration.minute = duration.second = duration.timestep=0.0;
         double v = 1.0;
         char   c = '/';
         while (!in.eof())
         {
               if (!(in >> v >> c))
               {
                 //DEBUG("----> Pb StdIStream & operator>>(StdIStream & in , CDuration & duration)");
                 //if (in.eof())  DEBUG("----> Fin de fichier StdIStream & operator>>(StdIStream & in , CDuration & duration)");
               }
               if (in.eof())
               {
                 //DEBUG("----> Fin de fichier StdIStream & operator>>(StdIStream & in , CDuration & duration)");
                 break;
               }
               switch (c)
               {
                  case 'y': duration.year   = v; break;
                  case 'd': duration.day    = v; break;
                  case 'h': duration.hour   = v; break;
                  case 's': duration.second = v; break;
                  case 'm':
                  {
                     in >> c;
                     if     (c == 'i') duration.minute = v;
                     else if(c == 'o') duration.month  = v;
                     else
                     {
                        StdString valc("m"); valc.append(1, c);
                        //DEBUG("La chaine \"" << valc << "\" ne permet pas de définir une unité de durée.");
                        break;
                     }
                     break;
                  }
                  case 't' :
                  {
                    in >> c;
                    if (c=='s') duration.timestep = v;
                    break;
                  }

                  default:
                     StdString valc; valc.append(1, c);
                     //DEBUG("La chaine \"" << valc << "\" ne permet pas de définir une unité de durée.");
                     break;
               }
            }
            return in;
      }

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

      bool CDuration::isNone(void) const
      {
         if ((year == 0) && (month  == 0) && (day    == 0) &&
             (hour == 0) && (minute == 0) && (second == 0) && (timestep == 0))
            return true;
         return false;
      }

      //-----------------------------------------------------------------
      CDuration & CDuration::solveTimeStep(const CCalendar & c)
      {
        CDuration timeStep=c.getTimeStep();
        second +=timestep*timeStep.second;
        minute +=timestep*timeStep.minute;
        hour +=timestep*timeStep.hour;
        day +=timestep*timeStep.day;
        month +=timestep*timeStep.month;
        year +=timestep*timeStep.year;
        timestep = 0;
        return *this;
      }

      CDuration & CDuration::resolve(const CCalendar & c)
      {
        // Convert year, day, hour and minute to integer
        month  += modf(year, &year) * c.getYearLength();
        hour   += modf(day, &day) * c.getDayLength();
        minute += modf(hour , &hour) * c.getHourLength();
        second += modf(minute, &minute) * c.getMinuteLength();

        // Simplify second, minute, day and year
        double remain;
        remain = fmod(second, c.getMinuteLength());
        minute += (second - remain) / c.getMinuteLength();
        second = remain;

        remain = fmod(minute, c.getHourLength());
        hour   += (minute - remain) / c.getHourLength();
        minute = remain;

        remain = fmod(hour, c.getDayLength());
        day    += (hour - remain) / c.getDayLength();
        hour   = remain;

        remain = fmod(month, c.getYearLength());
        year   += (month - remain) / c.getYearLength();
        month  = remain;

        return *this;
      }

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

      StdString CDuration::toString(void) const
      {
         StdOStringStream sout;
         bool forceOutput = true;

         if (year   != 0.0) { forceOutput = false; sout << year   << "y "; }
         if (month  != 0.0) { forceOutput = false; sout << month  << "mo "; }
         if (day    != 0.0) { forceOutput = false; sout << day    << "d "; }
         if (hour   != 0.0) { forceOutput = false; sout << hour   << "h "; }
         if (minute != 0.0) { forceOutput = false; sout << minute << "mi "; }
         if (second != 0.0) { forceOutput = false; sout << second << "s "; }
         if (timestep != 0.0 || forceOutput)     { sout << timestep << "ts "; }

         // Remove the trailing space
         StdString strOut = sout.str();
         return strOut.erase(strOut.size() - 1);
      }

      StdString CDuration::toStringUDUnits(void) const
      {
         if (timestep != 0.0)
           ERROR("StdString CDuration::toStringUDUnits(void) const",
                 "Impossible to convert a duration to string using UDUnits when a timestep is set.");

         StdOStringStream sout;
         bool forceOutput = true;

         if (year   != 0.0) { forceOutput = false; sout << year   << " yr "; }
         if (month  != 0.0) { forceOutput = false; sout << month  << " month "; }
         if (day    != 0.0) { forceOutput = false; sout << day    << " d "; }
         if (hour   != 0.0) { forceOutput = false; sout << hour   << " h "; }
         if (minute != 0.0) { forceOutput = false; sout << minute << " min "; }
         if (second != 0.0 || forceOutput)       { sout << second << " s "; }

         // Remove the trailing space
         StdString strOut = sout.str();
         return strOut.erase(strOut.size() - 1);
      }

      CDuration CDuration::FromString(const StdString & str)
      {
         CDuration dr = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0};
         StdIStringStream iss(str); iss >> dr;
         return dr;
      }

      ///---------------------------------------------------------------
} // namespace xios