Mercurial > hg > octave-nkf

comparison src/ov-str-mat.cc @ 5539:b800ae36fc6a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-16 18:45:32 by jwe]
author jwe
date Wed, 16 Nov 2005 18:45:32 +0000
parents 66ad03c58880
children 6286c96121c2
comparison
equal deleted inserted replaced
5538:8d2903f71c96 5539:b800ae36fc6a
88 88
89 octave_idx_type len = idx.length (); 89 octave_idx_type len = idx.length ();
90 90
91 switch (len) 91 switch (len)
92 { 92 {
93 case 2: 93 case 0:
94 { 94 retval = octave_value (matrix, true, type);
95 idx_vector i = idx (0).index_vector ();
96 idx_vector j = idx (1).index_vector ();
97
98 if (! error_state)
99 retval = octave_value (charNDArray (matrix.index (i, j, resize_ok)),
100 true, type);
101 }
102 break; 95 break;
103 96
104 case 1: 97 case 1:
105 { 98 {
106 idx_vector i = idx (0).index_vector (); 99 idx_vector i = idx (0).index_vector ();
109 retval = octave_value (charNDArray (matrix.index (i, resize_ok)), 102 retval = octave_value (charNDArray (matrix.index (i, resize_ok)),
110 true, type); 103 true, type);
111 } 104 }
112 break; 105 break;
113 106
114 case 0: 107 case 2:
115 error ("invalid number of indices (= 0) for %d-dimensional character array", matrix.ndims ()); 108 {
109 idx_vector i = idx (0).index_vector ();
110 idx_vector j = idx (1).index_vector ();
111
112 if (! error_state)
113 retval = octave_value (charNDArray (matrix.index (i, j, resize_ok)),
114 true, type);
115 }
116 break; 116 break;
117 117
118 default: 118 default:
119 { 119 {
120 Array<idx_vector> idx_vec (len); 120 Array<idx_vector> idx_vec (len);