Hi,
Small experiment:
1) add this method to Object:
deprecated: anExplanationString rule: aRule
| builder ast rewriteRule method |
builder := RBCompositeRefactoryChange named: 'deprecation'.
method := thisContext sender sender method.
ast := method ast copy.
rewriteRule := RBParseTreeRewriter new replace: aRule key with: aRule
value.
(rewriteRule executeTree: ast) ifTrue: [
builder compile: rewriteRule tree formattedCode in: method methodClass
classified: method protocol ].
builder execute.
2) to see it in action, add it to #ifNotNilDo: in UndefinedObject:
ifNotNilDo: aBlock
"Please use #ifNotNil: instead"
self
deprecated: 'Please use #ifNotNil: instead'
rule: '`@receiver ifNotNilDo: `@statements'-> '`@receiver
ifNotNil: `@statements'.
^ self
—> open a browser and see how it fixes code magically.
The only problem is that it does a whole-method refactoring while it should
only affect the node
that triggered the deprecation. Else there could be wrong transformations if
the same selector
is used but only one of the implementations need to be rewritten, while if we
are able to rewrite
the exact sender, we can do it fully automatically.
Marcus
