"{ Package: 'stx:libjava' }"

!

!BooleanArray methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 20-12-2010 / 22:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ByteArray methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 20-12-2010 / 22:47:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!DoubleArray methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 20-12-2010 / 22:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!FloatArray methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 20-12-2010 / 22:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object methodsFor:'testing'!

isJavaArray

    ^self class isJavaArrayClass

    "Created: / 19-12-2010 / 17:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!String methodsFor:'converting'!

asArrayOfSubstringsSeparatedBy:aSeparator 

    "Modified version of asArrayOfSubstrings"

    |substrings start end|

    substrings := OrderedCollection new.

    start := 1.

    [start <= self size] whileTrue:[

        (self at:start) = aSeparator ifFalse:[

            end := start + 1.

            [

                end <= self size and:[(self at:end) ~= aSeparator]

            ] whileTrue:[end := end + 1].

            substrings add:(self copyFrom:start to:end - 1).

            start := end - 1

        ].

        start := start + 1

    ].

    ^ substrings asArray

    "Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"

    "Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"

! !

!ZipArchive methodsFor:'java-compatibility'!

> aNum 

    "Dirty and ugly - in jvm, refs are passed by a long pointer, and testing if ref is null is done by comparing pointer with 0.

    so this is how we can pretend to be pointer and ref together :)"

    ^ true.

    "Created: / 27-03-2011 / 16:58:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!Boolean class methodsFor:'queries'!

arrayClass

    ^BooleanArray

    "Created: / 25-02-2011 / 08:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Boolean class methodsFor:'queries'!

isJavaPrimitiveType

    ^true

    "Created: / 25-02-2011 / 08:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Boolean class methodsFor:'accessing'!

javaName

    ^'boolean'.

    "Modified: / 25-02-2011 / 18:58:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BooleanArray class methodsFor:'queries'!

isJavaReferenceType

    "Java arrays are reference types"

    ^true

    "Created: / 20-12-2010 / 22:30:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BooleanArray class methodsFor:'accessing-java'!

javaComponentClass

    ^Boolean

    "Created: / 20-12-2010 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BooleanArray class methodsFor:'accessing'!

javaName

    ^'[X'.

    "Modified: / 25-02-2011 / 19:03:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ByteArray class methodsFor:'queries'!

isJavaReferenceType

    "Java arrays are reference types"

    ^true

    "Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ByteArray class methodsFor:'accessing-java'!

javaComponentClass

    ^Byte

    "Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ByteArray class methodsFor:'accessing'!

javaName

    ^'[B'.

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

! !

!Character class methodsFor:'* As yet uncategorized *'!

arrayClass

    ^String

    "Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Character class methodsFor:'queries'!

isJavaPrimitiveType

    ^true

    "Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Character class methodsFor:'accessing'!

javaName

    ^'char'.

    "Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CharacterArray class methodsFor:'encoding & decoding'!

decodeFromJavaUTF8: bytes 

    "Decodes a string from modified UTF8 encoding

     as used in Java .class files. see

     'The class file format specification', section 4.5.7"

    | string  i  s  b  codePoint  realLength |

    string := String new: bytes size.

    realLength := bytes size.

    s := bytes readStream.

    i := 1.

    [ s atEnd ] whileFalse: 

            [ b := s next.

            (b & 2r10000000) == 0 

                ifTrue: [ codePoint := b ]

                ifFalse: 

                    [ self assert: (b & 2r01000000) = 2r01000000.

                    (b & 2r00100000) = 0 

                        ifTrue: 

                            [ "two byte utf char"

                            realLength := realLength - 1.

                            self assert: s size > 0.

                            self assert: (b & 2r01000000) = 2r01000000.

                            string bitsPerCharacter = 8 

                                ifTrue: [ string := Unicode16String fromString: string ].

                            codePoint := (b & 2r00011111) << 6.

                            b := s next.

                            self assert: (b & 2r11000000) = 2r10000000.

                            codePoint := codePoint + (b & 2r00111111). ]

                        ifFalse: 

                            [ "at lease 3 byte utf char"

                            realLength := realLength - 2.

                            string bitsPerCharacter ~= 32 

                                ifTrue: [ string := Unicode32String fromString: string ].

                            self assert: s size > 1.

                            (b & 2r00010000) = 0 

                                ifTrue: 

                                    [ | utf32Possible  utf32Value |

                                    "3 or 6 byte utf char"

                                    self assert: s size > 1.

                                    s size < 5 

                                        ifTrue: [ utf32Possible := false ]

                                        ifFalse: [ utf32Possible := true ].

                                    b ~= 2r11101101 ifTrue: [ utf32Possible := false ].

                                    codePoint := (b & 2r00001111) << 12.

                                    b := s next.

                                    self assert: (b & 2r11000000) = 2r10000000.

                                    ((b & 2r11110000) = 2r10100000 and: [ utf32Possible ]) 

                                        ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]

                                        ifFalse: [ utf32Possible := false ].

                                    codePoint := codePoint + ((b & 2r00111111) << 6).

                                    b := s next.

                                    self assert: (b & 2r11000000) = 2r10000000.

                                    utf32Possible 

                                        ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].

                                    codePoint := codePoint + (b & 2r00111111).

                                    utf32Possible 

                                        ifTrue: 

                                            [ | tmpB |

                                            tmpB := s copy.

                                            b := tmpB next.

                                            b = 2r11101101 

                                                ifTrue: 

                                                    [ b := tmpB next.

                                                    (b & 2r11110000) = 2r10110000 

                                                        ifTrue: 

                                                            [ utf32Value := utf32Value + ((b & 2r00001111) << 6).

                                                            b := tmpB next.

                                                            self assert: (b & 2r11000000) = 2r10000000.

                                                            utf32Value := utf32Value + (b & 2r00111111).

                                                            codePoint := utf32Value.

                                                            realLength := realLength - 3. s position: tmpB position.] ] ] ]

                                ifFalse: 

                                    [ "should not happen, ask mh"

                                    self halt. ] ] ].

            string at: i put: (Character codePoint: codePoint).

            i := i + 1. ].

    ^ string subString: 1 to: realLength.

    "

        String decodeFromJavaUTF8: 'Hello world' asByteArray"

    "Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-02-2011 / 11:42:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"

    "Modified: / 13-03-2011 / 15:52:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!CharacterArray class methodsFor:'instance creation'!

fromJavaUTF8Bytes:aByteCollection

    "return a new string which represents the characters as decoded

     from the modified utf8 encoded bytes as specified in 

     The class file format specification, section 4.5.7"

    ^ self decodeFromJavaUTF8:aByteCollection.

    "

     CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]

     CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]

     CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]

     CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]

   rfc2279 examples:

     CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]

     CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]

     CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]

   invalid:

     CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]

     CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]

    "

    "Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!DoubleArray class methodsFor:'queries'!

isJavaReferenceType

    "Java arrays are reference types"

    ^true

    "Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!DoubleArray class methodsFor:'accessing-java'!

javaComponentClass

    ^Float

    "Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!DoubleArray class methodsFor:'accessing'!

javaName

    ^'[D'.

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

! !

!Float class methodsFor:'accessing'!

arrayClass

    ^DoubleArray

    "Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Float class methodsFor:'queries'!

isJavaPrimitiveType

    ^true

    "Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Float class methodsFor:'accessing'!

javaName

    ^'double'.

    "Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!FloatArray class methodsFor:'queries'!

isJavaReferenceType

    "Java arrays are reference types"

    ^true

    "Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!FloatArray class methodsFor:'accessing-java'!

javaComponentClass

    ^ShortFloat

    "Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!FloatArray class methodsFor:'accessing'!

javaName

    ^'[F'.

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

! !

!GenericToolbarIconLibrary class methodsFor:'image specs'!

javaClassBrowserIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self javaClassBrowserIcon inspect

     ImageEditor openOnClass:self andSelector:#javaClassBrowserIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'GenericToolbarIconLibrary class javaClassBrowserIcon'

        ifAbsentPut:[(Depth24Image new) width: 13; height: 11; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@96<@96<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@96<@96<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@96<@96<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@96<@96<@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@96<@96<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@96<@96<@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@96<@96<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@96<@96<@96<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@96<@96<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@\CA0LG@0\CA0LG@0\CA0\GA \@A0@a') ; yourself); yourself]

! !

!Integer class methodsFor:'accessing'!

arrayClass

    ^IntegerArray

    "Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Integer class methodsFor:'queries'!

isJavaPrimitiveType

    ^true

    "Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Integer class methodsFor:'accessing'!

javaName

    ^'int'.

    "Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!IntegerArray class methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!IntegerArray class methodsFor:'accessing'!

javaName

    ^'[I'.

    "Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LargeInteger class methodsFor:'accessing'!

arrayClass

    ^LongIntegerArray

    "Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LargeInteger class methodsFor:'queries'!

isJavaPrimitiveType

    ^true

    "Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LargeInteger class methodsFor:'accessing'!

javaName

    ^'long'.

    "Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LongIntegerArray class methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LongIntegerArray class methodsFor:'queries'!

isJavaReferenceType

    "Java arrays are reference types"

    ^true

    "Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LongIntegerArray class methodsFor:'accessing-java'!

javaComponentClass

    ^LargeInteger

    "Created: / 20-12-2010 / 22:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LongIntegerArray class methodsFor:'accessing'!

javaName

    ^'[J'.

    "Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object class methodsFor:'queries'!

isJavaArrayClass

    ^false

    "Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object class methodsFor:'queries'!

isJavaClassType

    ^false

    "Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object class methodsFor:'queries'!

isJavaPrimitiveType

    ^false

    "Created: / 20-12-2010 / 21:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object class methodsFor:'queries'!

isJavaReferenceType

    ^false

    "Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object class methodsFor:'queries'!

isJavaType

    ^false