Age Owner Branch data TLA Line data Source code
1 : : /*-------------------------------------------------------------------------
2 : : *
3 : : * like_support.c
4 : : * Planner support functions for LIKE, regex, and related operators.
5 : : *
6 : : * These routines handle special optimization of operators that can be
7 : : * used with index scans even though they are not known to the executor's
8 : : * indexscan machinery. The key idea is that these operators allow us
9 : : * to derive approximate indexscan qual clauses, such that any tuples
10 : : * that pass the operator clause itself must also satisfy the simpler
11 : : * indexscan condition(s). Then we can use the indexscan machinery
12 : : * to avoid scanning as much of the table as we'd otherwise have to,
13 : : * while applying the original operator as a qpqual condition to ensure
14 : : * we deliver only the tuples we want. (In essence, we're using a regular
15 : : * index as if it were a lossy index.)
16 : : *
17 : : * An example of what we're doing is
18 : : * textfield LIKE 'abc%def'
19 : : * from which we can generate the indexscanable conditions
20 : : * textfield >= 'abc' AND textfield < 'abd'
21 : : * which allow efficient scanning of an index on textfield.
22 : : * (In reality, character set and collation issues make the transformation
23 : : * from LIKE to indexscan limits rather harder than one might think ...
24 : : * but that's the basic idea.)
25 : : *
26 : : * Portions Copyright (c) 1996-2025, PostgreSQL Global Development Group
27 : : * Portions Copyright (c) 1994, Regents of the University of California
28 : : *
29 : : *
30 : : * IDENTIFICATION
31 : : * src/backend/utils/adt/like_support.c
32 : : *
33 : : *-------------------------------------------------------------------------
34 : : */
35 : : #include "postgres.h"
36 : :
37 : : #include <math.h>
38 : :
39 : : #include "access/htup_details.h"
40 : : #include "catalog/pg_collation.h"
41 : : #include "catalog/pg_operator.h"
42 : : #include "catalog/pg_opfamily.h"
43 : : #include "catalog/pg_statistic.h"
44 : : #include "catalog/pg_type.h"
45 : : #include "mb/pg_wchar.h"
46 : : #include "miscadmin.h"
47 : : #include "nodes/makefuncs.h"
48 : : #include "nodes/nodeFuncs.h"
49 : : #include "nodes/supportnodes.h"
50 : : #include "utils/builtins.h"
51 : : #include "utils/datum.h"
52 : : #include "utils/lsyscache.h"
53 : : #include "utils/pg_locale.h"
54 : : #include "utils/selfuncs.h"
55 : : #include "utils/varlena.h"
56 : :
57 : :
58 : : typedef enum
59 : : {
60 : : Pattern_Type_Like,
61 : : Pattern_Type_Like_IC,
62 : : Pattern_Type_Regex,
63 : : Pattern_Type_Regex_IC,
64 : : Pattern_Type_Prefix,
65 : : } Pattern_Type;
66 : :
67 : : typedef enum
68 : : {
69 : : Pattern_Prefix_None, Pattern_Prefix_Partial, Pattern_Prefix_Exact,
70 : : } Pattern_Prefix_Status;
71 : :
72 : : static Node *like_regex_support(Node *rawreq, Pattern_Type ptype);
73 : : static List *match_pattern_prefix(Node *leftop,
74 : : Node *rightop,
75 : : Pattern_Type ptype,
76 : : Oid expr_coll,
77 : : Oid opfamily,
78 : : Oid indexcollation);
79 : : static double patternsel_common(PlannerInfo *root,
80 : : Oid oprid,
81 : : Oid opfuncid,
82 : : List *args,
83 : : int varRelid,
84 : : Oid collation,
85 : : Pattern_Type ptype,
86 : : bool negate);
87 : : static Pattern_Prefix_Status pattern_fixed_prefix(Const *patt,
88 : : Pattern_Type ptype,
89 : : Oid collation,
90 : : Const **prefix,
91 : : Selectivity *rest_selec);
92 : : static Selectivity prefix_selectivity(PlannerInfo *root,
93 : : VariableStatData *vardata,
94 : : Oid eqopr, Oid ltopr, Oid geopr,
95 : : Oid collation,
96 : : Const *prefixcon);
97 : : static Selectivity like_selectivity(const char *patt, int pattlen,
98 : : bool case_insensitive);
99 : : static Selectivity regex_selectivity(const char *patt, int pattlen,
100 : : bool case_insensitive,
101 : : int fixed_prefix_len);
102 : : static int pattern_char_isalpha(char c, bool is_multibyte,
103 : : pg_locale_t locale);
104 : : static Const *make_greater_string(const Const *str_const, FmgrInfo *ltproc,
105 : : Oid collation);
106 : : static Datum string_to_datum(const char *str, Oid datatype);
107 : : static Const *string_to_const(const char *str, Oid datatype);
108 : : static Const *string_to_bytea_const(const char *str, size_t str_len);
109 : :
110 : :
111 : : /*
112 : : * Planner support functions for LIKE, regex, and related operators
113 : : */
114 : : Datum
2399 tgl@sss.pgh.pa.us 115 :CBC 2577 : textlike_support(PG_FUNCTION_ARGS)
116 : : {
117 : 2577 : Node *rawreq = (Node *) PG_GETARG_POINTER(0);
118 : :
119 : 2577 : PG_RETURN_POINTER(like_regex_support(rawreq, Pattern_Type_Like));
120 : : }
121 : :
122 : : Datum
123 : 176 : texticlike_support(PG_FUNCTION_ARGS)
124 : : {
125 : 176 : Node *rawreq = (Node *) PG_GETARG_POINTER(0);
126 : :
127 : 176 : PG_RETURN_POINTER(like_regex_support(rawreq, Pattern_Type_Like_IC));
128 : : }
129 : :
130 : : Datum
131 : 11304 : textregexeq_support(PG_FUNCTION_ARGS)
132 : : {
133 : 11304 : Node *rawreq = (Node *) PG_GETARG_POINTER(0);
134 : :
135 : 11304 : PG_RETURN_POINTER(like_regex_support(rawreq, Pattern_Type_Regex));
136 : : }
137 : :
138 : : Datum
139 : 59 : texticregexeq_support(PG_FUNCTION_ARGS)
140 : : {
141 : 59 : Node *rawreq = (Node *) PG_GETARG_POINTER(0);
142 : :
143 : 59 : PG_RETURN_POINTER(like_regex_support(rawreq, Pattern_Type_Regex_IC));
144 : : }
145 : :
146 : : Datum
1389 147 : 78 : text_starts_with_support(PG_FUNCTION_ARGS)
148 : : {
149 : 78 : Node *rawreq = (Node *) PG_GETARG_POINTER(0);
150 : :
151 : 78 : PG_RETURN_POINTER(like_regex_support(rawreq, Pattern_Type_Prefix));
152 : : }
153 : :
154 : : /* Common code for the above */
155 : : static Node *
2399 156 : 14194 : like_regex_support(Node *rawreq, Pattern_Type ptype)
157 : : {
158 : 14194 : Node *ret = NULL;
159 : :
2396 160 [ + + ]: 14194 : if (IsA(rawreq, SupportRequestSelectivity))
161 : : {
162 : : /*
163 : : * Make a selectivity estimate for a function call, just as we'd do if
164 : : * the call was via the corresponding operator.
165 : : */
166 : 12 : SupportRequestSelectivity *req = (SupportRequestSelectivity *) rawreq;
167 : : Selectivity s1;
168 : :
169 [ - + ]: 12 : if (req->is_join)
170 : : {
171 : : /*
172 : : * For the moment we just punt. If patternjoinsel is ever
173 : : * improved to do better, this should be made to call it.
174 : : */
2396 tgl@sss.pgh.pa.us 175 :UBC 0 : s1 = DEFAULT_MATCH_SEL;
176 : : }
177 : : else
178 : : {
179 : : /* Share code with operator restriction selectivity functions */
2396 tgl@sss.pgh.pa.us 180 :CBC 12 : s1 = patternsel_common(req->root,
181 : : InvalidOid,
182 : : req->funcid,
183 : : req->args,
184 : : req->varRelid,
185 : : req->inputcollid,
186 : : ptype,
187 : : false);
188 : : }
189 : 12 : req->selectivity = s1;
190 : 12 : ret = (Node *) req;
191 : : }
192 [ + + ]: 14182 : else if (IsA(rawreq, SupportRequestIndexCondition))
193 : : {
194 : : /* Try to convert operator/function call to index conditions */
2399 195 : 4002 : SupportRequestIndexCondition *req = (SupportRequestIndexCondition *) rawreq;
196 : :
197 : : /*
198 : : * Currently we have no "reverse" match operators with the pattern on
199 : : * the left, so we only need consider cases with the indexkey on the
200 : : * left.
201 : : */
202 [ - + ]: 4002 : if (req->indexarg != 0)
2399 tgl@sss.pgh.pa.us 203 :UBC 0 : return NULL;
204 : :
2399 tgl@sss.pgh.pa.us 205 [ + + ]:CBC 4002 : if (is_opclause(req->node))
206 : : {
207 : 3990 : OpExpr *clause = (OpExpr *) req->node;
208 : :
209 [ - + ]: 3990 : Assert(list_length(clause->args) == 2);
210 : : ret = (Node *)
211 : 3990 : match_pattern_prefix((Node *) linitial(clause->args),
212 : 3990 : (Node *) lsecond(clause->args),
213 : : ptype,
214 : : clause->inputcollid,
215 : : req->opfamily,
216 : : req->indexcollation);
217 : : }
218 [ + - ]: 12 : else if (is_funcclause(req->node)) /* be paranoid */
219 : : {
220 : 12 : FuncExpr *clause = (FuncExpr *) req->node;
221 : :
222 [ - + ]: 12 : Assert(list_length(clause->args) == 2);
223 : : ret = (Node *)
224 : 12 : match_pattern_prefix((Node *) linitial(clause->args),
225 : 12 : (Node *) lsecond(clause->args),
226 : : ptype,
227 : : clause->inputcollid,
228 : : req->opfamily,
229 : : req->indexcollation);
230 : : }
231 : : }
232 : :
233 : 14194 : return ret;
234 : : }
235 : :
236 : : /*
237 : : * match_pattern_prefix
238 : : * Try to generate an indexqual for a LIKE or regex operator.
239 : : */
240 : : static List *
241 : 4002 : match_pattern_prefix(Node *leftop,
242 : : Node *rightop,
243 : : Pattern_Type ptype,
244 : : Oid expr_coll,
245 : : Oid opfamily,
246 : : Oid indexcollation)
247 : : {
248 : : List *result;
249 : : Const *patt;
250 : : Const *prefix;
251 : : Pattern_Prefix_Status pstatus;
252 : : Oid ldatatype;
253 : : Oid rdatatype;
254 : : Oid eqopr;
255 : : Oid ltopr;
256 : : Oid geopr;
1389 257 : 4002 : Oid preopr = InvalidOid;
258 : : bool collation_aware;
259 : : Expr *expr;
260 : : FmgrInfo ltproc;
261 : : Const *greaterstr;
262 : :
263 : : /*
264 : : * Can't do anything with a non-constant or NULL pattern argument.
265 : : *
266 : : * Note that since we restrict ourselves to cases with a hard constant on
267 : : * the RHS, it's a-fortiori a pseudoconstant, and we don't need to worry
268 : : * about verifying that.
269 : : */
2399 270 [ + + ]: 4002 : if (!IsA(rightop, Const) ||
271 [ - + ]: 3978 : ((Const *) rightop)->constisnull)
272 : 24 : return NIL;
273 : 3978 : patt = (Const *) rightop;
274 : :
275 : : /*
276 : : * Try to extract a fixed prefix from the pattern.
277 : : */
278 : 3978 : pstatus = pattern_fixed_prefix(patt, ptype, expr_coll,
279 : : &prefix, NULL);
280 : :
281 : : /* fail if no fixed prefix */
282 [ + + ]: 3978 : if (pstatus == Pattern_Prefix_None)
283 : 149 : return NIL;
284 : :
285 : : /*
286 : : * Identify the operators we want to use, based on the type of the
287 : : * left-hand argument. Usually these are just the type's regular
288 : : * comparison operators, but if we are considering one of the semi-legacy
289 : : * "pattern" opclasses, use the "pattern" operators instead. Those are
290 : : * not collation-sensitive but always use C collation, as we want. The
291 : : * selected operators also determine the needed type of the prefix
292 : : * constant.
293 : : */
2117 294 : 3829 : ldatatype = exprType(leftop);
295 [ + + + - : 3829 : switch (ldatatype)
- ]
296 : : {
297 : 40 : case TEXTOID:
1389 298 [ - + ]: 40 : if (opfamily == TEXT_PATTERN_BTREE_FAM_OID)
299 : : {
1389 tgl@sss.pgh.pa.us 300 :UBC 0 : eqopr = TextEqualOperator;
301 : 0 : ltopr = TextPatternLessOperator;
302 : 0 : geopr = TextPatternGreaterEqualOperator;
303 : 0 : collation_aware = false;
304 : : }
1389 tgl@sss.pgh.pa.us 305 [ + + ]:CBC 40 : else if (opfamily == TEXT_SPGIST_FAM_OID)
306 : : {
2117 307 : 12 : eqopr = TextEqualOperator;
308 : 12 : ltopr = TextPatternLessOperator;
309 : 12 : geopr = TextPatternGreaterEqualOperator;
310 : : /* This opfamily has direct support for prefixing */
1389 311 : 12 : preopr = TextPrefixOperator;
2117 312 : 12 : collation_aware = false;
313 : : }
314 : : else
315 : : {
316 : 28 : eqopr = TextEqualOperator;
317 : 28 : ltopr = TextLessOperator;
318 : 28 : geopr = TextGreaterEqualOperator;
319 : 28 : collation_aware = true;
320 : : }
2399 321 : 40 : rdatatype = TEXTOID;
322 : 40 : break;
2117 323 : 3777 : case NAMEOID:
324 : :
325 : : /*
326 : : * Note that here, we need the RHS type to be text, so that the
327 : : * comparison value isn't improperly truncated to NAMEDATALEN.
328 : : */
329 : 3777 : eqopr = NameEqualTextOperator;
330 : 3777 : ltopr = NameLessTextOperator;
331 : 3777 : geopr = NameGreaterEqualTextOperator;
332 : 3777 : collation_aware = true;
2399 333 : 3777 : rdatatype = TEXTOID;
334 : 3777 : break;
2117 335 : 12 : case BPCHAROID:
336 [ - + ]: 12 : if (opfamily == BPCHAR_PATTERN_BTREE_FAM_OID)
337 : : {
2117 tgl@sss.pgh.pa.us 338 :UBC 0 : eqopr = BpcharEqualOperator;
339 : 0 : ltopr = BpcharPatternLessOperator;
340 : 0 : geopr = BpcharPatternGreaterEqualOperator;
341 : 0 : collation_aware = false;
342 : : }
343 : : else
344 : : {
2117 tgl@sss.pgh.pa.us 345 :CBC 12 : eqopr = BpcharEqualOperator;
346 : 12 : ltopr = BpcharLessOperator;
347 : 12 : geopr = BpcharGreaterEqualOperator;
348 : 12 : collation_aware = true;
349 : : }
2399 350 : 12 : rdatatype = BPCHAROID;
351 : 12 : break;
2117 tgl@sss.pgh.pa.us 352 :UBC 0 : case BYTEAOID:
353 : 0 : eqopr = ByteaEqualOperator;
354 : 0 : ltopr = ByteaLessOperator;
355 : 0 : geopr = ByteaGreaterEqualOperator;
356 : 0 : collation_aware = false;
2399 357 : 0 : rdatatype = BYTEAOID;
358 : 0 : break;
359 : 0 : default:
360 : : /* Can't get here unless we're attached to the wrong operator */
361 : 0 : return NIL;
362 : : }
363 : :
364 : : /*
365 : : * If necessary, coerce the prefix constant to the right type. The given
366 : : * prefix constant is either text or bytea type, therefore the only case
367 : : * where we need to do anything is when converting text to bpchar. Those
368 : : * two types are binary-compatible, so relabeling the Const node is
369 : : * sufficient.
370 : : */
2399 tgl@sss.pgh.pa.us 371 [ + + ]:CBC 3829 : if (prefix->consttype != rdatatype)
372 : : {
373 [ + - - + ]: 12 : Assert(prefix->consttype == TEXTOID &&
374 : : rdatatype == BPCHAROID);
375 : 12 : prefix->consttype = rdatatype;
376 : : }
377 : :
378 : : /*
379 : : * If we found an exact-match pattern, generate an "=" indexqual.
380 : : *
381 : : * Here and below, check to see whether the desired operator is actually
382 : : * supported by the index opclass, and fail quietly if not. This allows
383 : : * us to not be concerned with specific opclasses (except for the legacy
384 : : * "pattern" cases); any index that correctly implements the operators
385 : : * will work.
386 : : */
387 [ + + ]: 3829 : if (pstatus == Pattern_Prefix_Exact)
388 : : {
2117 389 [ + + ]: 3163 : if (!op_in_opfamily(eqopr, opfamily))
2118 390 : 6 : return NIL;
283 peter@eisentraut.org 391 [ + + ]: 3157 : if (indexcollation != expr_coll)
392 : 3130 : return NIL;
2117 tgl@sss.pgh.pa.us 393 : 27 : expr = make_opclause(eqopr, BOOLOID, false,
394 : : (Expr *) leftop, (Expr *) prefix,
395 : : InvalidOid, indexcollation);
2399 396 : 27 : result = list_make1(expr);
397 : 27 : return result;
398 : : }
399 : :
400 : : /*
401 : : * Anything other than Pattern_Prefix_Exact is not supported if the
402 : : * expression collation is nondeterministic. The optimized equality or
403 : : * prefix tests use bytewise comparisons, which is not consistent with
404 : : * nondeterministic collations.
405 : : *
406 : : * expr_coll is not set for a non-collation-aware data type such as bytea.
407 : : */
283 peter@eisentraut.org 408 [ + - + + ]: 666 : if (expr_coll && !get_collation_isdeterministic(expr_coll))
409 : 3 : return NIL;
410 : :
411 : : /*
412 : : * Otherwise, we have a nonempty required prefix of the values. Some
413 : : * opclasses support prefix checks directly, otherwise we'll try to
414 : : * generate a range constraint.
415 : : */
1389 tgl@sss.pgh.pa.us 416 [ + + + - ]: 663 : if (OidIsValid(preopr) && op_in_opfamily(preopr, opfamily))
417 : : {
418 : 12 : expr = make_opclause(preopr, BOOLOID, false,
419 : : (Expr *) leftop, (Expr *) prefix,
420 : : InvalidOid, indexcollation);
421 : 12 : result = list_make1(expr);
422 : 12 : return result;
423 : : }
424 : :
425 : : /*
426 : : * Since we need a range constraint, it's only going to work reliably if
427 : : * the index is collation-insensitive or has "C" collation. Note that
428 : : * here we are looking at the index's collation, not the expression's
429 : : * collation -- this test is *not* dependent on the LIKE/regex operator's
430 : : * collation.
431 : : */
432 [ + - ]: 651 : if (collation_aware &&
367 jdavis@postgresql.or 433 [ + + ]: 651 : !pg_newlocale_from_collation(indexcollation)->collate_is_c)
1389 tgl@sss.pgh.pa.us 434 : 7 : return NIL;
435 : :
436 : : /*
437 : : * We can always say "x >= prefix".
438 : : */
2117 439 [ + + ]: 644 : if (!op_in_opfamily(geopr, opfamily))
2118 440 : 6 : return NIL;
2117 441 : 638 : expr = make_opclause(geopr, BOOLOID, false,
442 : : (Expr *) leftop, (Expr *) prefix,
443 : : InvalidOid, indexcollation);
2399 444 : 638 : result = list_make1(expr);
445 : :
446 : : /*-------
447 : : * If we can create a string larger than the prefix, we can say
448 : : * "x < greaterstr". NB: we rely on make_greater_string() to generate
449 : : * a guaranteed-greater string, not just a probably-greater string.
450 : : * In general this is only guaranteed in C locale, so we'd better be
451 : : * using a C-locale index collation.
452 : : *-------
453 : : */
2117 454 [ - + ]: 638 : if (!op_in_opfamily(ltopr, opfamily))
2118 tgl@sss.pgh.pa.us 455 :UBC 0 : return result;
2117 tgl@sss.pgh.pa.us 456 :CBC 638 : fmgr_info(get_opcode(ltopr), <proc);
2399 457 : 638 : greaterstr = make_greater_string(prefix, <proc, indexcollation);
458 [ + - ]: 638 : if (greaterstr)
459 : : {
2117 460 : 638 : expr = make_opclause(ltopr, BOOLOID, false,
461 : : (Expr *) leftop, (Expr *) greaterstr,
462 : : InvalidOid, indexcollation);
2399 463 : 638 : result = lappend(result, expr);
464 : : }
465 : :
466 : 638 : return result;
467 : : }
468 : :
469 : :
470 : : /*
471 : : * patternsel_common - generic code for pattern-match restriction selectivity.
472 : : *
473 : : * To support using this from either the operator or function paths, caller
474 : : * may pass either operator OID or underlying function OID; we look up the
475 : : * latter from the former if needed. (We could just have patternsel() call
476 : : * get_opcode(), but the work would be wasted if we don't have a need to
477 : : * compare a fixed prefix to the pg_statistic data.)
478 : : *
479 : : * Note that oprid and/or opfuncid should be for the positive-match operator
480 : : * even when negate is true.
481 : : */
482 : : static double
2396 483 : 6052 : patternsel_common(PlannerInfo *root,
484 : : Oid oprid,
485 : : Oid opfuncid,
486 : : List *args,
487 : : int varRelid,
488 : : Oid collation,
489 : : Pattern_Type ptype,
490 : : bool negate)
491 : : {
492 : : VariableStatData vardata;
493 : : Node *other;
494 : : bool varonleft;
495 : : Datum constval;
496 : : Oid consttype;
497 : : Oid vartype;
498 : : Oid rdatatype;
499 : : Oid eqopr;
500 : : Oid ltopr;
501 : : Oid geopr;
502 : : Pattern_Prefix_Status pstatus;
503 : : Const *patt;
504 : 6052 : Const *prefix = NULL;
505 : 6052 : Selectivity rest_selec = 0;
506 : 6052 : double nullfrac = 0.0;
507 : : double result;
508 : :
509 : : /*
510 : : * Initialize result to the appropriate default estimate depending on
511 : : * whether it's a match or not-match operator.
512 : : */
513 [ + + ]: 6052 : if (negate)
514 : 1359 : result = 1.0 - DEFAULT_MATCH_SEL;
515 : : else
516 : 4693 : result = DEFAULT_MATCH_SEL;
517 : :
518 : : /*
519 : : * If expression is not variable op constant, then punt and return the
520 : : * default estimate.
521 : : */
522 [ + + ]: 6052 : if (!get_restriction_variable(root, args, varRelid,
523 : : &vardata, &other, &varonleft))
524 : 210 : return result;
525 [ + + - + ]: 5842 : if (!varonleft || !IsA(other, Const))
526 : : {
527 [ - + ]: 25 : ReleaseVariableStats(vardata);
528 : 25 : return result;
529 : : }
530 : :
531 : : /*
532 : : * If the constant is NULL, assume operator is strict and return zero, ie,
533 : : * operator will never return TRUE. (It's zero even for a negator op.)
534 : : */
535 [ - + ]: 5817 : if (((Const *) other)->constisnull)
536 : : {
2396 tgl@sss.pgh.pa.us 537 [ # # ]:UBC 0 : ReleaseVariableStats(vardata);
538 : 0 : return 0.0;
539 : : }
2396 tgl@sss.pgh.pa.us 540 :CBC 5817 : constval = ((Const *) other)->constvalue;
541 : 5817 : consttype = ((Const *) other)->consttype;
542 : :
543 : : /*
544 : : * The right-hand const is type text or bytea for all supported operators.
545 : : * We do not expect to see binary-compatible types here, since
546 : : * const-folding should have relabeled the const to exactly match the
547 : : * operator's declared type.
548 : : */
549 [ + + + + ]: 5817 : if (consttype != TEXTOID && consttype != BYTEAOID)
550 : : {
551 [ - + ]: 12 : ReleaseVariableStats(vardata);
552 : 12 : return result;
553 : : }
554 : :
555 : : /*
556 : : * Similarly, the exposed type of the left-hand side should be one of
557 : : * those we know. (Do not look at vardata.atttype, which might be
558 : : * something binary-compatible but different.) We can use it to identify
559 : : * the comparison operators and the required type of the comparison
560 : : * constant, much as in match_pattern_prefix().
561 : : */
562 : 5805 : vartype = vardata.vartype;
563 : :
564 [ + + + + : 5805 : switch (vartype)
+ ]
565 : : {
566 : 794 : case TEXTOID:
2117 567 : 794 : eqopr = TextEqualOperator;
568 : 794 : ltopr = TextLessOperator;
569 : 794 : geopr = TextGreaterEqualOperator;
570 : 794 : rdatatype = TEXTOID;
571 : 794 : break;
2396 572 : 4964 : case NAMEOID:
573 : :
574 : : /*
575 : : * Note that here, we need the RHS type to be text, so that the
576 : : * comparison value isn't improperly truncated to NAMEDATALEN.
577 : : */
2117 578 : 4964 : eqopr = NameEqualTextOperator;
579 : 4964 : ltopr = NameLessTextOperator;
580 : 4964 : geopr = NameGreaterEqualTextOperator;
581 : 4964 : rdatatype = TEXTOID;
2396 582 : 4964 : break;
583 : 42 : case BPCHAROID:
2117 584 : 42 : eqopr = BpcharEqualOperator;
585 : 42 : ltopr = BpcharLessOperator;
586 : 42 : geopr = BpcharGreaterEqualOperator;
587 : 42 : rdatatype = BPCHAROID;
2396 588 : 42 : break;
589 : 3 : case BYTEAOID:
2117 590 : 3 : eqopr = ByteaEqualOperator;
591 : 3 : ltopr = ByteaLessOperator;
592 : 3 : geopr = ByteaGreaterEqualOperator;
593 : 3 : rdatatype = BYTEAOID;
2396 594 : 3 : break;
595 : 2 : default:
596 : : /* Can't get here unless we're attached to the wrong operator */
597 [ - + ]: 2 : ReleaseVariableStats(vardata);
598 : 2 : return result;
599 : : }
600 : :
601 : : /*
602 : : * Grab the nullfrac for use below.
603 : : */
604 [ + + ]: 5803 : if (HeapTupleIsValid(vardata.statsTuple))
605 : : {
606 : : Form_pg_statistic stats;
607 : :
608 : 4765 : stats = (Form_pg_statistic) GETSTRUCT(vardata.statsTuple);
609 : 4765 : nullfrac = stats->stanullfrac;
610 : : }
611 : :
612 : : /*
613 : : * Pull out any fixed prefix implied by the pattern, and estimate the
614 : : * fractional selectivity of the remainder of the pattern. Unlike many
615 : : * other selectivity estimators, we use the pattern operator's actual
616 : : * collation for this step. This is not because we expect the collation
617 : : * to make a big difference in the selectivity estimate (it seldom would),
618 : : * but because we want to be sure we cache compiled regexps under the
619 : : * right cache key, so that they can be re-used at runtime.
620 : : */
621 : 5803 : patt = (Const *) other;
622 : 5803 : pstatus = pattern_fixed_prefix(patt, ptype, collation,
623 : : &prefix, &rest_selec);
624 : :
625 : : /*
626 : : * If necessary, coerce the prefix constant to the right type. The only
627 : : * case where we need to do anything is when converting text to bpchar.
628 : : * Those two types are binary-compatible, so relabeling the Const node is
629 : : * sufficient.
630 : : */
2117 631 [ + + + + ]: 5791 : if (prefix && prefix->consttype != rdatatype)
632 : : {
633 [ + - - + ]: 18 : Assert(prefix->consttype == TEXTOID &&
634 : : rdatatype == BPCHAROID);
635 : 18 : prefix->consttype = rdatatype;
636 : : }
637 : :
2396 638 [ + + ]: 5791 : if (pstatus == Pattern_Prefix_Exact)
639 : : {
640 : : /*
641 : : * Pattern specifies an exact match, so estimate as for '='
642 : : */
1919 643 : 3267 : result = var_eq_const(&vardata, eqopr, collation, prefix->constvalue,
644 : : false, true, false);
645 : : }
646 : : else
647 : : {
648 : : /*
649 : : * Not exact-match pattern. If we have a sufficiently large
650 : : * histogram, estimate selectivity for the histogram part of the
651 : : * population by counting matches in the histogram. If not, estimate
652 : : * selectivity of the fixed prefix and remainder of pattern
653 : : * separately, then combine the two to get an estimate of the
654 : : * selectivity for the part of the column population represented by
655 : : * the histogram. (For small histograms, we combine these
656 : : * approaches.)
657 : : *
658 : : * We then add up data for any most-common-values values; these are
659 : : * not in the histogram population, and we can get exact answers for
660 : : * them by applying the pattern operator, so there's no reason to
661 : : * approximate. (If the MCVs cover a significant part of the total
662 : : * population, this gives us a big leg up in accuracy.)
663 : : */
664 : : Selectivity selec;
665 : : int hist_size;
666 : : FmgrInfo opproc;
667 : : double mcv_selec,
668 : : sumcommon;
669 : :
670 : : /* Try to use the histogram entries to get selectivity */
2396 671 [ + + ]: 2524 : if (!OidIsValid(opfuncid))
672 : 2512 : opfuncid = get_opcode(oprid);
673 : 2524 : fmgr_info(opfuncid, &opproc);
674 : :
1919 675 : 2524 : selec = histogram_selectivity(&vardata, &opproc, collation,
676 : : constval, true,
677 : : 10, 1, &hist_size);
678 : :
679 : : /* If not at least 100 entries, use the heuristic method */
2396 680 [ + + ]: 2524 : if (hist_size < 100)
681 : : {
682 : : Selectivity heursel;
683 : : Selectivity prefixsel;
684 : :
685 [ + + ]: 1836 : if (pstatus == Pattern_Prefix_Partial)
2117 686 : 1446 : prefixsel = prefix_selectivity(root, &vardata,
687 : : eqopr, ltopr, geopr,
688 : : collation,
689 : : prefix);
690 : : else
2396 691 : 390 : prefixsel = 1.0;
692 : 1836 : heursel = prefixsel * rest_selec;
693 : :
694 [ + + ]: 1836 : if (selec < 0) /* fewer than 10 histogram entries? */
695 : 1631 : selec = heursel;
696 : : else
697 : : {
698 : : /*
699 : : * For histogram sizes from 10 to 100, we combine the
700 : : * histogram and heuristic selectivities, putting increasingly
701 : : * more trust in the histogram for larger sizes.
702 : : */
703 : 205 : double hist_weight = hist_size / 100.0;
704 : :
705 : 205 : selec = selec * hist_weight + heursel * (1.0 - hist_weight);
706 : : }
707 : : }
708 : :
709 : : /* In any case, don't believe extremely small or large estimates. */
710 [ + + ]: 2524 : if (selec < 0.0001)
711 : 754 : selec = 0.0001;
712 [ + + ]: 1770 : else if (selec > 0.9999)
713 : 64 : selec = 0.9999;
714 : :
715 : : /*
716 : : * If we have most-common-values info, add up the fractions of the MCV
717 : : * entries that satisfy MCV OP PATTERN. These fractions contribute
718 : : * directly to the result selectivity. Also add up the total fraction
719 : : * represented by MCV entries.
720 : : */
1919 721 : 2524 : mcv_selec = mcv_selectivity(&vardata, &opproc, collation,
722 : : constval, true,
723 : : &sumcommon);
724 : :
725 : : /*
726 : : * Now merge the results from the MCV and histogram calculations,
727 : : * realizing that the histogram covers only the non-null values that
728 : : * are not listed in MCV.
729 : : */
2396 730 : 2524 : selec *= 1.0 - nullfrac - sumcommon;
731 : 2524 : selec += mcv_selec;
732 : 2524 : result = selec;
733 : : }
734 : :
735 : : /* now adjust if we wanted not-match rather than match */
736 [ + + ]: 5791 : if (negate)
737 : 1143 : result = 1.0 - result - nullfrac;
738 : :
739 : : /* result should be in range, but make sure... */
740 [ - + + + ]: 5791 : CLAMP_PROBABILITY(result);
741 : :
742 [ + + ]: 5791 : if (prefix)
743 : : {
744 : 5474 : pfree(DatumGetPointer(prefix->constvalue));
745 : 5474 : pfree(prefix);
746 : : }
747 : :
748 [ + + ]: 5791 : ReleaseVariableStats(vardata);
749 : :
750 : 5791 : return result;
751 : : }
752 : :
753 : : /*
754 : : * Fix impedance mismatch between SQL-callable functions and patternsel_common
755 : : */
756 : : static double
757 : 6040 : patternsel(PG_FUNCTION_ARGS, Pattern_Type ptype, bool negate)
758 : : {
759 : 6040 : PlannerInfo *root = (PlannerInfo *) PG_GETARG_POINTER(0);
760 : 6040 : Oid operator = PG_GETARG_OID(1);
761 : 6040 : List *args = (List *) PG_GETARG_POINTER(2);
762 : 6040 : int varRelid = PG_GETARG_INT32(3);
763 : 6040 : Oid collation = PG_GET_COLLATION();
764 : :
765 : : /*
766 : : * If this is for a NOT LIKE or similar operator, get the corresponding
767 : : * positive-match operator and work with that.
768 : : */
769 [ + + ]: 6040 : if (negate)
770 : : {
771 : 1359 : operator = get_negator(operator);
772 [ - + ]: 1359 : if (!OidIsValid(operator))
2396 tgl@sss.pgh.pa.us 773 [ # # ]:UBC 0 : elog(ERROR, "patternsel called for operator without a negator");
774 : : }
775 : :
2396 tgl@sss.pgh.pa.us 776 :CBC 6040 : return patternsel_common(root,
777 : : operator,
778 : : InvalidOid,
779 : : args,
780 : : varRelid,
781 : : collation,
782 : : ptype,
783 : : negate);
784 : : }
785 : :
786 : : /*
787 : : * regexeqsel - Selectivity of regular-expression pattern match.
788 : : */
789 : : Datum
790 : 3774 : regexeqsel(PG_FUNCTION_ARGS)
791 : : {
792 : 3774 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Regex, false));
793 : : }
794 : :
795 : : /*
796 : : * icregexeqsel - Selectivity of case-insensitive regex match.
797 : : */
798 : : Datum
799 : 32 : icregexeqsel(PG_FUNCTION_ARGS)
800 : : {
801 : 32 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Regex_IC, false));
802 : : }
803 : :
804 : : /*
805 : : * likesel - Selectivity of LIKE pattern match.
806 : : */
807 : : Datum
808 : 785 : likesel(PG_FUNCTION_ARGS)
809 : : {
810 : 785 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Like, false));
811 : : }
812 : :
813 : : /*
814 : : * prefixsel - selectivity of prefix operator
815 : : */
816 : : Datum
817 : 27 : prefixsel(PG_FUNCTION_ARGS)
818 : : {
819 : 27 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Prefix, false));
820 : : }
821 : :
822 : : /*
823 : : *
824 : : * iclikesel - Selectivity of ILIKE pattern match.
825 : : */
826 : : Datum
827 : 63 : iclikesel(PG_FUNCTION_ARGS)
828 : : {
829 : 63 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Like_IC, false));
830 : : }
831 : :
832 : : /*
833 : : * regexnesel - Selectivity of regular-expression pattern non-match.
834 : : */
835 : : Datum
836 : 1279 : regexnesel(PG_FUNCTION_ARGS)
837 : : {
838 : 1279 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Regex, true));
839 : : }
840 : :
841 : : /*
842 : : * icregexnesel - Selectivity of case-insensitive regex non-match.
843 : : */
844 : : Datum
845 : 8 : icregexnesel(PG_FUNCTION_ARGS)
846 : : {
847 : 8 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Regex_IC, true));
848 : : }
849 : :
850 : : /*
851 : : * nlikesel - Selectivity of LIKE pattern non-match.
852 : : */
853 : : Datum
854 : 68 : nlikesel(PG_FUNCTION_ARGS)
855 : : {
856 : 68 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Like, true));
857 : : }
858 : :
859 : : /*
860 : : * icnlikesel - Selectivity of ILIKE pattern non-match.
861 : : */
862 : : Datum
863 : 4 : icnlikesel(PG_FUNCTION_ARGS)
864 : : {
865 : 4 : PG_RETURN_FLOAT8(patternsel(fcinfo, Pattern_Type_Like_IC, true));
866 : : }
867 : :
868 : : /*
869 : : * patternjoinsel - Generic code for pattern-match join selectivity.
870 : : */
871 : : static double
872 : 118 : patternjoinsel(PG_FUNCTION_ARGS, Pattern_Type ptype, bool negate)
873 : : {
874 : : /* For the moment we just punt. */
875 [ - + ]: 118 : return negate ? (1.0 - DEFAULT_MATCH_SEL) : DEFAULT_MATCH_SEL;
876 : : }
877 : :
878 : : /*
879 : : * regexeqjoinsel - Join selectivity of regular-expression pattern match.
880 : : */
881 : : Datum
882 : 118 : regexeqjoinsel(PG_FUNCTION_ARGS)
883 : : {
884 : 118 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Regex, false));
885 : : }
886 : :
887 : : /*
888 : : * icregexeqjoinsel - Join selectivity of case-insensitive regex match.
889 : : */
890 : : Datum
2396 tgl@sss.pgh.pa.us 891 :UBC 0 : icregexeqjoinsel(PG_FUNCTION_ARGS)
892 : : {
893 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Regex_IC, false));
894 : : }
895 : :
896 : : /*
897 : : * likejoinsel - Join selectivity of LIKE pattern match.
898 : : */
899 : : Datum
900 : 0 : likejoinsel(PG_FUNCTION_ARGS)
901 : : {
902 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Like, false));
903 : : }
904 : :
905 : : /*
906 : : * prefixjoinsel - Join selectivity of prefix operator
907 : : */
908 : : Datum
909 : 0 : prefixjoinsel(PG_FUNCTION_ARGS)
910 : : {
911 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Prefix, false));
912 : : }
913 : :
914 : : /*
915 : : * iclikejoinsel - Join selectivity of ILIKE pattern match.
916 : : */
917 : : Datum
918 : 0 : iclikejoinsel(PG_FUNCTION_ARGS)
919 : : {
920 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Like_IC, false));
921 : : }
922 : :
923 : : /*
924 : : * regexnejoinsel - Join selectivity of regex non-match.
925 : : */
926 : : Datum
927 : 0 : regexnejoinsel(PG_FUNCTION_ARGS)
928 : : {
929 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Regex, true));
930 : : }
931 : :
932 : : /*
933 : : * icregexnejoinsel - Join selectivity of case-insensitive regex non-match.
934 : : */
935 : : Datum
936 : 0 : icregexnejoinsel(PG_FUNCTION_ARGS)
937 : : {
938 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Regex_IC, true));
939 : : }
940 : :
941 : : /*
942 : : * nlikejoinsel - Join selectivity of LIKE pattern non-match.
943 : : */
944 : : Datum
945 : 0 : nlikejoinsel(PG_FUNCTION_ARGS)
946 : : {
947 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Like, true));
948 : : }
949 : :
950 : : /*
951 : : * icnlikejoinsel - Join selectivity of ILIKE pattern non-match.
952 : : */
953 : : Datum
954 : 0 : icnlikejoinsel(PG_FUNCTION_ARGS)
955 : : {
956 : 0 : PG_RETURN_FLOAT8(patternjoinsel(fcinfo, Pattern_Type_Like_IC, true));
957 : : }
958 : :
959 : :
960 : : /*-------------------------------------------------------------------------
961 : : *
962 : : * Pattern analysis functions
963 : : *
964 : : * These routines support analysis of LIKE and regular-expression patterns
965 : : * by the planner/optimizer. It's important that they agree with the
966 : : * regular-expression code in backend/regex/ and the LIKE code in
967 : : * backend/utils/adt/like.c. Also, the computation of the fixed prefix
968 : : * must be conservative: if we report a string longer than the true fixed
969 : : * prefix, the query may produce actually wrong answers, rather than just
970 : : * getting a bad selectivity estimate!
971 : : *
972 : : *-------------------------------------------------------------------------
973 : : */
974 : :
975 : : /*
976 : : * Extract the fixed prefix, if any, for a pattern.
977 : : *
978 : : * *prefix is set to a palloc'd prefix string (in the form of a Const node),
979 : : * or to NULL if no fixed prefix exists for the pattern.
980 : : * If rest_selec is not NULL, *rest_selec is set to an estimate of the
981 : : * selectivity of the remainder of the pattern (without any fixed prefix).
982 : : * The prefix Const has the same type (TEXT or BYTEA) as the input pattern.
983 : : *
984 : : * The return value distinguishes no fixed prefix, a partial prefix,
985 : : * or an exact-match-only pattern.
986 : : */
987 : :
988 : : static Pattern_Prefix_Status
2396 tgl@sss.pgh.pa.us 989 :CBC 1484 : like_fixed_prefix(Const *patt_const, bool case_insensitive, Oid collation,
990 : : Const **prefix_const, Selectivity *rest_selec)
991 : : {
992 : : char *match;
993 : : char *patt;
994 : : int pattlen;
995 : 1484 : Oid typeid = patt_const->consttype;
996 : : int pos,
997 : : match_pos;
998 : 1484 : bool is_multibyte = (pg_database_encoding_max_length() > 1);
999 : 1484 : pg_locale_t locale = 0;
1000 : :
1001 : : /* the right-hand const is type text or bytea */
1002 [ + + - + ]: 1484 : Assert(typeid == BYTEAOID || typeid == TEXTOID);
1003 : :
1004 [ + + ]: 1484 : if (case_insensitive)
1005 : : {
1006 [ - + ]: 117 : if (typeid == BYTEAOID)
2396 tgl@sss.pgh.pa.us 1007 [ # # ]:UBC 0 : ereport(ERROR,
1008 : : (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
1009 : : errmsg("case insensitive matching not supported on type bytea")));
1010 : :
1325 peter@eisentraut.org 1011 [ - + ]:CBC 117 : if (!OidIsValid(collation))
1012 : : {
1013 : : /*
1014 : : * This typically means that the parser could not resolve a
1015 : : * conflict of implicit collations, so report it that way.
1016 : : */
1325 peter@eisentraut.org 1017 [ # # ]:UBC 0 : ereport(ERROR,
1018 : : (errcode(ERRCODE_INDETERMINATE_COLLATION),
1019 : : errmsg("could not determine which collation to use for ILIKE"),
1020 : : errhint("Use the COLLATE clause to set the collation explicitly.")));
1021 : : }
1022 : :
365 jdavis@postgresql.or 1023 :CBC 117 : locale = pg_newlocale_from_collation(collation);
1024 : : }
1025 : :
2396 tgl@sss.pgh.pa.us 1026 [ + + ]: 1484 : if (typeid != BYTEAOID)
1027 : : {
1028 : 1478 : patt = TextDatumGetCString(patt_const->constvalue);
1029 : 1478 : pattlen = strlen(patt);
1030 : : }
1031 : : else
1032 : : {
1033 : 6 : bytea *bstr = DatumGetByteaPP(patt_const->constvalue);
1034 : :
1035 [ - + - - : 6 : pattlen = VARSIZE_ANY_EXHDR(bstr);
- - - - -
+ ]
1036 : 6 : patt = (char *) palloc(pattlen);
1037 [ - + ]: 6 : memcpy(patt, VARDATA_ANY(bstr), pattlen);
1038 [ - + ]: 6 : Assert((Pointer) bstr == DatumGetPointer(patt_const->constvalue));
1039 : : }
1040 : :
1041 : 1484 : match = palloc(pattlen + 1);
1042 : 1484 : match_pos = 0;
1043 [ + + ]: 7968 : for (pos = 0; pos < pattlen; pos++)
1044 : : {
1045 : : /* % and _ are wildcard characters in LIKE */
1046 [ + + ]: 7915 : if (patt[pos] == '%' ||
1047 [ + + ]: 7112 : patt[pos] == '_')
1048 : : break;
1049 : :
1050 : : /* Backslash escapes the next character */
1051 [ + + ]: 6569 : if (patt[pos] == '\\')
1052 : : {
1053 : 137 : pos++;
1054 [ - + ]: 137 : if (pos >= pattlen)
2396 tgl@sss.pgh.pa.us 1055 :UBC 0 : break;
1056 : : }
1057 : :
1058 : : /* Stop if case-varying character (it's sort of a wildcard) */
2396 tgl@sss.pgh.pa.us 1059 [ + + + + ]:CBC 6702 : if (case_insensitive &&
365 jdavis@postgresql.or 1060 : 133 : pattern_char_isalpha(patt[pos], is_multibyte, locale))
2396 tgl@sss.pgh.pa.us 1061 : 85 : break;
1062 : :
1063 : 6484 : match[match_pos++] = patt[pos];
1064 : : }
1065 : :
1066 : 1484 : match[match_pos] = '\0';
1067 : :
1068 [ + + ]: 1484 : if (typeid != BYTEAOID)
1069 : 1478 : *prefix_const = string_to_const(match, typeid);
1070 : : else
1071 : 6 : *prefix_const = string_to_bytea_const(match, match_pos);
1072 : :
1073 [ + + ]: 1484 : if (rest_selec != NULL)
1074 : 912 : *rest_selec = like_selectivity(&patt[pos], pattlen - pos,
1075 : : case_insensitive);
1076 : :
1077 : 1484 : pfree(patt);
1078 : 1484 : pfree(match);
1079 : :
1080 : : /* in LIKE, an empty pattern is an exact match! */
1081 [ + + ]: 1484 : if (pos == pattlen)
1082 : 53 : return Pattern_Prefix_Exact; /* reached end of pattern, so exact */
1083 : :
1084 [ + + ]: 1431 : if (match_pos > 0)
1085 : 1173 : return Pattern_Prefix_Partial;
1086 : :
1087 : 258 : return Pattern_Prefix_None;
1088 : : }
1089 : :
1090 : : static Pattern_Prefix_Status
1091 : 8246 : regex_fixed_prefix(Const *patt_const, bool case_insensitive, Oid collation,
1092 : : Const **prefix_const, Selectivity *rest_selec)
1093 : : {
1094 : 8246 : Oid typeid = patt_const->consttype;
1095 : : char *prefix;
1096 : : bool exact;
1097 : :
1098 : : /*
1099 : : * Should be unnecessary, there are no bytea regex operators defined. As
1100 : : * such, it should be noted that the rest of this function has *not* been
1101 : : * made safe for binary (possibly NULL containing) strings.
1102 : : */
1103 [ - + ]: 8246 : if (typeid == BYTEAOID)
2396 tgl@sss.pgh.pa.us 1104 [ # # ]:UBC 0 : ereport(ERROR,
1105 : : (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
1106 : : errmsg("regular-expression matching not supported on type bytea")));
1107 : :
1108 : : /* Use the regexp machinery to extract the prefix, if any */
2396 tgl@sss.pgh.pa.us 1109 :CBC 8246 : prefix = regexp_fixed_prefix(DatumGetTextPP(patt_const->constvalue),
1110 : : case_insensitive, collation,
1111 : : &exact);
1112 : :
1113 [ + + ]: 8234 : if (prefix == NULL)
1114 : : {
1115 : 385 : *prefix_const = NULL;
1116 : :
1117 [ + + ]: 385 : if (rest_selec != NULL)
1118 : : {
1119 : 317 : char *patt = TextDatumGetCString(patt_const->constvalue);
1120 : :
1121 : 317 : *rest_selec = regex_selectivity(patt, strlen(patt),
1122 : : case_insensitive,
1123 : : 0);
1124 : 317 : pfree(patt);
1125 : : }
1126 : :
1127 : 385 : return Pattern_Prefix_None;
1128 : : }
1129 : :
1130 : 7849 : *prefix_const = string_to_const(prefix, typeid);
1131 : :
1132 [ + + ]: 7849 : if (rest_selec != NULL)
1133 : : {
1134 [ + + ]: 4523 : if (exact)
1135 : : {
1136 : : /* Exact match, so there's no additional selectivity */
1137 : 3235 : *rest_selec = 1.0;
1138 : : }
1139 : : else
1140 : : {
1141 : 1288 : char *patt = TextDatumGetCString(patt_const->constvalue);
1142 : :
1143 : 2576 : *rest_selec = regex_selectivity(patt, strlen(patt),
1144 : : case_insensitive,
1145 : 1288 : strlen(prefix));
1146 : 1288 : pfree(patt);
1147 : : }
1148 : : }
1149 : :
1150 : 7849 : pfree(prefix);
1151 : :
1152 [ + + ]: 7849 : if (exact)
1153 : 6377 : return Pattern_Prefix_Exact; /* pattern specifies exact match */
1154 : : else
1155 : 1472 : return Pattern_Prefix_Partial;
1156 : : }
1157 : :
1158 : : static Pattern_Prefix_Status
1159 : 9781 : pattern_fixed_prefix(Const *patt, Pattern_Type ptype, Oid collation,
1160 : : Const **prefix, Selectivity *rest_selec)
1161 : : {
1162 : : Pattern_Prefix_Status result;
1163 : :
1164 [ + + + + : 9781 : switch (ptype)
+ - ]
1165 : : {
1166 : 1367 : case Pattern_Type_Like:
1167 : 1367 : result = like_fixed_prefix(patt, false, collation,
1168 : : prefix, rest_selec);
1169 : 1367 : break;
1170 : 117 : case Pattern_Type_Like_IC:
1171 : 117 : result = like_fixed_prefix(patt, true, collation,
1172 : : prefix, rest_selec);
1173 : 117 : break;
1174 : 8215 : case Pattern_Type_Regex:
1175 : 8215 : result = regex_fixed_prefix(patt, false, collation,
1176 : : prefix, rest_selec);
1177 : 8203 : break;
1178 : 31 : case Pattern_Type_Regex_IC:
1179 : 31 : result = regex_fixed_prefix(patt, true, collation,
1180 : : prefix, rest_selec);
1181 : 31 : break;
1182 : 51 : case Pattern_Type_Prefix:
1183 : : /* Prefix type work is trivial. */
1184 : 51 : result = Pattern_Prefix_Partial;
1185 : 51 : *prefix = makeConst(patt->consttype,
1186 : : patt->consttypmod,
1187 : : patt->constcollid,
1188 : : patt->constlen,
1189 : : datumCopy(patt->constvalue,
1190 : 51 : patt->constbyval,
1191 : : patt->constlen),
1192 : 51 : patt->constisnull,
1193 : 51 : patt->constbyval);
1389 1194 [ + + ]: 51 : if (rest_selec != NULL)
1195 : 39 : *rest_selec = 1.0; /* all */
2396 1196 : 51 : break;
2396 tgl@sss.pgh.pa.us 1197 :UBC 0 : default:
1198 [ # # ]: 0 : elog(ERROR, "unrecognized ptype: %d", (int) ptype);
1199 : : result = Pattern_Prefix_None; /* keep compiler quiet */
1200 : : break;
1201 : : }
2396 tgl@sss.pgh.pa.us 1202 :CBC 9769 : return result;
1203 : : }
1204 : :
1205 : : /*
1206 : : * Estimate the selectivity of a fixed prefix for a pattern match.
1207 : : *
1208 : : * A fixed prefix "foo" is estimated as the selectivity of the expression
1209 : : * "variable >= 'foo' AND variable < 'fop'".
1210 : : *
1211 : : * The selectivity estimate is with respect to the portion of the column
1212 : : * population represented by the histogram --- the caller must fold this
1213 : : * together with info about MCVs and NULLs.
1214 : : *
1215 : : * We use the given comparison operators and collation to do the estimation.
1216 : : * The given variable and Const must be of the associated datatype(s).
1217 : : *
1218 : : * XXX Note: we make use of the upper bound to estimate operator selectivity
1219 : : * even if the locale is such that we cannot rely on the upper-bound string.
1220 : : * The selectivity only needs to be approximately right anyway, so it seems
1221 : : * more useful to use the upper-bound code than not.
1222 : : */
1223 : : static Selectivity
1224 : 1446 : prefix_selectivity(PlannerInfo *root, VariableStatData *vardata,
1225 : : Oid eqopr, Oid ltopr, Oid geopr,
1226 : : Oid collation,
1227 : : Const *prefixcon)
1228 : : {
1229 : : Selectivity prefixsel;
1230 : : FmgrInfo opproc;
1231 : : Const *greaterstrcon;
1232 : : Selectivity eq_sel;
1233 : :
1234 : : /* Estimate the selectivity of "x >= prefix" */
2117 1235 : 1446 : fmgr_info(get_opcode(geopr), &opproc);
1236 : :
2396 1237 : 1446 : prefixsel = ineq_histogram_selectivity(root, vardata,
1238 : : geopr, &opproc, true, true,
1239 : : collation,
1240 : : prefixcon->constvalue,
1241 : : prefixcon->consttype);
1242 : :
1243 [ + + ]: 1446 : if (prefixsel < 0.0)
1244 : : {
1245 : : /* No histogram is present ... return a suitable default estimate */
1246 : 346 : return DEFAULT_MATCH_SEL;
1247 : : }
1248 : :
1249 : : /*
1250 : : * If we can create a string larger than the prefix, say "x < greaterstr".
1251 : : */
2117 1252 : 1100 : fmgr_info(get_opcode(ltopr), &opproc);
1919 1253 : 1100 : greaterstrcon = make_greater_string(prefixcon, &opproc, collation);
2396 1254 [ + - ]: 1100 : if (greaterstrcon)
1255 : : {
1256 : : Selectivity topsel;
1257 : :
1258 : 1100 : topsel = ineq_histogram_selectivity(root, vardata,
1259 : : ltopr, &opproc, false, false,
1260 : : collation,
1261 : : greaterstrcon->constvalue,
1262 : : greaterstrcon->consttype);
1263 : :
1264 : : /* ineq_histogram_selectivity worked before, it shouldn't fail now */
1265 [ - + ]: 1100 : Assert(topsel >= 0.0);
1266 : :
1267 : : /*
1268 : : * Merge the two selectivities in the same way as for a range query
1269 : : * (see clauselist_selectivity()). Note that we don't need to worry
1270 : : * about double-exclusion of nulls, since ineq_histogram_selectivity
1271 : : * doesn't count those anyway.
1272 : : */
1273 : 1100 : prefixsel = topsel + prefixsel - 1.0;
1274 : : }
1275 : :
1276 : : /*
1277 : : * If the prefix is long then the two bounding values might be too close
1278 : : * together for the histogram to distinguish them usefully, resulting in a
1279 : : * zero estimate (plus or minus roundoff error). To avoid returning a
1280 : : * ridiculously small estimate, compute the estimated selectivity for
1281 : : * "variable = 'foo'", and clamp to that. (Obviously, the resultant
1282 : : * estimate should be at least that.)
1283 : : *
1284 : : * We apply this even if we couldn't make a greater string. That case
1285 : : * suggests that the prefix is near the maximum possible, and thus
1286 : : * probably off the end of the histogram, and thus we probably got a very
1287 : : * small estimate from the >= condition; so we still need to clamp.
1288 : : */
1919 1289 : 1100 : eq_sel = var_eq_const(vardata, eqopr, collation, prefixcon->constvalue,
1290 : : false, true, false);
1291 : :
2396 1292 [ + + ]: 1100 : prefixsel = Max(prefixsel, eq_sel);
1293 : :
1294 : 1100 : return prefixsel;
1295 : : }
1296 : :
1297 : :
1298 : : /*
1299 : : * Estimate the selectivity of a pattern of the specified type.
1300 : : * Note that any fixed prefix of the pattern will have been removed already,
1301 : : * so actually we may be looking at just a fragment of the pattern.
1302 : : *
1303 : : * For now, we use a very simplistic approach: fixed characters reduce the
1304 : : * selectivity a good deal, character ranges reduce it a little,
1305 : : * wildcards (such as % for LIKE or .* for regex) increase it.
1306 : : */
1307 : :
1308 : : #define FIXED_CHAR_SEL 0.20 /* about 1/5 */
1309 : : #define CHAR_RANGE_SEL 0.25
1310 : : #define ANY_CHAR_SEL 0.9 /* not 1, since it won't match end-of-string */
1311 : : #define FULL_WILDCARD_SEL 5.0
1312 : : #define PARTIAL_WILDCARD_SEL 2.0
1313 : :
1314 : : static Selectivity
1315 : 912 : like_selectivity(const char *patt, int pattlen, bool case_insensitive)
1316 : : {
1317 : 912 : Selectivity sel = 1.0;
1318 : : int pos;
1319 : :
1320 : : /* Skip any leading wildcard; it's already factored into initial sel */
1321 [ + + ]: 1762 : for (pos = 0; pos < pattlen; pos++)
1322 : : {
1323 [ + + + + ]: 1292 : if (patt[pos] != '%' && patt[pos] != '_')
1324 : 442 : break;
1325 : : }
1326 : :
1327 [ + + ]: 3627 : for (; pos < pattlen; pos++)
1328 : : {
1329 : : /* % and _ are wildcard characters in LIKE */
1330 [ + + ]: 2715 : if (patt[pos] == '%')
1331 : 390 : sel *= FULL_WILDCARD_SEL;
1332 [ + + ]: 2325 : else if (patt[pos] == '_')
1333 : 93 : sel *= ANY_CHAR_SEL;
1334 [ + + ]: 2232 : else if (patt[pos] == '\\')
1335 : : {
1336 : : /* Backslash quotes the next character */
1337 : 20 : pos++;
1338 [ - + ]: 20 : if (pos >= pattlen)
2396 tgl@sss.pgh.pa.us 1339 :UBC 0 : break;
2396 tgl@sss.pgh.pa.us 1340 :CBC 20 : sel *= FIXED_CHAR_SEL;
1341 : : }
1342 : : else
1343 : 2212 : sel *= FIXED_CHAR_SEL;
1344 : : }
1345 : : /* Could get sel > 1 if multiple wildcards */
1346 [ - + ]: 912 : if (sel > 1.0)
2396 tgl@sss.pgh.pa.us 1347 :UBC 0 : sel = 1.0;
2396 tgl@sss.pgh.pa.us 1348 :CBC 912 : return sel;
1349 : : }
1350 : :
1351 : : static Selectivity
1352 : 1818 : regex_selectivity_sub(const char *patt, int pattlen, bool case_insensitive)
1353 : : {
1354 : 1818 : Selectivity sel = 1.0;
1355 : 1818 : int paren_depth = 0;
1356 : 1818 : int paren_pos = 0; /* dummy init to keep compiler quiet */
1357 : : int pos;
1358 : :
1359 : : /* since this function recurses, it could be driven to stack overflow */
1109 1360 : 1818 : check_stack_depth();
1361 : :
2396 1362 [ + + ]: 19735 : for (pos = 0; pos < pattlen; pos++)
1363 : : {
1364 [ + + ]: 17929 : if (patt[pos] == '(')
1365 : : {
1366 [ + + ]: 216 : if (paren_depth == 0)
1367 : 204 : paren_pos = pos; /* remember start of parenthesized item */
1368 : 216 : paren_depth++;
1369 : : }
1370 [ + + + - ]: 17713 : else if (patt[pos] == ')' && paren_depth > 0)
1371 : : {
1372 : 213 : paren_depth--;
1373 [ + + ]: 213 : if (paren_depth == 0)
1374 : 201 : sel *= regex_selectivity_sub(patt + (paren_pos + 1),
1375 : 201 : pos - (paren_pos + 1),
1376 : : case_insensitive);
1377 : : }
1378 [ + + + + ]: 17500 : else if (patt[pos] == '|' && paren_depth == 0)
1379 : : {
1380 : : /*
1381 : : * If unquoted | is present at paren level 0 in pattern, we have
1382 : : * multiple alternatives; sum their probabilities.
1383 : : */
1384 : 24 : sel += regex_selectivity_sub(patt + (pos + 1),
1385 : 12 : pattlen - (pos + 1),
1386 : : case_insensitive);
1387 : 12 : break; /* rest of pattern is now processed */
1388 : : }
1389 [ + + ]: 17488 : else if (patt[pos] == '[')
1390 : : {
1391 : 120 : bool negclass = false;
1392 : :
1393 [ + + ]: 120 : if (patt[++pos] == '^')
1394 : : {
1395 : 30 : negclass = true;
1396 : 30 : pos++;
1397 : : }
1398 [ + + ]: 120 : if (patt[pos] == ']') /* ']' at start of class is not special */
1399 : 12 : pos++;
1400 [ + - + + ]: 640 : while (pos < pattlen && patt[pos] != ']')
1401 : 520 : pos++;
1402 [ + + ]: 120 : if (paren_depth == 0)
1403 [ + + ]: 78 : sel *= (negclass ? (1.0 - CHAR_RANGE_SEL) : CHAR_RANGE_SEL);
1404 : : }
1405 [ + + ]: 17368 : else if (patt[pos] == '.')
1406 : : {
1407 [ + + ]: 457 : if (paren_depth == 0)
1408 : 260 : sel *= ANY_CHAR_SEL;
1409 : : }
1410 [ + + ]: 16911 : else if (patt[pos] == '*' ||
1411 [ + + ]: 16511 : patt[pos] == '?' ||
1412 [ + + ]: 16434 : patt[pos] == '+')
1413 : : {
1414 : : /* Ought to be smarter about quantifiers... */
1415 [ + + ]: 484 : if (paren_depth == 0)
1416 : 261 : sel *= PARTIAL_WILDCARD_SEL;
1417 : : }
1418 [ + + ]: 16427 : else if (patt[pos] == '{')
1419 : : {
1420 [ + - + + ]: 132 : while (pos < pattlen && patt[pos] != '}')
1421 : 94 : pos++;
1422 [ + + ]: 38 : if (paren_depth == 0)
1423 : 32 : sel *= PARTIAL_WILDCARD_SEL;
1424 : : }
1425 [ + + ]: 16389 : else if (patt[pos] == '\\')
1426 : : {
1427 : : /* backslash quotes the next character */
1428 : 148 : pos++;
1429 [ - + ]: 148 : if (pos >= pattlen)
2396 tgl@sss.pgh.pa.us 1430 :UBC 0 : break;
2396 tgl@sss.pgh.pa.us 1431 [ + + ]:CBC 148 : if (paren_depth == 0)
1432 : 76 : sel *= FIXED_CHAR_SEL;
1433 : : }
1434 : : else
1435 : : {
1436 [ + + ]: 16241 : if (paren_depth == 0)
1437 : 14856 : sel *= FIXED_CHAR_SEL;
1438 : : }
1439 : : }
1440 : : /* Could get sel > 1 if multiple wildcards */
1441 [ + + ]: 1818 : if (sel > 1.0)
1442 : 13 : sel = 1.0;
1443 : 1818 : return sel;
1444 : : }
1445 : :
1446 : : static Selectivity
1447 : 1605 : regex_selectivity(const char *patt, int pattlen, bool case_insensitive,
1448 : : int fixed_prefix_len)
1449 : : {
1450 : : Selectivity sel;
1451 : :
1452 : : /* If patt doesn't end with $, consider it to have a trailing wildcard */
1453 [ + - + + : 1605 : if (pattlen > 0 && patt[pattlen - 1] == '$' &&
+ - ]
1454 [ + - ]: 204 : (pattlen == 1 || patt[pattlen - 2] != '\\'))
1455 : : {
1456 : : /* has trailing $ */
1457 : 204 : sel = regex_selectivity_sub(patt, pattlen - 1, case_insensitive);
1458 : : }
1459 : : else
1460 : : {
1461 : : /* no trailing $ */
1462 : 1401 : sel = regex_selectivity_sub(patt, pattlen, case_insensitive);
1463 : 1401 : sel *= FULL_WILDCARD_SEL;
1464 : : }
1465 : :
1466 : : /*
1467 : : * If there's a fixed prefix, discount its selectivity. We have to be
1468 : : * careful here since a very long prefix could result in pow's result
1469 : : * underflowing to zero (in which case "sel" probably has as well).
1470 : : */
1471 [ + + ]: 1605 : if (fixed_prefix_len > 0)
1472 : : {
1667 1473 : 1288 : double prefixsel = pow(FIXED_CHAR_SEL, fixed_prefix_len);
1474 : :
1475 [ + - ]: 1288 : if (prefixsel > 0.0)
1476 : 1288 : sel /= prefixsel;
1477 : : }
1478 : :
1479 : : /* Make sure result stays in range */
2396 1480 [ - + + + ]: 1605 : CLAMP_PROBABILITY(sel);
1481 : 1605 : return sel;
1482 : : }
1483 : :
1484 : : /*
1485 : : * Check whether char is a letter (and, hence, subject to case-folding)
1486 : : *
1487 : : * In multibyte character sets or with ICU, we can't use isalpha, and it does
1488 : : * not seem worth trying to convert to wchar_t to use iswalpha or u_isalpha.
1489 : : * Instead, just assume any non-ASCII char is potentially case-varying, and
1490 : : * hard-wire knowledge of which ASCII chars are letters.
1491 : : */
1492 : : static int
1493 : 133 : pattern_char_isalpha(char c, bool is_multibyte,
1494 : : pg_locale_t locale)
1495 : : {
365 jdavis@postgresql.or 1496 [ + + ]: 133 : if (locale->ctype_is_c)
2396 tgl@sss.pgh.pa.us 1497 [ + + + - : 70 : return (c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z');
+ + + - ]
1498 : : else
67 jdavis@postgresql.or 1499 :GNC 63 : return char_is_cased(c, locale);
1500 : : }
1501 : :
1502 : :
1503 : : /*
1504 : : * For bytea, the increment function need only increment the current byte
1505 : : * (there are no multibyte characters to worry about).
1506 : : */
1507 : : static bool
2396 tgl@sss.pgh.pa.us 1508 :UBC 0 : byte_increment(unsigned char *ptr, int len)
1509 : : {
1510 [ # # ]: 0 : if (*ptr >= 255)
1511 : 0 : return false;
1512 : 0 : (*ptr)++;
1513 : 0 : return true;
1514 : : }
1515 : :
1516 : : /*
1517 : : * Try to generate a string greater than the given string or any
1518 : : * string it is a prefix of. If successful, return a palloc'd string
1519 : : * in the form of a Const node; else return NULL.
1520 : : *
1521 : : * The caller must provide the appropriate "less than" comparison function
1522 : : * for testing the strings, along with the collation to use.
1523 : : *
1524 : : * The key requirement here is that given a prefix string, say "foo",
1525 : : * we must be able to generate another string "fop" that is greater than
1526 : : * all strings "foobar" starting with "foo". We can test that we have
1527 : : * generated a string greater than the prefix string, but in non-C collations
1528 : : * that is not a bulletproof guarantee that an extension of the string might
1529 : : * not sort after it; an example is that "foo " is less than "foo!", but it
1530 : : * is not clear that a "dictionary" sort ordering will consider "foo!" less
1531 : : * than "foo bar". CAUTION: Therefore, this function should be used only for
1532 : : * estimation purposes when working in a non-C collation.
1533 : : *
1534 : : * To try to catch most cases where an extended string might otherwise sort
1535 : : * before the result value, we determine which of the strings "Z", "z", "y",
1536 : : * and "9" is seen as largest by the collation, and append that to the given
1537 : : * prefix before trying to find a string that compares as larger.
1538 : : *
1539 : : * To search for a greater string, we repeatedly "increment" the rightmost
1540 : : * character, using an encoding-specific character incrementer function.
1541 : : * When it's no longer possible to increment the last character, we truncate
1542 : : * off that character and start incrementing the next-to-rightmost.
1543 : : * For example, if "z" were the last character in the sort order, then we
1544 : : * could produce "foo" as a string greater than "fonz".
1545 : : *
1546 : : * This could be rather slow in the worst case, but in most cases we
1547 : : * won't have to try more than one or two strings before succeeding.
1548 : : *
1549 : : * Note that it's important for the character incrementer not to be too anal
1550 : : * about producing every possible character code, since in some cases the only
1551 : : * way to get a larger string is to increment a previous character position.
1552 : : * So we don't want to spend too much time trying every possible character
1553 : : * code at the last position. A good rule of thumb is to be sure that we
1554 : : * don't try more than 256*K values for a K-byte character (and definitely
1555 : : * not 256^K, which is what an exhaustive search would approach).
1556 : : */
1557 : : static Const *
2396 tgl@sss.pgh.pa.us 1558 :CBC 1738 : make_greater_string(const Const *str_const, FmgrInfo *ltproc, Oid collation)
1559 : : {
1560 : 1738 : Oid datatype = str_const->consttype;
1561 : : char *workstr;
1562 : : int len;
1563 : : Datum cmpstr;
1564 : 1738 : char *cmptxt = NULL;
1565 : : mbcharacter_incrementer charinc;
1566 : :
1567 : : /*
1568 : : * Get a modifiable copy of the prefix string in C-string format, and set
1569 : : * up the string we will compare to as a Datum. In C locale this can just
1570 : : * be the given prefix string, otherwise we need to add a suffix. Type
1571 : : * BYTEA sorts bytewise so it never needs a suffix either.
1572 : : */
1573 [ - + ]: 1738 : if (datatype == BYTEAOID)
1574 : : {
2396 tgl@sss.pgh.pa.us 1575 :UBC 0 : bytea *bstr = DatumGetByteaPP(str_const->constvalue);
1576 : :
1577 [ # # # # : 0 : len = VARSIZE_ANY_EXHDR(bstr);
# # # # #
# ]
1578 : 0 : workstr = (char *) palloc(len);
1579 [ # # ]: 0 : memcpy(workstr, VARDATA_ANY(bstr), len);
1580 [ # # ]: 0 : Assert((Pointer) bstr == DatumGetPointer(str_const->constvalue));
1581 : 0 : cmpstr = str_const->constvalue;
1582 : : }
1583 : : else
1584 : : {
2396 tgl@sss.pgh.pa.us 1585 [ - + ]:CBC 1738 : if (datatype == NAMEOID)
2396 tgl@sss.pgh.pa.us 1586 :UBC 0 : workstr = DatumGetCString(DirectFunctionCall1(nameout,
1587 : : str_const->constvalue));
1588 : : else
2396 tgl@sss.pgh.pa.us 1589 :CBC 1738 : workstr = TextDatumGetCString(str_const->constvalue);
1590 : 1738 : len = strlen(workstr);
367 jdavis@postgresql.or 1591 [ + - + + ]: 1738 : if (len == 0 || pg_newlocale_from_collation(collation)->collate_is_c)
2396 tgl@sss.pgh.pa.us 1592 : 1725 : cmpstr = str_const->constvalue;
1593 : : else
1594 : : {
1595 : : /* If first time through, determine the suffix to use */
1596 : : static char suffixchar = 0;
1597 : : static Oid suffixcollation = 0;
1598 : :
1599 [ + + - + ]: 13 : if (!suffixchar || suffixcollation != collation)
1600 : : {
1601 : : char *best;
1602 : :
1603 : 3 : best = "Z";
1604 [ + - ]: 3 : if (varstr_cmp(best, 1, "z", 1, collation) < 0)
1605 : 3 : best = "z";
1606 [ - + ]: 3 : if (varstr_cmp(best, 1, "y", 1, collation) < 0)
2396 tgl@sss.pgh.pa.us 1607 :UBC 0 : best = "y";
2396 tgl@sss.pgh.pa.us 1608 [ - + ]:CBC 3 : if (varstr_cmp(best, 1, "9", 1, collation) < 0)
2396 tgl@sss.pgh.pa.us 1609 :UBC 0 : best = "9";
2396 tgl@sss.pgh.pa.us 1610 :CBC 3 : suffixchar = *best;
1611 : 3 : suffixcollation = collation;
1612 : : }
1613 : :
1614 : : /* And build the string to compare to */
1615 [ - + ]: 13 : if (datatype == NAMEOID)
1616 : : {
2396 tgl@sss.pgh.pa.us 1617 :UBC 0 : cmptxt = palloc(len + 2);
1618 : 0 : memcpy(cmptxt, workstr, len);
1619 : 0 : cmptxt[len] = suffixchar;
1620 : 0 : cmptxt[len + 1] = '\0';
1621 : 0 : cmpstr = PointerGetDatum(cmptxt);
1622 : : }
1623 : : else
1624 : : {
2396 tgl@sss.pgh.pa.us 1625 :CBC 13 : cmptxt = palloc(VARHDRSZ + len + 1);
1626 : 13 : SET_VARSIZE(cmptxt, VARHDRSZ + len + 1);
1627 : 13 : memcpy(VARDATA(cmptxt), workstr, len);
1628 : 13 : *(VARDATA(cmptxt) + len) = suffixchar;
1629 : 13 : cmpstr = PointerGetDatum(cmptxt);
1630 : : }
1631 : : }
1632 : : }
1633 : :
1634 : : /* Select appropriate character-incrementer function */
1635 [ - + ]: 1738 : if (datatype == BYTEAOID)
2396 tgl@sss.pgh.pa.us 1636 :UBC 0 : charinc = byte_increment;
1637 : : else
2396 tgl@sss.pgh.pa.us 1638 :CBC 1738 : charinc = pg_database_encoding_character_incrementer();
1639 : :
1640 : : /* And search ... */
1641 [ + - ]: 1738 : while (len > 0)
1642 : : {
1643 : : int charlen;
1644 : : unsigned char *lastchar;
1645 : :
1646 : : /* Identify the last character --- for bytea, just the last byte */
1647 [ - + ]: 1738 : if (datatype == BYTEAOID)
2396 tgl@sss.pgh.pa.us 1648 :UBC 0 : charlen = 1;
1649 : : else
2396 tgl@sss.pgh.pa.us 1650 :CBC 1738 : charlen = len - pg_mbcliplen(workstr, len, len - 1);
1651 : 1738 : lastchar = (unsigned char *) (workstr + len - charlen);
1652 : :
1653 : : /*
1654 : : * Try to generate a larger string by incrementing the last character
1655 : : * (for BYTEA, we treat each byte as a character).
1656 : : *
1657 : : * Note: the incrementer function is expected to return true if it's
1658 : : * generated a valid-per-the-encoding new character, otherwise false.
1659 : : * The contents of the character on false return are unspecified.
1660 : : */
1661 [ + - ]: 1738 : while (charinc(lastchar, charlen))
1662 : : {
1663 : : Const *workstr_const;
1664 : :
1665 [ - + ]: 1738 : if (datatype == BYTEAOID)
2396 tgl@sss.pgh.pa.us 1666 :UBC 0 : workstr_const = string_to_bytea_const(workstr, len);
1667 : : else
2396 tgl@sss.pgh.pa.us 1668 :CBC 1738 : workstr_const = string_to_const(workstr, datatype);
1669 : :
1670 [ + - ]: 1738 : if (DatumGetBool(FunctionCall2Coll(ltproc,
1671 : : collation,
1672 : : cmpstr,
1673 : : workstr_const->constvalue)))
1674 : : {
1675 : : /* Successfully made a string larger than cmpstr */
1676 [ + + ]: 1738 : if (cmptxt)
1677 : 13 : pfree(cmptxt);
1678 : 1738 : pfree(workstr);
1679 : 1738 : return workstr_const;
1680 : : }
1681 : :
1682 : : /* No good, release unusable value and try again */
2396 tgl@sss.pgh.pa.us 1683 :UBC 0 : pfree(DatumGetPointer(workstr_const->constvalue));
1684 : 0 : pfree(workstr_const);
1685 : : }
1686 : :
1687 : : /*
1688 : : * No luck here, so truncate off the last character and try to
1689 : : * increment the next one.
1690 : : */
1691 : 0 : len -= charlen;
1692 : 0 : workstr[len] = '\0';
1693 : : }
1694 : :
1695 : : /* Failed... */
1696 [ # # ]: 0 : if (cmptxt)
1697 : 0 : pfree(cmptxt);
1698 : 0 : pfree(workstr);
1699 : :
1700 : 0 : return NULL;
1701 : : }
1702 : :
1703 : : /*
1704 : : * Generate a Datum of the appropriate type from a C string.
1705 : : * Note that all of the supported types are pass-by-ref, so the
1706 : : * returned value should be pfree'd if no longer needed.
1707 : : */
1708 : : static Datum
2396 tgl@sss.pgh.pa.us 1709 :CBC 11065 : string_to_datum(const char *str, Oid datatype)
1710 : : {
1711 [ - + ]: 11065 : Assert(str != NULL);
1712 : :
1713 : : /*
1714 : : * We cheat a little by assuming that CStringGetTextDatum() will do for
1715 : : * bpchar and varchar constants too...
1716 : : */
1717 [ - + ]: 11065 : if (datatype == NAMEOID)
2396 tgl@sss.pgh.pa.us 1718 :UBC 0 : return DirectFunctionCall1(namein, CStringGetDatum(str));
2396 tgl@sss.pgh.pa.us 1719 [ - + ]:CBC 11065 : else if (datatype == BYTEAOID)
2396 tgl@sss.pgh.pa.us 1720 :UBC 0 : return DirectFunctionCall1(byteain, CStringGetDatum(str));
1721 : : else
2396 tgl@sss.pgh.pa.us 1722 :CBC 11065 : return CStringGetTextDatum(str);
1723 : : }
1724 : :
1725 : : /*
1726 : : * Generate a Const node of the appropriate type from a C string.
1727 : : */
1728 : : static Const *
1729 : 11065 : string_to_const(const char *str, Oid datatype)
1730 : : {
1731 : 11065 : Datum conval = string_to_datum(str, datatype);
1732 : : Oid collation;
1733 : : int constlen;
1734 : :
1735 : : /*
1736 : : * We only need to support a few datatypes here, so hard-wire properties
1737 : : * instead of incurring the expense of catalog lookups.
1738 : : */
1739 [ + - - - ]: 11065 : switch (datatype)
1740 : : {
1741 : 11065 : case TEXTOID:
1742 : : case VARCHAROID:
1743 : : case BPCHAROID:
1744 : 11065 : collation = DEFAULT_COLLATION_OID;
1745 : 11065 : constlen = -1;
1746 : 11065 : break;
1747 : :
2396 tgl@sss.pgh.pa.us 1748 :UBC 0 : case NAMEOID:
1749 : 0 : collation = C_COLLATION_OID;
1750 : 0 : constlen = NAMEDATALEN;
1751 : 0 : break;
1752 : :
1753 : 0 : case BYTEAOID:
1754 : 0 : collation = InvalidOid;
1755 : 0 : constlen = -1;
1756 : 0 : break;
1757 : :
1758 : 0 : default:
1759 [ # # ]: 0 : elog(ERROR, "unexpected datatype in string_to_const: %u",
1760 : : datatype);
1761 : : return NULL;
1762 : : }
1763 : :
2396 tgl@sss.pgh.pa.us 1764 :CBC 11065 : return makeConst(datatype, -1, collation, constlen,
1765 : : conval, false, false);
1766 : : }
1767 : :
1768 : : /*
1769 : : * Generate a Const node of bytea type from a binary C string and a length.
1770 : : */
1771 : : static Const *
1772 : 6 : string_to_bytea_const(const char *str, size_t str_len)
1773 : : {
1774 : 6 : bytea *bstr = palloc(VARHDRSZ + str_len);
1775 : : Datum conval;
1776 : :
1777 : 6 : memcpy(VARDATA(bstr), str, str_len);
1778 : 6 : SET_VARSIZE(bstr, VARHDRSZ + str_len);
1779 : 6 : conval = PointerGetDatum(bstr);
1780 : :
1781 : 6 : return makeConst(BYTEAOID, -1, InvalidOid, -1, conval, false, false);
1782 : : }
|
