Mercurial > hg > octave-lyh
diff src/pt-cell.cc @ 5861:2a6cb4ed8f1e
[project @ 2006-06-16 05:09:41 by jwe]
author | jwe |
---|---|
date | Fri, 16 Jun 2006 05:09:42 +0000 |
parents | 4c8a2e4e0717 |
children | 2c9b89b6b919 |
line wrap: on
line diff
--- a/src/pt-cell.cc +++ b/src/pt-cell.cc @@ -101,6 +101,23 @@ return retval; } +tree_expression * +tree_cell::dup (symbol_table *sym_tab) +{ + tree_cell *new_cell = new tree_cell (0, line (), column ()); + + for (iterator p = begin (); p != end (); p++) + { + tree_argument_list *elt = *p; + + append (elt ? elt->dup (sym_tab) : 0); + } + + new_cell->copy_base (*this); + + return new_cell; +} + void tree_cell::accept (tree_walker& tw) {