Line data Source code
1 : /*
2 : * contrib/ltree/_ltree_gist.c
3 : *
4 : *
5 : * GiST support for ltree[]
6 : * Teodor Sigaev <teodor@stack.net>
7 : */
8 : #include "postgres.h"
9 :
10 : #include <math.h>
11 :
12 : #include "access/gist.h"
13 : #include "access/reloptions.h"
14 : #include "access/stratnum.h"
15 : #include "crc32.h"
16 : #include "ltree.h"
17 : #include "port/pg_bitutils.h"
18 : #include "utils/array.h"
19 :
20 6 : PG_FUNCTION_INFO_V1(_ltree_compress);
21 6 : PG_FUNCTION_INFO_V1(_ltree_same);
22 6 : PG_FUNCTION_INFO_V1(_ltree_union);
23 6 : PG_FUNCTION_INFO_V1(_ltree_penalty);
24 6 : PG_FUNCTION_INFO_V1(_ltree_picksplit);
25 6 : PG_FUNCTION_INFO_V1(_ltree_consistent);
26 6 : PG_FUNCTION_INFO_V1(_ltree_gist_options);
27 :
28 : #define GETENTRY(vec,pos) ((ltree_gist *) DatumGetPointer((vec)->vector[(pos)].key))
29 : #define NEXTVAL(x) ( (ltree*)( (char*)(x) + INTALIGN( VARSIZE(x) ) ) )
30 :
31 : #define WISH_F(a,b,c) (double)( -(double)(((a)-(b))*((a)-(b))*((a)-(b)))*(c) )
32 :
33 :
34 : static void
35 14116 : hashing(BITVECP sign, ltree *t, int siglen)
36 : {
37 14116 : int tlen = t->numlevel;
38 14116 : ltree_level *cur = LTREE_FIRST(t);
39 : int hash;
40 :
41 106932 : while (tlen > 0)
42 : {
43 92816 : hash = ltree_crc32_sz(cur->name, cur->len);
44 92816 : AHASH(sign, hash, siglen);
45 92816 : cur = LEVEL_NEXT(cur);
46 92816 : tlen--;
47 : }
48 14116 : }
49 :
50 : Datum
51 11894 : _ltree_compress(PG_FUNCTION_ARGS)
52 : {
53 11894 : GISTENTRY *entry = (GISTENTRY *) PG_GETARG_POINTER(0);
54 11894 : GISTENTRY *retval = entry;
55 11894 : int siglen = LTREE_GET_ASIGLEN();
56 :
57 11894 : if (entry->leafkey)
58 : { /* ltree */
59 : ltree_gist *key;
60 4000 : ArrayType *val = DatumGetArrayTypeP(entry->key);
61 4000 : int num = ArrayGetNItems(ARR_NDIM(val), ARR_DIMS(val));
62 4000 : ltree *item = (ltree *) ARR_DATA_PTR(val);
63 :
64 4000 : if (ARR_NDIM(val) > 1)
65 0 : ereport(ERROR,
66 : (errcode(ERRCODE_ARRAY_SUBSCRIPT_ERROR),
67 : errmsg("array must be one-dimensional")));
68 4000 : if (array_contains_nulls(val))
69 0 : ereport(ERROR,
70 : (errcode(ERRCODE_NULL_VALUE_NOT_ALLOWED),
71 : errmsg("array must not contain nulls")));
72 :
73 4000 : key = ltree_gist_alloc(false, NULL, siglen, NULL, NULL);
74 :
75 18116 : while (num > 0)
76 : {
77 14116 : hashing(LTG_SIGN(key), item, siglen);
78 14116 : num--;
79 14116 : item = NEXTVAL(item);
80 : }
81 :
82 4000 : retval = (GISTENTRY *) palloc(sizeof(GISTENTRY));
83 4000 : gistentryinit(*retval, PointerGetDatum(key),
84 : entry->rel, entry->page,
85 : entry->offset, false);
86 : }
87 7894 : else if (!LTG_ISALLTRUE(entry->key))
88 : {
89 : int32 i;
90 : ltree_gist *key;
91 7894 : BITVECP sign = LTG_SIGN(DatumGetPointer(entry->key));
92 :
93 7894 : ALOOPBYTE(siglen)
94 : {
95 7894 : if ((sign[i] & 0xff) != 0xff)
96 7894 : PG_RETURN_POINTER(retval);
97 : }
98 :
99 0 : key = ltree_gist_alloc(true, sign, siglen, NULL, NULL);
100 0 : retval = (GISTENTRY *) palloc(sizeof(GISTENTRY));
101 0 : gistentryinit(*retval, PointerGetDatum(key),
102 : entry->rel, entry->page,
103 : entry->offset, false);
104 : }
105 4000 : PG_RETURN_POINTER(retval);
106 : }
107 :
108 : Datum
109 16038 : _ltree_same(PG_FUNCTION_ARGS)
110 : {
111 16038 : ltree_gist *a = (ltree_gist *) PG_GETARG_POINTER(0);
112 16038 : ltree_gist *b = (ltree_gist *) PG_GETARG_POINTER(1);
113 16038 : bool *result = (bool *) PG_GETARG_POINTER(2);
114 16038 : int siglen = LTREE_GET_ASIGLEN();
115 :
116 16038 : if (LTG_ISALLTRUE(a) && LTG_ISALLTRUE(b))
117 0 : *result = true;
118 16038 : else if (LTG_ISALLTRUE(a))
119 0 : *result = false;
120 16038 : else if (LTG_ISALLTRUE(b))
121 0 : *result = false;
122 : else
123 : {
124 : int32 i;
125 16038 : BITVECP sa = LTG_SIGN(a),
126 16038 : sb = LTG_SIGN(b);
127 :
128 16038 : *result = true;
129 23080592 : ALOOPBYTE(siglen)
130 : {
131 23068840 : if (sa[i] != sb[i])
132 : {
133 4286 : *result = false;
134 4286 : break;
135 : }
136 : }
137 : }
138 16038 : PG_RETURN_POINTER(result);
139 : }
140 :
141 : static int32
142 32076 : unionkey(BITVECP sbase, ltree_gist *add, int siglen)
143 : {
144 : int32 i;
145 32076 : BITVECP sadd = LTG_SIGN(add);
146 :
147 32076 : if (LTG_ISALLTRUE(add))
148 0 : return 1;
149 :
150 58095644 : ALOOPBYTE(siglen)
151 58063568 : sbase[i] |= sadd[i];
152 32076 : return 0;
153 : }
154 :
155 : Datum
156 16038 : _ltree_union(PG_FUNCTION_ARGS)
157 : {
158 16038 : GistEntryVector *entryvec = (GistEntryVector *) PG_GETARG_POINTER(0);
159 16038 : int *size = (int *) PG_GETARG_POINTER(1);
160 16038 : int siglen = LTREE_GET_ASIGLEN();
161 : int32 i;
162 16038 : ltree_gist *result = ltree_gist_alloc(false, NULL, siglen, NULL, NULL);
163 16038 : BITVECP base = LTG_SIGN(result);
164 :
165 48114 : for (i = 0; i < entryvec->n; i++)
166 : {
167 32076 : if (unionkey(base, GETENTRY(entryvec, i), siglen))
168 : {
169 0 : result->flag |= LTG_ALLTRUE;
170 0 : SET_VARSIZE(result, LTG_HDRSIZE);
171 0 : break;
172 : }
173 : }
174 :
175 16038 : *size = VARSIZE(result);
176 :
177 16038 : PG_RETURN_POINTER(result);
178 : }
179 :
180 : static int32
181 0 : sizebitvec(BITVECP sign, int siglen)
182 : {
183 0 : return pg_popcount((const char *) sign, siglen);
184 : }
185 :
186 : static int
187 250936 : hemdistsign(BITVECP a, BITVECP b, int siglen)
188 : {
189 : int i,
190 : diff,
191 250936 : dist = 0;
192 :
193 119635976 : ALOOPBYTE(siglen)
194 : {
195 119385040 : diff = (unsigned char) (a[i] ^ b[i]);
196 : /* Using the popcount functions here isn't likely to win */
197 119385040 : dist += pg_number_of_ones[diff];
198 : }
199 250936 : return dist;
200 : }
201 :
202 : static int
203 250936 : hemdist(ltree_gist *a, ltree_gist *b, int siglen)
204 : {
205 250936 : if (LTG_ISALLTRUE(a))
206 : {
207 0 : if (LTG_ISALLTRUE(b))
208 0 : return 0;
209 : else
210 0 : return ASIGLENBIT(siglen) - sizebitvec(LTG_SIGN(b), siglen);
211 : }
212 250936 : else if (LTG_ISALLTRUE(b))
213 0 : return ASIGLENBIT(siglen) - sizebitvec(LTG_SIGN(a), siglen);
214 :
215 250936 : return hemdistsign(LTG_SIGN(a), LTG_SIGN(b), siglen);
216 : }
217 :
218 :
219 : Datum
220 38926 : _ltree_penalty(PG_FUNCTION_ARGS)
221 : {
222 38926 : ltree_gist *origval = (ltree_gist *) DatumGetPointer(((GISTENTRY *) PG_GETARG_POINTER(0))->key);
223 38926 : ltree_gist *newval = (ltree_gist *) DatumGetPointer(((GISTENTRY *) PG_GETARG_POINTER(1))->key);
224 38926 : float *penalty = (float *) PG_GETARG_POINTER(2);
225 38926 : int siglen = LTREE_GET_ASIGLEN();
226 :
227 38926 : *penalty = hemdist(origval, newval, siglen);
228 38926 : PG_RETURN_POINTER(penalty);
229 : }
230 :
231 : typedef struct
232 : {
233 : OffsetNumber pos;
234 : int32 cost;
235 : } SPLITCOST;
236 :
237 : static int
238 16254 : comparecost(const void *a, const void *b)
239 : {
240 16254 : return ((const SPLITCOST *) a)->cost - ((const SPLITCOST *) b)->cost;
241 : }
242 :
243 : Datum
244 1804 : _ltree_picksplit(PG_FUNCTION_ARGS)
245 : {
246 1804 : GistEntryVector *entryvec = (GistEntryVector *) PG_GETARG_POINTER(0);
247 1804 : GIST_SPLITVEC *v = (GIST_SPLITVEC *) PG_GETARG_POINTER(1);
248 1804 : int siglen = LTREE_GET_ASIGLEN();
249 : OffsetNumber k,
250 : j;
251 : ltree_gist *datum_l,
252 : *datum_r;
253 : BITVECP union_l,
254 : union_r;
255 : int32 size_alpha,
256 : size_beta;
257 : int32 size_waste,
258 1804 : waste = -1;
259 : int32 nbytes;
260 1804 : OffsetNumber seed_1 = 0,
261 1804 : seed_2 = 0;
262 : OffsetNumber *left,
263 : *right;
264 : OffsetNumber maxoff;
265 : BITVECP ptr;
266 : int i;
267 : SPLITCOST *costvector;
268 : ltree_gist *_k,
269 : *_j;
270 :
271 1804 : maxoff = entryvec->n - 2;
272 1804 : nbytes = (maxoff + 2) * sizeof(OffsetNumber);
273 1804 : v->spl_left = (OffsetNumber *) palloc(nbytes);
274 1804 : v->spl_right = (OffsetNumber *) palloc(nbytes);
275 :
276 7878 : for (k = FirstOffsetNumber; k < maxoff; k = OffsetNumberNext(k))
277 : {
278 6074 : _k = GETENTRY(entryvec, k);
279 186572 : for (j = OffsetNumberNext(k); j <= maxoff; j = OffsetNumberNext(j))
280 : {
281 180498 : size_waste = hemdist(_k, GETENTRY(entryvec, j), siglen);
282 180498 : if (size_waste > waste)
283 : {
284 3344 : waste = size_waste;
285 3344 : seed_1 = k;
286 3344 : seed_2 = j;
287 : }
288 : }
289 : }
290 :
291 1804 : left = v->spl_left;
292 1804 : v->spl_nleft = 0;
293 1804 : right = v->spl_right;
294 1804 : v->spl_nright = 0;
295 :
296 1804 : if (seed_1 == 0 || seed_2 == 0)
297 : {
298 0 : seed_1 = 1;
299 0 : seed_2 = 2;
300 : }
301 :
302 : /* form initial .. */
303 1804 : datum_l = ltree_gist_alloc(LTG_ISALLTRUE(GETENTRY(entryvec, seed_1)),
304 1804 : LTG_SIGN(GETENTRY(entryvec, seed_1)),
305 : siglen, NULL, NULL);
306 :
307 1804 : datum_r = ltree_gist_alloc(LTG_ISALLTRUE(GETENTRY(entryvec, seed_2)),
308 1804 : LTG_SIGN(GETENTRY(entryvec, seed_2)),
309 : siglen, NULL, NULL);
310 :
311 1804 : maxoff = OffsetNumberNext(maxoff);
312 : /* sort before ... */
313 1804 : costvector = (SPLITCOST *) palloc(sizeof(SPLITCOST) * maxoff);
314 11486 : for (j = FirstOffsetNumber; j <= maxoff; j = OffsetNumberNext(j))
315 : {
316 9682 : costvector[j - 1].pos = j;
317 9682 : _j = GETENTRY(entryvec, j);
318 9682 : size_alpha = hemdist(datum_l, _j, siglen);
319 9682 : size_beta = hemdist(datum_r, _j, siglen);
320 9682 : costvector[j - 1].cost = abs(size_alpha - size_beta);
321 : }
322 1804 : qsort(costvector, maxoff, sizeof(SPLITCOST), comparecost);
323 :
324 1804 : union_l = LTG_SIGN(datum_l);
325 1804 : union_r = LTG_SIGN(datum_r);
326 :
327 11486 : for (k = 0; k < maxoff; k++)
328 : {
329 9682 : j = costvector[k].pos;
330 9682 : if (j == seed_1)
331 : {
332 1804 : *left++ = j;
333 1804 : v->spl_nleft++;
334 1804 : continue;
335 : }
336 7878 : else if (j == seed_2)
337 : {
338 1804 : *right++ = j;
339 1804 : v->spl_nright++;
340 1804 : continue;
341 : }
342 6074 : _j = GETENTRY(entryvec, j);
343 6074 : size_alpha = hemdist(datum_l, _j, siglen);
344 6074 : size_beta = hemdist(datum_r, _j, siglen);
345 :
346 6074 : if (size_alpha < size_beta + WISH_F(v->spl_nleft, v->spl_nright, 0.00001))
347 : {
348 3000 : if (LTG_ISALLTRUE(datum_l) || LTG_ISALLTRUE(_j))
349 : {
350 0 : if (!LTG_ISALLTRUE(datum_l))
351 0 : memset(union_l, 0xff, siglen);
352 : }
353 : else
354 : {
355 3000 : ptr = LTG_SIGN(_j);
356 3420320 : ALOOPBYTE(siglen)
357 3417320 : union_l[i] |= ptr[i];
358 : }
359 3000 : *left++ = j;
360 3000 : v->spl_nleft++;
361 : }
362 : else
363 : {
364 3074 : if (LTG_ISALLTRUE(datum_r) || LTG_ISALLTRUE(_j))
365 : {
366 0 : if (!LTG_ISALLTRUE(datum_r))
367 0 : memset(union_r, 0xff, siglen);
368 : }
369 : else
370 : {
371 3074 : ptr = LTG_SIGN(_j);
372 3885538 : ALOOPBYTE(siglen)
373 3882464 : union_r[i] |= ptr[i];
374 : }
375 3074 : *right++ = j;
376 3074 : v->spl_nright++;
377 : }
378 : }
379 :
380 1804 : *right = *left = FirstOffsetNumber;
381 :
382 1804 : v->spl_ldatum = PointerGetDatum(datum_l);
383 1804 : v->spl_rdatum = PointerGetDatum(datum_r);
384 :
385 1804 : PG_RETURN_POINTER(v);
386 : }
387 :
388 : static bool
389 5026 : gist_te(ltree_gist *key, ltree *query, int siglen)
390 : {
391 5026 : ltree_level *curq = LTREE_FIRST(query);
392 5026 : BITVECP sign = LTG_SIGN(key);
393 5026 : int qlen = query->numlevel;
394 : unsigned int hv;
395 :
396 5026 : if (LTG_ISALLTRUE(key))
397 0 : return true;
398 :
399 17056 : while (qlen > 0)
400 : {
401 13046 : hv = ltree_crc32_sz(curq->name, curq->len);
402 13046 : if (!GETBIT(sign, AHASHVAL(hv, siglen)))
403 1016 : return false;
404 12030 : curq = LEVEL_NEXT(curq);
405 12030 : qlen--;
406 : }
407 :
408 4010 : return true;
409 : }
410 :
411 : typedef struct LtreeSignature
412 : {
413 : BITVECP sign;
414 : int siglen;
415 : } LtreeSignature;
416 :
417 : static bool
418 7692 : checkcondition_bit(void *cxt, ITEM *val)
419 : {
420 7692 : LtreeSignature *sig = cxt;
421 :
422 7692 : return (FLG_CANLOOKSIGN(val->flag)) ? GETBIT(sig->sign, AHASHVAL(val->val, sig->siglen)) : true;
423 : }
424 :
425 : static bool
426 4606 : gist_qtxt(ltree_gist *key, ltxtquery *query, int siglen)
427 : {
428 : LtreeSignature sig;
429 :
430 4606 : if (LTG_ISALLTRUE(key))
431 0 : return true;
432 :
433 4606 : sig.sign = LTG_SIGN(key);
434 4606 : sig.siglen = siglen;
435 :
436 4606 : return ltree_execute(GETQUERY(query),
437 : &sig, false,
438 : checkcondition_bit);
439 : }
440 :
441 : static bool
442 30886 : gist_qe(ltree_gist *key, lquery *query, int siglen)
443 : {
444 30886 : lquery_level *curq = LQUERY_FIRST(query);
445 30886 : BITVECP sign = LTG_SIGN(key);
446 30886 : int qlen = query->numlevel;
447 :
448 30886 : if (LTG_ISALLTRUE(key))
449 0 : return true;
450 :
451 93010 : while (qlen > 0)
452 : {
453 74442 : if (curq->numvar && LQL_CANLOOKSIGN(curq))
454 : {
455 52156 : bool isexist = false;
456 52156 : int vlen = curq->numvar;
457 52156 : lquery_variant *curv = LQL_FIRST(curq);
458 :
459 64474 : while (vlen > 0)
460 : {
461 52156 : if (GETBIT(sign, AHASHVAL(curv->val, siglen)))
462 : {
463 39838 : isexist = true;
464 39838 : break;
465 : }
466 12318 : curv = LVAR_NEXT(curv);
467 12318 : vlen--;
468 : }
469 52156 : if (!isexist)
470 12318 : return false;
471 : }
472 :
473 62124 : curq = LQL_NEXT(curq);
474 62124 : qlen--;
475 : }
476 :
477 18568 : return true;
478 : }
479 :
480 : static bool
481 5016 : _arrq_cons(ltree_gist *key, ArrayType *_query, int siglen)
482 : {
483 5016 : lquery *query = (lquery *) ARR_DATA_PTR(_query);
484 5016 : int num = ArrayGetNItems(ARR_NDIM(_query), ARR_DIMS(_query));
485 :
486 5016 : if (ARR_NDIM(_query) > 1)
487 0 : ereport(ERROR,
488 : (errcode(ERRCODE_ARRAY_SUBSCRIPT_ERROR),
489 : errmsg("array must be one-dimensional")));
490 5016 : if (array_contains_nulls(_query))
491 0 : ereport(ERROR,
492 : (errcode(ERRCODE_NULL_VALUE_NOT_ALLOWED),
493 : errmsg("array must not contain nulls")));
494 :
495 9306 : while (num > 0)
496 : {
497 7414 : if (gist_qe(key, query, siglen))
498 3124 : return true;
499 4290 : num--;
500 4290 : query = (lquery *) NEXTVAL(query);
501 : }
502 1892 : return false;
503 : }
504 :
505 : Datum
506 38120 : _ltree_consistent(PG_FUNCTION_ARGS)
507 : {
508 38120 : GISTENTRY *entry = (GISTENTRY *) PG_GETARG_POINTER(0);
509 38120 : void *query = (void *) PG_DETOAST_DATUM(PG_GETARG_DATUM(1));
510 38120 : StrategyNumber strategy = (StrategyNumber) PG_GETARG_UINT16(2);
511 :
512 : /* Oid subtype = PG_GETARG_OID(3); */
513 38120 : bool *recheck = (bool *) PG_GETARG_POINTER(4);
514 38120 : int siglen = LTREE_GET_ASIGLEN();
515 38120 : ltree_gist *key = (ltree_gist *) DatumGetPointer(entry->key);
516 38120 : bool res = false;
517 :
518 : /* All cases served by this function are inexact */
519 38120 : *recheck = true;
520 :
521 38120 : switch (strategy)
522 : {
523 5026 : case 10:
524 : case 11:
525 5026 : res = gist_te(key, (ltree *) query, siglen);
526 5026 : break;
527 23472 : case 12:
528 : case 13:
529 23472 : res = gist_qe(key, (lquery *) query, siglen);
530 23472 : break;
531 4606 : case 14:
532 : case 15:
533 4606 : res = gist_qtxt(key, (ltxtquery *) query, siglen);
534 4606 : break;
535 5016 : case 16:
536 : case 17:
537 5016 : res = _arrq_cons(key, (ArrayType *) query, siglen);
538 5016 : break;
539 0 : default:
540 : /* internal error */
541 0 : elog(ERROR, "unrecognized StrategyNumber: %d", strategy);
542 : }
543 38120 : PG_FREE_IF_COPY(query, 1);
544 38120 : PG_RETURN_BOOL(res);
545 : }
546 :
547 : Datum
548 20 : _ltree_gist_options(PG_FUNCTION_ARGS)
549 : {
550 20 : local_relopts *relopts = (local_relopts *) PG_GETARG_POINTER(0);
551 :
552 20 : init_local_reloptions(relopts, sizeof(LtreeGistOptions));
553 20 : add_local_int_reloption(relopts, "siglen", "signature length",
554 : LTREE_ASIGLEN_DEFAULT, 1, LTREE_ASIGLEN_MAX,
555 : offsetof(LtreeGistOptions, siglen));
556 :
557 20 : PG_RETURN_VOID();
558 : }
|
