Mercurial > hg > octave-nkf

diff src/OPERATORS/op-str-str.cc @ 5533:667ad2becb63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-10 21:40:48 by jwe]
author jwe
date Thu, 10 Nov 2005 21:40:49 +0000
parents 4c8a2e4e0717
children 7f5316cadaa2
line wrap: on
line diff
--- a/src/OPERATORS/op-str-str.cc
+++ b/src/OPERATORS/op-str-str.cc
@@ -115,15 +115,7 @@
   return octave_value ();
 }
 
-DEFCATOP (str_str, char_matrix_str, char_matrix_str)
-{
-  CAST_BINOP_ARGS (octave_char_matrix_str&, const octave_char_matrix_str&);
-  return octave_value (v1.char_array_value (). concat (v2.char_array_value (), 
-						       ra_idx),
-		       true,
-		       (a1.is_sq_string () && a2.is_sq_string ()
-			? '\'' : '"'));
-}
+DEFNDCHARCATOP_FN (str_str, char_matrix_str, char_matrix_str, concat)
 
 void
 install_str_str_ops (void)