[Pharo-dev] ClassCommented is only announced if string is a RemoteString

Martin Dias tinchodias at gmail.com
Thu Nov 14 11:57:39 EST 2013


Ooops. Sorry. Of course, it is announced anyway, at the end.


On Thu, Nov 14, 2013 at 5:52 PM, Martin Dias <tinchodias at gmail.com> wrote:

> Hi
>
> Any idea why the "aString isKindOf: RemoteString" is there?
>
> In TClassDescription:
>
> classComment: aString stamp: aStamp
>>
>>  "Store the comment, aString or Text or RemoteString, associated with
>>> the class we are organizing.  Empty string gets stored only if had a
>>> non-empty one before."
>>
>>
>>>  | pointer header file oldCommentRemoteString oldComment oldStamp |
>>
>>  oldComment := self organization classComment.
>>
>>  oldStamp := self organization commentStamp.
>>
>>
>>> (aString isKindOf: RemoteString) ifTrue: [
>>
>>  SystemAnnouncer uniqueInstance
>>
>>  class: self
>>
>>  oldComment: oldComment
>>
>>  newComment: aString string
>>
>>  oldStamp: oldStamp
>>
>>  newStamp: aStamp.
>>
>>  ^ self organization classComment: aString stamp: aStamp].
>>
>>
>>>  oldCommentRemoteString := self organization commentRemoteStr.
>>
>>  (aString size = 0) & (oldCommentRemoteString isNil) ifTrue: [^ self
>>> organization classComment: nil].
>>
>>  "never had a class comment, no need to write empty string out"
>>
>>
>>> pointer := oldCommentRemoteString
>>
>>  ifNil: [0]
>>
>>  ifNotNil: [oldCommentRemoteString sourcePointer].
>>
>>   (file := SourceFiles at: 2) ifNotNil: [
>>
>>  file setToEnd; cr; nextPut: $!. "directly"
>>
>>  "Should be saying (file command: 'H3') for HTML, but ignoring it here"
>>
>>  header := String streamContents: [:strm | strm nextPutAll: self name;
>>
>>  nextPutAll: ' commentStamp: '.
>>
>>  aStamp storeOn: strm.
>>
>>  strm nextPutAll: ' prior: '; nextPutAll: pointer printString].
>>
>>  file nextChunkPut: header].
>>
>>   self organization
>>
>>  classComment: (RemoteString newString: aString onFileNumber: 2)
>>
>>  stamp: aStamp.
>>
>>   SystemAnnouncer uniqueInstance
>>
>>  class: self
>>
>>  oldComment: oldComment
>>
>>  newComment: aString
>>
>>  oldStamp: oldStamp
>>
>>  newStamp: aStamp
>>
>>
> (nice method eh!)
>
> Martín
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.pharo.org/pipermail/pharo-dev_lists.pharo.org/attachments/20131114/a8b62dbf/attachment-0002.html>


More information about the Pharo-dev mailing list