Mercurial > octave

diff src/OPERATORS/op-s-cs.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 2bc437206787
children 57077d0ddc8e
line wrap: on
line diff
--- a/src/OPERATORS/op-s-cs.cc	Fri Jul 23 16:55:13 2004 +0000
+++ b/src/OPERATORS/op-s-cs.cc	Fri Jul 23 19:01:23 2004 +0000
@@ -155,6 +155,8 @@
   return octave_value (v1.double_value () || (v2.complex_value () != 0.0));
 }
 
+DEFNDCATOP_FN (s_cs, scalar, complex, array, complex_array, concat)
+
 void
 install_s_cs_ops (void)
 {
@@ -177,6 +179,8 @@
   INSTALL_BINOP (op_el_and, octave_scalar, octave_complex, el_and);
   INSTALL_BINOP (op_el_or, octave_scalar, octave_complex, el_or);
 
+  INSTALL_CATOP (octave_scalar, octave_complex, s_cs);
+
   INSTALL_ASSIGNCONV (octave_scalar, octave_complex, octave_complex_matrix);
 }