Mercurial > octave

diff src/OPERATORS/op-m-s.cc @ 4915:c638c144d4da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-07-23 19:01:22 by jwe]
author jwe
date Fri, 23 Jul 2004 19:01:23 +0000
parents c7ae43dfdea4
children 57077d0ddc8e
line wrap: on
line diff
--- a/src/OPERATORS/op-m-s.cc	Fri Jul 23 16:55:13 2004 +0000
+++ b/src/OPERATORS/op-m-s.cc	Fri Jul 23 19:01:23 2004 +0000
@@ -101,6 +101,8 @@
 DEFNDBINOP_FN (el_and, matrix, scalar, array, scalar, mx_el_and)
 DEFNDBINOP_FN (el_or, matrix, scalar, array, scalar, mx_el_or)
 
+DEFNDCATOP_FN (m_s, matrix, scalar, array, array, concat)
+
 DEFNDASSIGNOP_FN (assign, matrix, scalar, array, assign)
 
 void
@@ -131,6 +133,8 @@
   INSTALL_BINOP (op_el_and, octave_matrix, octave_scalar, el_and);
   INSTALL_BINOP (op_el_or, octave_matrix, octave_scalar, el_or);
 
+  INSTALL_CATOP (octave_matrix, octave_scalar, m_s);
+
   INSTALL_ASSIGNOP (op_asn_eq, octave_matrix, octave_scalar, assign);
 }