|
19 | 19 |
|
20 | 20 | EOT |
21 | 21 |
|
| 22 | +my $func_distance_template=<<EOT; |
| 23 | +$func_base_template |
| 24 | +
|
| 25 | +CREATE FUNCTION rum_TYPEIDENT_distance(TYPENAME, TYPENAME) |
| 26 | +RETURNS float8 |
| 27 | +AS 'MODULE_PATHNAME' |
| 28 | +LANGUAGE C IMMUTABLE STRICT; |
| 29 | +
|
| 30 | +CREATE OPERATOR <=> ( |
| 31 | + PROCEDURE = rum_TYPEIDENT_distance, |
| 32 | + LEFTARG = TYPENAME, |
| 33 | + RIGHTARG = TYPENAME, |
| 34 | + COMMUTATOR = <=> |
| 35 | +); |
| 36 | +
|
| 37 | +CREATE FUNCTION rum_TYPEIDENT_left_distance(TYPENAME, TYPENAME) |
| 38 | +RETURNS float8 |
| 39 | +AS 'MODULE_PATHNAME' |
| 40 | +LANGUAGE C IMMUTABLE STRICT; |
| 41 | +
|
| 42 | +CREATE OPERATOR <=| ( |
| 43 | + PROCEDURE = rum_TYPEIDENT_left_distance, |
| 44 | + LEFTARG = TYPENAME, |
| 45 | + RIGHTARG = TYPENAME, |
| 46 | + COMMUTATOR = |=> |
| 47 | +); |
| 48 | +
|
| 49 | +CREATE FUNCTION rum_TYPEIDENT_right_distance(TYPENAME, TYPENAME) |
| 50 | +RETURNS float8 |
| 51 | +AS 'MODULE_PATHNAME' |
| 52 | +LANGUAGE C IMMUTABLE STRICT; |
| 53 | +
|
| 54 | +CREATE OPERATOR |=> ( |
| 55 | + PROCEDURE = rum_TYPEIDENT_right_distance, |
| 56 | + LEFTARG = TYPENAME, |
| 57 | + RIGHTARG = TYPENAME, |
| 58 | + COMMUTATOR = <=| |
| 59 | +); |
| 60 | +
|
| 61 | +CREATE FUNCTION rum_TYPEIDENT_outer_distance(TYPENAME, TYPENAME, smallint) |
| 62 | +RETURNS float8 |
| 63 | +AS 'MODULE_PATHNAME' |
| 64 | +LANGUAGE C STRICT IMMUTABLE; |
| 65 | +
|
| 66 | +EOT |
| 67 | + |
22 | 68 | my $opclass_base_template=<<EOT; |
23 | 69 |
|
24 | 70 | CREATE OPERATOR CLASS rum_TYPEIDENT_ops |
|
38 | 84 |
|
39 | 85 | EOT |
40 | 86 |
|
| 87 | +my $opclass_distance_template=<<EOT; |
| 88 | +
|
| 89 | +CREATE OPERATOR CLASS rum_TYPEIDENT_ops |
| 90 | +DEFAULT FOR TYPE TYPENAME USING rum |
| 91 | +AS |
| 92 | + OPERATOR 1 < (TYPECMPTYPE, TYPECMPTYPE), |
| 93 | + OPERATOR 2 <= (TYPECMPTYPE, TYPECMPTYPE), |
| 94 | + OPERATOR 3 = (TYPECMPTYPE, TYPECMPTYPE), |
| 95 | + OPERATOR 4 >= (TYPECMPTYPE, TYPECMPTYPE), |
| 96 | + OPERATOR 5 > (TYPECMPTYPE, TYPECMPTYPE), |
| 97 | + OPERATOR 20 <=> (TYPENAME,TYPENAME) FOR ORDER BY pg_catalog.float_ops, |
| 98 | + OPERATOR 21 <=| (TYPENAME,TYPENAME) FOR ORDER BY pg_catalog.float_ops, |
| 99 | + OPERATOR 22 |=> (TYPENAME,TYPENAME) FOR ORDER BY pg_catalog.float_ops, |
| 100 | + FUNCTION 1 TYPECMPFUNC(TYPECMPTYPE,TYPECMPTYPE), |
| 101 | + FUNCTION 2 rum_TYPESUBIDENT_extract_value(TYPESUBNAME, internal), |
| 102 | + FUNCTION 3 rum_TYPESUBIDENT_extract_query(TYPESUBNAME, internal, int2, internal, internal), |
| 103 | + FUNCTION 4 rum_btree_consistent(internal,smallint,internal,int,internal,internal,internal,internal), |
| 104 | + FUNCTION 5 rum_TYPESUBIDENT_compare_prefix(TYPESUBNAME,TYPESUBNAME,int2, internal), |
| 105 | + -- support to TYPEIDENT distance in rum_tsvector_addon_ops |
| 106 | + FUNCTION 9 rum_TYPEIDENT_outer_distance(TYPENAME, TYPENAME, smallint), |
| 107 | +STORAGE TYPENAME; |
| 108 | +
|
| 109 | +EOT |
| 110 | + |
41 | 111 | my @opinfo = map { |
42 | 112 | $_->{TYPEIDENT} = $_->{TYPENAME} if ! exists $_->{TYPEIDENT}; |
43 | 113 | $_->{TYPECMPTYPE} = $_->{TYPENAME} if !exists $_->{TYPECMPTYPE}; |
44 | 114 | $_->{TYPESUBNAME} = $_->{TYPENAME} if !exists $_->{TYPESUBNAME}; |
45 | 115 | $_->{TYPESUBIDENT}= $_->{TYPEIDENT} if ! exists $_->{TYPESUBIDENT}; |
46 | 116 | $_ |
47 | 117 | } ( |
| 118 | + # timestamp/tz aren't here: they are in rum--1.0.sql |
| 119 | + |
48 | 120 | { |
49 | 121 | TYPENAME => 'int2', |
50 | 122 | TYPECMPFUNC => 'btint2cmp', |
51 | | - func_tmpl => \$func_base_template, |
52 | | - opclass_tmpl=> \$opclass_base_template, |
| 123 | + func_tmpl => \$func_distance_template, |
| 124 | + opclass_tmpl=> \$opclass_distance_template, |
53 | 125 | }, |
54 | 126 | { |
55 | 127 | TYPENAME => 'int4', |
56 | 128 | TYPECMPFUNC => 'btint4cmp', |
57 | | - func_tmpl => \$func_base_template, |
58 | | - opclass_tmpl=> \$opclass_base_template, |
| 129 | + func_tmpl => \$func_distance_template, |
| 130 | + opclass_tmpl=> \$opclass_distance_template, |
59 | 131 | }, |
60 | 132 | { |
61 | 133 | TYPENAME => 'int8', |
62 | 134 | TYPECMPFUNC => 'btint8cmp', |
63 | | - func_tmpl => \$func_base_template, |
64 | | - opclass_tmpl=> \$opclass_base_template, |
| 135 | + func_tmpl => \$func_distance_template, |
| 136 | + opclass_tmpl=> \$opclass_distance_template, |
65 | 137 | }, |
66 | 138 | { |
67 | 139 | TYPENAME => 'float4', |
68 | 140 | TYPECMPFUNC => 'btfloat4cmp', |
69 | | - func_tmpl => \$func_base_template, |
70 | | - opclass_tmpl=> \$opclass_base_template, |
| 141 | + func_tmpl => \$func_distance_template, |
| 142 | + opclass_tmpl=> \$opclass_distance_template, |
71 | 143 | }, |
72 | 144 | { |
73 | 145 | TYPENAME => 'float8', |
74 | 146 | TYPECMPFUNC => 'btfloat8cmp', |
75 | | - func_tmpl => \$func_base_template, |
76 | | - opclass_tmpl=> \$opclass_base_template, |
| 147 | + func_tmpl => \$func_distance_template, |
| 148 | + opclass_tmpl=> \$opclass_distance_template, |
77 | 149 | }, |
78 | 150 | { |
79 | 151 | TYPENAME => 'money', |
80 | 152 | TYPECMPFUNC => 'cash_cmp', |
81 | | - func_tmpl => \$func_base_template, |
82 | | - opclass_tmpl=> \$opclass_base_template, |
| 153 | + func_tmpl => \$func_distance_template, |
| 154 | + opclass_tmpl=> \$opclass_distance_template, |
83 | 155 | }, |
84 | 156 | { |
85 | 157 | TYPENAME => 'oid', |
86 | 158 | TYPECMPFUNC => 'btoidcmp', |
87 | | - func_tmpl => \$func_base_template, |
88 | | - opclass_tmpl=> \$opclass_base_template, |
| 159 | + func_tmpl => \$func_distance_template, |
| 160 | + opclass_tmpl=> \$opclass_distance_template, |
89 | 161 | }, |
90 | 162 | { |
91 | 163 | TYPENAME => 'time', |
|
174 | 246 | TYPECMPFUNC => 'rum_numeric_cmp', |
175 | 247 | func_tmpl => \$func_base_template, |
176 | 248 | opclass_tmpl=> \$opclass_base_template, |
177 | | - preamble => <<EOT |
178 | | -CREATE FUNCTION rum_numeric_cmp(numeric, numeric) |
179 | | -RETURNS int4 |
180 | | -AS 'MODULE_PATHNAME' |
181 | | -LANGUAGE C STRICT IMMUTABLE; |
182 | | -
|
183 | | -EOT |
184 | 249 | }, |
185 | 250 | ); |
186 | 251 |
|
|
191 | 256 | RETURNS bool |
192 | 257 | AS 'MODULE_PATHNAME' |
193 | 258 | LANGUAGE C STRICT IMMUTABLE; |
| 259 | +
|
| 260 | +ALTER FUNCTION |
| 261 | + rum_tsquery_timestamp_consistent (internal,smallint,tsvector,int,internal,internal,internal,internal) |
| 262 | + RENAME TO rum_tsquery_addon_consistent; |
| 263 | +
|
| 264 | +CREATE FUNCTION rum_numeric_cmp(numeric, numeric) |
| 265 | +RETURNS int4 |
| 266 | +AS 'MODULE_PATHNAME' |
| 267 | +LANGUAGE C STRICT IMMUTABLE; |
| 268 | +
|
| 269 | +CREATE OPERATOR CLASS rum_tsvector_addon_ops |
| 270 | +FOR TYPE tsvector USING rum |
| 271 | +AS |
| 272 | + OPERATOR 1 @@ (tsvector, tsquery), |
| 273 | + --support function |
| 274 | + FUNCTION 1 gin_cmp_tslexeme(text, text), |
| 275 | + FUNCTION 2 rum_extract_tsvector(tsvector,internal,internal,internal,internal), |
| 276 | + FUNCTION 3 rum_extract_tsquery(tsquery,internal,smallint,internal,internal,internal,internal), |
| 277 | + FUNCTION 4 rum_tsquery_addon_consistent(internal,smallint,tsvector,int,internal,internal,internal,internal), |
| 278 | + FUNCTION 5 gin_cmp_prefix(text,text,smallint,internal), |
| 279 | + FUNCTION 7 rum_tsquery_pre_consistent(internal,smallint,tsvector,int,internal,internal,internal,internal), |
| 280 | + STORAGE text; |
| 281 | +
|
| 282 | +/* |
| 283 | + * rum_tsvector_hash_timestamp_ops operator class |
| 284 | + */ |
| 285 | +
|
| 286 | +CREATE OPERATOR CLASS rum_tsvector_hash_addon_ops |
| 287 | +FOR TYPE tsvector USING rum |
| 288 | +AS |
| 289 | + OPERATOR 1 @@ (tsvector, tsquery), |
| 290 | + --support function |
| 291 | + FUNCTION 1 btint4cmp(integer, integer), |
| 292 | + FUNCTION 2 rum_extract_tsvector_hash(tsvector,internal,internal,internal,internal), |
| 293 | + FUNCTION 3 rum_extract_tsquery_hash(tsquery,internal,smallint,internal,internal,internal,internal), |
| 294 | + FUNCTION 4 rum_tsquery_addon_consistent(internal,smallint,tsvector,int,internal,internal,internal,internal), |
| 295 | + FUNCTION 7 rum_tsquery_pre_consistent(internal,smallint,tsvector,int,internal,internal,internal,internal), |
| 296 | + STORAGE integer; |
| 297 | +
|
194 | 298 | EOT |
195 | 299 |
|
196 | 300 | foreach my $t (@opinfo) |
197 | 301 | { |
198 | 302 | print "/*--------------------$t->{TYPENAME}-----------------------*/\n\n"; |
199 | 303 |
|
200 | | - print $t->{preamble} if exists $t->{preamble}; |
201 | | - |
202 | 304 | for my $v (qw(func_tmpl opclass_tmpl)) |
203 | 305 | { |
204 | 306 | next if !exists $t->{$v}; |
|
0 commit comments