Mercurial > octave

comparison src/pt-exp-base.cc @ 1229:7d7c3eaa1d3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-10 01:04:13 by jwe]
author jwe
date Mon, 10 Apr 1995 01:04:46 +0000
parents ee2c6a67abe9
children 0a5e9e8892a0
comparison
equal deleted inserted replaced
1228:38b876e46ff6 1229:7d7c3eaa1d3b
632 { 632 {
633 panic ("invalid evaluation of generic expression"); 633 panic ("invalid evaluation of generic expression");
634 return tree_constant (); 634 return tree_constant ();
635 } 635 }
636 636
637 // Used internally.
638
639 tree_constant
640 tree_oct_obj::eval (int print)
641 {
642 return values(0);
643 }
644
645 Octave_object
646 tree_oct_obj::eval (int print, int nargout, const Octave_object& args)
647 {
648 return values;
649 }
650
637 // A base class for objects that can be evaluated with argument lists. 651 // A base class for objects that can be evaluated with argument lists.
638 652
639 tree_constant 653 tree_constant
640 tree_fvc::assign (tree_constant& t, const Octave_object& args) 654 tree_fvc::assign (tree_constant& t, const Octave_object& args)
641 { 655 {
1982 1996
1983 // Multi-valued assignmnt expressions. 1997 // Multi-valued assignmnt expressions.
1984 1998
1985 tree_multi_assignment_expression::~tree_multi_assignment_expression (void) 1999 tree_multi_assignment_expression::~tree_multi_assignment_expression (void)
1986 { 2000 {
1987 delete lhs; 2001 if (! preserve)
2002 delete lhs;
2003
1988 delete rhs; 2004 delete rhs;
1989 } 2005 }
1990 2006
1991 tree_constant 2007 tree_constant
1992 tree_multi_assignment_expression::eval (int print) 2008 tree_multi_assignment_expression::eval (int print)