[545] | 1 | #include "icdate.hpp" |
---|
| 2 | #include "calendar_util.hpp" |
---|
| 3 | |
---|
| 4 | extern "C" |
---|
| 5 | { |
---|
| 6 | cxios_duration cxios_duration_add(cxios_duration dur1_c, cxios_duration dur2_c) |
---|
| 7 | { |
---|
| 8 | xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day, |
---|
| 9 | dur1_c.hour, dur1_c.minute, dur1_c.second, |
---|
| 10 | dur1_c.timestep }; |
---|
| 11 | xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day, |
---|
| 12 | dur2_c.hour, dur2_c.minute, dur2_c.second, |
---|
| 13 | dur2_c.timestep }; |
---|
| 14 | xios::CDuration res = dur1 + dur2; |
---|
| 15 | return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; |
---|
| 16 | } |
---|
| 17 | |
---|
| 18 | cxios_duration cxios_duration_sub(cxios_duration dur1_c, cxios_duration dur2_c) |
---|
| 19 | { |
---|
| 20 | xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day, |
---|
| 21 | dur1_c.hour, dur1_c.minute, dur1_c.second, |
---|
| 22 | dur1_c.timestep }; |
---|
| 23 | xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day, |
---|
| 24 | dur2_c.hour, dur2_c.minute, dur2_c.second, |
---|
| 25 | dur2_c.timestep }; |
---|
| 26 | xios::CDuration res = dur1 - dur2; |
---|
| 27 | return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; |
---|
| 28 | } |
---|
| 29 | |
---|
| 30 | cxios_duration cxios_duration_mult(double val, cxios_duration dur_c) |
---|
| 31 | { |
---|
| 32 | xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day, |
---|
| 33 | dur_c.hour, dur_c.minute, dur_c.second, |
---|
| 34 | dur_c.timestep }; |
---|
| 35 | xios::CDuration res = val * dur; |
---|
| 36 | return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; |
---|
| 37 | } |
---|
| 38 | |
---|
| 39 | cxios_duration cxios_duration_neg(cxios_duration dur_c) |
---|
| 40 | { |
---|
| 41 | xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day, |
---|
| 42 | dur_c.hour, dur_c.minute, dur_c.second, |
---|
| 43 | dur_c.timestep }; |
---|
| 44 | xios::CDuration res = -dur; |
---|
| 45 | return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; |
---|
| 46 | } |
---|
| 47 | |
---|
| 48 | bool cxios_duration_eq(cxios_duration dur1_c, cxios_duration dur2_c) |
---|
| 49 | { |
---|
| 50 | xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day, |
---|
| 51 | dur1_c.hour, dur1_c.minute, dur1_c.second, |
---|
| 52 | dur1_c.timestep }; |
---|
| 53 | xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day, |
---|
| 54 | dur2_c.hour, dur2_c.minute, dur2_c.second, |
---|
| 55 | dur2_c.timestep }; |
---|
| 56 | return (dur1 == dur2); |
---|
| 57 | } |
---|
| 58 | |
---|
| 59 | bool cxios_duration_neq(cxios_duration dur1_c, cxios_duration dur2_c) |
---|
| 60 | { |
---|
| 61 | xios::CDuration dur1 = { dur1_c.year, dur1_c.month, dur1_c.day, |
---|
| 62 | dur1_c.hour, dur1_c.minute, dur1_c.second, |
---|
| 63 | dur1_c.timestep }; |
---|
| 64 | xios::CDuration dur2 = { dur2_c.year, dur2_c.month, dur2_c.day, |
---|
| 65 | dur2_c.hour, dur2_c.minute, dur2_c.second, |
---|
| 66 | dur2_c.timestep }; |
---|
| 67 | return (dur1 != dur2); |
---|
| 68 | } |
---|
| 69 | } |
---|