"{ Package: 'stx:libjava' }"

!

!BooleanArray methodsFor:'queries'!

isInterface

    ^false

    "Created: / 31-05-2011 / 16:07:53 / 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'!

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

isJavaArrayDescriptor

^ self startsWith:$[.

! !

!CharacterArray methodsFor:'java queries'!

isJavaPrimitiveTypeDescriptor

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

! !

!Class methodsFor:'method lookup'!

box: sObj toType: type

    ^ (JavaTypeBox typeBoxForJava: type) box: sObj.

    "Created: / 06-09-2011 / 22:12:59 / Jan Kurs <kursjan@fit.cvut.cz>"

! !

!Class methodsFor:'method lookup'!

perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock

        | method  selector class args retval|

        selector := aMessage selector.

        args := aMessage arguments.

        class := receiver class.

        method := SmalltalkLookup instance lookupMethodForSelector: selector

                directedTo: class

                for: receiver

                withArguments: args

                from: sender.

        method ifNotNil:

        [  | unboxedArgs |

            unboxedArgs := self unbox: args to: method argTypes.

            retval := receiver perform: method selector withArguments: unboxedArgs.

            ^ self box: retval toType: method returnType.

        ].

        ^ aBlock value.

    "Created: / 28-09-2011 / 11:31:33 / Jan Kurs <kursjan@fit.cvut.cz>"

! !

!Class methodsFor:'method lookup'!

unbox: javaArgumentsCollection to: typesCollection

    " box smalltalk arguments collection to Java arguments "

"/    ^ stArgumentsCollection with: typesCollection collect: [ :stObject :javaType |

"/        (JavaTypeBox  javaTypeAt: javaType) box: stObject.

"/    ]

    ^ javaArgumentsCollection.

    "Created: / 25-09-2011 / 20:22:59 / Jan Kurs <kursjan@fit.cvut.cz>"

! !

!Object methodsFor:'testing'!

isJavaArray

    ^self class isJavaArrayClass

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

! !

!Object methodsFor:'testing'!

isJavaNameAndType

    "return true, if given object represents name and type struct in java constant pool"

    ^ false.

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

! !

!Object methodsFor:'testing'!

isJavaPackage

    "return true, if this is a java package.

     false is returned here - the method is only redefined in JavaPackage."

    ^ false

    "Created: / 09-08-2011 / 09:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object methodsFor:'testing'!

isJavaRef

"return true, if given object represents reference in java constant pool"

^ false.

    "Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!Object methodsFor:'autoboxing support'!

javaBox: anObject

    ^anObject

    "Created: / 15-08-2011 / 10:52:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Object methodsFor:'autoboxing support'!

javaUnbox: anObject

    ^anObject

    "Created: / 15-08-2011 / 10:52:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Set methodsFor:'javaProtocol'!

java__contains:anObject

         ^ self contains: [:el | anObject = el ] 

! !

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

! !

!UserPreferences methodsFor:'accessing-java-devel'!

javaTestsDirectory

    ^ self at: #javaTestsDirectory

        ifAbsent: 

            [ | nm |

            nm := OperatingSystem getLoginName.

             "Default path for Jan"

            (nm = 'jv' and:[OperatingSystem isUNIXlike])

                ifTrue: 

                    [ '/home/jv/Projects/libjava/sources/libjava/branches/jk_new_structure/tests' ]

                ifFalse: 

                    [ "Default path for Jan (the other one :-)"

                    nm = 'jk' 

                        ifTrue: [ 'path for Jan' ]

                        ifFalse: 

                            [ "Default path for Marcel"

                            nm = 'm' 

                                ifTrue: [ '/home/m/Projects/libjava/branches/jk_new_structure/tests' ]

                                ifFalse: 

                                    [ | "Look into package dir" p |

                                    (p := (Smalltalk getPackageDirectoryForPackage: 'stx:libjava') asFilename 

                                                / 'tests') exists 

                                        ifTrue: [ p pathName ]

                                        ifFalse: 

                                            [ | "Try the environment variable (used by Hudson)" p |

                                            (p := OperatingSystem getEnvironment: 'LIBJAVA_TESTS') notNil 

                                                ifTrue: [ p ]

                                                ifFalse: 

                                                    [ "No default, trigger an error"

                                                    self error: 'No tests path specified' ] ] ] ] ] ]

    "

        UserPreferences current javaTestsDirectory"

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

    "Modified: / 07-05-2011 / 20:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 12-05-2011 / 15:54:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-java-devel'!

javaTestsDirectory: aStringOrFilename

    self at:#javaTestsDirectory put: aStringOrFilename asString.

    "Created: / 07-05-2011 / 17:45:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ZipArchive methodsFor:'reading - java support'!

nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off

    file position0Based: zmember fileStart + startOfArchive + pos.

    ^ file nextBytes: bytesToRead into: b startingAt: off.

    "Created: / 01-05-2011 / 16:21:42 / 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: / 14-08-2011 / 22:54:38 / 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:'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'!

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

    ^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:'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.

    ^ 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>"

! !

!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 ~= 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 |

                                            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).