Mercurial > octave-nkf
diff src/Cell.cc @ 4915:c638c144d4da
[project @ 2004-07-23 19:01:22 by jwe]
author | jwe |
---|---|
date | Fri, 23 Jul 2004 19:01:23 +0000 |
parents | d3bd9c04147f |
children | a1073eef650c |
line wrap: on
line diff
--- a/src/Cell.cc Fri Jul 23 16:55:13 2004 +0000 +++ b/src/Cell.cc Fri Jul 23 19:01:23 2004 +0000 @@ -100,10 +100,26 @@ return *this; } -int -Cell::cat (const Cell& ra_arg, int dim, int iidx, int move) +Cell +concat (const Cell& ra, const Cell& rb, const Array<int>& ra_idx) { - return ::cat_ra (*this, ra_arg, dim, iidx, move); + Cell retval (ra); + retval.insert (rb, ra_idx); + return retval; +} + +Cell& +Cell::insert (const Cell& a, int r, int c) +{ + Array<octave_value>::insert (a, r, c); + return *this; +} + +Cell& +Cell::insert (const Cell& a, const Array<int>& ra_idx) +{ + Array<octave_value>::insert (a, ra_idx); + return *this; } /*