Mercurial > hg > octave-nkf

diff src/ov.cc @ 4532:01ee68d18069

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-10 00:49:54 by jwe]
author jwe
date Fri, 10 Oct 2003 00:49:55 +0000
parents 34c934a1b08f
children 742993a501b9
line wrap: on
line diff
--- a/src/ov.cc
+++ b/src/ov.cc
@@ -410,6 +410,19 @@
   rep->count = 1;
 }
 
+octave_value::octave_value (const ArrayN<octave_value>& a, bool is_cs_list)
+  : rep (0)
+{
+  Cell c (a);
+
+  if (is_cs_list)
+    rep = new octave_cs_list (c);
+  else
+    rep = new octave_cell (c);
+
+  rep->count = 1;
+}
+
 octave_value::octave_value (const Matrix& m)
   : rep (new octave_matrix (m))
 {