globegit-postgresql-plruby 0.5.4

Sign up to get free protection for your applications and to get access to all the features.
Files changed (122) hide show
  1. data/Changes +121 -0
  2. data/README.markdown +155 -0
  3. data/Rakefile +48 -0
  4. data/docs/plruby.rb +1931 -0
  5. data/ex_trans.sql +33 -0
  6. data/extconf.rb +267 -0
  7. data/plruby.html +1454 -0
  8. data/plruby.rd +1571 -0
  9. data/postgresql-plruby.gemspec +56 -0
  10. data/src/conversions.h +5 -0
  11. data/src/conversions/basic/conversions.h +25 -0
  12. data/src/conversions/basic/extconf.rb +8 -0
  13. data/src/conversions/basic/plruby_basic.c +357 -0
  14. data/src/conversions/bitstring/bitstring.sql +75 -0
  15. data/src/conversions/bitstring/conversions.h +15 -0
  16. data/src/conversions/bitstring/extconf.rb +8 -0
  17. data/src/conversions/bitstring/plruby_bitstring.c +579 -0
  18. data/src/conversions/convcommon.h +129 -0
  19. data/src/conversions/datetime/conversions.h +13 -0
  20. data/src/conversions/datetime/extconf.rb +8 -0
  21. data/src/conversions/datetime/plruby_datetime.c +269 -0
  22. data/src/conversions/geometry/conversions.h +37 -0
  23. data/src/conversions/geometry/extconf.rb +8 -0
  24. data/src/conversions/geometry/geometry.sql +196 -0
  25. data/src/conversions/geometry/plruby_geometry.c +2494 -0
  26. data/src/conversions/network/conversions.h +21 -0
  27. data/src/conversions/network/extconf.rb +8 -0
  28. data/src/conversions/network/network.sql +63 -0
  29. data/src/conversions/network/plruby_network.c +537 -0
  30. data/src/package.h +20 -0
  31. data/src/plpl.c +1708 -0
  32. data/src/plplan.c +893 -0
  33. data/src/plruby.c +1676 -0
  34. data/src/plruby.h +324 -0
  35. data/src/pltrans.c +388 -0
  36. data/test/conv_bitstring/b.rb +45 -0
  37. data/test/conv_bitstring/runtest +26 -0
  38. data/test/conv_bitstring/test.expected.73 +148 -0
  39. data/test/conv_bitstring/test.expected.74 +148 -0
  40. data/test/conv_bitstring/test.expected.80 +148 -0
  41. data/test/conv_bitstring/test.expected.81 +148 -0
  42. data/test/conv_bitstring/test.expected.82 +148 -0
  43. data/test/conv_bitstring/test.expected.83 +148 -0
  44. data/test/conv_bitstring/test.expected.84 +148 -0
  45. data/test/conv_bitstring/test.out +148 -0
  46. data/test/conv_bitstring/test_mklang.sql +8 -0
  47. data/test/conv_bitstring/test_queries.sql +63 -0
  48. data/test/conv_bitstring/test_queries.sql.in +63 -0
  49. data/test/conv_geometry/b.rb +45 -0
  50. data/test/conv_geometry/runtest +26 -0
  51. data/test/conv_geometry/test.expected.73 +265 -0
  52. data/test/conv_geometry/test.expected.74 +265 -0
  53. data/test/conv_geometry/test.expected.80 +265 -0
  54. data/test/conv_geometry/test.expected.81 +265 -0
  55. data/test/conv_geometry/test.expected.82 +265 -0
  56. data/test/conv_geometry/test.expected.83 +265 -0
  57. data/test/conv_geometry/test.expected.84 +265 -0
  58. data/test/conv_geometry/test.out +265 -0
  59. data/test/conv_geometry/test_mklang.sql +8 -0
  60. data/test/conv_geometry/test_queries.sql +194 -0
  61. data/test/conv_geometry/test_queries.sql.in +194 -0
  62. data/test/conv_network/b.rb +45 -0
  63. data/test/conv_network/runtest +26 -0
  64. data/test/conv_network/test.expected.73 +213 -0
  65. data/test/conv_network/test.expected.74 +237 -0
  66. data/test/conv_network/test.expected.80 +237 -0
  67. data/test/conv_network/test.expected.81 +237 -0
  68. data/test/conv_network/test.expected.82 +237 -0
  69. data/test/conv_network/test.expected.83 +237 -0
  70. data/test/conv_network/test.expected.84 +237 -0
  71. data/test/conv_network/test.out +237 -0
  72. data/test/conv_network/test_mklang.sql +8 -0
  73. data/test/conv_network/test_queries.sql +60 -0
  74. data/test/conv_network/test_queries.sql.in +60 -0
  75. data/test/plp/b.rb +34 -0
  76. data/test/plp/runtest +29 -0
  77. data/test/plp/test.expected.73 +472 -0
  78. data/test/plp/test.expected.74 +472 -0
  79. data/test/plp/test.expected.75 +472 -0
  80. data/test/plp/test.expected.80 +472 -0
  81. data/test/plp/test.expected.81 +472 -0
  82. data/test/plp/test.expected.82 +472 -0
  83. data/test/plp/test.expected.83 +472 -0
  84. data/test/plp/test.expected.84 +472 -0
  85. data/test/plp/test.out +472 -0
  86. data/test/plp/test_mklang.sql +8 -0
  87. data/test/plp/test_queries.sql +273 -0
  88. data/test/plp/test_setup.sql +931 -0
  89. data/test/plp/test_setup.sql.in +931 -0
  90. data/test/plt/b.rb +34 -0
  91. data/test/plt/runtest +29 -0
  92. data/test/plt/test.expected.73 +178 -0
  93. data/test/plt/test.expected.74 +178 -0
  94. data/test/plt/test.expected.75 +178 -0
  95. data/test/plt/test.expected.80 +178 -0
  96. data/test/plt/test.expected.81 +178 -0
  97. data/test/plt/test.expected.82 +178 -0
  98. data/test/plt/test.expected.83 +164 -0
  99. data/test/plt/test.expected.84 +168 -0
  100. data/test/plt/test.out +168 -0
  101. data/test/plt/test_mklang.sql +8 -0
  102. data/test/plt/test_queries.sql +72 -0
  103. data/test/plt/test_setup.sql +252 -0
  104. data/test/plt/test_setup.sql.in +252 -0
  105. data/test/range/b.rb +45 -0
  106. data/test/range/runtest +26 -0
  107. data/test/range/test.expected.73 +396 -0
  108. data/test/range/test.expected.73.in +396 -0
  109. data/test/range/test.expected.74 +396 -0
  110. data/test/range/test.expected.74.in +396 -0
  111. data/test/range/test.expected.75 +396 -0
  112. data/test/range/test.expected.75.in +396 -0
  113. data/test/range/test.expected.80 +396 -0
  114. data/test/range/test.expected.81 +397 -0
  115. data/test/range/test.expected.82 +397 -0
  116. data/test/range/test.expected.83 +397 -0
  117. data/test/range/test.expected.84 +399 -0
  118. data/test/range/test.out +399 -0
  119. data/test/range/test_mklang.sql +8 -0
  120. data/test/range/test_queries.sql +249 -0
  121. data/test/range/test_queries.sql.in +249 -0
  122. metadata +207 -0
data/test/conv_bitstring/test.expected.81 ADDED
@@ -0,0 +1,148 @@
1
+ create table bit_op (
2
+ b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
3
+ bxor bit(8), bnot0 bit(8), bnot1 bit(8)
4
+ );
5
+ create function bt(integer, integer) returns bit_op as '
6
+ b0 = BitString.new(args[0], 8)
7
+ b1 = BitString.new(args[1], 8)
8
+ [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
9
+ ' language 'plruby';
10
+ select * from bt(12, 24);
11
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
12
+ ----------+----------+----------+----------+----------+----------+----------
13
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
14
+ (1 row)
15
+
16
+ select * from bt(12, 32);
17
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
18
+ ----------+----------+----------+----------+----------+----------+----------
19
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
20
+ (1 row)
21
+
22
+ select * from bt(15, 278);
23
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
24
+ ----------+----------+----------+----------+----------+----------+----------
25
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
26
+ (1 row)
27
+
28
+ create function be(integer) returns setof integer as '
29
+ BitString.new(args[0], 8).each {|i| yield i}
30
+ ' language 'plruby';
31
+ select * from be(12);
32
+ be
33
+ ----
34
+ 0
35
+ 0
36
+ 0
37
+ 0
38
+ 1
39
+ 1
40
+ 0
41
+ 0
42
+ (8 rows)
43
+
44
+ select * from be(257);
45
+ be
46
+ ----
47
+ 0
48
+ 0
49
+ 0
50
+ 0
51
+ 0
52
+ 0
53
+ 0
54
+ 1
55
+ (8 rows)
56
+
57
+ create function bx(integer, integer) returns bit varying as '
58
+ BitString.new(*args)
59
+ ' language 'plruby';
60
+ select bx(12, 6);
61
+ bx
62
+ --------
63
+ 001100
64
+ (1 row)
65
+
66
+ select bx(12, 8);
67
+ bx
68
+ ----------
69
+ 00001100
70
+ (1 row)
71
+
72
+ create table bit_sht (
73
+ b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
74
+ sz integer, osz integer
75
+ );
76
+ create function bs(integer, integer) returns bit_sht as '
77
+ b0 = BitString.new(args[0], 8)
78
+ [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
79
+ b0.size, b0.octet_size]
80
+ ' language 'plruby';
81
+ select * from bs(12, 2);
82
+ b0 | shft | bl | br | bs | bi | sz | osz
83
+ ----------+------+----------+----------+----------+----+----+-----
84
+ 00001100 | 2 | 00110000 | 00000011 | 00001100 | 12 | 8 | 1
85
+ (1 row)
86
+
87
+ select * from bs(277, -3);
88
+ b0 | shft | bl | br | bs | bi | sz | osz
89
+ ----------+------+----------+----------+----------+----+----+-----
90
+ 00010101 | -3 | 00000010 | 10101000 | 00010101 | 21 | 8 | 1
91
+ (1 row)
92
+
93
+ create function ext(text, integer) returns integer as '
94
+ b0 = BitString.new(args[0])
95
+ b0[args[1]]
96
+ ' language 'plruby';
97
+ select ext('011110', 0);
98
+ ext
99
+ -----
100
+ 0
101
+ (1 row)
102
+
103
+ select ext('011110', -1);
104
+ ext
105
+ -----
106
+ 0
107
+ (1 row)
108
+
109
+ select ext('011110', 1);
110
+ ext
111
+ -----
112
+ 1
113
+ (1 row)
114
+
115
+ select ext('011110', 4);
116
+ ext
117
+ -----
118
+ 1
119
+ (1 row)
120
+
121
+ create function ext2(text, integer, integer) returns bit varying(8) as '
122
+ b0 = BitString.new(args[0])
123
+ b0[args[1], args[2]]
124
+ ' language 'plruby';
125
+ select ext2('0111101', 0, 2);
126
+ ext2
127
+ ------
128
+ 01
129
+ (1 row)
130
+
131
+ select ext2('0111101', -1, 3);
132
+ ext2
133
+ ------
134
+ 1
135
+ (1 row)
136
+
137
+ select ext2('0111101', 1, 2);
138
+ ext2
139
+ ------
140
+ 11
141
+ (1 row)
142
+
143
+ select ext2('0111101', 4, 1);
144
+ ext2
145
+ ------
146
+ 1
147
+ (1 row)
148
+
data/test/conv_bitstring/test.expected.82 ADDED
@@ -0,0 +1,148 @@
1
+ create table bit_op (
2
+ b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
3
+ bxor bit(8), bnot0 bit(8), bnot1 bit(8)
4
+ );
5
+ create function bt(integer, integer) returns bit_op as '
6
+ b0 = BitString.new(args[0], 8)
7
+ b1 = BitString.new(args[1], 8)
8
+ [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
9
+ ' language 'plruby';
10
+ select * from bt(12, 24);
11
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
12
+ ----------+----------+----------+----------+----------+----------+----------
13
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
14
+ (1 row)
15
+
16
+ select * from bt(12, 32);
17
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
18
+ ----------+----------+----------+----------+----------+----------+----------
19
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
20
+ (1 row)
21
+
22
+ select * from bt(15, 278);
23
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
24
+ ----------+----------+----------+----------+----------+----------+----------
25
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
26
+ (1 row)
27
+
28
+ create function be(integer) returns setof integer as '
29
+ BitString.new(args[0], 8).each {|i| yield i}
30
+ ' language 'plruby';
31
+ select * from be(12);
32
+ be
33
+ ----
34
+ 0
35
+ 0
36
+ 0
37
+ 0
38
+ 1
39
+ 1
40
+ 0
41
+ 0
42
+ (8 rows)
43
+
44
+ select * from be(257);
45
+ be
46
+ ----
47
+ 0
48
+ 0
49
+ 0
50
+ 0
51
+ 0
52
+ 0
53
+ 0
54
+ 1
55
+ (8 rows)
56
+
57
+ create function bx(integer, integer) returns bit varying as '
58
+ BitString.new(*args)
59
+ ' language 'plruby';
60
+ select bx(12, 6);
61
+ bx
62
+ --------
63
+ 001100
64
+ (1 row)
65
+
66
+ select bx(12, 8);
67
+ bx
68
+ ----------
69
+ 00001100
70
+ (1 row)
71
+
72
+ create table bit_sht (
73
+ b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
74
+ sz integer, osz integer
75
+ );
76
+ create function bs(integer, integer) returns bit_sht as '
77
+ b0 = BitString.new(args[0], 8)
78
+ [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
79
+ b0.size, b0.octet_size]
80
+ ' language 'plruby';
81
+ select * from bs(12, 2);
82
+ b0 | shft | bl | br | bs | bi | sz | osz
83
+ ----------+------+----------+----------+----------+----+----+-----
84
+ 00001100 | 2 | 00110000 | 00000011 | 00001100 | 12 | 8 | 1
85
+ (1 row)
86
+
87
+ select * from bs(277, -3);
88
+ b0 | shft | bl | br | bs | bi | sz | osz
89
+ ----------+------+----------+----------+----------+----+----+-----
90
+ 00010101 | -3 | 00000010 | 10101000 | 00010101 | 21 | 8 | 1
91
+ (1 row)
92
+
93
+ create function ext(text, integer) returns integer as '
94
+ b0 = BitString.new(args[0])
95
+ b0[args[1]]
96
+ ' language 'plruby';
97
+ select ext('011110', 0);
98
+ ext
99
+ -----
100
+ 0
101
+ (1 row)
102
+
103
+ select ext('011110', -1);
104
+ ext
105
+ -----
106
+ 0
107
+ (1 row)
108
+
109
+ select ext('011110', 1);
110
+ ext
111
+ -----
112
+ 1
113
+ (1 row)
114
+
115
+ select ext('011110', 4);
116
+ ext
117
+ -----
118
+ 1
119
+ (1 row)
120
+
121
+ create function ext2(text, integer, integer) returns bit varying(8) as '
122
+ b0 = BitString.new(args[0])
123
+ b0[args[1], args[2]]
124
+ ' language 'plruby';
125
+ select ext2('0111101', 0, 2);
126
+ ext2
127
+ ------
128
+ 01
129
+ (1 row)
130
+
131
+ select ext2('0111101', -1, 3);
132
+ ext2
133
+ ------
134
+ 1
135
+ (1 row)
136
+
137
+ select ext2('0111101', 1, 2);
138
+ ext2
139
+ ------
140
+ 11
141
+ (1 row)
142
+
143
+ select ext2('0111101', 4, 1);
144
+ ext2
145
+ ------
146
+ 1
147
+ (1 row)
148
+
data/test/conv_bitstring/test.expected.83 ADDED
@@ -0,0 +1,148 @@
1
+ create table bit_op (
2
+ b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
3
+ bxor bit(8), bnot0 bit(8), bnot1 bit(8)
4
+ );
5
+ create function bt(integer, integer) returns bit_op as '
6
+ b0 = BitString.new(args[0], 8)
7
+ b1 = BitString.new(args[1], 8)
8
+ [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
9
+ ' language 'plruby';
10
+ select * from bt(12, 24);
11
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
12
+ ----------+----------+----------+----------+----------+----------+----------
13
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
14
+ (1 row)
15
+
16
+ select * from bt(12, 32);
17
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
18
+ ----------+----------+----------+----------+----------+----------+----------
19
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
20
+ (1 row)
21
+
22
+ select * from bt(15, 278);
23
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
24
+ ----------+----------+----------+----------+----------+----------+----------
25
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
26
+ (1 row)
27
+
28
+ create function be(integer) returns setof integer as '
29
+ BitString.new(args[0], 8).each {|i| yield i}
30
+ ' language 'plruby';
31
+ select * from be(12);
32
+ be
33
+ ----
34
+ 0
35
+ 0
36
+ 0
37
+ 0
38
+ 1
39
+ 1
40
+ 0
41
+ 0
42
+ (8 rows)
43
+
44
+ select * from be(257);
45
+ be
46
+ ----
47
+ 0
48
+ 0
49
+ 0
50
+ 0
51
+ 0
52
+ 0
53
+ 0
54
+ 1
55
+ (8 rows)
56
+
57
+ create function bx(integer, integer) returns bit varying as '
58
+ BitString.new(*args)
59
+ ' language 'plruby';
60
+ select bx(12, 6);
61
+ bx
62
+ --------
63
+ 001100
64
+ (1 row)
65
+
66
+ select bx(12, 8);
67
+ bx
68
+ ----------
69
+ 00001100
70
+ (1 row)
71
+
72
+ create table bit_sht (
73
+ b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
74
+ sz integer, osz integer
75
+ );
76
+ create function bs(integer, integer) returns bit_sht as '
77
+ b0 = BitString.new(args[0], 8)
78
+ [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
79
+ b0.size, b0.octet_size]
80
+ ' language 'plruby';
81
+ select * from bs(12, 2);
82
+ b0 | shft | bl | br | bs | bi | sz | osz
83
+ ----------+------+----------+----------+----------+----+----+-----
84
+ 00001100 | 2 | 00110000 | 00000011 | 00001100 | 12 | 8 | 1
85
+ (1 row)
86
+
87
+ select * from bs(277, -3);
88
+ b0 | shft | bl | br | bs | bi | sz | osz
89
+ ----------+------+----------+----------+----------+----+----+-----
90
+ 00010101 | -3 | 00000010 | 10101000 | 00010101 | 21 | 8 | 1
91
+ (1 row)
92
+
93
+ create function ext(text, integer) returns integer as '
94
+ b0 = BitString.new(args[0])
95
+ b0[args[1]]
96
+ ' language 'plruby';
97
+ select ext('011110', 0);
98
+ ext
99
+ -----
100
+ 0
101
+ (1 row)
102
+
103
+ select ext('011110', -1);
104
+ ext
105
+ -----
106
+ 0
107
+ (1 row)
108
+
109
+ select ext('011110', 1);
110
+ ext
111
+ -----
112
+ 1
113
+ (1 row)
114
+
115
+ select ext('011110', 4);
116
+ ext
117
+ -----
118
+ 1
119
+ (1 row)
120
+
121
+ create function ext2(text, integer, integer) returns bit varying(8) as '
122
+ b0 = BitString.new(args[0])
123
+ b0[args[1], args[2]]
124
+ ' language 'plruby';
125
+ select ext2('0111101', 0, 2);
126
+ ext2
127
+ ------
128
+ 01
129
+ (1 row)
130
+
131
+ select ext2('0111101', -1, 3);
132
+ ext2
133
+ ------
134
+ 1
135
+ (1 row)
136
+
137
+ select ext2('0111101', 1, 2);
138
+ ext2
139
+ ------
140
+ 11
141
+ (1 row)
142
+
143
+ select ext2('0111101', 4, 1);
144
+ ext2
145
+ ------
146
+ 1
147
+ (1 row)
148
+
data/test/conv_bitstring/test.expected.84 ADDED
@@ -0,0 +1,148 @@
1
+ create table bit_op (
2
+ b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
3
+ bxor bit(8), bnot0 bit(8), bnot1 bit(8)
4
+ );
5
+ create function bt(integer, integer) returns bit_op as '
6
+ b0 = BitString.new(args[0], 8)
7
+ b1 = BitString.new(args[1], 8)
8
+ [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
9
+ ' language 'plruby';
10
+ select * from bt(12, 24);
11
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
12
+ ----------+----------+----------+----------+----------+----------+----------
13
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
14
+ (1 row)
15
+
16
+ select * from bt(12, 32);
17
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
18
+ ----------+----------+----------+----------+----------+----------+----------
19
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
20
+ (1 row)
21
+
22
+ select * from bt(15, 278);
23
+ b0 | b1 | band | bor | bxor | bnot0 | bnot1
24
+ ----------+----------+----------+----------+----------+----------+----------
25
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
26
+ (1 row)
27
+
28
+ create function be(integer) returns setof integer as '
29
+ BitString.new(args[0], 8).each {|i| yield i}
30
+ ' language 'plruby';
31
+ select * from be(12);
32
+ be
33
+ ----
34
+ 0
35
+ 0
36
+ 0
37
+ 0
38
+ 1
39
+ 1
40
+ 0
41
+ 0
42
+ (8 rows)
43
+
44
+ select * from be(257);
45
+ be
46
+ ----
47
+ 0
48
+ 0
49
+ 0
50
+ 0
51
+ 0
52
+ 0
53
+ 0
54
+ 1
55
+ (8 rows)
56
+
57
+ create function bx(integer, integer) returns bit varying as '
58
+ BitString.new(*args)
59
+ ' language 'plruby';
60
+ select bx(12, 6);
61
+ bx
62
+ --------
63
+ 001100
64
+ (1 row)
65
+
66
+ select bx(12, 8);
67
+ bx
68
+ ----------
69
+ 00001100
70
+ (1 row)
71
+
72
+ create table bit_sht (
73
+ b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
74
+ sz integer, osz integer
75
+ );
76
+ create function bs(integer, integer) returns bit_sht as '
77
+ b0 = BitString.new(args[0], 8)
78
+ [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
79
+ b0.size, b0.octet_size]
80
+ ' language 'plruby';
81
+ select * from bs(12, 2);
82
+ b0 | shft | bl | br | bs | bi | sz | osz
83
+ ----------+------+----------+----------+----------+----+----+-----
84
+ 00001100 | 2 | 00110000 | 00000011 | 00001100 | 12 | 8 | 1
85
+ (1 row)
86
+
87
+ select * from bs(277, -3);
88
+ b0 | shft | bl | br | bs | bi | sz | osz
89
+ ----------+------+----------+----------+----------+----+----+-----
90
+ 00010101 | -3 | 00000010 | 10101000 | 00010101 | 21 | 8 | 1
91
+ (1 row)
92
+
93
+ create function ext(text, integer) returns integer as '
94
+ b0 = BitString.new(args[0])
95
+ b0[args[1]]
96
+ ' language 'plruby';
97
+ select ext('011110', 0);
98
+ ext
99
+ -----
100
+ 0
101
+ (1 row)
102
+
103
+ select ext('011110', -1);
104
+ ext
105
+ -----
106
+ 0
107
+ (1 row)
108
+
109
+ select ext('011110', 1);
110
+ ext
111
+ -----
112
+ 1
113
+ (1 row)
114
+
115
+ select ext('011110', 4);
116
+ ext
117
+ -----
118
+ 1
119
+ (1 row)
120
+
121
+ create function ext2(text, integer, integer) returns bit varying(8) as '
122
+ b0 = BitString.new(args[0])
123
+ b0[args[1], args[2]]
124
+ ' language 'plruby';
125
+ select ext2('0111101', 0, 2);
126
+ ext2
127
+ ------
128
+ 01
129
+ (1 row)
130
+
131
+ select ext2('0111101', -1, 3);
132
+ ext2
133
+ ------
134
+ 1
135
+ (1 row)
136
+
137
+ select ext2('0111101', 1, 2);
138
+ ext2
139
+ ------
140
+ 11
141
+ (1 row)
142
+
143
+ select ext2('0111101', 4, 1);
144
+ ext2
145
+ ------
146
+ 1
147
+ (1 row)
148
+