Why the names of CS change?

Javier Diaz javier_diaz_r at mac.com
Wed Mar 21 23:08:15 UTC 2001


I run this fragment in a workplace:

SqCnames _ ChangeSorter gatherChangeSets
	collect: [:each |
		(each name startsWithDigit)
			ifTrue: [each name copyFrom: 5 to: (each name) size]]
	thenSelect: [:x | x notNil].

This select the CS with a number, that is the 'oficial' CSs, in my 
image (update  3848) I have 240 CSs.
Then I run this:

|changesFile n chunk line words mySet|
changesFile _ (SourceFiles at: 2) readOnlyCopy.
changesFile position: 0.
n _ 0.
[changesFile atEnd] whileFalse: [
	chunk _ changesFile nextChunk.
	(chunk size > 12) ifTrue: [
		((chunk copyFrom: 1 to: 12) = '"Change Set:') ifTrue: [
			line _ chunk upTo: (Character cr).
			words _ (line findTokens: ' ') at: 2.
			mySet _ (words findTokens: (Character tab)) at: 2.
			(SqCnames includes: mySet) ifFalse:
				[Transcript show: mySet; cr.
				n _ n+1.].
		].
	].
].
changesFile close.
n

I was expecting for about 5 CS, including '3499EndOfVersion3-0' but I 
obtain 107 (of 230 CS), this is because the names are changed like 
this:
(changesFile) =======> (ChangeSet)
MacVMSourceChanges3.0.7JMM -> 'MacVMSourceChgs3-0-7JMM'
FixTextUpdate -> 'FixTextUpdate-di'
suntax2 -> 'suntax2-raa'

Why?

Javier Diaz-Reinoso





More information about the Squeak-dev mailing list