1 /*
2 * contrib/btree_gist/btree_int8.c
3 */
4 #include "postgres.h"
5
6 #include "btree_gist.h"
7 #include "btree_utils_num.h"
8
9 typedef struct int64key
10 {
11 int64 lower;
12 int64 upper;
13 } int64KEY;
14
15 /*
16 ** int64 ops
17 */
18 PG_FUNCTION_INFO_V1(gbt_int8_compress);
19 PG_FUNCTION_INFO_V1(gbt_int8_fetch);
20 PG_FUNCTION_INFO_V1(gbt_int8_union);
21 PG_FUNCTION_INFO_V1(gbt_int8_picksplit);
22 PG_FUNCTION_INFO_V1(gbt_int8_consistent);
23 PG_FUNCTION_INFO_V1(gbt_int8_distance);
24 PG_FUNCTION_INFO_V1(gbt_int8_penalty);
25 PG_FUNCTION_INFO_V1(gbt_int8_same);
26
27
28 static bool
gbt_int8gt(const void * a,const void * b)29 gbt_int8gt(const void *a, const void *b)
30 {
31 return (*((const int64 *) a) > *((const int64 *) b));
32 }
33 static bool
gbt_int8ge(const void * a,const void * b)34 gbt_int8ge(const void *a, const void *b)
35 {
36 return (*((const int64 *) a) >= *((const int64 *) b));
37 }
38 static bool
gbt_int8eq(const void * a,const void * b)39 gbt_int8eq(const void *a, const void *b)
40 {
41 return (*((const int64 *) a) == *((const int64 *) b));
42 }
43 static bool
gbt_int8le(const void * a,const void * b)44 gbt_int8le(const void *a, const void *b)
45 {
46 return (*((const int64 *) a) <= *((const int64 *) b));
47 }
48 static bool
gbt_int8lt(const void * a,const void * b)49 gbt_int8lt(const void *a, const void *b)
50 {
51 return (*((const int64 *) a) < *((const int64 *) b));
52 }
53
54 static int
gbt_int8key_cmp(const void * a,const void * b)55 gbt_int8key_cmp(const void *a, const void *b)
56 {
57 int64KEY *ia = (int64KEY *) (((const Nsrt *) a)->t);
58 int64KEY *ib = (int64KEY *) (((const Nsrt *) b)->t);
59
60 if (ia->lower == ib->lower)
61 {
62 if (ia->upper == ib->upper)
63 return 0;
64
65 return (ia->upper > ib->upper) ? 1 : -1;
66 }
67
68 return (ia->lower > ib->lower) ? 1 : -1;
69 }
70
71 static float8
gbt_int8_dist(const void * a,const void * b)72 gbt_int8_dist(const void *a, const void *b)
73 {
74 return GET_FLOAT_DISTANCE(int64, a, b);
75 }
76
77
78 static const gbtree_ninfo tinfo =
79 {
80 gbt_t_int8,
81 sizeof(int64),
82 16, /* sizeof(gbtreekey16) */
83 gbt_int8gt,
84 gbt_int8ge,
85 gbt_int8eq,
86 gbt_int8le,
87 gbt_int8lt,
88 gbt_int8key_cmp,
89 gbt_int8_dist
90 };
91
92
93 PG_FUNCTION_INFO_V1(int8_dist);
94 Datum
int8_dist(PG_FUNCTION_ARGS)95 int8_dist(PG_FUNCTION_ARGS)
96 {
97 int64 a = PG_GETARG_INT64(0);
98 int64 b = PG_GETARG_INT64(1);
99 int64 r;
100 int64 ra;
101
102 r = a - b;
103 ra = Abs(r);
104
105 /* Overflow check. */
106 if (ra < 0 || (!SAMESIGN(a, b) && !SAMESIGN(r, a)))
107 ereport(ERROR,
108 (errcode(ERRCODE_NUMERIC_VALUE_OUT_OF_RANGE),
109 errmsg("bigint out of range")));
110
111 PG_RETURN_INT64(ra);
112 }
113
114
115 /**************************************************
116 * int64 ops
117 **************************************************/
118
119
120 Datum
gbt_int8_compress(PG_FUNCTION_ARGS)121 gbt_int8_compress(PG_FUNCTION_ARGS)
122 {
123 GISTENTRY *entry = (GISTENTRY *) PG_GETARG_POINTER(0);
124
125 PG_RETURN_POINTER(gbt_num_compress(entry, &tinfo));
126 }
127
128 Datum
gbt_int8_fetch(PG_FUNCTION_ARGS)129 gbt_int8_fetch(PG_FUNCTION_ARGS)
130 {
131 GISTENTRY *entry = (GISTENTRY *) PG_GETARG_POINTER(0);
132
133 PG_RETURN_POINTER(gbt_num_fetch(entry, &tinfo));
134 }
135
136 Datum
gbt_int8_consistent(PG_FUNCTION_ARGS)137 gbt_int8_consistent(PG_FUNCTION_ARGS)
138 {
139 GISTENTRY *entry = (GISTENTRY *) PG_GETARG_POINTER(0);
140 int64 query = PG_GETARG_INT64(1);
141 StrategyNumber strategy = (StrategyNumber) PG_GETARG_UINT16(2);
142
143 /* Oid subtype = PG_GETARG_OID(3); */
144 bool *recheck = (bool *) PG_GETARG_POINTER(4);
145 int64KEY *kkk = (int64KEY *) DatumGetPointer(entry->key);
146 GBT_NUMKEY_R key;
147
148 /* All cases served by this function are exact */
149 *recheck = false;
150
151 key.lower = (GBT_NUMKEY *) &kkk->lower;
152 key.upper = (GBT_NUMKEY *) &kkk->upper;
153
154 PG_RETURN_BOOL(
155 gbt_num_consistent(&key, (void *) &query, &strategy, GIST_LEAF(entry), &tinfo)
156 );
157 }
158
159
160 Datum
gbt_int8_distance(PG_FUNCTION_ARGS)161 gbt_int8_distance(PG_FUNCTION_ARGS)
162 {
163 GISTENTRY *entry = (GISTENTRY *) PG_GETARG_POINTER(0);
164 int64 query = PG_GETARG_INT64(1);
165
166 /* Oid subtype = PG_GETARG_OID(3); */
167 int64KEY *kkk = (int64KEY *) DatumGetPointer(entry->key);
168 GBT_NUMKEY_R key;
169
170 key.lower = (GBT_NUMKEY *) &kkk->lower;
171 key.upper = (GBT_NUMKEY *) &kkk->upper;
172
173 PG_RETURN_FLOAT8(
174 gbt_num_distance(&key, (void *) &query, GIST_LEAF(entry), &tinfo)
175 );
176 }
177
178
179 Datum
gbt_int8_union(PG_FUNCTION_ARGS)180 gbt_int8_union(PG_FUNCTION_ARGS)
181 {
182 GistEntryVector *entryvec = (GistEntryVector *) PG_GETARG_POINTER(0);
183 void *out = palloc(sizeof(int64KEY));
184
185 *(int *) PG_GETARG_POINTER(1) = sizeof(int64KEY);
186 PG_RETURN_POINTER(gbt_num_union((void *) out, entryvec, &tinfo));
187 }
188
189
190 Datum
gbt_int8_penalty(PG_FUNCTION_ARGS)191 gbt_int8_penalty(PG_FUNCTION_ARGS)
192 {
193 int64KEY *origentry = (int64KEY *) DatumGetPointer(((GISTENTRY *) PG_GETARG_POINTER(0))->key);
194 int64KEY *newentry = (int64KEY *) DatumGetPointer(((GISTENTRY *) PG_GETARG_POINTER(1))->key);
195 float *result = (float *) PG_GETARG_POINTER(2);
196
197 penalty_num(result, origentry->lower, origentry->upper, newentry->lower, newentry->upper);
198
199 PG_RETURN_POINTER(result);
200 }
201
202 Datum
gbt_int8_picksplit(PG_FUNCTION_ARGS)203 gbt_int8_picksplit(PG_FUNCTION_ARGS)
204 {
205 PG_RETURN_POINTER(gbt_num_picksplit(
206 (GistEntryVector *) PG_GETARG_POINTER(0),
207 (GIST_SPLITVEC *) PG_GETARG_POINTER(1),
208 &tinfo
209 ));
210 }
211
212 Datum
gbt_int8_same(PG_FUNCTION_ARGS)213 gbt_int8_same(PG_FUNCTION_ARGS)
214 {
215 int64KEY *b1 = (int64KEY *) PG_GETARG_POINTER(0);
216 int64KEY *b2 = (int64KEY *) PG_GETARG_POINTER(1);
217 bool *result = (bool *) PG_GETARG_POINTER(2);
218
219 *result = gbt_num_same((void *) b1, (void *) b2, &tinfo);
220 PG_RETURN_POINTER(result);
221 }
222