Mercurial > octave-nkf

comparison src/ov-cx-mat.cc @ 3836:b8c1cb5b9fd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-05-31 19:30:49 by jwe]
author jwe
date Thu, 31 May 2001 19:30:52 +0000
parents 13905c3a24af
children e8627dc4bdf2
comparison
equal deleted inserted replaced
3835:47ee5e57a350 3836:b8c1cb5b9fd9
74 retval = new octave_matrix (::real (matrix)); 74 retval = new octave_matrix (::real (matrix));
75 75
76 return retval; 76 return retval;
77 } 77 }
78 78
79 #if !defined (CXX_NEW_FRIEND_TEMPLATE_DECL)
80 extern void assign (Array2<Complex>&, const Array2<Complex>&);
81 #endif
82
83 void 79 void
84 octave_complex_matrix::assign (const octave_value_list& idx, 80 octave_complex_matrix::assign (const octave_value_list& idx,
85 const ComplexMatrix& rhs) 81 const ComplexMatrix& rhs)
86 { 82 {
87 int len = idx.length (); 83 int len = idx.length ();
114 error ("invalid number of indices (%d) for indexed matrix assignment", 110 error ("invalid number of indices (%d) for indexed matrix assignment",
115 len); 111 len);
116 break; 112 break;
117 } 113 }
118 } 114 }
119
120 #if !defined (CXX_NEW_FRIEND_TEMPLATE_DECL)
121 extern void assign (Array2<Complex>&, const Array2<double>&);
122 #endif
123 115
124 void 116 void
125 octave_complex_matrix::assign (const octave_value_list& idx, 117 octave_complex_matrix::assign (const octave_value_list& idx,
126 const Matrix& rhs) 118 const Matrix& rhs)
127 { 119 {