Mercurial > hg > octave-lyh
diff src/data.cc @ 1572:0d9e10d10bd7
[project @ 1995-10-19 04:31:30 by jwe]
author | jwe |
---|---|
date | Thu, 19 Oct 1995 04:31:30 +0000 |
parents | 89c587478067 |
children | 42b4f904f1af |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -756,15 +756,29 @@ { Octave_map m = args(0).map_value (); char **names = m.make_name_list (); - Octave_str_obj list (m.length ()); + char **ptr = names; + int max_len = 0; + while (*ptr) + { + int len = strlen (*ptr); + if (len > max_len) + max_len = len; + ptr++; + } + + charMatrix list (m.length (), max_len); + + ptr = names; int i = 0; while (*ptr) { - list(i++) = *ptr; + list.insert (*ptr, i++, 0); delete [] *ptr++; } + delete [] names; + retval(0) = list; } else