X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Fhelpers.h;h=23ca315a576667eb142b034f5d0589bdbf7a29db;hb=73f67789df91a09ee91976434fb15c2ee1fb5e78;hp=f5cfb67b65d5dae1f912b023571e3c1650a20e1a;hpb=81fff61a96bece351e381ad3fef8ab1248a952ba;p=pspp-builds.git diff --git a/src/language/expressions/helpers.h b/src/language/expressions/helpers.h index f5cfb67b..23ca315a 100644 --- a/src/language/expressions/helpers.h +++ b/src/language/expressions/helpers.h @@ -1,9 +1,10 @@ -#ifndef EXPRESSIONS_HELPERS_H +#ifndef EXPRESSIONS_HELPERS_H #define EXPRESSIONS_HELPERS_H #include #include #include +#include #include #include #include @@ -13,12 +14,15 @@ #include #include #include +#include #include #include #include #include #include +#include #include +#include #include #include #include @@ -29,7 +33,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; } @@ -42,25 +46,30 @@ 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 fixed_string empty_string; +extern const struct substring empty_string; -int compare_string (const struct fixed_string *, const struct fixed_string *); +int compare_string (const struct substring *, const struct substring *); double expr_ymd_to_date (double year, double month, double day); 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 fixed_string alloc_string (struct expression *, size_t length); -struct fixed_string copy_string (struct expression *, - const char *, size_t length); +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 gsl_finite (d) && d != SYSMIS; } size_t count_valid (double *, size_t);