Mercurial > hg > octave-max

changeset 3320:b0b71d14dab9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-22 09:46:23 by jwe]
author jwe
date Fri, 22 Oct 1999 09:46:23 +0000
parents a4f11eae45c4
children 6923abb04e16
files scripts/ChangeLog scripts/strings/split.m
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-22  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* strings/split.m: If the string to be split is empty, just return
+	an empty string.
+
 1999-10-21  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* Makefile.in (ALL_M_FILES): New macro.
--- a/scripts/strings/split.m
+++ b/scripts/strings/split.m
@@ -37,7 +37,10 @@
   l_s = length (s);
   l_t = length (t);
 
-  if (l_s < l_t)
+  if (l_s == 0)
+    m = "";
+    return;
+  elseif (l_s < l_t)
     error ("split: s must not be shorter than t");
   endif
 
@@ -70,7 +73,6 @@
 
   m = eval (sprintf ("str2mat (%s);", cmd));
 
-
   else
     error ("split:  both s and t must be strings");
   endif