X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Fhelpers.h;h=895ec49bc90b30eaac7b7a1b208839fc3d6905f0;hb=cc57a28ef6796ae9a64ef80d453f72126956d49d;hp=46ed5e4a79e03b4a698b87475ce8275b70061793;hpb=338fb2a2e84df6427a2fdee6769421f57d5666d8;p=pspp-builds.git diff --git a/src/language/expressions/helpers.h b/src/language/expressions/helpers.h index 46ed5e4a..895ec49b 100644 --- a/src/language/expressions/helpers.h +++ b/src/language/expressions/helpers.h @@ -1,4 +1,4 @@ -#ifndef EXPRESSIONS_HELPERS_H +#ifndef EXPRESSIONS_HELPERS_H #define EXPRESSIONS_HELPERS_H #include @@ -20,7 +20,6 @@ #include #include #include -#include #include #include #include @@ -32,7 +31,7 @@ #include "gettext.h" #define _(msgid) gettext (msgid) -static inline double check_errno (double x) +static inline double check_errno (double x) { return errno == 0 ? x : SYSMIS; } @@ -45,6 +44,7 @@ static inline double check_errno (double x) #define H_MIN 60. /* Minutes per hour. */ #define MIN_S 60. /* Seconds per minute. */ #define WEEK_DAY 7. /* Days per week. */ +#define WEEK_S (WEEK_DAY * DAY_S) /* Seconds per week. */ extern const struct substring empty_string; @@ -55,15 +55,19 @@ double expr_ymd_to_ofs (double year, double month, double day); double expr_wkyr_to_date (double wk, double yr); double expr_yrday_to_date (double yr, double day); double expr_yrmoda (double year, double month, double day); +double expr_date_difference (double date1, double date2, + struct substring unit); +double expr_date_sum (double date, double quantity, struct substring unit_name, + struct substring method_name); struct substring alloc_string (struct expression *, size_t length); struct substring copy_string (struct expression *, const char *, size_t length); static inline bool -is_valid (double d) +is_valid (double d) { - return finite (d) && d != SYSMIS; + return isfinite (d) && d != SYSMIS; } size_t count_valid (double *, size_t);