rayforce-sys 1.4.0

Raw FFI bindings to the RayforceDB v2 core (librayforce)
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129

/*
 *   Copyright (c) 2025-2026 Anton Kundenko <singaraiona@gmail.com>
 *   All rights reserved.

 *   Permission is hereby granted, free of charge, to any person obtaining a copy
 *   of this software and associated documentation files (the "Software"), to deal
 *   in the Software without restriction, including without limitation the rights
 *   to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 *   copies of the Software, and to permit persons to whom the Software is
 *   furnished to do so, subject to the following conditions:

 *   The above copyright notice and this permission notice shall be included in all
 *   copies or substantial portions of the Software.

 *   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 *   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 *   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 *   AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 *   LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 *   OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 *   SOFTWARE.
 */

#include "store/enc.h"
#include <rayforce.h>
#include "table/sym.h"
#include <string.h>

static inline uint64_t tmask(int T) { return T == 64 ? ~0ull : ((1ull << T) - 1); }

bool ray_enc_kind_of(int8_t type, uint8_t attrs, ray_enc_kind_t* k) {
    switch (type) {
    case RAY_BOOL: case RAY_U8:       *k = (ray_enc_kind_t){ 8,  false, false }; return true;
    case RAY_I16:                     *k = (ray_enc_kind_t){ 16, true,  false }; return true;
    case RAY_I32: case RAY_DATE:
    case RAY_TIME:                    *k = (ray_enc_kind_t){ 32, true,  false }; return true;
    case RAY_I64: case RAY_TIMESPAN: case RAY_TIMESTAMP: *k = (ray_enc_kind_t){ 64, true,  false }; return true;
    case RAY_SYM:
        *k = (ray_enc_kind_t){ (uint8_t)(8 * RAY_SYM_ELEM(attrs)), false, false };
        return true;
    default: return false;
    }
}

bool ray_enc_value_kind(int8_t type, uint8_t attrs, ray_enc_kind_t* k) {
    if (type == RAY_F32) { *k = (ray_enc_kind_t){ 32, false, true }; return true; }
    if (type == RAY_F64) { *k = (ray_enc_kind_t){ 64, false, true }; return true; }
    return ray_enc_kind_of(type, attrs, k);
}

bool ray_enc_has_bitmap(int8_t type) {
    switch (type) {
    case RAY_I16: case RAY_I32: case RAY_I64: case RAY_DATE: case RAY_TIME:
    case RAY_TIMESPAN: case RAY_TIMESTAMP: case RAY_F32: case RAY_F64: return true;
    default: return false;
    }
}

int64_t ray_enc_logical(uint64_t bits, ray_enc_kind_t k) {
    if (k.T == 64) return (int64_t)bits;
    uint64_t m = tmask(k.T);
    bits &= m;
    if (k.is_signed && (bits >> (k.T - 1)) & 1) return (int64_t)(bits | ~m);
    return (int64_t)bits;
}

bool ray_enc_lt(uint64_t a, uint64_t b, ray_enc_kind_t k) {
    if (k.is_float) {                    /* dictionary order (spec "Comparison semantics") */
        double x = ray_enc_fval(a, k.T), y = ray_enc_fval(b, k.T);
        if (x < y) return true;
        if (x > y) return false;
        return ((a >> (k.T - 1)) & 1) && !((b >> (k.T - 1)) & 1);   /* -0.0 before +0.0 */
    }
    if (k.is_signed) return ray_enc_logical(a, k) < ray_enc_logical(b, k);
    uint64_t m = tmask(k.T);
    return (a & m) < (b & m);
}

bool ray_enc_load(const void* data, int8_t type, uint8_t attrs,
                  int64_t start, int n, ray_enc_input_t* in) {
    if (n < 0 || n > RAY_ENC_VEC) return false;
    if (!ray_enc_kind_of(type, attrs, &in->k)) return false;
    in->n = n;
    in->n_nulls = 0;
    in->bitmap = ray_enc_has_bitmap(type);
    memset(in->nullmap, 0, sizeof in->nullmap);
    const uint64_t m = tmask(in->k.T);
    for (int i = 0; i < n; i++) {
        int64_t r = start + i;
        uint64_t b; bool null = false;
        switch (type) {
        case RAY_BOOL: case RAY_U8: b = ((const uint8_t*)data)[r]; break;
        case RAY_I16: { int16_t v = ((const int16_t*)data)[r]; null = v == NULL_I16; b = (uint64_t)(uint16_t)v; break; }
        case RAY_I32: case RAY_DATE: case RAY_TIME:
            { int32_t v = ((const int32_t*)data)[r]; null = v == NULL_I32; b = (uint64_t)(uint32_t)v; break; }
        case RAY_I64: case RAY_TIMESPAN: case RAY_TIMESTAMP:
            { int64_t v = ((const int64_t*)data)[r]; null = v == NULL_I64; b = (uint64_t)v; break; }
        case RAY_SYM: { int64_t v = ray_read_sym(data, r, type, attrs); null = v == 0; b = (uint64_t)v; break; }
        default: return false;
        }
        in->bits[i] = b & m;
        if (null) {
            in->n_nulls++;
            if (in->bitmap) in->nullmap[i >> 3] |= (uint8_t)(1u << (i & 7));
        }
    }
    if (in->bitmap && in->n_nulls > 0) {
        bool have = false; uint64_t mn = 0;
        for (int i = 0; i < n; i++) {
            if ((in->nullmap[i >> 3] >> (i & 7)) & 1) continue;
            if (!have || ray_enc_lt(in->bits[i], mn, in->k)) { mn = in->bits[i]; have = true; }
        }
        if (!have) mn = 0;                          /* all null: fill zero */
        for (int i = 0; i < n; i++)
            if ((in->nullmap[i >> 3] >> (i & 7)) & 1) in->bits[i] = mn;
    }
    return true;
}

void ray_enc_stats(const uint64_t* v, int n, ray_enc_kind_t k, ray_enc_stats_t* s) {
    s->min = s->max = n ? v[0] : 0;
    s->runs = n ? 1 : 0;
    for (int i = 1; i < n; i++) {
        if (ray_enc_lt(v[i], s->min, k)) s->min = v[i];
        if (ray_enc_lt(s->max, v[i], k)) s->max = v[i];
        if (v[i] != v[i - 1]) s->runs++;
    }
    s->all_equal = s->runs <= 1;
}