"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

Lookup subclass:#NamespaceAwareLookup

	instanceVariableNames:''

	classVariableNames:'Instance'

	poolDictionaries:''

	category:'Kernel-Extensions'

!

!NamespaceAwareLookup class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!NamespaceAwareLookup class methodsFor:'initialization'!

initialize

    Instance := self basicNew

    "Created: / 10-07-2010 / 21:12:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!NamespaceAwareLookup class methodsFor:'accessing'!

instance

    ^Instance

    "Created: / 20-05-2010 / 11:18:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 10-07-2010 / 21:12:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!NamespaceAwareLookup class methodsFor:'lookup'!

lookupMethodForSelector: selector directedTo: initialSearchClass for: receiver withArguments: argArrayOrNil from: sendingContext 

	"

%{	

    OBJ sendingMthd = __ContextInstPtr(sendingContext)->c_method;

	if (__Class(sendingMthd) == Method &&

		OBJ m = __lookup(initialSearchClass, selector);

		if (m != nil) RETURN ( m );

	}

%}.

    ^Instance lookupMethodForSelector: selector directedTo: initialSearchClass

			  for: receiver withArguments: argArrayOrNil 

			  from: sendingContext 

! !

!NamespaceAwareLookup methodsFor:'lookup'!

lookupMethodForSelector: selector directedTo: initialSearchClass for: receiver withArguments: argArrayOrNil from: sendingContext 

    "Invoked by the VM to ask me for a method to fire.

     For details, see comment inLookup>>lookupMethodForSelector:directedTo:for:withArguments:from:"

	"

%{	

    sendingMthd = __ContextInstPtr(sendingContext)->c_method;

	if (__Class(sendingMthd) == Method &&

		OBJ m = __lookup(initialSearchClass, selector);

		if (m != nil) RETURN ( m );

	}

%}.

    "If you remove C code above, uncomment the line below."

    "sendingMthd := sendingContext method."

    sendingNs := sendingMthd 

            ifNil:[nil]                

            ifNotNil:[sendingMthd nameSpace].

%{

	if (sendingNs == nil) {

		OBJ m = __lookup(initialSearchClass, selector);

		if (m != nil) RETURN ( m );

%}.

            show: 'sel='; show: selector; show: ' ns='; show: sendingNs printString; 

    seen := Set new.

    [namespaces notEmpty] whileTrue: 

        [| imports |

        methods := self 

                    lookupMethodsForSelector: selector 

                    directedTo: initialSearchClass

                    inNamespaces: namespaces.

        methods size == 1 ifTrue:

            [^methods anyOne].

        methods size >  1 ifTrue:

        "No method found"

		seen addAll: namespaces.

        namespaces do:

            [:namespace|

            namespace ifNotNil:

                [namespace imports do:

                    [:import|

					(seen includes: import) ifFalse:

						[imports add: import]]]].

    methods := self lookupMethodsForSelector: selector 

	                directedTo: initialSearchClass.

    methods size == 1 ifTrue:[^methods anyOne].

    ^nil

    "Modified: / 21-07-2010 / 17:11:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!NamespaceAwareLookup methodsFor:'lookup - helpers'!

lookupMethodsForSelector: selector directedTo: initialSearchClass 

    "Searches initialSearchClass for a methods with in any namespace"

    ^self 

        lookupMethodsForSelector: selector

        directedTo: initialSearchClass

        suchThat:[:sel :mthd|true].

    "Created: / 19-07-2010 / 15:37:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

lookupMethodsForSelector: selector directedTo: initialSearchClass inNamespaces: namespaces

    "Searches initialSearchClass for a methods with given selector in given namespaces."

    ^self 

        lookupMethodsForSelector: selector

        directedTo: initialSearchClass

        suchThat:[:sel :mthd|namespaces includes: mthd nameSpace].

    "Created: / 19-07-2010 / 15:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

lookupMethodsForSelector: selector directedTo: initialSearchClass suchThat: block

    "Searches initialSearchClass for a method with given selector in given nameSpace.

     if no method in given namespace is found, returns nil"

    | searchClass methods seen |

    searchClass := initialSearchClass.

    methods := Set new.

    seen := OrderedCollection new.

    [ searchClass notNil ] whileTrue:        

        [searchClass selectorsAndMethodsDo:

            [:sel :mthd|

            (sel selector = selector 

                and:[(seen includes: mthd nameSpace) not

                    and:[block value: sel value: mthd]]) ifTrue:

                        [methods add: mthd.

                        seen add: mthd nameSpace]].

        searchClass := searchClass superclass].

    ^methods

    "Created: / 19-07-2010 / 15:34:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 20-07-2010 / 10:42:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!NamespaceAwareLookup class methodsFor:'documentation'!

version_SVN

! !

NamespaceAwareLookup initialize!