Mercurial > octave-nkf

comparison src/ov-base-mat.cc @ 3928:e8627dc4bdf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-05-03 19:56:01 by jwe]
author jwe
date Fri, 03 May 2002 19:56:02 +0000
parents 8d641545e006
children f9ea3dcf58ee
comparison
equal deleted inserted replaced
3927:e7ad1397d67b 3928:e8627dc4bdf2
71 } 71 }
72 break; 72 break;
73 } 73 }
74 74
75 return retval; 75 return retval;
76 }
77
78 #if !defined (CXX_NEW_FRIEND_TEMPLATE_DECL)
79 template <class MT>
80 extern void assign (MT&, const MT&);
81 #endif
82
83 template <class MT>
84 void
85 octave_base_matrix<MT>::assign (const octave_value_list& idx, const MT& rhs)
86 {
87 int len = idx.length ();
88
89 switch (len)
90 {
91 case 2:
92 {
93 idx_vector i = idx (0).index_vector ();
94 idx_vector j = idx (1).index_vector ();
95
96 matrix.set_index (i);
97 matrix.set_index (j);
98
99 ::assign (matrix, rhs);
100 }
101 break;
102
103 case 1:
104 {
105 idx_vector i = idx (0).index_vector ();
106
107 matrix.set_index (i);
108
109 ::assign (matrix, rhs);
110 }
111 break;
112
113 default:
114 error ("invalid number of indices (%d) for indexed assignment",
115 len);
116 break;
117 }
76 } 118 }
77 119
78 template <class MT> 120 template <class MT>
79 bool 121 bool
80 octave_base_matrix<MT>::is_true (void) const 122 octave_base_matrix<MT>::is_true (void) const