Mercurial > forge

annotate main/database/src/converters_arr_comp.cc @ 11646:b257244ad466 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Hopefully fix strict aliasing issues.
author i7tiol
date Mon, 22 Apr 2013 18:41:18 +0000
parents bd5a8f1bdfb8
children 465192f682f0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
1 /*
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
2
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
3 Copyright (C) 2012, 2013 Olaf Till <i7tiol@t-online.de>
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
4
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
5 This program is free software; you can redistribute it and/or modify
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
6 it under the terms of the GNU General Public License as published by
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
7 the Free Software Foundation; either version 3 of the License, or
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
8 (at your option) any later version.
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
9
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
10 This program is distributed in the hope that it will be useful,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
13 GNU General Public License for more details.
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
14
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
15 You should have received a copy of the GNU General Public License
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
16 along with this program; If not, see <http://www.gnu.org/licenses/>.
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
17
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
18 */
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
19
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
20 #include <octave/oct.h>
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
21 #include <octave/ov-struct.h>
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
22 #include <octave/Cell.h>
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
23 #include <octave/lo-ieee.h>
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
24
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
25 #include <stdint.h>
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
26
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
27 #include "command.h"
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
28
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
29 octave_idx_type command::count_row_major_order (dim_vector &dv,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
30 count_state &state, bool init)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
31 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
32 if (init)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
33 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
34 state.nd = dv.length ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
35
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
36 state.cur.resize (state.nd);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
37
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
38 state.pd.resize (state.nd);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
39
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
40 // cannot be done with resize in multiple initializations
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
41 // (resizing to n<2 not possible) and there is no fill() method
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
42 for (octave_idx_type i = 0; i < state.nd; i++)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
43 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
44 state.cur(i) = 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
45 state.pd(i) = 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
46 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
47
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
48 for (octave_idx_type i = 0; i < state.nd - 1; i++)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
49 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
50 state.pd(i + 1) = state.pd(i) * dv(i);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
51 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
52
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
53 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
54 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
55 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
56 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
57 octave_idx_type nd = state.nd;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
58
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
59 if (nd > 0)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
60 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
61 octave_idx_type ret = 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
62
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
63 state.cur(nd - 1)++;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
64
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
65 for (octave_idx_type i = nd - 1; i > 0; i--)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
66 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
67 if (state.cur(i) == dv(i))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
68 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
69 state.cur(i) = 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
70 state.cur(i - 1)++;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
71 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
72
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
73 ret += state.cur(i) * state.pd(i);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
74 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
75
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
76 if (state.cur(0) == dv(0))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
77 ret = -1; // signals overflow
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
78 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
79 ret += state.cur(0) * state.pd(0);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
80
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
81 return ret;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
82 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
83 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
84 return -1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
85 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
86 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
87
11407
f4098c7d5b35 Wrong implementation of copy-in from argument.
i7tiol
parents: 11394
diff changeset
88 int command::from_octave_bin_array (const octave_value &oct_arr,
f4098c7d5b35 Wrong implementation of copy-in from argument.
i7tiol
parents: 11394
diff changeset
89 oct_pq_dynvec_t &val, oct_pq_conv_t *conv)
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
90 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
91 octave_scalar_map m = oct_arr.scalar_map_value ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
92 if (error_state)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
93 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
94 error ("%s: Postgresql array parameter no Octave structure",
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
95 caller.c_str ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
96 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
97 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
98
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
99 if (! m.isfield ("ndims") || ! m.isfield ("data"))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
100 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
101 error ("%s: field 'ndims' or 'data' missing in parameter for Postgresql array", caller.c_str ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
102 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
103 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
104
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
105 octave_idx_type nd_pq = m.contents ("ndims").int_value ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
106 Cell arr = m.contents ("data").cell_value ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
107 if (error_state || nd_pq < 0)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
108 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
109 error ("%s: 'ndims' and 'data' could not be converted to non-negative integer and cell-array in parameter for Postgresql array", caller.c_str ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
110 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
111 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
112
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
113 RowVector lb;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
114
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
115 // Are lbounds given?
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
116 if (m.isfield ("lbounds"))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
117 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
118 lb = m.contents ("lbounds").row_vector_value ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
119 if (error_state)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
120 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
121 error ("%s: could not convert given enumeration bases for array to row vector", caller.c_str ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
122 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
123 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
124 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
125
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
126 octave_idx_type nl = arr.numel ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
127
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
128 // dimensions of Octaves representation of postgresql array
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
129 dim_vector d = arr.dims ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
130 d.chop_trailing_singletons ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
131 int nd_oct = d.length ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
132 if (nd_oct == 2 && d(1) == 1)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
133 nd_oct = 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
134
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
135 // check dimensions
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
136 if (nd_oct > nd_pq)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
137 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
138 error ("given representation of postgresql array has more dimensions than specified");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
139 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
140 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
141
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
142 // check lbounds
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
143 if (nd_pq > 0 && lb.is_empty ())
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
144 lb.resize (nd_pq, 1); // fill with 1
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
145 else if (lb.length () != nd_pq)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
146 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
147 error ("number of specified enumeration bases for array does not match specified number of dimensions");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
148 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
149 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
150
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
151 // ndim
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
152 OCT_PQ_PUT(val, int32_t, htobe32 ((int32_t) nd_pq))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
153 // always make a NULL-bitmap, we don't scan for NULLs to see if it
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
154 // is really necessary
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
155 OCT_PQ_PUT(val, int32_t, htobe32 ((int32_t) 1))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
156 // element OID
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
157 OCT_PQ_PUT(val, uint32_t, htobe32 ((uint32_t) conv->oid))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
158 // dims, lbounds
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
159 for (int i = 0; i < nd_pq; i++)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
160 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
161 OCT_PQ_PUT(val, int32_t, htobe32 ((int32_t) (i < nd_oct ? d(i) : 1)))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
162 OCT_PQ_PUT(val, int32_t, htobe32 ((int32_t) lb(i)))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
163 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
164 // elements
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
165 count_state state;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
166 count_row_major_order (d, state, true); // initialize counter
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
167 for (int i = 0, ti = 0; ti < nl;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
168 ti++, i = count_row_major_order (d, state, false))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
169 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
170 if (arr(i).is_real_scalar () && arr(i).isna ().bool_value ())
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
171 // a length value (uint32_t) would not have the 6 highest bits
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
172 // set (while this has all bits set)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
173 { OCT_PQ_PUT(val, int32_t, htobe32 ((int32_t) -1)) }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
174 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
175 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
176 OCT_PQ_SET_UINT32_PLACEHOLDER(val, temp_pos)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
177
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
178 if (conv->is_composite)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
179 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
180 if (from_octave_bin_composite (arr(i), val, conv))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
181 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
182 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
183 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
184 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
185 if (conv->from_octave_bin (arr(i), val))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
186 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
187 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
188
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
189 OCT_PQ_FILL_UINT32_PLACEHOLDER(val, temp_pos)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
190 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
191 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
192
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
193 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
194 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
195
11407
f4098c7d5b35 Wrong implementation of copy-in from argument.
i7tiol
parents: 11394
diff changeset
196 int command::from_octave_bin_composite (const octave_value &oct_comp,
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
197 oct_pq_dynvec_t &val,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
198 oct_pq_conv_t *conv)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
199 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
200 Cell rec (oct_comp.cell_value ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
201 if (error_state)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
202 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
203 error ("%s: Octaves representation of a composite type could not be converted to cell-array", caller.c_str ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
204 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
205 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
206
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
207 octave_idx_type nl = rec.numel ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
208
11645
bd5a8f1bdfb8 Clean out harmless warnings and one unnecessarily returned column.
i7tiol
parents: 11644
diff changeset
209 if (size_t (nl) != conv->el_oids.size ())
11474
4fd39d36eff5 Retrieve element information of composite types already at connection time. Exclude negative element numbers (system columns) of composite types corresponding to tables.
i7tiol
parents: 11407
diff changeset
210 {
4fd39d36eff5 Retrieve element information of composite types already at connection time. Exclude negative element numbers (system columns) of composite types corresponding to tables.
i7tiol
parents: 11407
diff changeset
211 error ("%s: Octaves representation of a composite type has incorrect number of elements (%i, should have %i)",
4fd39d36eff5 Retrieve element information of composite types already at connection time. Exclude negative element numbers (system columns) of composite types corresponding to tables.
i7tiol
parents: 11407
diff changeset
212 caller.c_str (), nl, conv->el_oids.size ());
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
213
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
214 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
215 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
216
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
217 // ncols
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
218 OCT_PQ_PUT(val, int32_t, htobe32 ((int32_t) nl))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
219 // elements
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
220 for (int i = 0; i < nl; i++)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
221 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
222 // element OID
11474
4fd39d36eff5 Retrieve element information of composite types already at connection time. Exclude negative element numbers (system columns) of composite types corresponding to tables.
i7tiol
parents: 11407
diff changeset
223 OCT_PQ_PUT(val, uint32_t, htobe32 ((uint32_t) conv->el_oids[i]))
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
224 if (rec(i).is_real_scalar () && rec(i).isna ().bool_value ())
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
225 // a length value (uint32_t) would not have the 6 highest bits
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
226 // set (while this has all bits set)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
227 { OCT_PQ_PUT(val, int32_t, htobe32 ((int32_t) -1)) }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
228 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
229 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
230 OCT_PQ_SET_UINT32_PLACEHOLDER(val, temp_pos)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
231
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
232 oct_pq_conv_t *el_conv;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
233 oct_type_t oct_type;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
234
11480
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
235 if (! (el_conv = pgtype_from_spec (conv->el_oids[i],
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
236 conv->conv_cache[i],
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
237 oct_type)))
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
238 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
239
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
240 switch (oct_type)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
241 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
242 case simple:
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
243 if (el_conv->from_octave_bin (rec(i), val))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
244 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
245 break;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
246
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
247 case array:
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
248 if (from_octave_bin_array (rec(i), val, el_conv))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
249 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
250 break;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
251
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
252 case composite:
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
253 if (from_octave_bin_composite (rec(i), val, el_conv))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
254 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
255 break;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
256
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
257 default:
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
258 // should not get here
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
259 error ("%s: internal error, undefined type identifier",
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
260 caller.c_str ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
261 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
262 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
263
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
264 OCT_PQ_FILL_UINT32_PLACEHOLDER(val, temp_pos)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
265 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
266 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
267
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
268 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
269 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
270
11407
f4098c7d5b35 Wrong implementation of copy-in from argument.
i7tiol
parents: 11394
diff changeset
271 int command::from_octave_str_array (const octave_value &oct_arr,
f4098c7d5b35 Wrong implementation of copy-in from argument.
i7tiol
parents: 11394
diff changeset
272 oct_pq_dynvec_t &val, octave_value &type)
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
273 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
274 // not implemented
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
275 error ("not implemented");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
276 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
277
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
278 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
279 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
280
11407
f4098c7d5b35 Wrong implementation of copy-in from argument.
i7tiol
parents: 11394
diff changeset
281 int command::from_octave_str_composite (const octave_value &oct_comp,
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
282 oct_pq_dynvec_t &val,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
283 octave_value &type)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
284 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
285 // not implemented
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
286 error ("not implemented");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
287 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
288
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
289 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
290 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
291
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
292 int command::to_octave_bin_array (char *v, octave_value &ov, int nb,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
293 oct_pq_conv_t *conv)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
294 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
295 char *p = v;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
296
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
297 // ndim
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
298 OCT_PQ_DECL_GET_INT32(ndim, p, int32_t)
11645
bd5a8f1bdfb8 Clean out harmless warnings and one unnecessarily returned column.
i7tiol
parents: 11644
diff changeset
299 // Has NULL bitmap. Since this information is not used, comment it
bd5a8f1bdfb8 Clean out harmless warnings and one unnecessarily returned column.
i7tiol
parents: 11644
diff changeset
300 // out to avoid a warning and increase the pointer manually.
bd5a8f1bdfb8 Clean out harmless warnings and one unnecessarily returned column.
i7tiol
parents: 11644
diff changeset
301 //
bd5a8f1bdfb8 Clean out harmless warnings and one unnecessarily returned column.
i7tiol
parents: 11644
diff changeset
302 // OCT_PQ_DECL_GET_INT32(hasnull, p, int32_t)
bd5a8f1bdfb8 Clean out harmless warnings and one unnecessarily returned column.
i7tiol
parents: 11644
diff changeset
303 p += 4;
bd5a8f1bdfb8 Clean out harmless warnings and one unnecessarily returned column.
i7tiol
parents: 11644
diff changeset
304 //
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
305 // element OID
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
306 OCT_PQ_DECL_GET_INT32(oid, p, uint32_t)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
307
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
308 // check element OID
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
309 if (oid != conv->oid)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
310 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
311 error ("%s: element oid %i sent by server does not match element oid %i expected for array with oid %i",
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
312 caller.c_str (), oid, conv->oid, conv->aoid);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
313 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
314 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
315
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
316 // dims, lbounds
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
317 dim_vector dv;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
318 dv.resize (ndim, 0); // ndim < 2 is treated as ndim == 2
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
319 if (ndim == 1)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
320 dv(1) = 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
321
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
322 RowVector lbounds (ndim);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
323
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
324 for (int i = 0; i < ndim; i++)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
325 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
326 OCT_PQ_GET_INT32(dv(i), p, int32_t)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
327 OCT_PQ_GET_INT32(lbounds(i), p, int32_t)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
328 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
329 //
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
330
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
331 // elements
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
332 octave_idx_type nl = dv.numel ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
333 Cell c (dv);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
334 count_state state;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
335 count_row_major_order (dv, state, true); // initialize counter
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
336 for (int i = 0, ti = 0; ti < nl;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
337 ti++, i = count_row_major_order (dv, state, false))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
338 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
339 OCT_PQ_DECL_GET_INT32(null_id, p, int32_t)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
340 if (null_id == -1)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
341 // NULL
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
342 c(i) = octave_value (octave_NA);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
343 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
344 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
345 uint32_t nb_el = uint32_t (null_id);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
346
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
347 octave_value ov_el;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
348
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
349 if (conv->is_composite)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
350 {
11480
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
351 if (to_octave_bin_composite (p, ov_el, nb_el, conv))
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
352 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
353 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
354 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
355 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
356 if (conv->to_octave_bin (p, ov_el, nb_el))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
357 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
358 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
359
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
360 p += nb_el;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
361
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
362 c(i) = ov_el;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
363 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
364 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
365
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
366 octave_scalar_map m;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
367 m.assign ("data", octave_value (c));
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
368 m.assign ("ndims", octave_value (ndim));
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
369 m.assign ("lbounds", octave_value (lbounds));
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
370
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
371 ov = octave_value (m);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
372
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
373 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
374 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
375
11480
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
376 int command::to_octave_bin_composite (char *v, octave_value &ov, int nb,
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
377 oct_pq_conv_t *conv)
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
378 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
379 char *p = v;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
380
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
381 // ncols
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
382 OCT_PQ_DECL_GET_INT32(nl, p, int32_t)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
383
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
384 // elements
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
385 Cell c (nl, 1);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
386 for (int i = 0; i < nl; i++)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
387 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
388 // element OID
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
389 OCT_PQ_DECL_GET_INT32(oid, p, uint32_t)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
390
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
391 OCT_PQ_DECL_GET_INT32(null_id, p, int32_t)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
392
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
393 if (null_id == -1)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
394 // NULL
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
395 c(i) = octave_value (octave_NA);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
396 else
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
397 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
398 uint32_t nb_el = uint32_t (null_id);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
399
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
400 oct_pq_conv_t *el_conv;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
401 oct_type_t oct_type;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
402
11480
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
403 if (! (el_conv = pgtype_from_spec (oid, conv->conv_cache[i],
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
404 oct_type)))
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
405 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
406
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
407 octave_value el;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
408 switch (oct_type)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
409 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
410 case simple:
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
411 if (el_conv->to_octave_bin (p, el, nb_el))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
412 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
413 break;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
414
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
415 case array:
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
416 if (to_octave_bin_array (p, el, nb_el, el_conv))
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
417 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
418 break;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
419
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
420 case composite:
11480
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
421 if (to_octave_bin_composite (p, el, nb_el, el_conv))
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
422 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
423 break;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
424
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
425 default:
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
426 // should not get here
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
427 error ("%s: internal error, undefined type identifier",
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
428 caller.c_str ());
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
429 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
430 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
431
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
432 p += nb_el;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
433
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
434 c(i) = el;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
435 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
436 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
437
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
438 ov = octave_value (c);
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
439
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
440 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
441 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
442
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
443
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
444 int command::to_octave_str_array (char *v, octave_value &ov, int nb,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
445 oct_pq_conv_t *conv)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
446 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
447 // not implemented
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
448 error ("not implemented");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
449 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
450
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
451 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
452 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
453
11480
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
454 int command::to_octave_str_composite (char *v, octave_value &ov, int nb,
d14a23884d9c Cache map lookups of converters for composite type elements.
i7tiol
parents: 11474
diff changeset
455 oct_pq_conv_t *conv)
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
456 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
457 // not implemented
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
458 error ("not implemented");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
459 return 1;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
460
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
461 return 0;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
462 }