js-stream-sas7bdat 0.1.0 → 0.1.1

package/src/binding/ReadStat/src/readstat_value.c

@@ -0,0 +1,178 @@
+
+#include "readstat.h"
+
+readstat_type_class_t readstat_type_class(readstat_type_t type) {
+    if (type == READSTAT_TYPE_STRING || type == READSTAT_TYPE_STRING_REF)
+        return READSTAT_TYPE_CLASS_STRING;
+
+    return READSTAT_TYPE_CLASS_NUMERIC;
+}
+
+readstat_type_t readstat_value_type(readstat_value_t value) {
+    return value.type;
+}
+
+readstat_type_class_t readstat_value_type_class(readstat_value_t value) {
+    return readstat_type_class(value.type);
+}
+
+char readstat_value_tag(readstat_value_t value) {
+    return value.tag;
+}
+
+int readstat_value_is_missing(readstat_value_t value, readstat_variable_t *variable) {
+    if (value.is_system_missing || value.is_tagged_missing)
+        return 1;
+
+    if (variable)
+        return readstat_value_is_defined_missing(value, variable);
+
+    return 0;
+}
+
+int readstat_value_is_system_missing(readstat_value_t value) {
+    return (value.is_system_missing);
+}
+
+int readstat_value_is_tagged_missing(readstat_value_t value) {
+    return (value.is_tagged_missing);
+}
+
+static int readstat_double_is_defined_missing(double fp_value, readstat_variable_t *variable) {
+    int count = readstat_variable_get_missing_ranges_count(variable);
+    int i;
+    for (i=0; i<count; i++) {
+        double lo = readstat_double_value(readstat_variable_get_missing_range_lo(variable, i));
+        double hi = readstat_double_value(readstat_variable_get_missing_range_hi(variable, i));
+        if (fp_value >= lo && fp_value <= hi) {
+            return 1;
+        }
+    }
+    return 0;
+}
+
+static int readstat_string_is_defined_missing(const char *string, readstat_variable_t *variable) {
+    if (string == NULL)
+        return 0;
+
+    int count = readstat_variable_get_missing_ranges_count(variable);
+    int i;
+    for (i=0; i<count; i++) {
+        const char *lo = readstat_string_value(readstat_variable_get_missing_range_lo(variable, i));
+        const char *hi = readstat_string_value(readstat_variable_get_missing_range_hi(variable, i));
+        if (lo && hi && strcmp(string, lo) >= 0 && strcmp(string, hi) <= 0) {
+            return 1;
+        }
+    }
+    return 0;
+}
+
+int readstat_value_is_defined_missing(readstat_value_t value, readstat_variable_t *variable) {
+    if (readstat_value_type_class(value) != readstat_variable_get_type_class(variable))
+        return 0;
+
+    if (readstat_value_type_class(value) == READSTAT_TYPE_CLASS_STRING)
+        return readstat_string_is_defined_missing(readstat_string_value(value), variable);
+
+    if (readstat_value_type_class(value) == READSTAT_TYPE_CLASS_NUMERIC)
+        return readstat_double_is_defined_missing(readstat_double_value(value), variable);
+
+    return 0;
+}
+
+char readstat_int8_value(readstat_value_t value) {
+    if (readstat_value_is_system_missing(value))
+        return 0;
+
+    if (value.type == READSTAT_TYPE_DOUBLE)
+        return (char)value.v.double_value;
+    if (value.type == READSTAT_TYPE_FLOAT)
+        return (char)value.v.float_value;
+    if (value.type == READSTAT_TYPE_INT32)
+        return (char)value.v.i32_value;
+    if (value.type == READSTAT_TYPE_INT16)
+        return (char)value.v.i16_value;
+    if (value.type == READSTAT_TYPE_INT8)
+        return value.v.i8_value;
+
+    return 0;
+}
+
+int16_t readstat_int16_value(readstat_value_t value) {
+    if (readstat_value_is_system_missing(value))
+        return 0;
+
+    if (value.type == READSTAT_TYPE_DOUBLE)
+        return (int16_t)value.v.double_value;
+    if (value.type == READSTAT_TYPE_FLOAT)
+        return (int16_t)value.v.float_value;
+    if (value.type == READSTAT_TYPE_INT32)
+        return (int16_t)value.v.i32_value;
+    if (value.type == READSTAT_TYPE_INT16)
+        return value.v.i16_value;
+    if (value.type == READSTAT_TYPE_INT8)
+        return value.v.i8_value;
+
+    return 0;
+}
+
+int32_t readstat_int32_value(readstat_value_t value) {
+    if (readstat_value_is_system_missing(value))
+        return 0;
+
+    if (value.type == READSTAT_TYPE_DOUBLE)
+        return (int32_t)value.v.double_value;
+    if (value.type == READSTAT_TYPE_FLOAT)
+        return (int32_t)value.v.float_value;
+    if (value.type == READSTAT_TYPE_INT32)
+        return value.v.i32_value;
+    if (value.type == READSTAT_TYPE_INT16)
+        return value.v.i16_value;
+    if (value.type == READSTAT_TYPE_INT8)
+        return value.v.i8_value;
+
+    return 0;
+}
+
+float readstat_float_value(readstat_value_t value) {
+    if (readstat_value_is_system_missing(value))
+        return NAN;
+
+    if (value.type == READSTAT_TYPE_DOUBLE)
+        return (float)value.v.double_value;
+    if (value.type == READSTAT_TYPE_FLOAT)
+        return value.v.float_value;
+    if (value.type == READSTAT_TYPE_INT32)
+        return value.v.i32_value;
+    if (value.type == READSTAT_TYPE_INT16)
+        return value.v.i16_value;
+    if (value.type == READSTAT_TYPE_INT8)
+        return value.v.i8_value;
+
+    return value.v.float_value;
+}
+
+double readstat_double_value(readstat_value_t value) {
+    if (readstat_value_is_system_missing(value))
+        return NAN;
+
+    if (value.type == READSTAT_TYPE_DOUBLE)
+        return value.v.double_value;
+    if (value.type == READSTAT_TYPE_FLOAT)
+        return value.v.float_value;
+    if (value.type == READSTAT_TYPE_INT32)
+        return value.v.i32_value;
+    if (value.type == READSTAT_TYPE_INT16)
+        return value.v.i16_value;
+    if (value.type == READSTAT_TYPE_INT8)
+        return value.v.i8_value;
+
+    return NAN;
+}
+
+const char *readstat_string_value(readstat_value_t value) {
+    if (readstat_value_type(value) == READSTAT_TYPE_STRING)
+        return value.v.string_value;
+
+    return NULL;
+}

package/src/binding/ReadStat/src/readstat_variable.c

@@ -0,0 +1,123 @@
+
+#include <stdlib.h>
+#include "readstat.h"
+
+static readstat_value_t make_blank_value(void);
+static readstat_value_t make_double_value(double dval);
+
+static readstat_value_t make_blank_value(void) {
+    readstat_value_t value = { .is_system_missing = 1, .v = { .double_value = NAN }, .type = READSTAT_TYPE_DOUBLE };
+    return value;
+}
+
+static readstat_value_t make_double_value(double dval) {
+    readstat_value_t value = { .v = { .double_value = dval }, .type = READSTAT_TYPE_DOUBLE };
+    return value;
+}
+
+static readstat_value_t make_string_value(const char *string) {
+    readstat_value_t value = { .v = { .string_value = string }, .type = READSTAT_TYPE_STRING };
+    return value;
+}
+
+const char *readstat_variable_get_name(const readstat_variable_t *variable) {
+    if (variable->name[0])
+        return variable->name;
+
+    return NULL;
+}
+
+const char *readstat_variable_get_label(const readstat_variable_t *variable) {
+    if (variable->label[0])
+        return variable->label;
+
+    return NULL;
+}
+
+const char *readstat_variable_get_format(const readstat_variable_t *variable) {
+    if (variable->format[0])
+        return variable->format;
+
+    return NULL;
+}
+
+readstat_type_t readstat_variable_get_type(const readstat_variable_t *variable) {
+    return variable->type;
+}
+
+readstat_type_class_t readstat_variable_get_type_class(const readstat_variable_t *variable) {
+    return readstat_type_class(variable->type);
+}
+
+int readstat_variable_get_index(const readstat_variable_t *variable) {
+    return variable->index;
+}
+
+int readstat_variable_get_index_after_skipping(const readstat_variable_t *variable) {
+    return variable->index_after_skipping;
+}
+
+size_t readstat_variable_get_storage_width(const readstat_variable_t *variable) {
+    return variable->storage_width;
+}
+
+readstat_measure_t readstat_variable_get_measure(const readstat_variable_t *variable) {
+    return variable->measure;
+}
+
+readstat_alignment_t readstat_variable_get_alignment(const readstat_variable_t *variable) {
+    return variable->alignment;
+}
+
+int readstat_variable_get_display_width(const readstat_variable_t *variable) {
+    return variable->display_width;
+}
+
+int readstat_variable_get_missing_ranges_count(const readstat_variable_t *variable) {
+    return variable->missingness.missing_ranges_count;
+}
+
+readstat_value_t readstat_variable_get_missing_range_lo(const readstat_variable_t *variable, int i) {
+    if (i < variable->missingness.missing_ranges_count &&
+            2*i+1 < sizeof(variable->missingness.missing_ranges)/sizeof(variable->missingness.missing_ranges[0])) {
+        return variable->missingness.missing_ranges[2*i];
+    }
+
+    return make_blank_value();
+}
+
+readstat_value_t readstat_variable_get_missing_range_hi(const readstat_variable_t *variable, int i) {
+    if (i < variable->missingness.missing_ranges_count &&
+            2*i+1 < sizeof(variable->missingness.missing_ranges)/sizeof(variable->missingness.missing_ranges[0])) {
+        return variable->missingness.missing_ranges[2*i+1];
+    }
+
+    return make_blank_value();
+}
+
+static readstat_error_t readstat_variable_add_missing_value_range(readstat_variable_t *variable, readstat_value_t lo, readstat_value_t hi) {
+    int i = readstat_variable_get_missing_ranges_count(variable);
+    if (2*i < sizeof(variable->missingness.missing_ranges)/sizeof(variable->missingness.missing_ranges[0])) {
+        variable->missingness.missing_ranges[2*i] = lo;
+        variable->missingness.missing_ranges[2*i+1] = hi;
+        variable->missingness.missing_ranges_count++;
+        return READSTAT_OK;
+    }
+    return READSTAT_ERROR_TOO_MANY_MISSING_VALUE_DEFINITIONS;
+}
+
+readstat_error_t readstat_variable_add_missing_double_range(readstat_variable_t *variable, double lo, double hi) {
+    return readstat_variable_add_missing_value_range(variable, make_double_value(lo), make_double_value(hi));
+}
+
+readstat_error_t readstat_variable_add_missing_double_value(readstat_variable_t *variable, double value) {
+    return readstat_variable_add_missing_value_range(variable, make_double_value(value), make_double_value(value));
+}
+
+readstat_error_t readstat_variable_add_missing_string_range(readstat_variable_t *variable, const char *lo, const char *hi) {
+    return readstat_variable_add_missing_value_range(variable, make_string_value(lo), make_string_value(hi));
+}
+
+readstat_error_t readstat_variable_add_missing_string_value(readstat_variable_t *variable, const char *value) {
+    return readstat_variable_add_missing_value_range(variable, make_string_value(value), make_string_value(value));
+}