Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit6bd1d00

Browse files
committed
generate rum--1.0--1.1.sql
1 parent6ed9d49 commit6bd1d00

File tree

4 files changed

+212
-645
lines changed

4 files changed

+212
-645
lines changed

‎Makefile

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@ REGRESS = rum rum_hash ruminv timestamp orderby orderby_hash altorder \
1919
macaddr inet cidr text varchar char bytea bit varbit\
2020
numeric
2121

22-
EXTRA_CLEAN += rum--1.1.sql
22+
EXTRA_CLEAN += rum--1.1.sql rum--1.0--1.1.sql
2323

2424
LDFLAGS_SL +=$(filter -lm,$(LIBS))
2525

@@ -43,6 +43,8 @@ all: rum--1.1.sql
4343
rum--1.1.sql: rum--1.0.sql rum--1.0--1.1.sql
4444
cat rum--1.0.sql rum--1.0--1.1.sql> rum--1.1.sql
4545

46+
rum--1.0--1.1.sql: Makefile gen_rum_sql.pl
47+
perl gen_rum_sql.pl> rum--1.0--1.1.sql
4648

4749
install: installincludes
4850

‎gen_rum_sql.pl

Lines changed: 206 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,206 @@
1+
use strict;
2+
use warnings;
3+
4+
my$func_base_template=<<EOT;
5+
CREATE FUNCTION rum_extract_value_TYPEIDENT(TYPENAME, internal)
6+
RETURNS internal
7+
AS 'MODULE_PATHNAME'
8+
LANGUAGE C STRICT IMMUTABLE;
9+
10+
CREATE FUNCTION rum_compare_prefix_TYPEIDENT(TYPENAME, TYPENAME, int2, internal)
11+
RETURNS int4
12+
AS 'MODULE_PATHNAME'
13+
LANGUAGE C STRICT IMMUTABLE;
14+
15+
CREATE FUNCTION rum_extract_query_TYPEIDENT(TYPENAME, internal, int2, internal, internal)
16+
RETURNS internal
17+
AS 'MODULE_PATHNAME'
18+
LANGUAGE C STRICT IMMUTABLE;
19+
20+
EOT
21+
22+
my$opclass_base_template=<<EOT;
23+
24+
CREATE OPERATOR CLASS TYPEIDENT_ops
25+
DEFAULT FOR TYPE TYPENAME USING rum
26+
AS
27+
OPERATOR1 <(TYPECMPTYPE, TYPECMPTYPE),
28+
OPERATOR2 <=(TYPECMPTYPE, TYPECMPTYPE),
29+
OPERATOR3 =(TYPECMPTYPE, TYPECMPTYPE),
30+
OPERATOR4 >=(TYPECMPTYPE, TYPECMPTYPE),
31+
OPERATOR5 >(TYPECMPTYPE, TYPECMPTYPE),
32+
FUNCTION1 TYPECMPFUNC(TYPECMPTYPE,TYPECMPTYPE),
33+
FUNCTION2 rum_extract_value_TYPESUBIDENT(TYPESUBNAME, internal),
34+
FUNCTION3 rum_extract_query_TYPESUBIDENT(TYPESUBNAME, internal, int2, internal, internal),
35+
FUNCTION4 rum_btree_consistent(internal,smallint,internal,int,internal,internal,internal,internal),
36+
FUNCTION5 rum_compare_prefix_TYPESUBIDENT(TYPESUBNAME,TYPESUBNAME,int2, internal),
37+
STORAGE TYPENAME;
38+
39+
EOT
40+
41+
my@opinfo =map {
42+
$_->{TYPEIDENT} =$_->{TYPENAME}if !exists$_->{TYPEIDENT};
43+
$_->{TYPECMPTYPE} =$_->{TYPENAME}if !exists$_->{TYPECMPTYPE};
44+
$_->{TYPESUBNAME} =$_->{TYPENAME}if !exists$_->{TYPESUBNAME};
45+
$_->{TYPESUBIDENT}=$_->{TYPEIDENT}if !exists$_->{TYPESUBIDENT};
46+
$_
47+
} (
48+
{
49+
TYPENAME=>'int2',
50+
TYPECMPFUNC=>'btint2cmp',
51+
func_tmpl=>\$func_base_template,
52+
opclass_tmpl=>\$opclass_base_template,
53+
},
54+
{
55+
TYPENAME=>'int4',
56+
TYPECMPFUNC=>'btint4cmp',
57+
func_tmpl=>\$func_base_template,
58+
opclass_tmpl=>\$opclass_base_template,
59+
},
60+
{
61+
TYPENAME=>'int8',
62+
TYPECMPFUNC=>'btint8cmp',
63+
func_tmpl=>\$func_base_template,
64+
opclass_tmpl=>\$opclass_base_template,
65+
},
66+
{
67+
TYPENAME=>'float4',
68+
TYPECMPFUNC=>'btfloat4cmp',
69+
func_tmpl=>\$func_base_template,
70+
opclass_tmpl=>\$opclass_base_template,
71+
},
72+
{
73+
TYPENAME=>'float8',
74+
TYPECMPFUNC=>'btfloat8cmp',
75+
func_tmpl=>\$func_base_template,
76+
opclass_tmpl=>\$opclass_base_template,
77+
},
78+
{
79+
TYPENAME=>'money',
80+
TYPECMPFUNC=>'cash_cmp',
81+
func_tmpl=>\$func_base_template,
82+
opclass_tmpl=>\$opclass_base_template,
83+
},
84+
{
85+
TYPENAME=>'oid',
86+
TYPECMPFUNC=>'btoidcmp',
87+
func_tmpl=>\$func_base_template,
88+
opclass_tmpl=>\$opclass_base_template,
89+
},
90+
{
91+
TYPENAME=>'time',
92+
TYPECMPFUNC=>'time_cmp',
93+
func_tmpl=>\$func_base_template,
94+
opclass_tmpl=>\$opclass_base_template,
95+
},
96+
{
97+
TYPENAME=>'timetz',
98+
TYPECMPFUNC=>'timetz_cmp',
99+
func_tmpl=>\$func_base_template,
100+
opclass_tmpl=>\$opclass_base_template,
101+
},
102+
{
103+
TYPENAME=>'date',
104+
TYPECMPFUNC=>'date_cmp',
105+
func_tmpl=>\$func_base_template,
106+
opclass_tmpl=>\$opclass_base_template,
107+
},
108+
{
109+
TYPENAME=>'interval',
110+
TYPECMPFUNC=>'interval_cmp',
111+
func_tmpl=>\$func_base_template,
112+
opclass_tmpl=>\$opclass_base_template,
113+
},
114+
{
115+
TYPENAME=>'macaddr',
116+
TYPECMPFUNC=>'macaddr_cmp',
117+
func_tmpl=>\$func_base_template,
118+
opclass_tmpl=>\$opclass_base_template,
119+
},
120+
{
121+
TYPENAME=>'inet',
122+
TYPECMPFUNC=>'network_cmp',
123+
func_tmpl=>\$func_base_template,
124+
opclass_tmpl=>\$opclass_base_template,
125+
},
126+
{
127+
TYPENAME=>'cidr',
128+
TYPECMPFUNC=>'network_cmp',
129+
TYPECMPTYPE=>'inet',
130+
func_tmpl=>\$func_base_template,
131+
opclass_tmpl=>\$opclass_base_template,
132+
},
133+
{
134+
TYPENAME=>'text',
135+
TYPECMPFUNC=>'bttextcmp',
136+
func_tmpl=>\$func_base_template,
137+
opclass_tmpl=>\$opclass_base_template,
138+
},
139+
{
140+
TYPENAME=>'varchar',
141+
TYPECMPFUNC=>'bttextcmp',
142+
TYPECMPTYPE=>'text',
143+
TYPESUBIDENT=>'text',
144+
TYPESUBNAME=>'text',
145+
opclass_tmpl=>\$opclass_base_template,
146+
},
147+
{
148+
TYPENAME=>'"char"',
149+
TYPEIDENT=>'char',
150+
TYPECMPFUNC=>'btcharcmp',
151+
func_tmpl=>\$func_base_template,
152+
opclass_tmpl=>\$opclass_base_template,
153+
},
154+
{
155+
TYPENAME=>'bytea',
156+
TYPECMPFUNC=>'byteacmp',
157+
func_tmpl=>\$func_base_template,
158+
opclass_tmpl=>\$opclass_base_template,
159+
},
160+
{
161+
TYPENAME=>'bit',
162+
TYPECMPFUNC=>'bitcmp',
163+
func_tmpl=>\$func_base_template,
164+
opclass_tmpl=>\$opclass_base_template,
165+
},
166+
{
167+
TYPENAME=>'varbit',
168+
TYPECMPFUNC=>'varbitcmp',
169+
func_tmpl=>\$func_base_template,
170+
opclass_tmpl=>\$opclass_base_template,
171+
},
172+
{
173+
TYPENAME=>'numeric',
174+
TYPECMPFUNC=>'rum_numeric_cmp',
175+
func_tmpl=>\$func_base_template,
176+
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+
},
185+
);
186+
187+
foreachmy$t (@opinfo)
188+
{
189+
print"/*--------------------$t->{TYPENAME}-----------------------*/\n\n";
190+
191+
print$t->{preamble}ifexists$t->{preamble};
192+
193+
formy$v (qw(func_tmpl opclass_tmpl))
194+
{
195+
nextif !exists$t->{$v};
196+
197+
my$x = ${$t->{$v}};
198+
199+
formy$k (grep {uc($_)eq$_}keys%$t)
200+
{
201+
$x=~s/$k/$t->{$k}/g;
202+
}
203+
204+
print$x;
205+
}
206+
}

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp