Make sure that opening a file for writing in Java ME creates it if it

doesn't exist.  Also, example code in script.hcl.

File opening was failing for nonexistant files in Java ME, and we also
were not utilizing HeclChannel, which was a mistake.  Now there is
also some test code in the example script.

Author: davidw

files/org/hecl/files/FileCmds.java

@@ -369,11 +369,14 @@ public Thing operate(int cmd, Interp interp, Thing[] argv)
 			    write = true;
 			}
 		    }
-		    Object retval;
+		    HeclChannel retval;
 		    if (write) {
-			retval = fconn.openDataOutputStream();
+			if (!fconn.exists()) {
+			    fconn.create();
+			}
+			retval = new HeclChannel(fconn.openDataOutputStream());
 		    } else {
-			retval = fconn.openDataInputStream();
+			retval = new HeclChannel(fconn.openDataInputStream());
 		    }
 		    return ObjectThing.create(retval);
 		}
@@ -500,8 +503,8 @@ public Thing operate(int cmd, Interp interp, Thing[] argv)
 					    + cmd + "'.");
 	    }
 	} catch (IOException e) {
-	    throw new HeclException("IO Exception in " +
-				    argv[0].toString() + ": " + e.toString());
+	    throw new HeclException("IO Exception: " +
+				    HeclException.argvToString(argv) + " : " + e.toString());
 	}
 //#endif
     }

midp20/script.hcl

@@ -254,7 +254,7 @@ $form setcurrent
 
 AddSample "File Browser" {
 
-proc FileSelect {infohash bselect bback binfo cmd menu} {
+proc FileSelect {infohash bselect bback binfo bwrite cmd menu} {
     set root [hget $infohash root]
 
     set index [$menu selection get]
@@ -294,6 +294,10 @@ proc FileSelect {infohash bselect bback binfo cmd menu} {
 	$bform append [lcdui.stringitem -label "Directory?" -text $directory]
 	$bform append [lcdui.stringitem -label "Open?" -text [file.isopen $cpath]]
 	$bform setcurrent
+    } elseif {eq $cmd $bwrite} {
+	set fl [open "${cpath}hecl.txt" w]
+	$fl writeln "Hecl was here"
+	$fl close
     }
 
     hset $infohash paths $lst
@@ -303,7 +307,7 @@ proc FileSelect {infohash bselect bback binfo cmd menu} {
     }
 
     #Re-add the infohash into the -commandaction.
-    $menu configure -commandaction [list FileSelect $infohash $bselect $bback $binfo]
+    $menu configure -commandaction [list FileSelect $infohash $bselect $bback $binfo $bwrite]
 }
 
 set h [hash {}]
@@ -314,10 +318,12 @@ hset $h root {}
 set bselect [lcdui.command -label Select -longlabel Select -type item]
 set bback [lcdui.command -label Back -longlabel Back -type item]
 set binfo [lcdui.command -label Info -longlabel "File Info" -type item]
+set bwrite [lcdui.command -label Write -longlabel "Write File" -type item]
 set browser [lcdui.list -selectcommand $bselect -title "File Browser" \
-		 -commandaction [list FileSelect $h $bselect $bback $binfo]]
+		 -commandaction [list FileSelect $h $bselect $bback $binfo $bwrite]]
 $browser addcommand $bback
 $browser addcommand $binfo
+$browser addcommand $bwrite
 $browser setcurrent
 foreach d $devs {
     $browser append $d