Mercurial > hg > octave-nkf

diff src/ov-ch-mat.cc @ 5900:c20eb7330d13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-07-22 08:31:16 by jwe]
author jwe
date Sat, 22 Jul 2006 08:31:17 +0000
parents faafc2d98b8d
children 2aad75fcc93a
line wrap: on
line diff
--- a/src/ov-ch-mat.cc
+++ b/src/ov-ch-mat.cc
@@ -98,6 +98,23 @@
 			 current_print_indent_level ());
 }
 
+mxArray *
+octave_char_matrix::as_mxArray (void) const
+{
+  mxArray *retval = new mxArray (mxCHAR_CLASS, dims (), mxREAL);
+
+  mxChar *pr = static_cast<mxChar *> (retval->get_data ());
+
+  int nel = numel ();
+
+  const char *p = matrix.data ();
+
+  for (int i = 0; i < nel; i++)
+    pr[i] = p[i];
+
+  return retval;
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***