Mercurial > hg > octave-lyh
diff src/pt-const.cc @ 581:bc813f5eb025
[project @ 1994-08-07 01:02:15 by jwe]
author | jwe |
---|---|
date | Sun, 07 Aug 1994 01:02:15 +0000 |
parents | 1be78be437c7 |
children | 8e4e7e5f307e |
line wrap: on
line diff
--- a/src/pt-const.cc +++ b/src/pt-const.cc @@ -29,6 +29,8 @@ #pragma implementation #endif +#include <iostream.h> + #include "tree-const.h" #include "error.h" #include "gripes.h" @@ -65,10 +67,9 @@ } #endif -/* - * Construct return vector of empty matrices. Return empty matrices - * and/or gripe when appropriate. - */ +// Construct return vector of empty matrices. Return empty matrices +// and/or gripe when appropriate. + Octave_object vector_of_empties (int nargout, const char *fcn_name) { @@ -93,6 +94,21 @@ return retval; } +void +tree_constant::print_code (ostream& os) +{ + print_code_indent (os); + + if (in_parens) + os << "("; + + if (rep) + rep->print_code (os); + + if (in_parens) + os << ")"; +} + /* ;;; Local Variables: *** ;;; mode: C++ ***