Mercurial > octave-libgccjit

comparison src/Cell.cc @ 8732:a669df7beb73

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[mq]: x
author John W. Eaton <jwe@octave.org>
date Thu, 12 Feb 2009 14:37:43 -0500
parents 280fae940bb0
children eb63fbe60fab
comparison
equal deleted inserted replaced
8731:5abe5ae55465 8732:a669df7beb73
57 } 57 }
58 58
59 elem(i,0) = s; 59 elem(i,0) = s;
60 } 60 }
61 } 61 }
62 }
63
64 Cell::Cell (const Array<std::string>& sa)
65 : ArrayN<octave_value> (sa.dims ())
66 {
67 octave_idx_type n = sa.numel ();
68
69 octave_value *dst = fortran_vec ();
70 const std::string *src = sa.data ();
71
72 for (octave_idx_type i = 0; i < n; i++)
73 dst[i] = src[i];
62 } 74 }
63 75
64 // Set size to DV, filling with []. Then fill with as many elements of 76 // Set size to DV, filling with []. Then fill with as many elements of
65 // SV as possible. 77 // SV as possible.
66 78