"{ Package: 'stx:libjava' }"

Object subclass:#JavaRef2

	instanceVariableNames:'valueCache constantPool'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Java-Reader-Support-new'

!

!JavaRef2 class methodsFor:'documentation'!

documentation

"

    I am parent of all reference types found in runtime constant pool. I define basic api - resolve and invalidate.

    Basic use case is to call resolve on my instance to get resolved thing, or to call invalidate to tell me,

    that world has changed and my cache is no longer valid.

    [author:]

        Marcel Hlopko <hlopkmar@fel.cvut.cz>

    [instance variables:]

        isResolved - flag telling whether instance is resolved

        valueCache - field holding resolved object

        owner - java class owning constant pool

    [class variables:]

    [see also:]

"

! !

!JavaRef2 class methodsFor:'instance creation'!

new

    "Don't call me directly"

    '[JavaRef] Dont instantiate me with new. Call my custom overriden object creation method' 

        infoPrintCR.

    ^ self basicNew initialize.

    "Modified: / 11-04-2011 / 19:44:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!JavaRef2 methodsFor:'accessing'!

constantPool

^constantPool.

    "Created: / 10-05-2011 / 17:16:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

constantPool: aJavaConstantPool

    constantPool := aJavaConstantPool.

    "Created: / 10-05-2011 / 17:16:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

isResolved

    ^ valueCache isNil not.

    "Created: / 08-04-2011 / 11:36:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 08-04-2011 / 17:39:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

name

^ self subclassResponsibility.

    "Created: / 08-04-2011 / 13:53:30 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

owner

    ^ constantPool owner.

    "Modified: / 12-05-2011 / 18:31:34 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

owner: javaClass 

    constantPool owner: javaClass.

    "Modified: / 12-05-2011 / 18:32:04 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

valueCache

    ^ valueCache.

    "Created: / 08-04-2011 / 11:37:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!JavaRef2 methodsFor:'comparing'!

= anotherJavaRef

^ self subclassResponsibility.

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

!

hash

^ self subclassResponsibility.

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

! !

!JavaRef2 methodsFor:'initialization'!

initialize

    valueCache := nil.

    super initialize.

    "Modified: / 08-04-2011 / 17:39:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!JavaRef2 methodsFor:'logging'!

info: arg 

    Transcript show: arg printString.

    "Created: / 10-05-2011 / 16:50:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

warning: arg 

    Transcript show: arg printString.

    "Created: / 10-05-2011 / 15:01:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!JavaRef2 methodsFor:'private - resolving'!

findResolvedStaticValue

    "raise an error: must be redefined in concrete subclass(es)"

    ^ self subclassResponsibility

!

findResolvedValue

    "raise an error: must be redefined in concrete subclass(es)"

    ^ self subclassResponsibility

! !

!JavaRef2 methodsFor:'queries'!

isJavaRef

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

^ true.

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

!

isNewJavaRef

    "only temporary, to know if ref is old (claus' version) or new (m version)"

    ^ true.

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

! !

!JavaRef2 methodsFor:'resolving'!

invalidate

    "Invalidate reference. Cache will be cleared and next call to resolve will cause resolving from scratch."

    valueCache := nil.

    "Created: / 08-04-2011 / 11:42:43 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 08-04-2011 / 17:39:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

invalidateForClass: internalJavaClassName 

    "Invalidate (means call invalidate) reference if it has something to do with given class (e.g Class named internalJavaClassName was unloaded).

     Return true, if reference was invalidated."

    ^ self subclassResponsibility.

    "Created: / 08-04-2011 / 15:59:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

resolve

    "

     Do it all method - resolves current reference and returns expected element (JavaMethod, JavaField etc.)

     Hides implementation details of the way of dealing with invalidation etc. User should not need to call anything

     else."

    self isResolved ifFalse: [ self findResolvedValue ].

    ^ valueCache.

    "Created: / 08-04-2011 / 11:30:21 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

resolveStatic

    "

     Do it all method - resolves current reference and returns expected element (JavaMethod, JavaField etc.)

     Hides implementation details of the way of dealing with invalidation etc. User should not need to call anything

     else."

    self isResolved ifFalse: [ self findResolvedStaticValue ].

    ^ valueCache.

    "Created: / 26-04-2011 / 13:19:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

updateClassRefsFrom: oldOwner to: newOwner 

    self owner = oldOwner ifTrue: [ self owner: newOwner. ].

    self info: 'updating class refs from: ' , oldOwner printString , ' to ' 

                , newOwner printString.

    "Created: / 10-05-2011 / 16:50:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 12-05-2011 / 18:31:25 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!JavaRef2 class methodsFor:'documentation'!

version_SVN

    ^ '$Id$'

! !