Mercurial > hg > octave-nkf

comparison src/ov-base-int.cc @ 5157:8ca032643f55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-02-23 00:18:58 by jwe]
author jwe
date Wed, 23 Feb 2005 00:18:58 +0000
parents e35b034d3523
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
5156:7c3b22bafedc 5157:8ca032643f55
169 if (! is.read (X_CAST (char *, &di), 4)) 169 if (! is.read (X_CAST (char *, &di), 4))
170 return false; 170 return false;
171 if (swap) 171 if (swap)
172 swap_bytes<4> (&di); 172 swap_bytes<4> (&di);
173 dv(i) = di; 173 dv(i) = di;
174 }
175
176 // Convert an array with a single dimension to be a row vector.
177 // Octave should never write files like this, other software
178 // might.
179
180 if (mdims == 1)
181 {
182 mdims = 2;
183 dv.resize (mdims);
184 dv(1) = dv(0);
185 dv(0) = 1;
174 } 186 }
175 187
176 T m (dv); 188 T m (dv);
177 189
178 if (! is.read (X_CAST (char *, m.data ()), m.byte_size ())) 190 if (! is.read (X_CAST (char *, m.data ()), m.byte_size ()))