Has anyone built a source code tool to extract a specific argument from specific message sends?

*Steve* 

On Sunday, September 22, 2019 at 9:39:31 AM UTC-5, Steven LaFavor wrote:

Does the symbol actually represent a Smalltalk message that will be performed or invoked?  If not, you could consider converting them into instances of EsAtom (##notAMessageButSomeSortOfState) so that you don't need to maintain the packagerKnownSymbols method at all.....

*Steve* 

    symbols := Set new.
    searcher := ParseTreeSearcher new.
    searcher
        answer: false;
        matches: 'self gbsMessenger
        statusTag: `@symbol
        message: `@message
        with: `@first
        with: `@second
        with: `@third'
        do: [:node :answer | | literalValue |
            literalValue := node  arguments first value.
            literalValue isSymbol
                ifTrue: [symbols add: literalValue].
            false].

    SmalllintChecker newWithContext
        rule: (
            TransformationRule new
                rewriteUsing: searcher;
                yourself);
        environment: (
            ClassEnvironment
                onEnvironment: BrowserEnvironment new
                classes: ((System loadedApplications select: [:app | app name beginsWith: #Gb ] )
                inject: OrderedCollection new into: [:classes :app |
                    app withAllSubApplications do: [:subapp |
                classes addAll: subapp defined;yourself ].
            classes]));
        run.
        symbols

On Friday, September 20, 2019 at 9:12:13 PM UTC-3, Richard Sargent wrote:

I have a lot of methods which send messages similar to the following, but with varying numbers of arguments. I want to be able to automatically extract the symbols used as the argument to the #statusTag: keyword (to be able to keep a #packagerKnownSymbols implementation up to date).

    self gbsMessenger
        statusTag: #atOop:putClient:
        message: '%1 atOop: %2 putClient: %3'
        with: self
        with: (oop printStringRadix: 16)
        with: obj identityHash.

Any such tool or script would be welcome. Absent such a result, guidance on doing so effectively would also be appreciated.

On Sunday, September 22, 2019 at 12:20:42 PM UTC-7, Steven LaFavor wrote:

On Sunday, September 22, 2019 at 9:39:31 AM UTC-5, Steven LaFavor wrote:

Does the symbol actually represent a Smalltalk message that will be performed or invoked?  If not, you could consider converting them into instances of EsAtom (##notAMessageButSomeSortOfState) so that you don't need to maintain the packagerKnownSymbols method at all.....

*Steve* 

 

Something was bothering me when I wrote this message, and in looking at it again, I now see the string in the message: argument that actually *is* the invocation of the method, so please ignore my response.

*Steve*

On Monday, September 23, 2019 at 5:04:04 AM UTC-7, Gabriel Cotelli wrote:

Richard, something like this should do the trick:

    | searcher symbols|

    symbols := Set new.
    searcher := ParseTreeSearcher new.
    searcher
        answer: false;
        matches: 'self gbsMessenger
        statusTag: `@symbol
        message: `@message
        with: `@first
        with: `@second
        with: `@third'
        do: [:node :answer | | literalValue |
            literalValue := node  arguments first value.
            literalValue isSymbol
                ifTrue: [symbols add: literalValue].
            false].

    SmalllintChecker newWithContext
        rule: (
            TransformationRule new
                rewriteUsing: searcher;
                yourself);
        environment: (
            ClassEnvironment
                onEnvironment: BrowserEnvironment new
                classes: ((System loadedApplications select: [:app | app name beginsWith: #Gb ] )
                inject: OrderedCollection new into: [:classes :app |
                    app withAllSubApplications do: [:subapp |
                classes addAll: subapp defined;yourself ].
            classes]));
        run.
        symbols

On Friday, September 20, 2019 at 9:12:13 PM UTC-3, Richard Sargent wrote:

I have a lot of methods which send messages similar to the following, but with varying numbers of arguments. I want to be able to automatically extract the symbols used as the argument to the #statusTag: keyword (to be able to keep a #packagerKnownSymbols implementation up to date).

    self gbsMessenger
        statusTag: #atOop:putClient:
        message: '%1 atOop: %2 putClient: %3'
        with: self
        with: (oop printStringRadix: 16)
        with: obj identityHash.

Any such tool or script would be welcome. Absent such a result, guidance on doing so effectively would also be appreciated.