Mercurial > hg > octave-nkf
comparison src/pt-mat.cc @ 5861:2a6cb4ed8f1e
[project @ 2006-06-16 05:09:41 by jwe]
| author | jwe |
|---|---|
| date | Fri, 16 Jun 2006 05:09:42 +0000 |
| parents | 1138ced03f14 |
| children | 2c9b89b6b919 |
comparison
equal
deleted
inserted
replaced
| 5860:b645066d40ad | 5861:2a6cb4ed8f1e |
|---|---|
| 931 | 931 |
| 932 done: | 932 done: |
| 933 return retval; | 933 return retval; |
| 934 } | 934 } |
| 935 | 935 |
| 936 tree_expression * | |
| 937 tree_matrix::dup (symbol_table *sym_tab) | |
| 938 { | |
| 939 tree_matrix *new_matrix = new tree_matrix (0, line (), column ()); | |
| 940 | |
| 941 for (iterator p = begin (); p != end (); p++) | |
| 942 { | |
| 943 tree_argument_list *elt = *p; | |
| 944 | |
| 945 append (elt ? elt->dup (sym_tab) : 0); | |
| 946 } | |
| 947 | |
| 948 new_matrix->copy_base (*this); | |
| 949 | |
| 950 return new_matrix; | |
| 951 } | |
| 952 | |
| 936 void | 953 void |
| 937 tree_matrix::accept (tree_walker& tw) | 954 tree_matrix::accept (tree_walker& tw) |
| 938 { | 955 { |
| 939 tw.visit_matrix (*this); | 956 tw.visit_matrix (*this); |
| 940 } | 957 } |