Mercurial > hg > octave-lyh

diff src/pt-decl.cc @ 6215:516d3071b34c
[project @ 2006-12-15 03:24:12 by jwe]
author: jwe
date: Fri, 15 Dec 2006 03:24:13 +0000 (2006-12-15)
parents: 2a6cb4ed8f1e
children: 93c65f2a5668
--- a/src/pt-decl.cc
+++ b/src/pt-decl.cc
@@ -45,6 +45,28 @@
   delete expr;
 }
 
+bool
+tree_decl_elt::eval (void)
+{
+  bool retval = false;
+
+  if (id && expr)
+    {
+      octave_lvalue ult = id->lvalue ();
+
+      octave_value init_val = expr->rvalue ();
+
+      if (! error_state)
+	{
+	  ult.assign (octave_value::op_asn_eq, init_val);
+
+	  retval = true;
+	}
+    }
+
+  return retval;
+}
+
 tree_decl_elt *
 tree_decl_elt::dup (symbol_table *sym_tab)
 {