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

_com_sun_management_UnixOperatingSystem_initialize: 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:'native - java.awt'!

_java_awt_AWTEvent_initIDs: nativeContext

    <javanative: 'java/awt/AWTEvent' name: 'initIDs'>

    "Intentionally left blank"

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

!

_java_awt_Button_initIDs: nativeContext

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

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

!

_java_awt_Color_initIDs: nativeContext

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

        "/ new with jdk1.2 ...

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

!

_java_awt_Component_initIDs: nativeContext

    <javanative: 'java/awt/Component' name: 'initIDs'>

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

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

!

_java_awt_Container_initIDs: nativeContext

    <javanative: 'java/awt/Container' name: 'initIDs'>

    "Intentionally left blank"

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

!

_java_awt_Cursor_initIDs: nativeContext

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

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

!

_java_awt_Dialog_initIDs: nativeContext

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

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

!

_java_awt_Dimension_initIDs: nativeContext

    <javanative: 'java/awt/Dimension' name: 'initIDs'>

    "Intentionally left blank"

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

!

_java_awt_Event_initIDs: nativeContext

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

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

!

_java_awt_FontMetrics_initIDs: nativeContext

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

    ^ JavaVM unimplementedNativeMethodSignal raise

!

_java_awt_Frame_initIDs: nativeContext

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

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

!

_java_awt_Insets_initIDs: nativeContext

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

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

!

_java_awt_KeyboardFocusManager_initIDs: nativeContext

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

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

!

_java_awt_MenuComponent_initIDs: nativeContext

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

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

!

_java_awt_MenuItem_initIDs: nativeContext

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

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

!

_java_awt_Rectangle_initIDs: 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: nativeContext

    <javanative: 'java/awt/Toolkit' name: 'initIDs'>

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

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

!

_java_awt_Window_initIDs: nativeContext

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

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

! !

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

_java_awt_event_InputEvent_initIDs: 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: 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: nativeContext

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

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

! !

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

_java_io_FileDescriptor_initIDs: nativeContext

    <javanative: 'java/io/FileDescriptor' name: 'initIDs'>

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

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

!

_java_io_FileDescriptor_set: 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: nativeContext

    <javanative: 'java/io/FileDescriptor' name: 'sync'>

    "

    /**

    * 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: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'available'>

        |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: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'close0'>

    ^self commonClose: nativeContext

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

!

_java_io_FileInputStream_initIDs: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'initIDs'>

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

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

!

_java_io_FileInputStream_open: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'open'>

    |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: 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: nativeContext

    <javanative: 'java/io/FileInputStream' name: 'readBytes'>

    ^ 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: 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: nativeContext

    <javanative: 'java/io/FileOutputStream' name: 'close0'>

    ^self commonClose: nativeContext

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

!

_java_io_FileOutputStream_initIDs: nativeContext

    <javanative: 'java/io/FileOutputStream' name: 'initIDs'>

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

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