Mercurial > octave-nkf

comparison liboctave/Array.cc @ 4759:364bbf35dbfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-15 00:08:06 by jwe]
author jwe
date Sun, 15 Feb 2004 00:08:07 +0000
parents c48180a45d34
children bec345670e56
comparison
equal deleted inserted replaced
4758:a308566c8b42 4759:364bbf35dbfa
74 new_dimensions(k++) = dimensions(i); 74 new_dimensions(k++) = dimensions(i);
75 } 75 }
76 76
77 if (dims_changed) 77 if (dims_changed)
78 { 78 {
79 if (k == 0) 79 switch (k)
80 new_dimensions = dim_vector (1); 80 {
81 else 81 case 0:
82 new_dimensions.resize (k); 82 new_dimensions = dim_vector (1, 1);
83 break;
84
85 case 1:
86 {
87 int tmp = new_dimensions(0);
88
89 new_dimensions.resize (2);
90
91 if (dimensions(0) == 1)
92 {
93 new_dimensions(0) = 1;
94 new_dimensions(1) = tmp;
95 }
96 else
97 {
98 new_dimensions(0) = tmp;
99 new_dimensions(1) = 1;
100 }
101 }
102 break;
103
104 default:
105 new_dimensions.resize (k);
106 break;
107 }
83 108
84 retval.make_unique (); 109 retval.make_unique ();
85 110
86 retval.dimensions = new_dimensions; 111 retval.dimensions = new_dimensions;
87 } 112 }