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
|