"

 COPYRIGHT (c) 1996-2011 by Claus Gittinger

 New code and modifications done at SWING Research Group [1]:

 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.

 [1] Code written at SWING Research Group contains a signature

     of one of the above copright owners. For exact set of such code,

     see the differences between this version and version stx:libjava

     as of 1.9.2010

"

"{ Package: 'stx:libjava' }"

Object subclass:#JavaNativeMethodImpl_OpenJDK6

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:'JavaVMData'

	category:'Languages-Java-Support-OpenJDK6'

!

!JavaNativeMethodImpl_OpenJDK6 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1996-2011 by Claus Gittinger

 New code and modifications done at SWING Research Group [1]:

 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.

 [1] Code written at SWING Research Group contains a signature

     of one of the above copright owners. For exact set of such code,

     see the differences between this version and version stx:libjava

     as of 1.9.2010

"

!

documentation

"

    This class implements all native methods of Open JDK 6.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

        JavaVM

        JavaVMData

"

! !

!JavaNativeMethodImpl_OpenJDK6 class methodsFor:'NEW -  native -com.sun.management'!

_com_sun_management_UnixOperatingSystem_initialize: this _context: nativeContext

    <javanative: 'com/sun/management/UnixOperatingSystem' name: 'initialize()V'>

Logger log: 'mh did not set page_size here, which he should :)' severity:#info facility:#JVM.

^self.

    "Modified: / 03-11-2011 / 18:59:21 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!JavaNativeMethodImpl_OpenJDK6 class methodsFor:'NEW -  native -java.awt'!

_java_awt_AWTEvent_initIDs: this _context: nativeContext

    <javanative: 'java/awt/AWTEvent' name: 'initIDs()V'>

    "Intentionally left blank"

    "Modified: / 12-08-2011 / 19:08:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_awt_Button_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Button' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:54:34 / mh <hlopik@gmail.com>"

!

_java_awt_Color_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Color' name: 'initIDs()V'>

        "/ new with jdk1.2 ...

    "Created: / 28.1.1998 / 22:19:23 / cg"

!

_java_awt_Component_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Component' name: 'initIDs()V'>

        "/ introduced with jdk1.2 ... (sigh)

    "Created: / 27.1.1998 / 19:53:29 / cg"

!

_java_awt_Container_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Container' name: 'initIDs()V'>

    "Intentionally left blank"

    "Modified: / 12-08-2011 / 19:09:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_awt_Cursor_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Cursor' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:54:49 / mh <hlopik@gmail.com>"

!

_java_awt_Dialog_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Dialog' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:54:09 / mh <hlopik@gmail.com>"

!

_java_awt_Dimension_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Dimension' name: 'initIDs()V'>

    "Intentionally left blank"

    "Modified: / 12-08-2011 / 19:08:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_awt_Event_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Event' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:53:11 / mh <hlopik@gmail.com>"

!

_java_awt_FontMetrics_initIDs: this _context: nativeContext

    <javanative: 'java/awt/FontMetrics' name: 'initIDs()V'>

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_awt_Frame_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Frame' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:53:52 / mh <hlopik@gmail.com>"

!

_java_awt_Insets_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Insets' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:54:54 / mh <hlopik@gmail.com>"

!

_java_awt_KeyboardFocusManager_initIDs: this _context: nativeContext

    <javanative: 'java/awt/KeyboardFocusManager' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:55:04 / mh <hlopik@gmail.com>"

!

_java_awt_MenuComponent_initIDs: this _context: nativeContext

    <javanative: 'java/awt/MenuComponent' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:53:22 / mh <hlopik@gmail.com>"

!

_java_awt_MenuItem_initIDs: this _context: nativeContext

    <javanative: 'java/awt/MenuItem' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:54:40 / mh <hlopik@gmail.com>"

!

_java_awt_Rectangle_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Rectangle' name: 'initIDs()V'>

    "Intentionally left blank"

    "Modified: / 27-10-2011 / 15:07:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_awt_Toolkit_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Toolkit' name: 'initIDs()V'>

        "/ introduced with jdk1.2 ... (sigh)

    "Created: / 27.1.1998 / 19:53:50 / cg"

!

_java_awt_Window_initIDs: this _context: nativeContext

    <javanative: 'java/awt/Window' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:53:47 / mh <hlopik@gmail.com>"

! !

!JavaNativeMethodImpl_OpenJDK6 class methodsFor:'NEW -  native -java.awt.event'!

_java_awt_event_InputEvent_initIDs: this _context: nativeContext

    <javanative: 'java/awt/event/InputEvent' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:53:27 / mh <hlopik@gmail.com>"

!

_java_awt_event_KeyEvent_initIDs: this _context: nativeContext

    <javanative: 'java/awt/event/KeyEvent' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:53:33 / mh <hlopik@gmail.com>"

!

_java_awt_event_MouseEvent_initIDs: this _context: nativeContext

    <javanative: 'java/awt/event/MouseEvent' name: 'initIDs()V'>

    "Modified: / 09-02-2012 / 22:53:40 / mh <hlopik@gmail.com>"

! !

!JavaNativeMethodImpl_OpenJDK6 class methodsFor:'NEW -  native -java.io'!

_java_io_FileDescriptor_initIDs: this _context: nativeContext

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

        "/ introduced with jdk1.2 ... (sigh)

    "Created: / 27.1.1998 / 18:16:29 / cg"

!

_java_io_FileDescriptor_set: this _:a1 _context: nativeContext

    <javanative: 'java/io/FileDescriptor' name: 'set(I)J'>

    "SunJDK Speciofic method, we don't need handles, so return

     FD instead"

    ^nativeContext argAt:1

    "Modified: / 18-08-2011 / 19:54:36 / jv"

!

_java_io_FileDescriptor_sync: this _context: nativeContext

    <javanative: 'java/io/FileDescriptor' name: 'sync()V'>

    "

    /**

    * Force all system buffers to synchronize with the underlying

    * device.  This method returns after all modified data and

    * attributes of this FileDescriptor have been written to the

    * relevant device(s).  In particular, if this FileDescriptor

    * refers to a physical storage medium, such as a file in a file

    * system, sync will not return until all in-memory modified copies

    * of buffers associated with this FileDescriptor have been

    * written to the physical medium.

    *

    * sync is meant to be used by code that requires physical

    * storage (such as a file) to be in a known state  For

    * example, a class that provided a simple transaction facility

    * might use sync to ensure that all changes to a file caused

    * by a given transaction were recorded on a storage medium.

    *

    * sync only affects buffers downstream of this FileDescriptor.  If

    * any in-memory buffering is being done by the application (for

    * example, by a BufferedOutputStream object), those buffers must

    * be flushed into the FileDescriptor (for example, by invoking

    * OutputStream.flush) before that data will be affected by sync.

    *

    * @exception SyncFailedException

    *        Thrown when the buffers cannot be flushed,

    *        or because the system cannot guarantee that all the

    *        buffers have been synchronized with physical media.

    * @since     JDK1.1

    */

    public native void sync() throws SyncFailedException;

    "

    OpenFileTable do:[:stream|

        stream notNil ifTrue:[stream flush].

    ].

    "Created: / 12-11-1998 / 19:26:25 / cg"

    "Modified (format): / 10-08-2011 / 19:04:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileInputStream_available: this _context: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'available()I'>

        |file|

    file := self validateFile:(nativeContext receiver).

    file == Stdin ifTrue:[

        file := StdinReplacementFileQuerySignal raiseRequest.

        file isNil ifTrue:[

            ^ 1

        ]

    ].

    file isFileStream ifTrue:[

        ^ file size - file position + 1

    ].

    file atEnd ifTrue:[

        ^ 0.

    ].

    self halt.

    ^ 1

    "Modified: / 14-01-1998 / 15:12:52 / cg"

    "Modified: / 28-07-2012 / 02:45:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileInputStream_close0: this _context: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'close0()V'>

    ^self commonClose: nativeContext

    "Modified: / 10-08-2011 / 14:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileInputStream_close0_context: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'close0()V'>

    ^self commonClose: nativeContext

    "Modified: / 10-08-2011 / 14:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileInputStream_initIDs: this _context: nativeContext

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

        "/ introduced with jdk1.2 ... (sigh)

    "Created: / 27.1.1998 / 18:15:51 / cg"

!

_java_io_FileInputStream_open: this _:a1 _context: nativeContext

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

    |fs fd name stream fileNo|

    fs := nativeContext receiver.

    fd := fs instVarNamed:'fd'.

    (fileNo := fd instVarNamed:'fd') ~~ 0 ifTrue:[

        fileNo ~~ -1 ifTrue:[

            self halt:'file already open'.

            self internalError:'file already open'.

            ^ self.

        ]

    ].

    name := nativeContext argAt:1.

    name := Java as_ST_String:name.

    name := self fixFilename:name.

    FileOpenTrace ifTrue:[

        ('JAVA: opening ' , name) infoPrintCR.

    ].

    stream := self fileStreamForReading:name.

    stream isNil ifTrue:[

        ^ self.

    ].

    stream buffered:false.

"/    FileOpenConfirmation ifTrue:[

"/        (self confirm:('JAVA Security check\\Opening ''' , name , ''' for reading.\Grant permission ?') withCRs)

"/        ifFalse:[

"/            self throwIOExceptionWithMessage:('no permission to open ' , name , ' for reading').

"/            ^ self

"/        ]

"/    ].

    fileNo := self addOpenFile:stream.

    FileOpenTrace ifTrue:[

        ('JAVA: opened ' , name , ' as FD ' , fileNo printString) infoPrintCR.

    ].

    fd instVarNamed:'fd' put:fileNo.

    "Kludge for finalization..."

    "Created: / 04-01-1998 / 16:47:12 / cg"

    "Modified: / 28-01-1999 / 17:24:07 / cg"

    "Modified: / 24-07-2012 / 02:17:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileInputStream_read: this _context: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'read()I'>

        |file byte|

    file := self validateFile:(nativeContext receiver).

    file == Stdin ifTrue:[

        file := StdinReplacementFileQuerySignal raiseRequest.

        file isNil ifTrue:[

            ^ -1

        ]

    ].

    FileIOTrace ifTrue:[

        ('JAVA: read 1 byte from ' , file pathName) infoPrintCR.

    ].

    byte := file nextByte.

    byte isNil ifTrue:[

        ^ -1

    ].

    "Java bytes are signed"

    byte > 127 ifTrue:[

        byte := 

            byte"/ - 255.

    ].

    ^ byte

    "Created: / 05-01-1998 / 02:17:08 / cg"

    "Modified (format): / 12-12-2012 / 23:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileInputStream_readBytes: this _:a1 _: a2 _: a3 _context: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'readBytes([BII)I'>

    ^ self anyStream_readBytes: nativeContext

    "Modified: / 04-02-1998 / 15:23:08 / cg"

    "Modified (format): / 10-08-2011 / 21:32:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

_java_io_FileInputStream_skip: this _:a1 _: a2 _context: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'skip(J)J'>

        "/ long skip (long)

    |file nSkip nSkipped|

    file := self validateFile:(nativeContext receiver).

    nSkip := nativeContext argAt:1.

    file == Stdin ifTrue:[

        file := StdinReplacementFileQuerySignal raiseRequest.

        file isNil ifTrue:[

            ^ -1

        ]

    ].

    FileIOTrace ifTrue:[

        (('JAVA: skip %1 byte(s) from ' bindWith:nSkip printString) , file pathName) infoPrintCR.

    ].

    file skip:nSkip.

    ^ nSkip

    "Modified: / 27.1.1999 / 20:36:11 / cg"

!

_java_io_FileOutputStream_close0: this _context: nativeContext