[Help-smalltalk] [GOODIE] !ClassDescription methodsFor: 'code-generation'!

[Markus Fritsche]

This little source file should assist in writing getters and setters. 
Just file it in and say "MyClass publish" and you'll get a string 
containing all getters and setters.

Feedback welcome!

Regards, Markus

!ClassDescription methodsFor: 'code-generation'!
publish
    | stream |
    stream := WriteStream on: String new.
    self publishOn: stream.
    ^stream contents.
!
publishOn: stream
    | vars | 
    vars := self instanceVariableString substrings.
    vars addAll: (self classVariableString substrings).
    vars do: [ :var | 
        stream      nextPutAll: '!', self name asString;
            nextPutAll: ' methodsFor: ''accessing''!'; cr;
            nextPutAll: var; cr;
            nextPutAll: '  "generated source"'; cr;
            nextPutAll: '    ^',var; cr; 
            nextPutAll: '! !'; cr; cr;
            nextPutAll: '!', self name asString;
            nextPutAll: ' methodsFor: ''accessing''!'; cr;
            nextPutAll: var, ': anObject'; cr;
            nextPutAll: '  "generated source"'; cr;
            nextPutAll: '    ', var, ' := anObject'; cr;
            nextPutAll: '! !'; cr; cr.
        ].
! !