"

 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko

                            SWING Research Group, Czech Technical University in Prague

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libjava' }"

JavaNativeMethodImpl_OpenJDK6 subclass:#JavaNativeMethodImpl_OpenJDK7

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:'JavaVMData'

	category:'Languages-Java-Support-OpenJDK7'

!

!JavaNativeMethodImpl_OpenJDK7 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko

                            SWING Research Group, Czech Technical University in Prague

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!JavaNativeMethodImpl_OpenJDK7 class methodsFor:'native - java.io'!

_java_io_FileOutputStream_open: this _: a1 _: a2 

    <javanative: 'java/io/FileOutputStream' name: 'open(Ljava/lang/String;Z)V'>

    ^ self commonOpen: this path: a1 forAppend: a2 == 1

    "Modified: / 12-11-2013 / 22:48:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileOutputStream_write: this _: byte _: append 

    <javanative: 'java/io/FileOutputStream' name: 'write(IZ)V'>

    "

    /**

     * Writes the specified byte to this file output stream.

     *

     * @param   b   the byte to be written.

     * @param   append   {@code true} if the write operation first

     *     advances the position to the end of file

     */

    "

    | fdobj fd stream b |

    "/Java byte is signed, make it integer in 0-255"

    b := byte < 0 ifTrue:[ byte + 256] ifFalse:[byte ].

    fdobj := (this instVarNamed: #fd).

    fd    := fdobj instVarNamed: #fd.

    stream := self getOpenFileAt:fd.

    [

        append == 1 ifTrue:[ stream setToEnd ].

        stream nextPut: b.

    ] on: Error do:[:ex|

        JavaVM throwIOExceptionWithMessage:ex description

    ]

    "Modified: / 13-11-2013 / 09:34:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileOutputStream_writeBytes: this _:bytes _: offset _: count _: append

    <javanative: 'java/io/FileOutputStream' name: 'writeBytes([BIIZ)V'>

    ^ self anyStream_write: this bytes: bytes offset: offset count: count append: append == 1.

    "Modified: / 08-02-2013 / 11:57:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_canonicalize0: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'canonicalize0(Ljava/lang/String;)Ljava/lang/String;'>

    ^ self _java_io_WinNTFileSystem_canonicalize0: this _: a1

    "Modified: / 11-11-2013 / 22:00:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_canonicalizeWithPrefix0: this _: a1 _: a2 

    <javanative: 'java/io/Win32FileSystem' name: 'canonicalizeWithPrefix0(Ljava/lang/String;Ljava/lang/String;)Ljava/lang/String;'>

    ^ self _java_io_WinNTFileSystem_canonicalizeWithPrefix0: this _: a1 _: a2

    "Modified: / 11-11-2013 / 22:01:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_checkAccess: this _: a1 _: a2 

    <javanative: 'java/io/Win32FileSystem' name: 'checkAccess(Ljava/io/File;I)Z'>

    ^ self _java_io_WinNTFileSystem_checkAccess: this _: a1 _: a2

    "Modified: / 11-11-2013 / 22:01:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_createDirectory: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'createDirectory(Ljava/io/File;)Z'>

    ^ self _java_io_WinNTFileSystem_createDirectory: this _: a1

    "Modified: / 11-11-2013 / 22:01:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_createFileExclusively: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'createFileExclusively(Ljava/lang/String;)Z'>

    ^ self _java_io_WinNTFileSystem_createFileExclusively: this _: a1

    "Modified: / 11-11-2013 / 22:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_delete0: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'delete0(Ljava/io/File;)Z'>

    ^ self _java_io_Win32FileSystem_delete0: this _: a1

    "Modified: / 11-11-2013 / 22:02:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_getBooleanAttributes: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'getBooleanAttributes(Ljava/io/File;)I'>

    ^ self _java_io_Win32FileSystem_getBooleanAttributes: this _: a1

    "Modified: / 11-11-2013 / 22:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_getDriveDirectory: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'getDriveDirectory(I)Ljava/lang/String;'>

    ^ self _java_io_Win32FileSystem_getDriveDirectory: this _: a1

    "Modified: / 11-11-2013 / 22:02:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_getLastModifiedTime: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'getLastModifiedTime(Ljava/io/File;)J'>

    ^ self _java_io_Win32FileSystem_getLastModifiedTime: this _: a1

    "Modified: / 11-11-2013 / 22:02:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_getLength: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'getLength(Ljava/io/File;)J'>

    ^ self _java_io_Win32FileSystem_getLength: this _: a1

    "Modified: / 11-11-2013 / 22:02:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_getSpace0: this _: a1 _: a2 

    <javanative: 'java/io/Win32FileSystem' name: 'getSpace0(Ljava/io/File;I)J'>

    ^ self _java_io_Win32FileSystem_getSpace0: this _: a1 _: a2

    "Modified: / 11-11-2013 / 22:02:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_list: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'list(Ljava/io/File;)[Ljava/lang/String;'>

    ^ self _java_io_Win32FileSystem_list: this _: a1

    "Modified: / 11-11-2013 / 22:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_listRoots0: this 

    <javanative: 'java/io/Win32FileSystem' name: 'listRoots0()I'>

    ^ self _java_io_Win32FileSystem_listRoots0: this

    "Modified: / 11-11-2013 / 22:03:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_rename0: this _: a1 _: a2 

    <javanative: 'java/io/Win32FileSystem' name: 'rename0(Ljava/io/File;Ljava/io/File;)Z'>

    ^ self _java_io_Win32FileSystem_rename0: this _: a1 _: a2

    "Modified: / 11-11-2013 / 22:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_setLastModifiedTime: this _: a1 _: a2 _: a3 

    <javanative: 'java/io/Win32FileSystem' name: 'setLastModifiedTime(Ljava/io/File;J)Z'>

    ^ self _java_io_Win32FileSystem_setLastModifiedTime: this _: a1 _: a2 _: a3

    "Modified: / 11-11-2013 / 22:03:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_setPermission: this _: a1 _: a2 _: a3 _: a4 

    <javanative: 'java/io/Win32FileSystem' name: 'setPermission(Ljava/io/File;IZZ)Z'>

    ^ self _java_io_Win32FileSystem_setPermission: this _: a1 _: a2 _: a3 _: a4

    "Modified: / 11-11-2013 / 22:03:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_Win32FileSystem_setReadOnly: this _: a1 

    <javanative: 'java/io/Win32FileSystem' name: 'setReadOnly(Ljava/io/File;)Z'>

    ^ self _java_io_Win32FileSystem_setReadOnly: this _: a1

    "Modified: / 11-11-2013 / 22:03:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_WinNTFileSystem_getDriveDirectory: this _: a1 

    <javanative: 'java/io/WinNTFileSystem' name: 'getDriveDirectory(I)Ljava/lang/String;'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_io_WinNTFileSystem_getSpace0: this _: a1 _: a2 

    <javanative: 'java/io/WinNTFileSystem' name: 'getSpace0(Ljava/io/File;I)J'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_io_WinNTFileSystem_initIDs: this 

    <javanative: 'java/io/WinNTFileSystem' name: 'initIDs()V'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_io_WinNTFileSystem_rename0: this _: a1 _: a2 

    <javanative: 'java/io/WinNTFileSystem' name: 'rename0(Ljava/io/File;Ljava/io/File;)Z'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_io_WinNTFileSystem_setLastModifiedTime: this _: a1 _: a2 _: a3 

    <javanative: 'java/io/WinNTFileSystem' name: 'setLastModifiedTime(Ljava/io/File;J)Z'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_io_WinNTFileSystem_setPermission: this _: a1 _: a2 _: a3 _: a4 

    <javanative: 'java/io/WinNTFileSystem' name: 'setPermission(Ljava/io/File;IZZ)Z'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_io_WinNTFileSystem_setReadOnly: this _: a1 

    <javanative: 'java/io/WinNTFileSystem' name: 'setReadOnly(Ljava/io/File;)Z'>

    ^ JavaVM unimplementedNativeMethodSignal raise

! !

!JavaNativeMethodImpl_OpenJDK7 class methodsFor:'native - java.lang'!

_java_lang_ClassLoader_getCaller: this _: a1 

    <javanative: 'java/lang/ClassLoader' name: 'getCaller(I)Ljava/lang/Class;'>

    "/ index 0: java.lang.ClassLoader.class

    "/ index 1: the immediate caller of index 0.

    "/ index 2: the immediate caller of index 1.

    | ctx |

    ctx := self nativeContext sender.

    a1 timesRepeat:[

        ctx := ctx sender

    ].

    ^JavaVM reflection javaClassObjectForClass: ctx receiver class theNonMetaclass

    "Modified: / 07-02-2013 / 23:35:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_lang_Thread_setNativeName: this _: a1 

    <javanative: 'java/lang/Thread' name: 'setNativeName(Ljava/lang/String;)V'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_lang_Throwable_fillInStackTrace: this _: a1 

    <javanative: 'java/lang/Throwable' name: 'fillInStackTrace(I)Ljava/lang/Throwable;'>

    | java_lang_Throwable  exceptionObject  list  con |

    java_lang_Throwable := Java classNamed: 'java/lang/Throwable'.

    exceptionObject := this.

    "/

    "/ debugging only

    "/

    (java_lang_Throwable notNil and:[(exceptionObject isKindOf: java_lang_Throwable) not]) ifTrue: [

        self error:'Thrown object is not a java.lang.Throwable'.

    ].

    con := self nativeContext sender.

    "/ Just a guess, there is no comment what the parameter means...

    a1 timesRepeat: [ con := con sender ].

    "/

    "/ we are not interrested in all intermediate Exception frames ...

    "/

    FullExceptionTrace ifFalse: [

        "/ first, skip any JavaVM contexts

        [ con receiver == exceptionObject ] whileFalse: [ con := con sender ].

        "/ then, all exception-init contexts

        [ con receiver == exceptionObject ] whileTrue: [ con := con sender ].

    ].

    list := OrderedCollection new.

    [ con notNil ] whileTrue: [

        (con isJavaContext) ifTrue: [

            "/ add a copy, in case the context continues with some

            "/ cleanup ...

            list add: con shallowCopy

        ].

        con := con sender

    ].

    exceptionObject instVarNamed: 'backtrace' put: (list asArray).

    ^ nil.

    "Modified: / 08-02-2013 / 01:28:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_lang_UNIXProcess_forkAndExec: this _: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 

    <javanative: 'java/lang/UNIXProcess' name: 'forkAndExec([B[BI[BI[B[IZ)I'>

    ^ JavaVM unimplementedNativeMethodSignal raise

! !

!JavaNativeMethodImpl_OpenJDK7 class methodsFor:'native - java.util.zip'!

_java_util_zip_ZipFile_getCommentBytes: this _: jzentry _: a2 

    <javanative: 'java/util/zip/ZipFile' name: 'getCommentBytes(J)[B'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    ^zmember fileComment asByteArray

    "Modified: / 08-02-2013 / 09:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_getEntry: this _: a1 _: a2 _: a3 _: a4 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntry(J[BZ)J'>

    "

    !!!!!!WARNING!!!!!!!!

    In Open JDK 7, it takes byte array instead of string like in Open JDK 6!!!!!!!!

    "

    | zipArchive  filename  member |

    zipArchive := self getZipArchiveAt:a1.

    filename := a3 asString.

    member := (zipArchive findMemberAllowForMissingTrailingSlash: filename).

    member isNil ifTrue: [

        ^ 0

    ] ifFalse: [

        ^ ZipEntryCache indexOf: member ifAbsent:[

            ZipEntryCache add: member.

            ZipEntryCache size.

        ]

    ]

    "Modified: / 11-02-2013 / 12:45:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_getEntryBytes: this _: jzentry _: a2 _: type 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntryBytes(JI)[B'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    type == 1 "JZENTRY_EXTRA" ifTrue:[

        ^zmember extraFieldLength == 0

            ifTrue:[nil]

            ifFalse:[zmember extraField asByteArray].

    ].

    type == 2 "JZENTRY_COMMENT" ifTrue:[

        ^zmember fileCommentLength == 0

            ifTrue:[nil]

            ifFalse:[zmember fileComment asByteArray].

    ].

    self breakPoint: #jv.

    JavaVM throwZipException: 'Unknown type in getEntryBytes()'.

!

_java_util_zip_ZipFile_getEntryCSize: this _: jzentry _: a2 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntryCSize(J)J'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    ^zmember compressedSize

    "Modified: / 08-02-2013 / 09:44:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_getEntryCrc: this _: jzentry _: a2 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntryCrc(J)J'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    ^zmember crc32

    "Modified: / 08-02-2013 / 09:45:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_getEntryFlag: this _: jzentry _: a2 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntryFlag(J)I'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    ^zmember generalPurposBitFlag

    "Modified: / 08-02-2013 / 09:42:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_getEntryMethod: this _: jzentry _: a2 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntryMethod(J)I'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    ^zmember compressionMethod

    "Modified: / 08-02-2013 / 09:44:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_getEntrySize: this _: jzentry _: a2 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntrySize(J)J'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    ^zmember uncompressedSize

    "Modified: / 08-02-2013 / 09:43:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_getEntryTime: this _: jzentry _: a2 

    <javanative: 'java/util/zip/ZipFile' name: 'getEntryTime(J)J'>

    |  zmember |

    zmember := ZipEntryCache at: jzentry.

    ^zmember lastModFileTime

    "Modified: / 08-02-2013 / 09:45:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_util_zip_ZipFile_open: this _: a1 _: a2 _: a3 _: a4 _: usemmap 

    <javanative: 'java/util/zip/ZipFile' name: 'open(Ljava/lang/String;IJZ)J'>

    "No mmap support for zip files yet, use Open JDK 6 implementation"

    ^self _java_util_zip_ZipFile_open: this _: a1 _: a2 _: a3 _: a4

    "Modified: / 23-04-2013 / 10:00:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !