globegit-postgresql-plruby 0.5.4

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
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
+