src/language/expressions/helpers.h

   1 #ifndef EXPRESSIONS_HELPERS_H
   2 #define EXPRESSIONS_HELPERS_H
   3
   4 #include <ctype.h>
   5 #include <float.h>
   6 #include <gsl/gsl_cdf.h>
   7 #include <gsl/gsl_randist.h>
   8 #include <gsl/gsl_sf.h>
   9 #include <limits.h>
  10 #include <math.h>
  11 #include <stdbool.h>
  12 #include "case.h"
  13 #include "compiler.h"
  14 #include "data-in.h"
  15 #include "dictionary.h"
  16 #include "message.h"
  17 #include "calendar.h"
  18 #include "gsl-extras/gsl-extras.h"
  19 #include "misc.h"
  20 #include "moments.h"
  21 #include "random.h"
  22 #include "settings.h"
  23 #include "str.h"
  24 #include "value.h"
  25 #include "variable.h"
  26 #include "procedure.h"
  27
  28 #include "gettext.h"
  29 #define _(msgid) gettext (msgid)
  30
  31 static inline double check_errno (double x)
  32 {
  33   return errno == 0 ? x : SYSMIS;
  34 }
  35
  36 #define check_errno(EXPRESSION) (errno = 0, check_errno (EXPRESSION))
  37
  38 #define DAY_S (60. * 60. * 24.)         /* Seconds per day. */
  39 #define DAY_H 24.                       /* Hours per day. */
  40 #define H_S (60 * 60.)                  /* Seconds per hour. */
  41 #define H_MIN 60.                       /* Minutes per hour. */
  42 #define MIN_S 60.                       /* Seconds per minute. */
  43 #define WEEK_DAY 7.                     /* Days per week. */
  44
  45 extern const struct fixed_string empty_string;
  46
  47 int compare_string (const struct fixed_string *, const struct fixed_string *);
  48
  49 double expr_ymd_to_date (double year, double month, double day);
  50 double expr_ymd_to_ofs (double year, double month, double day);
  51 double expr_wkyr_to_date (double wk, double yr);
  52 double expr_yrday_to_date (double yr, double day);
  53 double expr_yrmoda (double year, double month, double day);
  54
  55 struct fixed_string alloc_string (struct expression *, size_t length);
  56 struct fixed_string copy_string (struct expression *,
  57                                  const char *, size_t length);
  58
  59 static inline bool
  60 is_valid (double d)
  61 {
  62   return finite (d) && d != SYSMIS;
  63 }
  64
  65 size_t count_valid (double *, size_t);
  66
  67 double idf_beta (double P, double a, double b);
  68 double ncdf_beta (double x, double a, double b, double lambda);
  69 double npdf_beta (double x, double a, double b, double lambda);
  70
  71 double cdf_bvnor (double x0, double x1, double r);
  72
  73 double idf_fdist (double P, double a, double b);
  74
  75 #endif /* expressions/helpers.h */