Mercurial > hg > octave-nkf
comparison src/pt-misc.cc @ 723:1c072f20b522
[project @ 1994-09-21 16:00:10 by jwe]
| author | jwe |
|---|---|
| date | Wed, 21 Sep 1994 16:00:10 +0000 |
| parents | 36ba0576bd1b |
| children | 586160369413 |
comparison
equal
deleted
inserted
replaced
| 722:c40cdd16121e | 723:1c072f20b522 |
|---|---|
| 300 next (p); | 300 next (p); |
| 301 } | 301 } |
| 302 } | 302 } |
| 303 | 303 |
| 304 Octave_object | 304 Octave_object |
| 305 tree_parameter_list::convert_to_const_vector (void) | 305 tree_parameter_list::convert_to_const_vector (tree_va_return_list *vr_list) |
| 306 { | 306 { |
| 307 int nout = length (); | 307 int nout = length (); |
| 308 | |
| 309 if (vr_list) | |
| 310 nout += vr_list->length (); | |
| 308 | 311 |
| 309 Octave_object retval; | 312 Octave_object retval; |
| 310 retval.resize (nout); | 313 retval.resize (nout); |
| 311 | 314 |
| 312 int i = 0; | 315 int i = 0; |
| 317 | 320 |
| 318 if (elt->is_defined ()) | 321 if (elt->is_defined ()) |
| 319 retval(i) = elt->eval (0); | 322 retval(i) = elt->eval (0); |
| 320 | 323 |
| 321 i++; | 324 i++; |
| 325 } | |
| 326 | |
| 327 if (vr_list) | |
| 328 { | |
| 329 for (p = vr_list->first (); p != 0; vr_list->next (p)) | |
| 330 { | |
| 331 retval(i) = vr_list->operator () (p); | |
| 332 i++; | |
| 333 } | |
| 322 } | 334 } |
| 323 | 335 |
| 324 return retval; | 336 return retval; |
| 325 } | 337 } |
| 326 | 338 |