Mercurial > octave-nkf
changeset 16412:61989cde13ae
Use legacy implementation for strsplit().
* scripts/pkg/private/list_forge_packages.m: Specify delimitertype = "legacy"
* scripts/io/strread.m: ditto
| author | Ben Abbott <bpabbott@mac.com> |
|---|---|
| date | Tue, 02 Apr 2013 20:48:40 -0400 |
| parents | 5be43435bd5b |
| children | 28136851099a |
| files | scripts/io/strread.m scripts/pkg/private/list_forge_packages.m |
| diffstat | 2 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/io/strread.m Tue Apr 02 19:36:52 2013 -0400 +++ b/scripts/io/strread.m Tue Apr 02 20:48:40 2013 -0400 @@ -772,7 +772,7 @@ endif ## Split text string along delimiters - out = strsplit (text, num2cell (sep(:)), mult_dlms_s1); + out = strsplit (text, sep, mult_dlms_s1, "delimitertype", "legacy"); if (index (sep, eol_char)); out = strrep (out, char (255), ''); endif ## In case of trailing delimiter, strip stray last empty word if (!isempty (out) && any (sep == text(end)))
--- a/scripts/pkg/private/list_forge_packages.m Tue Apr 02 19:36:52 2013 -0400 +++ b/scripts/pkg/private/list_forge_packages.m Tue Apr 02 20:48:40 2013 -0400 @@ -25,7 +25,7 @@ function list = list_forge_packages () [list, succ] = urlread ("http://packages.octave.org/list_packages.php"); if (succ) - list = strsplit (list, " \n\t", true); + list = strsplit (list, " \n\t", true, "delimitertype", "legacy"); else error ("pkg: could not read URL, please verify internet connection"); endif