Mercurial > octave

comparison src/pt-exp-base.cc @ 666:fb4f6556b443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-09-06 21:22:46 by jwe]
author jwe
date Tue, 06 Sep 1994 21:25:14 +0000
parents 9293c023dd2d
children 250fc1c93fe2
comparison
equal deleted inserted replaced
665:2aeae851a164 666:fb4f6556b443
137 tree_constant 137 tree_constant
138 tree_expression::eval (int print) 138 tree_expression::eval (int print)
139 { 139 {
140 panic ("invalid evaluation of generic expression"); 140 panic ("invalid evaluation of generic expression");
141 return tree_constant (); 141 return tree_constant ();
142 }
143
144 Octave_object
145 tree_expression::eval (int print, int nargout, const Octave_object& args)
146 {
147 panic ("invalid evaluation of generic expression");
148 return Octave_object ();
149 } 142 }
150 143
151 // General matrices. This list type is much more work to handle than 144 // General matrices. This list type is much more work to handle than
152 // constant matrices, but it allows us to construct matrices from 145 // constant matrices, but it allows us to construct matrices from
153 // other matrices, variables, and functions. 146 // other matrices, variables, and functions.
588 581
589 if (in_parens) 582 if (in_parens)
590 os << ")"; 583 os << ")";
591 } 584 }
592 585
586 // A base class for objects that can be return multiple values
587
588 tree_constant
589 tree_multi_val_ret::eval (int print)
590 {
591 panic ("invalid evaluation of generic expression");
592 return tree_constant ();
593 }
594
593 // A base class for objects that can be evaluated with argument lists. 595 // A base class for objects that can be evaluated with argument lists.
594 596
595 tree_constant 597 tree_constant
596 tree_fvc::assign (tree_constant& t, const Octave_object& args) 598 tree_fvc::assign (tree_constant& t, const Octave_object& args)
597 { 599 {
1466 1468
1467 if (in_parens) 1469 if (in_parens)
1468 os << ")"; 1470 os << ")";
1469 } 1471 }
1470 1472
1471 // Assignment expressions.
1472
1473 tree_constant
1474 tree_assignment_expression::eval (int print)
1475 {
1476 panic ("invalid evaluation of generic expression");
1477 return tree_constant ();
1478 }
1479
1480 // Simple assignment expressions. 1473 // Simple assignment expressions.
1481 1474
1482 tree_simple_assignment_expression::~tree_simple_assignment_expression (void) 1475 tree_simple_assignment_expression::~tree_simple_assignment_expression (void)
1483 { 1476 {
1484 if (! preserve) 1477 if (! preserve)