# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1392203413 0
# Node ID 93a610491bf835af4239497298706bc91f3f0801
# Parent  506844f3740eff11b93935ac75a8a35ed1074ac5
Fixes in java.io,Win32FileSystem - added listDrives0() native.

diff -r 506844f3740e -r 93a610491bf8 JavaNativeMethodImpl_OpenJDK6.st
--- a/JavaNativeMethodImpl_OpenJDK6.st	Tue Feb 11 21:52:42 2014 +0000
+++ b/JavaNativeMethodImpl_OpenJDK6.st	Wed Feb 12 11:10:13 2014 +0000
@@ -9126,6 +9126,15 @@
     "Modified: / 11-11-2013 / 22:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+_java_io_Win32FileSystem_createFileExclusively: this _: a1 _: a2 
+
+    <javanative: 'java/io/Win32FileSystem' name: 'createFileExclusively(Ljava/lang/String;Z)Z'>
+
+    ^ self _java_io_WinNTFileSystem_createFileExclusively: this _: a1 _: a2
+
+    "Modified: / 12-02-2014 / 10:51:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 _java_io_Win32FileSystem_delete0: this _: a1
 
     <javanative: 'java/io/Win32FileSystem' name: 'delete0(Ljava/io/File;)Z'>
@@ -9200,9 +9209,20 @@
 
     <javanative: 'java/io/Win32FileSystem' name: 'listRoots0()I'>
 
-    ^ JavaVM unimplementedNativeMethodSignal raise
-
-    "Modified: / 11-02-2014 / 18:35:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    | driveMask codePointA |
+
+    driveMask := 0.
+    codePointA := $A codePoint.
+    OperatingSystem getDriveList do:[:each |
+        driveMask := driveMask | (1 << (each first codePoint - codePointA))
+    ].
+    ^driveMask
+
+    "
+    self _java_io_Win32FileSystem_listRoots0: nil.
+    "
+
+    "Modified: / 12-02-2014 / 10:45:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _java_io_Win32FileSystem_rename0: this _: a1 _: a2
@@ -9276,14 +9296,18 @@
 
     <javanative: 'java/io/WinNTFileSystem' name: 'checkAccess(Ljava/io/File;I)Z'>
 
-    ^ JavaVM unimplementedNativeMethodSignal raise
+    ^ self _java_io_UnixFileSystem_checkAccess: this _:a1 _: a2
+
+    "Modified: / 12-02-2014 / 09:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _java_io_WinNTFileSystem_createDirectory: this _:a1
 
     <javanative: 'java/io/WinNTFileSystem' name: 'createDirectory(Ljava/io/File;)Z'>
 
-    ^ JavaVM unimplementedNativeMethodSignal raise
+    ^ self _java_io_UnixFileSystem_createDirectory: this _:a1
+
+    "Modified: / 12-02-2014 / 09:39:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _java_io_WinNTFileSystem_createFileExclusively: this _: name
@@ -9310,16 +9334,18 @@
 
     <javanative: 'java/io/WinNTFileSystem' name: 'createFileExclusively(Ljava/lang/String;Z)Z'>
 
-    ^self _java_io_UnixFileSystem_setReadOnly: this _: a1
-
-    "Modified: / 03-02-2014 / 09:21:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^self _java_io_UnixFileSystem_createFileExclusively: this _: a1 _: a2
+
+    "Modified: / 12-02-2014 / 09:59:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _java_io_WinNTFileSystem_delete0: this _:a1
 
     <javanative: 'java/io/WinNTFileSystem' name: 'delete0(Ljava/io/File;)Z'>
 
-    ^ JavaVM unimplementedNativeMethodSignal raise
+    ^ self _java_io_UnixFileSystem_delete0: this _:a1
+
+    "Modified: / 12-02-2014 / 09:39:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _java_io_WinNTFileSystem_getBooleanAttributes: this _:a1
diff -r 506844f3740e -r 93a610491bf8 JavaNativeMethodImpl_SunJDK6.st
--- a/JavaNativeMethodImpl_SunJDK6.st	Tue Feb 11 21:52:42 2014 +0000
+++ b/JavaNativeMethodImpl_SunJDK6.st	Wed Feb 12 11:10:13 2014 +0000
@@ -104,6 +104,41 @@
     <javanative: 'java/lang/ClassLoader' name: 'defineClass2(Ljava/lang/String;Ljava/nio/ByteBuffer;IILjava/security/ProtectionDomain;Ljava/lang/String;Z)Ljava/lang/Class;'>
 
     ^ JavaVM unimplementedNativeMethodSignal raise
+!
+
+_java_lang_ProcessImpl_close: this 
+
+    <javanative: 'java/lang/ProcessImpl' name: 'close()V'>
+
+    ^ JavaVM unimplementedNativeMethodSignal raise
+!
+
+_java_lang_ProcessImpl_create: this _: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 
+
+    <javanative: 'java/lang/ProcessImpl' name: 'create(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;ZLjava/io/FileDescriptor;Ljava/io/FileDescriptor;Ljava/io/FileDescriptor;)J'>
+
+    ^ JavaVM unimplementedNativeMethodSignal raise
+!
+
+_java_lang_ProcessImpl_destroy: this 
+
+    <javanative: 'java/lang/ProcessImpl' name: 'destroy()V'>
+
+    ^ JavaVM unimplementedNativeMethodSignal raise
+!
+
+_java_lang_ProcessImpl_exitValue: this 
+
+    <javanative: 'java/lang/ProcessImpl' name: 'exitValue()I'>
+
+    ^ JavaVM unimplementedNativeMethodSignal raise
+!
+
+_java_lang_ProcessImpl_waitFor: this 
+
+    <javanative: 'java/lang/ProcessImpl' name: 'waitFor()I'>
+
+    ^ JavaVM unimplementedNativeMethodSignal raise
 ! !
 
 !JavaNativeMethodImpl_SunJDK6 class methodsFor:'native - java.util.zip'!