"{ Package: 'stx:libjava' }"!

!Behavior methodsFor:'queries'!

isInterface

    "return true, if the receiver is a Java interface"

    ^ false

    "

     True isInterface

    "

    "Created: / 22-02-2012 / 21:53:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Behavior methodsFor:'queries'!

isJavaPrimitiveType

    ^false

    "Created: / 20-12-2010 / 21:52:11 / 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:'queries'!

javaArrayClass

    ^ BooleanArray

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

! !

!Boolean class methodsFor:'autoboxing support'!

javaBox: anObject

    | wrapper |

    wrapper := (JavaVM classForName: 'java.lang.Boolean') new.

    wrapper perform: #'<init>(Z)V' with: anObject.

    ^ wrapper

    "Created: / 16-08-2011 / 09:58:40 / 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>"

! !

!Boolean class methodsFor:'autoboxing support'!

javaUnbox: object onError: errorBlock

    | value |

    (object class name = 'java/lang/Boolean') ifFalse:[

        errorBlock value.

    ].

    value := object instVarNamed: #value.

    (value ~~ 0 and:[value ~~ 1]) ifTrue:[

        errorBlock value.

    ].

    ^value

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

! !

!Boolean class methodsFor:'autoboxing support'!

javaUnwrap: zeroOrOne

    ^zeroOrOne == 1

    "Created: / 10-12-2011 / 20:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Boolean class methodsFor:'autoboxing support'!

javaWrap: boolean

    ^boolean ifTrue:[1] ifFalse:[0].

    "Created: / 18-03-2012 / 22:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Boolean class methodsFor:'accessing'!

javaWrapperClass

    ^(Java classForName: 'java.lang.Boolean')

    "Created: / 24-02-2012 / 19:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BooleanArray methodsFor:'queries'!

isInterface

    ^false

    "Created: / 31-05-2011 / 16:07:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BooleanArray class methodsFor:'testing'!

isInterface

    ^false

! !

!BooleanArray class methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 20-12-2010 / 22:47:09 / 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'!

javaArrayClass

    ^ JavaArray javaArrayClassFor: self

    "Created: / 06-12-2011 / 17:29:22 / Marcel Hlopko <hlopkmar@fel.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

    ^'[Z'.

    "Modified: / 31-08-2011 / 23:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ByteArray class methodsFor:'testing'!

isInterface

    ^false

! !

!ByteArray class methodsFor:'queries'!

isJavaArrayClass

    ^true

    "Created: / 05-02-2011 / 22:45:43 / 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'!

javaArrayClass

    ^JavaArray javaArrayClassFor: self

    "Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ByteArray class methodsFor:'accessing-java'!

javaComponentClass

    ^JavaByte

    "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:'queries'!

isJavaPrimitiveType

    ^true

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

! !

!Character class methodsFor:'accessing'!

javaArrayClass

    ^ String

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

! !

!Character class methodsFor:'autoboxing support'!

javaBox: anObject

    | wrapper |

    wrapper := (JavaVM classForName: 'java.lang.Character') new.

    wrapper perform: #'<init>(C)V' with: anObject codePoint.

    ^ wrapper

    "Created: / 16-08-2011 / 09:58:40 / 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>"

! !

!Character class methodsFor:'autoboxing support'!

javaUnbox: object onError: errorBlock

    | value |

    (object class name = 'java/lang/Character') ifFalse:[

        errorBlock value.

    ].

    value := object instVarNamed: #value.

    (value between: 0 and: 255) ifFalse:[

        errorBlock value.

    ].

    ^value

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

! !

!Character class methodsFor:'accessing'!

javaWrapperClass

    ^(Java classForName: 'java.lang.Character')

    "Created: / 24-02-2012 / 19:42:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CharacterArray methodsFor:'java conversions'!

asDottedJavaClassName

 "

    examples:

    java.lang.String

    [[[Ljava/lang/Object; => java.lang.Object

    "

    | nm |

    nm := self asJavaComponentClassName.

    (nm startsWith: $L) ifTrue: [

	nm := nm copyFrom: 2 to: nm size - 1

    ].

    (nm includes: $/) ifTrue: [

	nm := nm asString copyReplaceAll: $/ with: $.

    ].

    ^ nm.

    "Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Created: / 30-10-2011 / 17:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CharacterArray methodsFor:'java conversions'!

asInternalJavaClassName

    <resource: #obsolete>

    ^self asSlashedJavaClassName

    "Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 30-10-2011 / 17:40:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CharacterArray methodsFor:'java conversions'!

asJavaComponentClassName

    | componentClassName |

    componentClassName := self utf8Encoded.

    (componentClassName matches: '*\[*') ifTrue: [

	componentClassName := componentClassName

		    copyFrom: (componentClassName lastIndexOf: $[) + 1

		    to: componentClassName size.

    ].

    ^ componentClassName.

! !

!CharacterArray methodsFor:'java conversions'!

asJavaishClassName

    <resource: #obsolete>

    ^self asDottedJavaClassName.

    "Created: / 21-10-2011 / 12:33:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 30-10-2011 / 17:41:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CharacterArray methodsFor:'java conversions'!

asNiceJavaClassName

    | niceName |

    niceName := self asJavaComponentClassName asSTXInternalJavaClassName.

    (self occurrencesOf: $[) timesRepeat: [ niceName := niceName , '[]' ].

    niceName := niceName asString copyReplaceAll: $/ with: $..

    ^ niceName.

! !

!CharacterArray methodsFor:'java conversions'!

asSTXInternalJavaClassName

    | internalName |

    internalName := self asJavaComponentClassName.

    (internalName startsWith: $L) ifTrue: [

	internalName := internalName copyFrom: 2 to: internalName size - 1

    ].

    (internalName includes: $.) ifTrue: [

	internalName := internalName asString copyReplaceAll: $. with: $/

    ].

    ^internalName.

! !

!CharacterArray methodsFor:'java conversions'!

asSlashedJavaClassName

    "removes square brackets and adds slashes"

    | internalName |

    internalName := self asJavaComponentClassName.

    (internalName startsWith: $L) ifTrue: [

	internalName := internalName copyFrom: 2 to: internalName size - 1

    ].

    (internalName includes: $.) ifTrue: [

	internalName := internalName asString copyReplaceAll: $. with: $/

    ].

    ^ internalName.

    "Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Created: / 30-10-2011 / 17:40:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CharacterArray methodsFor:'java queries'!

isJavaArrayDescriptor

^ self startsWith:$[.

! !

!CharacterArray methodsFor:'java queries'!

isJavaPrimitiveTypeDescriptor

    ^ (self size = 1 and: [ JavaDescriptor baseTypes includesKey: self first ]).

! !

!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 < 16

                                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 < 16"was: 32"

                                ifTrue: [ string := Unicode16String"was: 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 |

                                            string bitsPerCharacter < 32

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

                                            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"