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

Last change on this file since 801 was 801, checked in by rlacroix, 5 years ago

Fortran interface: Add functions to convert a string to a date or a duration.

File size: 3.7 KB
Line 
1#include "icutil.hpp"
2#include "icdate.hpp"
3#include "calendar_util.hpp"
4
5extern "C"
6{
7  void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size)
8  {
9    xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day,
10                            dur_c.hour, dur_c.minute, dur_c.second,
11                            dur_c.timestep };
12
13    if (!string_copy(dur.toString(), str, str_size))
14      ERROR("void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size)", << "Input string is too short");
15  }
16
17  cxios_duration cxios_duration_convert_from_string(const char* str, int str_size)
18  {
19    std::string dur_str;
20    xios::CDuration dur;
21
22    if (cstr2string(str, str_size, dur_str))
23      dur = xios::CDuration::FromString(dur_str);
24
25    return { dur.year, dur.month, dur.day, dur.hour, dur.minute, dur.second, dur.timestep };
26  }
27
28  cxios_duration cxios_duration_add(cxios_duration dur1_c, cxios_duration dur2_c)
29  {
30    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
31                             dur1_c.hour, dur1_c.minute, dur1_c.second,
32                             dur1_c.timestep };
33    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
34                             dur2_c.hour, dur2_c.minute, dur2_c.second,
35                             dur2_c.timestep };
36    xios::CDuration res = dur1 + dur2;
37    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
38  }
39
40  cxios_duration cxios_duration_sub(cxios_duration dur1_c, cxios_duration dur2_c)
41  {
42    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
43                             dur1_c.hour, dur1_c.minute, dur1_c.second,
44                             dur1_c.timestep };
45    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
46                             dur2_c.hour, dur2_c.minute, dur2_c.second,
47                             dur2_c.timestep };
48    xios::CDuration res = dur1 - dur2;
49    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
50  }
51
52  cxios_duration cxios_duration_mult(double val, cxios_duration dur_c)
53  {
54    xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day,
55                            dur_c.hour, dur_c.minute, dur_c.second,
56                            dur_c.timestep };
57    xios::CDuration res = val * dur;
58    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
59  }
60
61  cxios_duration cxios_duration_neg(cxios_duration dur_c)
62  {
63    xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day,
64                            dur_c.hour, dur_c.minute, dur_c.second,
65                            dur_c.timestep };
66    xios::CDuration res = -dur;
67    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep };
68  }
69
70  bool cxios_duration_eq(cxios_duration dur1_c, cxios_duration dur2_c)
71  {
72    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
73                             dur1_c.hour, dur1_c.minute, dur1_c.second,
74                             dur1_c.timestep };
75    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
76                             dur2_c.hour, dur2_c.minute, dur2_c.second,
77                             dur2_c.timestep };
78    return (dur1 == dur2);
79  }
80
81  bool cxios_duration_neq(cxios_duration dur1_c, cxios_duration dur2_c)
82  {
83    xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day,
84                             dur1_c.hour, dur1_c.minute, dur1_c.second,
85                             dur1_c.timestep };
86    xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day,
87                             dur2_c.hour, dur2_c.minute, dur2_c.second,
88                             dur2_c.timestep };
89    return (dur1 != dur2);
90  }
91}
Note: See TracBrowser for help on using the repository browser.