Mercurial > hg > octave-lyh

diff src/ov-scalar.h @ 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 a4bc7156bd60
children 44046bbaa52c
line wrap: on
line diff
--- a/src/ov-scalar.h
+++ b/src/ov-scalar.h
@@ -97,6 +97,9 @@
   NDArray array_value (bool = false) const
     { return NDArray (dim_vector (1, 1), scalar); }
 
+  octave_value resize (const dim_vector& dv) const
+    { NDArray retval (dv); if (dv.numel()) retval(0) = scalar; return retval; }
+
   Complex complex_value (bool = false) const { return scalar; }
 
   ComplexMatrix complex_matrix_value (bool = false) const