Mercurial > hg > octave-nkf

diff src/OPERATORS/op-str-str.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 6639c2574023
children e71be9c548f2
line wrap: on
line diff
--- a/src/OPERATORS/op-str-str.cc
+++ b/src/OPERATORS/op-str-str.cc
@@ -117,6 +117,14 @@
   return octave_value ();
 }
 
+DEFCATOP (str_str, char_matrix_str, char_matrix_str)
+{
+  CAST_BINOP_ARGS (const octave_char_matrix_str&,
+		   const octave_char_matrix_str&);
+  return octave_value (concat (v1.char_array_value (), v2.char_array_value (), 
+			       ra_idx), true);
+}
+
 void
 install_str_str_ops (void)
 {
@@ -126,6 +134,8 @@
   INSTALL_BINOP (op_eq, octave_char_matrix_str, octave_char_matrix_str, eq);
   INSTALL_BINOP (op_ne, octave_char_matrix_str, octave_char_matrix_str, ne);
 
+  INSTALL_CATOP (octave_char_matrix_str, octave_char_matrix_str, str_str);
+
   INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_char_matrix_str, assign);
 }