source: XIOS/trunk/src/interface/c/icduration.cpp @ 794

#include "icutil.hpp"
#include "icdate.hpp"
#include "calendar_util.hpp"

extern "C"
{
  void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size)
  {
    xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day,
                            dur_c.hour, dur_c.minute, dur_c.second,
                            dur_c.timestep };

    if (!string_copy(dur.toString(), str, str_size))
      ERROR("void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size)", << "Input string is too short");
  }

  cxios_duration cxios_duration_add(cxios_duration dur1_c, cxios_duration dur2_c)
  {
    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
                             dur1_c.hour, dur1_c.minute, dur1_c.second,
                             dur1_c.timestep };
    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
                             dur2_c.hour, dur2_c.minute, dur2_c.second,
                             dur2_c.timestep };
    xios::CDuration res = dur1 + dur2;
    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
  }

  cxios_duration cxios_duration_sub(cxios_duration dur1_c, cxios_duration dur2_c)
  {
    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
                             dur1_c.hour, dur1_c.minute, dur1_c.second,
                             dur1_c.timestep };
    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
                             dur2_c.hour, dur2_c.minute, dur2_c.second,
                             dur2_c.timestep };
    xios::CDuration res = dur1 - dur2;
    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
  }

  cxios_duration cxios_duration_mult(double val, cxios_duration dur_c)
  {
    xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day,
                            dur_c.hour, dur_c.minute, dur_c.second,
                            dur_c.timestep };
    xios::CDuration res = val * dur;
    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
  }

  cxios_duration cxios_duration_neg(cxios_duration dur_c)
  {
    xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day,
                            dur_c.hour, dur_c.minute, dur_c.second,
                            dur_c.timestep };
    xios::CDuration res = -dur;
    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
  }

  bool cxios_duration_eq(cxios_duration dur1_c, cxios_duration dur2_c)
  {
    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
                             dur1_c.hour, dur1_c.minute, dur1_c.second,
                             dur1_c.timestep };
    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
                             dur2_c.hour, dur2_c.minute, dur2_c.second,
                             dur2_c.timestep };
    return (dur1 == dur2);
  }

  bool cxios_duration_neq(cxios_duration dur1_c, cxios_duration dur2_c)
  {
    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
                             dur1_c.hour, dur1_c.minute, dur1_c.second,
                             dur1_c.timestep };
    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
                             dur2_c.hour, dur2_c.minute, dur2_c.second,
                             dur2_c.timestep };
    return (dur1 != dur2);
  }
}