FogBugz (Case [Issue]20525) _Inbox - EPICEA Adding polymorphic source method

Stephane Ducasse opened Case 20525: EPICEA Adding polymorphic source method and assigned it to Everyone: Enhancement in  _Inbox: Not Spam  •  You are subscribed to this case I would like to have a polymorphic API source so that we can either write at the level of the leaves or higher polymorphic code. For example the pillar fileouter is done that way: Object subclass: #EpPillarExporter uses: EpTEventVisitor instanceVariableNames: 'file stream' classVariableNames: '' package: 'EpiceaPillarOutputer' wrappedCode: aChangeEntity stream nextPutAll: '[[['; newLine. stream nextPutAll: (aChangeEntity source copyReplaceAll: Character cr asString with: OSPlatform current lineEnding). stream newLine; nextPutAll: ']]]'; newLine visitClassChange: aChange self wrappedCode: aChange visitEvent: aChange "does nothing by default" ^ self visitMethodChange: aChange self wrappedCode: aChange EPClassAddition >> source "Return the current definition. This message is polymorph for modification and methods" ^ class definitionSource EPClassModification >> source "Return the current definition. This message is polymorph for modification and methods" ^ newClass definitionSource EPMethodAddition >> source "Return the current definition. This message is polymorph for modification and methods" ^ String streamContents: [ :st | st nextPutAll: self method realClass name asString. self method isMetaSide ifTrue: [ st nextPutAll: ' class' ]. st nextPutAll: ' >> '. st nextPutAll: self method sourceCode ] EPMethodAddition >> method ^ method EPMethodModification >> method ^ self newMethod EPMethodModification >> source ^ String streamContents: [ :st | st nextPutAll: self method realClass name asString. self method isMetaSide ifTrue: [ st nextPutAll: ' class' ]. st nextPutAll: ' >> '. st nextPutAll: self method sourceCode ] I coded this in the car so once we agree I can do a pass. Priority: 5 – Fix If Time Status: Work Needed Assigned to: Everyone Milestone: Pharo7.0 Go to Case No longer need updates? Unsubscribe from this case. Don't want FogBugz notifications anymore? Update your preferences.

A FogBugz case was opened by Stephane Ducasse. Case ID: 20525 Title: EPICEA Adding polymorphic source method Status: Work Needed Category: Enhancement Project: _Inbox Area: Not Spam Priority: 5 - Fix If Time Milestone: Pharo7.0: 9/1/2017 (Past) Assigned To: Everyone URL: https://pharo.fogbugz.com/f/cases/20525 I would like to have a polymorphic API source so that we can either write at the level of the leaves or higher polymorphic code. For example the pillar fileouter is done that way: Object subclass: #EpPillarExporter uses: EpTEventVisitor instanceVariableNames: 'file stream' classVariableNames: '' package: 'EpiceaPillarOutputer' wrappedCode: aChangeEntity stream nextPutAll: '[[['; newLine. stream nextPutAll: (aChangeEntity source copyReplaceAll: Character cr asString with: OSPlatform current lineEnding). stream newLine; nextPutAll: ']]]'; newLine visitClassChange: aChange self wrappedCode: aChange visitEvent: aChange "does nothing by default" ^ self visitMethodChange: aChange self wrappedCode: aChange EPClassAddition >> source "Return the current definition. This message is polymorph for modification and methods" ^ class definitionSource EPClassModification >> source "Return the current definition. This message is polymorph for modification and methods" ^ newClass definitionSource EPMethodAddition >> source "Return the current definition. This message is polymorph for modification and methods" ^ String streamContents: [ :st | st nextPutAll: self method realClass name asString. self method isMetaSide ifTrue: [ st nextPutAll: ' class' ]. st nextPutAll: ' >> '. st nextPutAll: self method sourceCode ] EPMethodAddition >> method ^ method EPMethodModification >> method ^ self newMethod EPMethodModification >> source ^ String streamContents: [ :st | st nextPutAll: self method realClass name asString. self method isMetaSide ifTrue: [ st nextPutAll: ' class' ]. st nextPutAll: ' >> '. st nextPutAll: self method sourceCode ] I coded this in the car so once we agree I can do a pass. You are subscribed to this case. If you do not want to receive automatic notifications in the future, unsubscribe (https://pharo.fogbugz.com/default.asp?pre=preUnsubscribe&pg=pgEditBug&command=view&ixBug=20525) from this case.
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
https://lists.gforge.inria.fr/mailman/listinfo/pharo-bugtracker