Added special case for [split "foobar" ""] and test.

Author: davidw

android/build.xml

@@ -201,6 +201,7 @@
   <target name="dex" depends="hecl-android-jar">
     <echo>Converting compiled files and external libraries into ${outdir}/${dex-file}...</echo>
     <apply executable="${dx}" failonerror="true" parallel="true">
+      <arg value="-JXmx512m" />
       <arg value="--dex" />
       <arg value="--output=${intermediate-dex-ospath}" />
       <arg path="android/Hecl.jar" />

core/org/hecl/ListCmds.java

@@ -176,13 +176,25 @@ public Thing operate(int cmd, Interp interp, Thing[] argv) throws HeclException
 		    splitstr = " ";
 		}
 
-		idx = str.indexOf(splitstr);
-		while (idx >= 0) {
-		    result.addElement(new Thing(str.substring(last, idx)));
-		    last = idx + splitstr.length();
-		    idx = str.indexOf(splitstr, last);
+		int splitstringlen = splitstr.length();
+
+		if (splitstringlen > 0) {
+		    idx = str.indexOf(splitstr);
+		    while (idx >= 0) {
+			result.addElement(new Thing(str.substring(last, idx)));
+			last = idx + splitstringlen;
+			idx = str.indexOf(splitstr, last);
+		    }
+		    result.addElement(new Thing(str.substring(last, str.length())));
+		} else {
+		    /* This is a special case: when the splitstring is
+		     * an empty string "".  */
+		    for(int i = 0; i < str.length(); i++) {
+			char[] c = new char[1];
+			c[0] = str.charAt(i);
+			result.addElement(new Thing(new String(c)));
+		    }
 		}
-		result.addElement(new Thing(str.substring(last, str.length())));
 		return ListThing.create(result);
 
 	    default:

jars/AndroidBuilder.jar

@@ -1,5 +1,5 @@
 MIDlet-Jar-URL: Hecl.jar
-MIDlet-Jar-Size: 74994
+MIDlet-Jar-Size: 75086
 MIDlet-Name: Hecl
 MIDlet-Vendor: dedasys.com
 MIDlet-Version: 1.1

jars/AppletTweak.jar

@@ -1,5 +1,5 @@
 MIDlet-Jar-URL: Hecl.jar
-MIDlet-Jar-Size: 149953
+MIDlet-Jar-Size: 150045
 MIDlet-Name: Hecl
 MIDlet-Vendor: dedasys.com
 MIDlet-Version: 1.1

jars/HeclBuilder.jar

@@ -1,5 +1,5 @@
 MIDlet-Jar-URL: Mwtgui.jar
-MIDlet-Jar-Size: 187590
+MIDlet-Jar-Size: 187682
 MIDlet-Name: Hecl
 MIDlet-Vendor: dedasys.com
 MIDlet-Version: 1.1

jars/JarHack.jar

@@ -7,7 +7,11 @@ test split-2 {
     split "aaa bbb ccc"
 } {aaa bbb ccc}
 
-test split-2 {
+test split-3 {
     split "aaaxbbbycccxyddd" "xy"
 } {aaaxbbbyccc ddd}
 
+test split-4 {
+    split "abcdefg" ""
+} {a b c d e f g}
+