hg/stx-libbasic3: ChangeSet.st@882e07ee86bd (annotated)

3 263f814933d4 * empty log message * claus parents: 0 diff changeset	1	"
263f814933d4 * empty log message * claus parents: 0 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	3	All Rights Reserved
3 263f814933d4 * empty log message * claus parents: 0 diff changeset	4
263f814933d4 * empty log message * claus parents: 0 diff changeset	5	This software is furnished under a license and may be used
263f814933d4 * empty log message * claus parents: 0 diff changeset	6	only in accordance with the terms of that license and with the
263f814933d4 * empty log message * claus parents: 0 diff changeset	7	inclusion of the above copyright notice. This software may not
263f814933d4 * empty log message * claus parents: 0 diff changeset	8	be provided or otherwise made available to, or used by, any
263f814933d4 * empty log message * claus parents: 0 diff changeset	9	other person. No title to or ownership of the software is
263f814933d4 * empty log message * claus parents: 0 diff changeset	10	hereby transferred.
263f814933d4 * empty log message * claus parents: 0 diff changeset	11	"
921 fa4db05c887b oops - nameSpace prefix handling needed fix due Claus Gittinger <cg@exept.de> parents: 916 diff changeset	12	"{ Package: 'stx:libbasic3' }"
fa4db05c887b oops - nameSpace prefix handling needed fix due Claus Gittinger <cg@exept.de> parents: 916 diff changeset	13
0 470788421600 Initial revision claus parents: diff changeset	14	OrderedCollection subclass:#ChangeSet
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	15	instanceVariableNames:'changedClasses changeSelectors name'
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	16	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	17	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	18	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	19	!
470788421600 Initial revision claus parents: diff changeset	20
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	21	Object subclass:#ChangeFileReader
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	22	instanceVariableNames:'inputStream parseTree changeAction changeSet selector receiver
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	23	arguments receiverSelector receiverReceiver lineNumber position
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	24	className methodSelector'
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	25	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	26	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	27	privateIn:ChangeSet
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	28	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	29
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	30	Error subclass:#ChangeProcessingError
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	31	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	32	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	33	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	34	privateIn:ChangeSet
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	35	!
b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	36
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	37	Object subclass:#DiffSet
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	38	instanceVariableNames:'changed onlyInReceiver onlyInArg'
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	39	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	40	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	41	privateIn:ChangeSet
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	42	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	43
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	44	ChangeSet::ChangeFileReader subclass:#DolphinPACFileReader
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	45	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	46	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	47	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	48	privateIn:ChangeSet
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	49	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	50
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	51	ChangeSet::ChangeProcessingError subclass:#InvalidChangeChunkError
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	52	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	53	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	54	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	55	privateIn:ChangeSet
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	56	!
b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	57
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	58	ChangeSet::ChangeFileReader subclass:#SIFChangeFileReader
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	59	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	60	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	61	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	62	privateIn:ChangeSet
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	63	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	64
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	65	!ChangeSet class methodsFor:'documentation'!
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	66
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	67	copyright
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	68	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	69	COPYRIGHT (c) 1993 by Claus Gittinger
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	70	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	71
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	72	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	73	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	74	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	75	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	76	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	77	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	78	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	79	!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	80
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	81	documentation
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	82	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	83	used in the changes management to keep track of changes
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	84
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	85	[author:]
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	86	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	87	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	88	! !
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	89
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	90	!ChangeSet class methodsFor:'instance creation'!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	91
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	92	forExistingClass:aClass
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	93	"build a changeSet for some given class, all of its private classes
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	94	and all extensions if any.
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	95	I.e. a changeSet which represents the existing class in the image.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	96	That does of course not give deltas, but instead reflects the current
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	97	state of the given class.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	98	It is useful in conjunction with the other utility methods,
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	99	for example, when building patchLists, diffSets, comparing etc."
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	100
1954 521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	101	\|changeSet s changeObject\|
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	102
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	103	s := ReadWriteStream on:''.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	104	aClass fileOutOn:s.
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	105	s reset.
a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	106	changeSet := self fromStream:s.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	107
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	108	"/ fetch the real package info...
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	109	changeSet do:[:eachChange \|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	110	eachChange isMethodChange ifTrue:[
1954 521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	111	changeObject := eachChange changeMethod.
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	112	changeObject notNil ifTrue:[
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	113	eachChange package:changeObject package
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	114	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	115	] ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	116	eachChange isClassChange ifTrue:[
1954 521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	117	changeObject := eachChange changeClass.
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	118	changeObject notNil ifTrue:[
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	119	eachChange package:changeObject package
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	120	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	121	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	122	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	123	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	124
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	125	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	126
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	127	"/ \|source changeSet chunk sawExcla lastTimeStamp s change nameSpace\|
a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	128
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	129	"/ changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	130	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	131	"/ "/ first, a classDefinition change ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	132	"/ changeSet addClassDefinitionChangeFor:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	133	"/ "/ are there any class-instVars ?
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	134	"/ aClass class instVarNames size > 0 ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	135	"/ changeSet addInstVarDefinitionChangeFor:aClass class.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	136	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	137	"/ "/ a comment ?
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	138	"/ aClass comment size > 0 ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	139	"/ changeSet addClassCommentChangeFor:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	140	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	141	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	142	"/ "/ class methods first ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	143	"/ aClass class methodDictionary keysAndValuesDo:[:sel :mthd \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	144	"/ changeSet addMethodChange:mthd in:aClass class.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	145	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	146	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	147	"/ "/ instance methods ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	148	"/ aClass methodDictionary keysAndValuesDo:[:sel :mthd \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	149	"/ changeSet addMethodChange:mthd in:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	150	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	151	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	152	"/ ^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	153
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	154
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	155	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	156	ChangeSet forExistingClass:ChangeSet
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	157	ChangeSet forExistingClass:A
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	158
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	159	Rectangle hasExtensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	160	ChangeSet forExistingClass:Rectangle
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	161	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	162
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	163	"Created: / 16-02-1998 / 12:19:34 / cg"
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	164	"Modified: / 12-10-2006 / 23:45:14 / cg"
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	165	!
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	166
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	167	forExistingClass:aClass withExtensions:withExtensions extensionsOnly:extensionsOnly
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	168	"build a changeSet for some given full class, the base-class or the extensions only,
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	169	as specified by the with-arguments.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	170	That does of course not give deltas, but instead reflects the current
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	171	state of the given class.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	172	It is useful in conjunction with the other utility methods,
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	173	for example, when building patchLists, diffSets etc."
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	174
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	175	\|changeSet classPackage\|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	176
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	177	changeSet := self forExistingClass:aClass.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	178	classPackage := aClass package.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	179
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	180	extensionsOnly ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	181	^ changeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	182	select:[:change \|
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	183	change isMethodChange and:[ change package ~= classPackage ]
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	184	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	185	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	186	withExtensions ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	187	^ changeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	188	reject:[:change \|
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	189	change isMethodChange and:[ change package ~= classPackage ]
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	190	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	191	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	192
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	193	^ changeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	194
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	195	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	196	ChangeSet forExistingClass:ChangeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	197
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	198	Rectangle hasExtensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	199	Rectangle extensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	200
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	201	ChangeSet forExistingClass:Rectangle withExtensions:true extensionsOnly:false
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	202	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:false
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	203	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:true
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	204	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	205
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	206	"Created: / 12-10-2006 / 18:13:02 / cg"
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	207	"Modified: / 12-10-2006 / 23:46:05 / cg"
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	208	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	209
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	210	forExistingMethods:aCollectionOfMethods
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	211	"build a changeSet for a collection of methods.
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	212	That does of course not give deltas, but instead reflects the current
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	213	state of the given set of methods.
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	214	It is useful in conjunction with the other utility methods,
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	215	for example, when building patchLists, diffSets etc."
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	216
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	217	\|changeSet stream previousPackage\|
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	218
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	219	changeSet := self new.
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	220	aCollectionOfMethods do:[:eachMethod \|
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	221	\|change\|
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	222
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	223	change := MethodDefinitionChange new.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	224	eachMethod mclass notNil ifTrue:[ change className:eachMethod mclass name ].
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	225	change source:eachMethod source.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	226	change selector:eachMethod selector.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	227	change package:(eachMethod package).
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	228	change category:(eachMethod category).
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	229	changeSet add:change.
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	230	].
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	231
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	232	"/ stream := ReadWriteStream on:''.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	233	"/ aCollectionOfMethods do:[:eachMethod \|
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	234	"/ previousPackage ~= eachMethod package ifTrue:[
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	235	"/ stream nextPutAll:'"{ Package: '''.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	236	"/ stream nextPutAll:eachMethod package asString.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	237	"/ stream nextPutAll:''' }"'; cr; cr.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	238	"/ ].
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	239	"/ eachMethod mclass fileOutMethod:eachMethod on:stream
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	240	"/ ].
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	241	"/ stream reset.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	242	"/ changeSet := self fromStream:stream.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	243	"/ changeSet do:[:eachChange \|
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	244	"/ eachChange package:(eachChange changeMethod package).
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	245	"/ ].
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	246	^ changeSet
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	247
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	248	"
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	249	ChangeSet forExistingMethods:(Array with:(Array compiledMethodAt:#at:)
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	250	with:(Object compiledMethodAt:#at:)
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	251	with:(Behavior compiledMethodAt:#compiledMethodAt:) )
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	252	"
1872 7a1f2a26bf90 changes for compare-project functionality Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	253
7a1f2a26bf90 changes for compare-project functionality Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	254	"Modified: / 13-10-2006 / 00:33:15 / cg"
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	255	!
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	256
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	257	forPackage: package
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	258
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	259	^self forPackage: package ignoreAutoloaded: false.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	260
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	261	"Created: / 20-05-2008 / 17:56:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	262	"Modified: / 12-08-2009 / 14:23:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	263	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	264
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	265	forPackage: package ignoreAutoloaded: ignoreAutoloaded
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	266	"build a changeSet for a given package"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	267
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	268	\|changeSet packageClasses packageExtensions\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	269
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	270	packageClasses := ProjectDefinition searchForClassesWithProject: package.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	271	packageExtensions := ProjectDefinition searchForExtensionsWithProject: package.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	272	changeSet := self forExistingMethods: packageExtensions.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	273	packageClasses do:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	274	[:cls\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	275	(ignoreAutoloaded not and:[cls isLoaded not])
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	276	ifTrue:[cls autoload].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	277	cls isLoaded
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	278	ifTrue:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	279	[changeSet addAll:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	280	(self
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	281	forExistingClass:cls
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	282	withExtensions:false
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	283	extensionsOnly:false)]].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	284	^changeSet
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	285
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	286	"Created: / 12-08-2009 / 14:22:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	287	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	288
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	289	fromDiffSet:aDiffSet
2322 c5ebd3b56e54 comment/format in: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2321 diff changeset	290	"build a changeSet from a given diffSet. This can be used as a patchSet,
c5ebd3b56e54 comment/format in: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2321 diff changeset	291	to update the first-version in the diffSet to the second-version"
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	292
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	293	\|changeSet\|
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	294
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	295	changeSet := self new.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	296	"/ class definitions first...
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	297	changeSet addAll:((aDiffSet changed collect:[:eachPair \| eachPair second]) select:[:ch \| ch isClassDefinitionChange]).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	298	changeSet addAll:((aDiffSet onlyInArg) select:[:ch \| ch isClassDefinitionChange]).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	299
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	300	"/ first add new methods...
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	301	changeSet addAll:((aDiffSet onlyInArg) reject:[:ch \| ch isClassDefinitionChange]).
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	302	"/ then, changed methods...
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	303	changeSet addAll:((aDiffSet changed collect:[:eachPair \| eachPair second]) reject:[:ch \| ch isClassDefinitionChange]).
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	304	"/ then, removed methods...
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	305	aDiffSet onlyInReceiver do:[:each \|
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	306	\|ch\|
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	307
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	308	ch := MethodRemoveChange className:(each className) selector:(each selector).
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	309	changeSet add:ch.
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	310	].
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	311	^ changeSet
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	312
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	313	"Created: / 08-02-2011 / 10:48:36 / cg"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	314	!
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	315
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	316	fromDirectory: aStringOfFilename
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	317
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	318	\| d cs \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	319	d := aStringOfFilename asFilename.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	320	cs := self new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	321	d directoryContentsAsFilenames do:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	322	[:each\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	323	each suffix = 'st' ifTrue:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	324	[cs addAll: (self fromFileOrDirectory: each)]].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	325	^cs
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	326
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	327
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	328	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	329	ChangeSet fromDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	330	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	331
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	332	"Created: / 02-04-2011 / 00:54:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	333	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	334
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	335	fromDolphinPACStream:aStream
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	336	"build a changeSet from a stream, containing dolphin pac file chunks."
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	337
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	338	^ self fromDolphinPACStream:aStream while:[:thisChange \| true]
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	339
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	340	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	341
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	342	fromDolphinPACStream:aStream while:aConditionBlock
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	343	"build a changeSet from a stream, containing dolphin pac file chunks."
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	344
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	345	\|changeSet\|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	346
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	347	changeSet := self new.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	348	self
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	349	changesFromStream:aStream
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	350	for:changeSet
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	351	reader:(DolphinPACFileReader new)
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	352	do:[:aChange :lineNumberOrNil :posOrNil \|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	353	changeSet add:aChange.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	354	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	355	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	356
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	357	^ changeSet
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	358	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	359
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	360	fromFile:aFilename
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	361	\|mime stream\|
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	362
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	363	mime := MIMETypes mimeTypeForFilename:aFilename.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	364	mime isNil ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	365	mime := aFilename asFilename mimeTypeOfContents.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	366	mime isNil ifTrue:[
1329 91aaace92f86 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1315 diff changeset	367	self error:'unknown MIME type for file'.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	368	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	369	].
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	370
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	371	[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	372	stream := aFilename asFilename readStream.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	373	mime = 'text/xml' ifTrue:[
1184 748fce7e6fef xml changesets Claus Gittinger <cg@exept.de> parents: 1183 diff changeset	374	^ self fromXMLStream:stream.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	375	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	376	mime = 'application/x-smalltalk-source-sif' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	377	^ self fromSIFStream:stream.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	378	].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	379	mime = 'application/x-smalltalk-dolphin-package' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	380	^ self fromDolphinPACStream:stream.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	381	].
2247 1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	382	stream := EncodedStream decodedStreamFor:stream.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	383	^ self fromStream:stream.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	384	] ensure:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	385	stream notNil ifTrue:[stream close].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	386	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	387
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	388	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	389	ChangeSet fromFile:('changes')
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	390	ChangeSet fromFile:('patches')
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	391	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	392
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	393	"Created: / 16.2.1998 / 12:19:34 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	394	"Modified: / 14.12.1999 / 15:23:16 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	395	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	396
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	397	fromFileOrDirectory: fileOrDirectory
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	398
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	399	\| f \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	400	f := fileOrDirectory asFilename.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	401	^(f isDirectory
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	402	ifTrue:[self fromDirectory: f]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	403	ifFalse:[self fromFile: f])
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	404	name: f pathName;
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	405	yourself.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	406
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	407	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	408	ChangeSet fromFileOrDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	409	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	410
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	411	"Created: / 02-04-2011 / 00:50:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	412	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	413
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	414	fromSIFStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	415	"build a changeSet from a SIF stream, containing chunks
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	416	in smalltalk interchange format.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	417	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	418
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	419	^ self fromSIFStream:aStream while:[:thisChange \| true]
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	420	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	421
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	422	fromSIFStream:aStream while:aConditionBlock
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	423	"build a changeSet from a SIF stream, containing chunks
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	424	in smalltalk interchange format.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	425	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	426
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	427	\|changeSet\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	428
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	429	changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	430	self
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	431	changesFromStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	432	for:changeSet
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	433	reader:(SIFChangeFileReader new)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	434	do:[:aChange :lineNumberOrNil :posOrNil \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	435	changeSet add:aChange.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	436	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	437	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	438
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	439	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	440	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	441
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	442	fromStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	443	"build a changeSet from a stream, containing chunks.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	444	(i.e. either a classes sourceFile or a change-file).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	445	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	446
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	447	^ self fromStream:aStream while:[:thisChange \| true]
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	448
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	449	"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	450	ChangeSet fromStream:('changes' asFilename readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	451	ChangeSet fromStream:('patches' asFilename readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	452	ChangeSet fromStream:(Object source asString readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	453	"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	454
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	455	"Created: / 16.2.1998 / 12:19:34 / cg"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	456	"Modified: / 14.12.1999 / 15:23:16 / cg"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	457	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	458
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	459	fromStream:aStream while:aConditionBlock
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	460	"build a changeSet from a stream, containing chunks.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	461	(i.e. either a classes sourceFile or a change-file).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	462	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	463
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	464	\|changeSet\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	465
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	466	changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	467	self
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	468	changesFromStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	469	for:changeSet
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	470	reader:(ChangeFileReader new)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	471	do:[:aChange :lineNumberOrNil :posOrNil \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	472	changeSet add:aChange.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	473	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	474	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	475
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	476	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	477
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	478	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	479	ChangeSet fromStream:('changes' asFilename readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	480	ChangeSet fromStream:('patches' asFilename readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	481	ChangeSet fromStream:(Object source asString readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	482	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	483
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	484	"Created: / 16.2.1998 / 12:19:34 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	485	"Modified: / 14.12.1999 / 15:23:16 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	486	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	487
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	488	fromXMLStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	489	"build a changeSet from an XML stream, containing XML definitions.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	490	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	491
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	492	\|changeSet builder nameSpace\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	493
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	494	aStream isNil ifTrue:[^ nil].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	495
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	496	changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	497	nameSpace := Smalltalk.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	498
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	499	builder := XML::SourceScannerNodeBuilder new.
1475 934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	500	builder scanFile:aStream do:[:change \| changeSet add: change. ].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	501	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	502
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	503	"
1247 be7277706e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1232 diff changeset	504	ChangeSet fromXMLStream:('../../goodies/xml/vw/xmlFileInTests/XMLParser.xml' asFilename readStream)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	505	ChangeSetBrowser
1247 be7277706e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1232 diff changeset	506	openOn:(ChangeSet fromXMLStream:('../../goodies/xml/vw/xmlFileInTests/XMLParser.xml' asFilename readStream))
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	507	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	508	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	509
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	510	!ChangeSet class methodsFor:'Compatibility-ST80'!
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	511
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	512	patches
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	513	^ #()
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	514
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	515	"Created: / 27.10.1997 / 13:52:54 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	516	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	517
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	518
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	519	!ChangeSet class methodsFor:'Compatibility-VW'!
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	520
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	521	component: component definition: anObject change: changeSymbol
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	522	"Include indication that a class/namespace was added or removed
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	523	from a CodeComponent."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	524
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	525	self
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	526	changed:#'component:definition:change:'
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	527	with:
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	528	( Array
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	529	with: component
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	530	with: anObject
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	531	with: changeSymbol
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	532	)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	533
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	534	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	535
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	536	!ChangeSet class methodsFor:'instance creation-private'!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	537
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	538	changesFromStream:aStream do:aBlock
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	539	"enumerate changes from a stream and invoke aBlock on each.
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	540	The block is invoked with the change, a lineNumberOrNil and streamPosition arguments.
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	541	The lineNumber is only valid, if the underlying stream
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	542	provides line-numbers; otherwise, nil is passed."
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	543
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	544	^ self
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	545	changesFromStream:aStream
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	546	for:(self new)
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	547	reader:nil
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	548	do:aBlock
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	549
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	550	"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	551	ChangeSet
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	552	changesFromStream:('changes' asFilename readStream)
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	553	do:[:chg \| Transcript showCR:chg]
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	554	"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	555
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	556	"Created: / 16.2.1998 / 12:19:34 / cg"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	557	"Modified: / 14.12.1999 / 15:23:16 / cg"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	558	!
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	559
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	560	changesFromStream:aStream for:aChangeSet reader:aReader do:aBlock
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	561	"enumerate changes from a stream and invoke aBlock on each.
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	562	The block is invoked with the change, a lineNumberOrNil and streamPosition arguments.
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	563	The lineNumber is only valid, if the underlying stream
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	564	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	565
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	566	\|chunk lastTimeStamp s change nameSpace package
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	567	lineNumber pos reader\|
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	568
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	569	nameSpace := Smalltalk.
1135 08323691c543 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1128 diff changeset	570	package := Class packageQuerySignal query.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	571
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	572	(reader := aReader) isNil ifTrue:[
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	573	reader := ChangeFileReader new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	574	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	575	reader changeSet:aChangeSet.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	576	reader changeAction:aBlock.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	577	reader inputStream:aStream.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	578
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	579	[aStream atEnd] whileFalse:[
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	580	aStream skipSeparators.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	581	lineNumber := aStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	582	pos := aStream position1Based.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	583	chunk := aStream nextChunk.
2056 b4bd1ff4709e refactored Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	584
1447 2ac1cf09722b isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 1428 diff changeset	585	(chunk notEmptyOrNil) ifTrue:[
2279 a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	586	Class nameSpaceQuerySignal handle:[:ex\| ex proceedWith:nameSpace] do:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	587	Class packageQuerySignal handle:[:ex\| ex proceedWith:package] do:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	588	\|parser tree ns pkg\|
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	589
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	590	parser := Parser for:chunk.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	591	tree := parser
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	592	parseExpressionWithSelf:nil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	593	notifying:nil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	594	ignoreErrors:true
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	595	ignoreWarnings:true
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	596	inNameSpace:nameSpace.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	597
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	598	tree notNil ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	599	tree == #Error ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	600	change := DoItChange new.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	601	change source:chunk.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	602	aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	603	] ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	604	"/ if there is any nameSpace directive in there, extract it.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	605	((ns := parser currentNameSpace) notNil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	606	and:[ns ~~ nameSpace]) ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	607	nameSpace := ns
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	608	].
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	609	"/ if there is any package directive in there, extract it.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	610	((pkg := parser currentPackage) notNil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	611	and:[pkg ~~ package]) ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	612	package := pkg
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	613	].
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	614	"/
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	615	"/ what type of chunk is this ...
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	616	"/
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	617	tree isConstant ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	618	(s := tree evaluate) isString ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	619	(s startsWith:'---- timestamp ') ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	620	lastTimeStamp := s.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	621	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	622	] ifFalse:[
2279 a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	623	self error:'unexpected change-chunk' mayProceed:true
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	624	]
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	625	] ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	626	tree isMessage ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	627	(reader
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	628	changesFromParseTree:tree
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	629	lineNumber:lineNumber
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	630	position:pos
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	631	) ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	632	change := DoItChange new.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	633	change source:chunk.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	634	aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	635	]
2279 a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	636	] ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	637	InvalidChangeChunkError
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	638	raiseRequestErrorString:'unexpected change-chunk'
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	639	"/ mayProceed:true.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	640	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	641	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	642	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	643	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	644	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	645	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	646	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	647	].
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	648
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	649	"
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	650	ChangeSet fromStream:('changes' asFilename readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	651	ChangeSet fromStream:('patches' asFilename readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	652	ChangeSet fromStream:(Object source asString readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	653	"
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	654
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	655	"Created: / 16.2.1998 / 12:19:34 / cg"
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	656	"Modified: / 14.12.1999 / 15:23:16 / cg"
1380 e33e77f7b88b skip and hide encoding chunk ca parents: 1379 diff changeset	657	!
e33e77f7b88b skip and hide encoding chunk ca parents: 1379 diff changeset	658
e33e77f7b88b skip and hide encoding chunk ca parents: 1379 diff changeset	659	skipEncodingChunkOn:stream
2080 5cfd9170d01d Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 2056 diff changeset	660	<resource: #obsolete>
1415 44d3d469a528 skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	661	self obsoleteMethodWarning:'use stream>>skipENcodingChunk'.
44d3d469a528 skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	662	stream skipEncodingChunk
1083 e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	663	! !
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	664
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	665	!ChangeSet class methodsFor:'queries'!
27 d24c4aec6d07 . claus parents: 16 diff changeset	666
d24c4aec6d07 . claus parents: 16 diff changeset	667	current
d24c4aec6d07 . claus parents: 16 diff changeset	668	"ST-80 compatibility: return the current changeSet"
d24c4aec6d07 . claus parents: 16 diff changeset	669
d24c4aec6d07 . claus parents: 16 diff changeset	670	\|p\|
d24c4aec6d07 . claus parents: 16 diff changeset	671
d24c4aec6d07 . claus parents: 16 diff changeset	672	(Project notNil and:[(p := Project current) notNil]) ifTrue:[
959 ca4fff926135 ChangeSet current: return empty collection if there is no changeSet Claus Gittinger <cg@exept.de> parents: 956 diff changeset	673	^ p changeSet
ca4fff926135 ChangeSet current: return empty collection if there is no changeSet Claus Gittinger <cg@exept.de> parents: 956 diff changeset	674	].
ca4fff926135 ChangeSet current: return empty collection if there is no changeSet Claus Gittinger <cg@exept.de> parents: 956 diff changeset	675	^ #()
27 d24c4aec6d07 . claus parents: 16 diff changeset	676
d24c4aec6d07 . claus parents: 16 diff changeset	677	"
d24c4aec6d07 . claus parents: 16 diff changeset	678	ChangeSet current
d24c4aec6d07 . claus parents: 16 diff changeset	679	"
d24c4aec6d07 . claus parents: 16 diff changeset	680	! !
d24c4aec6d07 . claus parents: 16 diff changeset	681
2246 3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	682	!ChangeSet class methodsFor:'utilities'!
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	683
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	684	decodedStreamFor:aStream
2247 1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	685	<resource: #obsolete>
1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	686	^ EncodedStream decodedStreamFor:aStream
2246 3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	687	! !
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	688
1264 3d1fc5d40ab4 method category rename Claus Gittinger <cg@exept.de> parents: 1263 diff changeset	689	!ChangeSet methodsFor:'Compatibility-ST80'!
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	690
899 7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	691	changeClass:aClass
7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	692	"dummy here"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	693
899 7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	694	"Created: / 4.2.2000 / 18:30:59 / cg"
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	695	!
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	696
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	697	changeSelectors
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	698	"return a collection of all selectors for which changes are in this changeSet"
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	699
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	700	\|selectors\|
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	701
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	702	changeSelectors isNil ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	703	selectors := IdentitySet new.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	704	self do:[:chg \|
1967 18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	705	\|sel\|
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	706
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	707	chg notNil ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	708	chg isMethodChange ifTrue:[
1967 18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	709	sel := chg selector.
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	710	sel notNil ifTrue:[
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	711	selectors add:sel
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	712	]
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	713	]
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	714	]
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	715	].
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	716	changeSelectors := selectors.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	717	].
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	718	^ changeSelectors.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	719
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	720	"
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	721	ChangeSet current changeSelectors
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	722	"
1967 18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	723
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	724	"Modified: / 30-05-2007 / 12:12:32 / cg"
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	725	!
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	726
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	727	changedClasses
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	728	"return a collection of all classes for which changes are in this changeSet"
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	729
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	730	\|classes\|
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	731
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	732	changedClasses isNil ifTrue:[
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	733	classes := IdentitySet new.
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	734	self do:[:chg \|
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	735	\|cls\|
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	736
1315 f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	737	chg notNil ifTrue:[
f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	738	cls := chg changeClass.
f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	739	cls notNil ifTrue:[
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	740	cls isRealNameSpace ifFalse:[
1315 f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	741	classes add:cls
f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	742	]
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	743	]
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	744	]
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	745	].
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	746	changedClasses := classes.
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	747	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	748	^ changedClasses.
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	749
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	750	"
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	751	ChangeSet current changedClasses
1791 746e0b3aa286 * empty log message * Claus Gittinger <cg@exept.de> parents: 1718 diff changeset	752	ChangeSet current flushChangedClassesCache
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	753	"
1791 746e0b3aa286 * empty log message * Claus Gittinger <cg@exept.de> parents: 1718 diff changeset	754
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	755	"Modified: / 10-11-2006 / 17:17:26 / cg"
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	756	!
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	757
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	758	component:component definition:anObject change:changeSymbol
1083 e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	759	"Include indication that a class/namespace was added or removed
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	760	from a CodeComponent."
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	761
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	762	self
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	763	changed:#'component:definition:change:'
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	764	with:
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	765	( Array
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	766	with: component
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	767	with: anObject
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	768	with: changeSymbol
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	769	)
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	770	!
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	771
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	772	reorganizeSystem
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	773	"dummy here"
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	774
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	775	"Created: / 6.2.2000 / 20:45:10 / cg"
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	776	! !
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	777
2235 3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	778	!ChangeSet methodsFor:'accessing'!
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	779
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	780	name
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	781	^ name
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	782	!
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	783
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	784	name:something
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	785	name := something.
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	786	! !
2234 f5af55bd08cb * empty log message * Claus Gittinger <cg@exept.de> parents: 2186 diff changeset	787
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	788	!ChangeSet methodsFor:'change & update'!
d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	789
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	790	changed:anAspectSymbol with:aParameter
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	791	"Allow objects to depend on the ChangeSet class instead of a particular instance
1099 bd76198721aa * empty log message * Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	792	of ChangeSet (which may be switched using projects)."
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	793
1475 934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	794	self == ChangeSet current ifTrue:[
934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	795	ChangeSet changed:anAspectSymbol with:aParameter.
934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	796	].
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	797	super changed:anAspectSymbol with:aParameter
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	798	! !
d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	799
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	800	!ChangeSet methodsFor:'changes management'!
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	801
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	802	addClassCommentChangeFor:aClass
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	803	"add a classComment change to the receiver"
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	804
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	805	\|newChange\|
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	806
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	807	newChange := ClassCommentChange class:aClass.
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	808	newChange comment:aClass comment.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	809	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	810	self addChange:newChange
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	811
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	812	"Modified: / 14.11.2001 / 13:35:34 / cg"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	813	!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	814
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	815	addClassDefinitionChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	816	"add a classDefinition change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	817
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	818	\|newChange\|
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	819
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	820	newChange := ClassDefinitionChange class:aClass source:(aClass definition).
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	821	newChange package:aClass package.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	822	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	823	self addChange:newChange
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	824
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	825	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	826	(ChangeSet new addClassDefinitionChangeFor:ChangeSet) inspect
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	827	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	828
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	829	"Modified: / 12-10-2006 / 18:17:02 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	830	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	831
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	832	addClassRemoveChange:oldClass
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	833	"add a classRemove change to the receiver"
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	834
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	835	\|newChange\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	836
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	837	newChange := ClassRemoveChange new className:oldClass name.
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	838	self rememberChangedClass:oldClass.
1421 eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	839	oldClass isPrivate ifTrue:[
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	840	self rememberChangedClass:oldClass topOwningClass.
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	841	].
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	842	ClassRemoveChange::ClassBeingRemovedQuery
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	843	answer:oldClass
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	844	do:[
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	845	self addChange:newChange
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	846	]
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	847	"Modified: / 14.11.2001 / 13:35:39 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	848	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	849
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	850	addClassRenameChangeFrom:oldName to:newName
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	851	"add a classRename change to the receiver"
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	852
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	853	\|newChange\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	854
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	855	newChange := ClassRenameChange new oldName:oldName newName:newName.
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	856	self rememberChangedClass:(Smalltalk at:newName).
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	857	self addChange:newChange
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	858
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	859	"Modified: / 14.11.2001 / 13:35:41 / cg"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	860	!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	861
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	862	addDoIt:aString
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	863	"add a doIt to the receiver"
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	864
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	865	\|newChange\|
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	866
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	867	newChange := DoItChange new source:aString.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	868	self addChange:newChange.
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	869
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	870	"Modified: / 14.11.2001 / 13:35:44 / cg"
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	871	!
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	872
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	873	addInstVarDefinitionChangeFor:aClass
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	874	"add an instVarDefinition change to the receiver"
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	875
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	876	\|newChange\|
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	877
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	878	newChange := ClassInstVarDefinitionChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	879	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	880	source:(aClass name , ' instanceVariableNames:' , aClass instanceVariableString storeString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	881	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	882	self addChange:newChange
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	883
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	884	"Modified: / 14.11.2001 / 13:35:45 / cg"
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	885	!
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	886
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	887	addMethodCategoryChange:aMethod category:newCategory in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	888	"add a methodCategory change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	889
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	890	\|newChange\|
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	891
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	892	newChange := MethodCategoryChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	893	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	894	selector:(aClass selectorAtMethod:aMethod)
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	895	category:newCategory.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	896	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	897	self addChange:newChange
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	898
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	899	"Modified: / 14.11.2001 / 13:35:48 / cg"
44 27caba2cee6b . claus parents: 39 diff changeset	900	!
27caba2cee6b . claus parents: 39 diff changeset	901
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	902	addMethodChange:aMethod fromOld:oldMethod in:aClass
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	903	"add a method change to the receiver"
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	904
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	905	\|newChange\|
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	906
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	907	newChange := MethodChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	908	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	909	selector:aMethod selector
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	910	source:aMethod source
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	911	category:aMethod category.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	912	oldMethod notNil ifTrue:[
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	913	newChange previousVersion:oldMethod.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	914	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	915	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	916	self addChange:newChange.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	917
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	918	"Modified: / 14.11.2001 / 13:35:50 / cg"
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	919	!
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	920
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	921	addMethodChange:aMethod in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	922	"add a method change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	923
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	924	\|newChange\|
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	925
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	926	newChange := MethodChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	927	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	928	selector:aMethod selector
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	929	source:aMethod source
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	930	category:aMethod category.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	931	newChange package:(aMethod package).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	932	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	933	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	934
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	935	"Modified: / 12-10-2006 / 18:15:28 / cg"
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	936	!
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	937
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	938	addMethodPackageChange:aMethod package:newPackage in:aClass
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	939	"add a methodPackage change to the receiver"
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	940
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	941	\|newChange\|
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	942
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	943	newChange := MethodPackageChange
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	944	class:aClass
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	945	selector:(aClass selectorAtMethod:aMethod)
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	946	package:newPackage.
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	947	self rememberChangedClass:aClass.
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	948	self addChange:newChange
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	949
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	950	"Created: / 09-10-2006 / 14:02:33 / cg"
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	951	!
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	952
44 27caba2cee6b . claus parents: 39 diff changeset	953	addMethodPrivacyChange:aMethod in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	954	"add a methodPrivacy change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	955
44 27caba2cee6b . claus parents: 39 diff changeset	956	\|newChange\|
27caba2cee6b . claus parents: 39 diff changeset	957
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	958	newChange := MethodPrivacyChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	959	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	960	selector:(aClass selectorAtMethod:aMethod)
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	961	privacy:aMethod privacy.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	962	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	963	self addChange:newChange
44 27caba2cee6b . claus parents: 39 diff changeset	964
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	965	"Modified: / 27.8.1995 / 22:55:22 / claus"
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	966	"Modified: / 14.11.2001 / 13:35:55 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	967	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	968
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	969	addPrimitiveDefinitionsChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	970	"add a primitiveDefinitions change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	971
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	972	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	973
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	974	newChange := ClassPrimitiveDefinitionsChange new
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	975	class:aClass source:(aClass primitiveDefinitionsString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	976	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	977	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	978
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	979	"Modified: / 14.11.2001 / 13:35:57 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	980	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	981
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	982	addPrimitiveFunctionsChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	983	"add a primitiveFunctions change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	984
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	985	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	986
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	987	newChange := ClassPrimitiveFunctionsChange new
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	988	class:aClass source:(aClass primitiveFunctionsString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	989	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	990	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	991
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	992	"Modified: / 14.11.2001 / 13:35:59 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	993	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	994
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	995	addPrimitiveVariablesChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	996	"add a primitiveVariables change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	997
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	998	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	999
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1000	newChange := ClassPrimitiveVariablesChange new
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1001	class:aClass source:(aClass primitiveVariablesString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1002	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1003	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1004
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1005	"Modified: / 14.11.2001 / 13:36:01 / cg"
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1006	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1007
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1008	addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1009	"add a method-remove change to the receiver"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1010
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1011	\|newChange\|
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1012
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1013	newChange := MethodRemoveChange class:aClass selector:aSelector.
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1014	oldMethod notNil ifTrue:[
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1015	newChange previousVersion:oldMethod.
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1016	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1017	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1018	self addChange:newChange
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1019
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1020	"Modified: / 27.8.1995 / 22:55:22 / claus"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1021	"Created: / 16.2.1998 / 12:47:07 / cg"
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1022	"Modified: / 14.11.2001 / 13:36:04 / cg"
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1023	!
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1024
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1025	addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1026	"add a category rename change to the receiver"
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1027
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1028	\|newChange\|
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1029
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1030	newChange := MethodCategoryRenameChange class:aClass.
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1031	newChange oldCategoryName:oldCategory newCategoryName:newCategory.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1032	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1033	self addChange:newChange
1105 b27c0d72d7d0 avoid useless change notifications from #collect:, #select: etc. Claus Gittinger <cg@exept.de> parents: 1102 diff changeset	1034
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1035	"Modified: / 14.11.2001 / 13:36:06 / cg"
1105 b27c0d72d7d0 avoid useless change notifications from #collect:, #select: etc. Claus Gittinger <cg@exept.de> parents: 1102 diff changeset	1036	! !
b27c0d72d7d0 avoid useless change notifications from #collect:, #select: etc. Claus Gittinger <cg@exept.de> parents: 1102 diff changeset	1037
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1038
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1039	!ChangeSet methodsFor:'fileOut'!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1040
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1041	fileOutAs: aStringOrFilename
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1042
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1043	\| stream \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1044	stream := aStringOrFilename asFilename writeStream.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1045	[ self fileOutOn: stream ]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1046	ensure: [stream close]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1047
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1048	"Created: / 05-12-2009 / 12:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1049	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1050
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1051	fileOutOn: stream
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1052
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1053	self do:[:chg\|chg fileOutOn: stream]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1054
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1055	"Created: / 05-12-2009 / 12:32:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1056	! !
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1057
2469 4a02caf1782d changed: #saveToStream:format: Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	1058
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1059	!ChangeSet methodsFor:'misc'!
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1060
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1061	addPatch:nameOfPatch
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1062	"ignored for now - allows fileIn of ST-80 patch stuff .."
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1063
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1064	^ self
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1065	! !
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1066
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1067
1263 14ef737d93a8 method category rename Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	1068	!ChangeSet methodsFor:'private-accessing'!
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1069
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1070	addChange:aChange
2053 590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1071	\|changeClass\|
590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1072
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1073	aChange timeOfChangeIfKnown isNil ifTrue:[
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1074	aChange timeStamp:(Timestamp now).
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1075	].
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1076
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1077	self add:aChange.
1471 d3a32a4b689b * empty log message * Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	1078	changedClasses notNil ifTrue:[
2053 590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1079	(changeClass := aChange changeClass) notNil ifTrue:[
590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1080	changedClasses add:changeClass.
590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1081	].
1471 d3a32a4b689b * empty log message * Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	1082	].
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1083	changeSelectors notNil ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1084	aChange isMethodChange ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1085	changeSelectors add:aChange selector.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1086	].
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1087	].
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1088
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1089	"/ aChange sendChangeNotificationThroughSmalltalk.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1090	self changed:#addChange: with:aChange.
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1091
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1092	"Created: / 14-11-2001 / 13:35:11 / cg"
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1093	"Modified: / 10-11-2006 / 16:47:13 / cg"
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1094	!
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1095
1479 26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1096	flushChangedClassesCache
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1097	changedClasses := changeSelectors := nil
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1098
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1099	"
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1100	ChangeSet current flushChangedClassesCache
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1101	"
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1102	!
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1103
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1104	rememberChangedClass:aClass
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1105	changedClasses notNil ifTrue:[
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1106	changedClasses add:aClass
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1107	].
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1108	!
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1109
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1110	removeAll:aCollection
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1111	aCollection notEmpty ifTrue:[
b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1112	super removeAll:aCollection.
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1113	changedClasses := changeSelectors := nil.
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1114	self changed:#removeAll: with:aCollection.
b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1115	]
1421 eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1116	!
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1117
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1118	unrememberChangedClasses
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1119	changedClasses := nil
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1120	! !
420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1121
1034 cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1122	!ChangeSet methodsFor:'queries'!
cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1123
2160 831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1124	changedPackages
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1125	"return a collection of all packages for which changes are in this changeSet"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1126
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1127	\|classes changedPackages\|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1128
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1129	changedPackages := Set new.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1130
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1131	self do:[:chg \|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1132	\|p mthd cls\|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1133
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1134	p := chg package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1135	p isNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1136	chg isMethodChange ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1137	mthd := chg changeMethod.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1138	mthd notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1139	p := mthd package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1140	] ifFalse:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1141	cls := chg changeClass.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1142	cls notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1143	p := cls package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1144	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1145	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1146	] ifFalse:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1147	chg isClassChange ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1148	cls := chg changeClass.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1149	cls notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1150	p := cls package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1151	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1152	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1153	].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1154	].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1155	p notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1156	changedPackages add:p.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1157	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1158	].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1159
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1160	"/ self changedClasses do:[:cls \|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1161	"/ \|p\|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1162	"/
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1163	"/ (p := cls package) notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1164	"/ changedPackages add:p.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1165	"/ ]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1166	"/ ].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1167	^ changedPackages.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1168
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1169	"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1170	ChangeSet current changedPackages
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1171	"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1172
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1173	"Created: / 22-09-2006 / 16:37:40 / cg"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1174	"Modified: / 13-10-2006 / 01:20:48 / cg"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1175	!
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1176
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1177	changesForPackage:aPackageSymbol
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1178
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1179	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1180	ChangeSet current changesForPackage:#'stx:goodies/libsvn'.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1181
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1182	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1183
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1184	^(self select:[:aChange \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1185	\|removeThis mClass mthd\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1186
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1187	removeThis := false.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1188	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1189	mClass := aChange changeClass.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1190	mClass notNil ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1191	mthd := mClass compiledMethodAt:(aChange selector).
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1192	mthd isNil ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1193	aChange isMethodRemoveChange ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1194	removeThis := (mClass package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1195	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1196	] ifFalse:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1197	removeThis := (mthd package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1198	]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1199	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1200	] ifFalse:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1201	(aChange isClassChange) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1202	(aChange changeClass notNil) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1203	removeThis := (aChange changeClass package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1204	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1205	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1206	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1207	removeThis
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1208	])
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1209
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1210	"Created: / 05-11-2001 / 14:21:17 / cg"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1211	"Modified: / 12-10-2006 / 16:51:27 / cg"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1212	"Modified: / 22-10-2008 / 13:25:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1213	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1214
1034 cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1215	includesChangeForClass:aClass
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1216	\|nameOfClass\|
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1217
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1218	nameOfClass := aClass theNonMetaclass name.
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1219
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1220	(self changedClasses contains:[:aClass \| aClass theNonMetaclass name = nameOfClass]) ifFalse:[^ false].
1340 e5ccdb4c4efa checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	1221	^ self contains:[:aChange \| aChange className = nameOfClass]
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1222
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1223	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1224	ChangeSet current includesChangeForClass:ChangeSet
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1225	ChangeSet current includesChangeForClass:ChangeSet class
1686 7d2c1f9f63e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1226	ChangeSet current includesChangeForClass:SourceCodeManagerUtilities
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1227	ChangeSet current includesChangeForClass:(Expecco::ExpeccoXMLDecoder::ObjectCreator)
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1228	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1229
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1230	"Modified: / 09-10-2006 / 13:39:22 / cg"
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1231	!
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1232
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1233	includesChangeForClass:aClass selector:selector
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1234	\|nameOfNonMetaClass nameOfClass\|
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1235
1478 400bfb0e4ea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1476 diff changeset	1236	(self changeSelectors includes:selector) ifFalse:[^ false].
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1237
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1238	nameOfNonMetaClass := aClass theNonMetaclass name.
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1239	(self changedClasses contains:[:aClass \| aClass theNonMetaclass name = nameOfNonMetaClass]) ifFalse:[^ false].
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1240
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1241	nameOfClass := aClass name.
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1242
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1243	^ self contains:[:aChange \|
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1244	selector = aChange selector
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1245	ifFalse:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1246	false
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1247	] ifTrue:[
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1248	nameOfClass = aChange className
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1249	]
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1250	]
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1251
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1252	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1253	ChangeSet current includesChangeForClass:ChangeSet selector:#includesChangeForClass:
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1254	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1255
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1256	"Created: / 31.10.2001 / 10:26:31 / cg"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1257	"Modified: / 31.10.2001 / 10:59:49 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1258	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1259
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1260	includesChangeForClassOrMetaclass:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1261	\|nameOfClass nameOfMetaclass\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1262
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1263	nameOfClass := aClass theNonMetaclass name.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1264	nameOfMetaclass := aClass theMetaclass name.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1265
1920 4365130e896f bad spelling of methodname Stefan Vogel <sv@exept.de> parents: 1918 diff changeset	1266	(self changedClasses contains:[:eachClass \| eachClass theNonMetaclass name = nameOfClass]) ifFalse:[
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1267	^ false.
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1268	].
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1269
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1270
1920 4365130e896f bad spelling of methodname Stefan Vogel <sv@exept.de> parents: 1918 diff changeset	1271	^ self contains:[:eachChange \|
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1272	\|changeClassName\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1273
1920 4365130e896f bad spelling of methodname Stefan Vogel <sv@exept.de> parents: 1918 diff changeset	1274	changeClassName := eachChange className.
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1275	changeClassName = nameOfClass or:[changeClassName = nameOfMetaclass]
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1276	]
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1277
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1278	"Modified: / 09-10-2006 / 13:40:29 / cg"
1127 b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1279	!
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1280
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1281	includesChangeForClassOrMetaclassOrPrivateClassOf:aClass
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1282	\|nameOfClass nameOfMetaclass\|
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1283
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1284	nameOfClass := aClass theNonMetaclass name.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1285	nameOfMetaclass := aClass theMetaclass name.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1286
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1287	self do:[:aChange \|
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1288	\|changeClassName changeClass\|
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1289
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1290	changeClassName := aChange className.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1291	(changeClassName = nameOfClass) ifTrue:[^ true].
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1292	(changeClassName = nameOfMetaclass) ifTrue:[^ true].
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1293	changeClass := aChange changeClass.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1294	(changeClass notNil
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1295	and:[changeClass isPrivate
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1296	and:[changeClass owningClass == aClass]]) ifTrue:[
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1297	^ true
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1298	]
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1299	].
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1300	^ false
1885 b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1301	!
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1302
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1303	includesChangeForPackage:aPackageID
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1304	^ self changedPackages includes:aPackageID
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1305
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1306	"/ ^ self contains:[:aChange \| aChange package = aPackageID]
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1307
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1308	"
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1309	ChangeSet current includesChangeForPackage:'stx:libbasic'
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1310	"
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1311
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1312	"Created: / 25-10-2006 / 18:06:55 / cg"
1034 cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1313	! !
cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1314
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1315	!ChangeSet methodsFor:'utilities'!
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1316
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1317	apply
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1318	"apply all changes in the receivers changeSet"
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1319
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1320	self do:[:aChange \|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1321	aChange apply
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1322	]
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1323	!
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1324
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1325	condenseChanges
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1326
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1327	\| changesToRemove changesToKeep \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1328	changesToKeep := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1329	changesToRemove := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1330	self reverseDo:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1331	[:change\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1332	(changesToKeep anySatisfy:[:each\|each isForSameAs: change])
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1333	ifTrue:[changesToRemove add: change]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1334	ifFalse:[changesToKeep add: change]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1335	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1336	self condenseChanges: changesToRemove.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1337
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1338	"Created: / 22-10-2008 / 13:05:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1339	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1340
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1341	condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1342	"remove the given changes - a helper for the rest of the condense protocol"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1343
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1344	changesToRemove notEmpty ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1345	changedClasses := changeSelectors := nil.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1346	self removeAll:changesToRemove.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1347	self changed.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1348	Smalltalk changed:#currentChangeSet with:self.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1349	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1350
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1351	"Created: / 12-10-2006 / 16:51:11 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1352	!
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1353
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1354	condenseChangesForClass:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1355	"remove all changes for aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1356	(i.e. leave changes for other classes)."
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1357
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1358	self condenseChangesForClass:aClass package:nil
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1359	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1360
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1361	condenseChangesForClass:aClass package:aPackageSymbol
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1362	"remove all changes for aClass and aPackageSymbol
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1363	(i.e. leave methodChanges for other packages).
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1364	This is invoked when a class is checked into the repository."
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1365
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1366	self condenseChangesForClass:aClass selector:nil package:aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1367
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1368	"Modified: / 5.11.2001 / 14:29:22 / cg"
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1369	!
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1370
1830 a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1371	condenseChangesForClass:aClass selector:aSelector
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1372	"remove all changes for aClass >> selector."
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1373
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1374	self condenseChangesForClass:aClass selector:aSelector package:nil
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1375
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1376	"Created: / 26-09-2006 / 17:22:59 / cg"
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1377	!
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1378
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1379	condenseChangesForClass:aClass selector:selectorOrNil package:aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1380	"remove all changes for aClass/selector and aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1381	(i.e. leave methodChanges for other packages).
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1382	If selectorOrNil is nil, all changes for that class are removed;
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1383	otherwise, only changes for the given selector.
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1384	This is invoked when a class is checked into the repository."
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1385
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1386	\|changesToRemove className metaClassName chgCls\|
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1387
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1388	className := aClass theNonMetaclass name.
f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1389	metaClassName := aClass theMetaclass name.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1390
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1391	changesToRemove := self select:[:aChange \|
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1392	\|chgClassName chgClass removeThis mClass mthd\|
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1393
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1394	removeThis := false.
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1395	chgClassName := aChange className.
1168 48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1396	(chgClassName = className or:[chgClassName = metaClassName]) ifTrue:[
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1397	removeThis := true
944 f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1398	] ifFalse:[
f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1399	chgCls := aChange changeClass.
1718 c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1400	chgCls isNil ifTrue:[
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1401	(chgClassName startsWith:(aClass name,':')) ifTrue:[
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1402	"a change for a private class of a no-longer present one..."
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1403	removeThis := true
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1404	].
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1405	].
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1406
944 f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1407	(chgCls notNil
f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1408	and:[chgCls isPrivate
1190 02e2436893b6 condense after checkin: also condense sub-sub-private classes Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1409	and:[chgCls topOwningClass == aClass]]) ifTrue:[
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1410	removeThis := true
944 f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1411	]
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1412	].
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1413	selectorOrNil notNil ifTrue:[
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1414	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifFalse:[
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1415	removeThis := false.
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1416	] ifTrue:[
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1417	aChange selector = selectorOrNil ifFalse:[
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1418	removeThis := false.
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1419	].
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1420	]
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1421	].
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1422
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1423	removeThis ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1424	aChange isMethodChange ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1425	mClass := aChange changeClass.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1426	mClass notNil ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1427	mthd := mClass compiledMethodAt:(aChange selector).
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1428	mthd isNil ifTrue:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1429	"/ mthd does no longer exist
1168 48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1430	"/ I no longer understand what this was meant for .. (sigh)
48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1431	"/ aPackageSymbol notNil ifTrue:[
48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1432	"/ removeThis := false
48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1433	"/ ]
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1434	] ifFalse:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1435	(aPackageSymbol notNil and:[mthd package ~= aPackageSymbol]) ifTrue:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1436	removeThis := false
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1437	]
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1438	]
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1439	]
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1440	].
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1441	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1442	removeThis
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1443	].
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1444
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1445	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1446
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1447	"Modified: / 12-10-2006 / 16:51:38 / cg"
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1448	!
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1449
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1450	condenseChangesForExtensionsInPackage:aPackageSymbol
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1451	"remove all changes for aClass and aPackageSymbol
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1452	(i.e. leave methodChanges for other packages).
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1453	This is invoked when a class is checked into the repository."
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1454
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1455	\|changesToRemove\|
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1456
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1457	changesToRemove := OrderedCollection new.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1458
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1459	changesToRemove := self select:[:aChange \|
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1460	\|removeThis mClass mthd\|
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1461
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1462	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1463	removeThis := false.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1464	mClass := aChange changeClass.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1465	mClass notNil ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1466	mthd := mClass compiledMethodAt:(aChange selector).
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1467	mthd isNil ifTrue:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1468	aChange isMethodRemoveChange ifTrue:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1469	removeThis := true
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1470	].
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1471	] ifFalse:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1472	mthd package = aPackageSymbol ifTrue:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1473	removeThis := true
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1474	]
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1475	]
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1476	].
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1477	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1478	removeThis
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1479	].
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1480
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1481	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1482
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1483	"Created: / 05-11-2001 / 14:21:17 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1484	"Modified: / 12-10-2006 / 16:51:32 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1485	!
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1486
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1487	condenseChangesForPackage2:aPackageSymbol
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1488
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1489	"Like condenseChangesForPackage: but used by svn commit.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1490	Bad naming here"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1491
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1492
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1493	\|changesToRemove\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1494
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1495	changesToRemove := self select:[:aChange \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1496	\|removeThis mClass mthd\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1497
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1498	removeThis := false.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1499	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1500	mClass := aChange changeClass.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1501	mClass notNil ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1502	mthd := mClass compiledMethodAt:(aChange selector).
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1503	mthd isNil ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1504	removeThis := (mClass package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1505	] ifFalse:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1506	removeThis := (mthd package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1507	]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1508	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1509	] ifFalse:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1510	(aChange isClassChange) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1511	(aChange changeClass notNil) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1512	removeThis := (aChange changeClass package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1513	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1514	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1515	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1516	removeThis
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1517	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1518
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1519	self condenseChanges:changesToRemove
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1520
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1521	"Modified: / 12-10-2006 / 16:51:27 / cg"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1522	"Created: / 09-08-2009 / 14:29:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1523	"Modified (comment): / 06-07-2011 / 13:35:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1524	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1525
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1526	condenseChangesForPackage:aPackageSymbol
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1527	"remove all changes for aPackageSymbol
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1528	This is invoked when a project is checked into the repository."
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1529
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1530	\|changesToRemove\|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1531
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1532	changesToRemove := self select:[:aChange \|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1533	\|removeThis mClass mthd\|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1534
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1535	removeThis := false.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1536	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1537	mClass := aChange changeClass.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1538	mClass notNil ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1539	mthd := mClass compiledMethodAt:(aChange selector).
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1540	mthd isNil ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1541	aChange isMethodRemoveChange ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1542	removeThis := (mClass package = aPackageSymbol)
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1543	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1544	] ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1545	removeThis := (mthd package = aPackageSymbol)
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1546	]
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1547	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1548	] ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1549	(aChange isClassChange) ifTrue:[
1883 40975a15e85f * empty log message * sr parents: 1876 diff changeset	1550	(aChange changeClass notNil) ifTrue:[
40975a15e85f * empty log message * sr parents: 1876 diff changeset	1551	removeThis := (aChange changeClass package = aPackageSymbol)
40975a15e85f * empty log message * sr parents: 1876 diff changeset	1552	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1553	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1554	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1555	removeThis
1521 ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	1556	].
ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	1557
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1558	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1559
1521 ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	1560	"Created: / 05-11-2001 / 14:21:17 / cg"
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1561	"Modified: / 12-10-2006 / 16:51:27 / cg"
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1562	!
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1563
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1564	diffSetsAgainst:anotherChangeSet
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1565	"walk over the receiver and anotherChangeSet,
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1566	add all changes to one of the tree lists:
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1567	onlyInReceiver, onlyInArg or changed,
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1568	each being a changeSet containing corresponding changes.
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1569	WARNING:
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1570	destructive; could modify both the receiver and the argument by possibly
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1571	changing methodChanges into categorychanges"
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1572
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1573	\|otherChangeIndicesBySelector otherNonMethodChangeIndices changeIndicesBySelector nonMethodChangeIndices
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1574	onlyInReceiver onlyInArg changedMethods
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1575	indexFromChangedMethodsToA indexFromChangedMethodsToB
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	1576	"info" ret\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1577
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1578	onlyInReceiver := ChangeSet new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1579	onlyInArg := ChangeSet new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1580	changedMethods := ChangeSet new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1581
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1582	indexFromChangedMethodsToA := OrderedCollection new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1583	indexFromChangedMethodsToB := OrderedCollection new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1584
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1585	otherChangeIndicesBySelector := Dictionary new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1586	otherNonMethodChangeIndices := OrderedCollection new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1587
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1588	"/ these caches reduces square runtime to almost linear...
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1589	anotherChangeSet keysAndValuesDo:[:idxB :aChangeInB \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1590	\|setOfOtherChangeIndicesForThisSelector\|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1591
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1592	aChangeInB isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1593	setOfOtherChangeIndicesForThisSelector := otherChangeIndicesBySelector at:(aChangeInB selector) ifAbsentPut:[OrderedCollection new].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1594	setOfOtherChangeIndicesForThisSelector add:idxB.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1595	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1596	otherNonMethodChangeIndices add:idxB
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1597	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1598	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1599
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1600	self keysAndValuesDo:[:idxA :aChangeInA \|
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1601	\|indicesOfChangesToExplore anyFound ch\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1602
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1603	anyFound := false.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1604
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1605	aChangeInA isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1606	indicesOfChangesToExplore := otherChangeIndicesBySelector at:(aChangeInA selector) ifAbsent:#()
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1607	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1608	indicesOfChangesToExplore := otherNonMethodChangeIndices.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1609	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1610
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1611	indicesOfChangesToExplore do:[:idxB \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1612	\|aChangeInB\|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1613
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1614	aChangeInB := anotherChangeSet at:idxB.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1615
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1616	(aChangeInA isForSameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1617	anyFound := true.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1618
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1619	"/ also in B - is it different ?
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1620	(aChangeInA sameAs:aChangeInB) ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1621	changedMethods add:aChangeInA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1622	indexFromChangedMethodsToA add:idxA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1623	indexFromChangedMethodsToB add:idxB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1624	] ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1625	aChangeInA isMethodChange ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1626	aChangeInA methodCategory ~= aChangeInB methodCategory ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1627	"/ only the category is different;
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1628	"/ make it a MethodCategory changes.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1629
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1630	ch := MethodCategoryChange new
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1631	className:aChangeInA className
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1632	selector:aChangeInA selector
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1633	category:aChangeInA methodCategory.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1634	self at:idxA put:ch.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1635
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1636	ch := MethodCategoryChange new
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1637	className:aChangeInB className
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1638	selector:aChangeInB selector
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1639	category:aChangeInB methodCategory.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1640	anotherChangeSet at:idxB put:ch.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1641
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1642	changedMethods add:aChangeInA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1643	indexFromChangedMethodsToA add:idxA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1644	indexFromChangedMethodsToB add:idxB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1645	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1646	].
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1647	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1648	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1649	(aChangeInA sameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1650	anyFound := true.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1651	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1652	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1653	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1654	].
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1655
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1656	anyFound ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1657	onlyInReceiver add:aChangeInA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1658	]
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1659	].
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1660
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1661	"/ these caches reduces square runtime to almost linear...
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1662	changeIndicesBySelector := Dictionary new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1663	nonMethodChangeIndices := OrderedCollection new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1664
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1665	self keysAndValuesDo:[:idxA :aChangeInA \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1666	\|setOfChangeIndicesForThisSelector\|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1667
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1668	aChangeInA isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1669	setOfChangeIndicesForThisSelector := changeIndicesBySelector at:(aChangeInA selector) ifAbsentPut:[OrderedCollection new].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1670	setOfChangeIndicesForThisSelector add:idxA.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1671	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1672	nonMethodChangeIndices add:idxA
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1673	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1674	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1675
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1676	anotherChangeSet keysAndValuesDo:[:idxB :aChangeInB \|
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1677	\|anyFound indicesOfChangesToExplore\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1678
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1679	anyFound := false.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1680
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1681	aChangeInB isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1682	indicesOfChangesToExplore := changeIndicesBySelector at:(aChangeInB selector) ifAbsent:#()
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1683	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1684	indicesOfChangesToExplore := nonMethodChangeIndices.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1685	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1686
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1687	indicesOfChangesToExplore do:[:idxA \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1688	\|aChangeInA idxM\|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1689
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1690	aChangeInA := self at:idxA.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1691
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1692	(aChangeInA isForSameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1693	anyFound := true.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1694
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1695	"/ also in B - is it different ?
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1696	(aChangeInA sameAs:aChangeInB) ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1697	"/ already there ?
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1698	idxM := changedMethods findFirst:[:c \| c isForSameAs:aChangeInB].
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1699	idxM == 0 ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1700	changedMethods add:aChangeInB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1701	indexFromChangedMethodsToB add:idxB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1702	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1703	indexFromChangedMethodsToB at:idxM put:idxB
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1704	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1705	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1706	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1707	(aChangeInA sameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1708	anyFound := true.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1709	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1710	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1711	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1712	].
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1713	anyFound ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1714	onlyInArg add:aChangeInB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1715	]
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1716	].
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1717
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	1718	"/ info := OrderedCollection new:(changedMethods size).
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1719	"/ changedMethods keysAndValuesDo:[:idx :changedMethod \|
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1720	"/ info add:(Array
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1721	"/ with:(indexFromChangedMethodsToA at:idx)
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1722	"/ with:(indexFromChangedMethodsToB at:idx)
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1723	"/ )
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1724	"/ ].
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	1725	changedMethods := (1 to:changedMethods size) asOrderedCollection collect:[:idx \|
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1726	\|cA cB\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1727
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1728	cA := self at:(indexFromChangedMethodsToA at:idx).
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1729	cB := anotherChangeSet at:(indexFromChangedMethodsToB at:idx).
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1730	Array with:cA with:cB
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1731	].
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1732
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1733	ret := DiffSet new
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	1734	changed:changedMethods
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1735	onlyInReceiver:onlyInReceiver
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1736	onlyInArg:onlyInArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1737	"/ ret info:info.
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	1738	^ret
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1739
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1740	"Modified: / 12-10-2006 / 22:22:39 / cg"
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1741	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1742
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1743	diffSetsAgainstImage
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1744
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1745	\|imageChangeSet\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1746
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1747	imageChangeSet := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1748	self changedClasses do:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1749	[:class\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1750	(class isMetaclass or:[class isPrivate]) ifFalse:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1751	[imageChangeSet addAll:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1752	(self class fromStream: class source asString readStream)]].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1753	^self diffSetsAgainst: imageChangeSet
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1754
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1755	"Created: / 04-12-2007 / 16:03:28 / janfrog"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1756	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1757
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1758	flatten
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1759
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1760	\| flatten \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1761	flatten := self class new: self size.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1762	self do:[:ea\|ea do:[:ea2\|flatten add: ea2]].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1763	^flatten
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1764
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1765	"Created: / 29-10-2010 / 14:40:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1766	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1767
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1768	groupBy: groupBlock labelAs: labelBlock
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1769
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1770	"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1771	returns a new changeset consisting of CompositeChanges.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1772	Changes are grouped together by value (tag) of groupBlock.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1773	Each composite change is then labeled using label
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1774	returned by labelBlock (called with the tag returned
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1775	by groupBlock as arg)
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1776	"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1777
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1778	^ self groupBy: groupBlock labelAs: labelBlock sort: false
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1779
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1780	"Created: / 24-07-2009 / 23:17:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1781	"Modified: / 25-07-2009 / 19:40:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1782	"Modified: / 29-10-2010 / 12:45:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1783	"Modified: / 30-08-2011 / 16:07:30 / cg"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1784	!
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1785
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1786	groupBy: groupBlock labelAs: labelBlock sort: doSort
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1787
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1788	"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1789	returns a new changeset consisting of CompositeChanges.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1790	Changes are grouped together by value (tag) of groupBlock.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1791	Each composite change is then labeled using label
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1792	returned by labelBlock (called with the tag returned
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1793	by groupBlock as arg)
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1794	"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1795
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1796	\| buckets newChangeset keys \|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1797
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1798	buckets := OrderedDictionary new.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1799	self do:
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1800	[:change\| \| tag \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1801	tag := groupBlock value: change.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1802	(buckets at: tag ifAbsentPut: [ChangeSet new:4])
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1803	add: change].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1804	newChangeset := ChangeSet new: buckets size.
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1805
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1806	keys := buckets keys select:[:k \| k notNil].
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1807	doSort ifTrue:[
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1808	keys sort.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1809	].
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1810	keys do:[:tag \|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1811	\|changes classDefs\|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1812
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1813	changes := buckets at:tag.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1814
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1815	"/ buckets keysAndValuesDo:
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1816	"/ [:tag :changes\| \| classDefs \|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1817	"Move class definition to the front"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1818	classDefs := changes select:[:chg\|chg isClassDefinitionChange].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1819	changes removeAll: classDefs.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1820	changes addAllFirst: classDefs.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1821
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1822	tag ifNotNil:
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1823	[newChangeset add:
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1824	(CompositeChange
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1825	name: (labelBlock value: tag)
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1826	changes: changes)]].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1827	(buckets includesKey: nil) ifTrue:
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1828	[newChangeset addAll: (buckets at: nil)].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1829	^newChangeset
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1830
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1831	"Created: / 24-07-2009 / 23:17:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1832	"Modified: / 25-07-2009 / 19:40:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1833	"Modified: / 29-10-2010 / 12:45:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1834	"Created: / 30-08-2011 / 16:07:01 / cg"
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1835	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1836
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1837	groupByClass
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1838	\|nm\|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1839
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1840	^self
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1841	groupBy: [:change\|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1842	change isClassChange ifTrue: [
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1843	nm := change className.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1844	(nm endsWith:' class') ifTrue:[nm := nm copyTo: nm size - 6].
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1845	nm
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1846	] ifFalse: [
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1847	nil
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1848	]
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1849	]
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1850	labelAs: [:className\|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1851	className
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1852	]
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1853	sort: true
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1854
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1855	"Created: / 25-07-2009 / 19:43:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1856	"Modified: / 24-10-2009 / 18:49:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1857	"Modified: / 30-08-2011 / 16:08:38 / cg"
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1858	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1859
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1860	saveSignedToFile:aFilename
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1861	"write the changeSet to a signed file in chunk format"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1862
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1863	self saveSignedToFile:aFilename format:nil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1864
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1865	"Created: / 08-02-2011 / 11:18:54 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1866	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1867
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1868	saveSignedToFile:aFilename format:formatSymbolOrNil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1869	"write the changeSet to a signed file in some format.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1870	Sign with the exept key (which you do not have outside of exept!!).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1871	Nil fomat is chunk"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1872
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1873	\|s pkcs7SignedData\|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1874
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1875	s := WriteStream on:(String new:2000).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1876	self saveToStream:s format:formatSymbolOrNil.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1877
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1878	pkcs7SignedData := Expecco::KeyFileGenerator new signExpeccoCode:s contents.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1879	aFilename asFilename contents:pkcs7SignedData.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1880
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1881	"Modified: / 08-02-2011 / 11:48:01 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1882	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1883
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1884	saveToFile:aFilename
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1885	"write the changeSet to a regular file in chunk format"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1886
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1887	self saveToFile:aFilename format:nil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1888
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1889	"Created: / 08-02-2011 / 11:18:46 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1890	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1891
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1892	saveToFile:aFilename format:formatSymbolOrNil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1893	"write the changeSet to a regular file in some format.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1894	Nil fomat is chunk"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1895
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1896	\|s\|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1897
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1898	s := aFilename asFilename writeStream.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1899	self saveToStream:s format:formatSymbolOrNil.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1900	s close.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1901
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1902	"Created: / 08-02-2011 / 11:20:06 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1903	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1904
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1905	saveToStream:aStream format:formatSymbolOrNil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1906	"write the changeSet to a stream in some format.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1907	Nil fomat is chunk"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1908
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1909	formatSymbolOrNil isNil ifTrue:[
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1910	self do:[:eachChange \|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1911	eachChange isMethodCodeChange ifTrue:[
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1912	aStream nextPutAll:'!!',(eachChange className),' methodsFor: '.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1913	aStream nextPutAll:(eachChange methodCategory storeString).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1914	aStream nextPutLine:'!!'.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1915	aStream cr.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1916	aStream nextPutAll:(eachChange source).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1917	aStream nextPutLine:'!! !!'.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1918	] ifFalse:[
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1919	aStream nextPutAll:(eachChange source).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1920	aStream nextPutLine:'!!'.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1921	].
2469 4a02caf1782d changed: #saveToStream:format: Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	1922	aStream cr.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1923	].
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1924	].
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1925
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1926	self halt
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1927
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1928	"Created: / 08-02-2011 / 11:25:16 / cg"
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1929	! !
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1930
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1931	!ChangeSet::ChangeFileReader methodsFor:'accessing'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1932
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1933	changeAction:aBlock
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1934	changeAction := aBlock.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1935	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1936
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1937	changeSet:something
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1938	"set the value of the instance variable 'changeSet' (automatically generated)"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1939
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1940	changeSet := something.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1941	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1942
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1943	inputStream:aStream
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1944	inputStream := aStream.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1945	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1946
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1947	!ChangeSet::ChangeFileReader methodsFor:'helpers'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1948
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1949	addChange:change
2008 204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	1950	changeAction
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	1951	valueWithOptionalArgument:change
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	1952	and:lineNumber
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	1953	and:position.
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	1954
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1955	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1956
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1957	checkReceiverIsGlobalNamed:expectedName
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1958	^ self variableNameOfReceiver = expectedName
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1959	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1960
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1961	classNameOf:aReceiver
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1962
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1963	\| nameSpace clsName \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1964	nameSpace := Class nameSpaceQuerySignal query.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1965
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1966	(aReceiver isUnaryMessage and:[aReceiver selector == #class])
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1967	ifTrue:[clsName := (aReceiver receiver name) , ' class']
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1968	ifFalse:[clsName := aReceiver name].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1969
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1970	^(nameSpace ~~ Smalltalk and:[(clsName startsWith: nameSpace name) not])
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1971	ifTrue:[nameSpace name , '::' , clsName]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1972	ifFalse:[clsName].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1973	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1974
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1975	receiversClassName
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1976	^ self classNameOf:receiver
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1977	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1978
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1979	variableNameOfReceiver
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1980
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1981	receiver isVariable ifFalse:[ ^ nil ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1982	^ receiver name
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1983	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1984
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1985	!ChangeSet::ChangeFileReader methodsFor:'reading'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1986
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1987	changesFromParseTree:aTree lineNumber:initialLineNumberOrNil position:initialPositionOrNil
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1988	"given a parse-tree (from parsing some changes source/chunk),
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1989	create changes and evaluate changeAction on each.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1990	The chnageAction-block is invoked with the change and a lineNumberOrNil as
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1991	arg; the lineNumber is only valid, if the underlying inputStream
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1992	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1993
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1994	lineNumber := initialLineNumberOrNil.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1995	position := initialPositionOrNil.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1996	parseTree := aTree.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1997
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1998	selector := aTree selector.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1999	receiver := aTree receiver.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2000	arguments := aTree arguments.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2001
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2002	receiver isMessage ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2003	receiverSelector := receiver selector.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2004	receiverReceiver := receiver receiver.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2005	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2006
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2007	^ self processChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2008	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2009
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2010	!ChangeSet::ChangeFileReader methodsFor:'reading-private'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2011
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2012	handleCategoriesForChange
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2013	\|selector category categories attributes change\|
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2014
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	2015	selector := arguments first value.
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2016	className := self receiversClassName.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2017
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2018	categories := OrderedCollection new.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2019	attributes := OrderedCollection new.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2020
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2021	[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2022	inputStream skipSeparators.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2023	category := inputStream nextChunk.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2024	category notEmptyOrNil
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2025	] whileTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2026	( #( 'public' 'private' ) includes: category) ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2027	attributes add:category
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2028	] ifFalse:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2029	categories add:category
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2030	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2031	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2032	categories size == 1 ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2033	"/ easy
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2034	change := MethodCategoryChange
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2035	className:className
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2036	selector:selector
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2037	source:(parseTree printString)
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2038	category:(categories first).
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2039	self addChange:change.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2040	] ifFalse:[
2298 42eaf6957b08 halt Claus Gittinger <cg@exept.de> parents: 2290 diff changeset	2041	self halt:'multiple/missing categories not supported'.
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2042	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2043
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2044	attributes size == 1 ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2045	"/ easy
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2046	(attributes first = 'public') ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2047	"/ default anyway - ignore
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2048	] ifFalse:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2049	change := MethodPrivacyChange
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2050	className:className
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2051	selector:selector
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2052	privacy:(attributes first asSymbol).
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2053	change source:(parseTree printString).
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2054	self addChange:change.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2055	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2056	] ifFalse:[
2298 42eaf6957b08 halt Claus Gittinger <cg@exept.de> parents: 2290 diff changeset	2057	self halt:'multiple/missing attributes not supported'.
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2058	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2059	^ true
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2060	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2061
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2062	handleClassCommentChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2063	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2064
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2065	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2066	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2067	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2068	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2069
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2070	change := ClassCommentChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2071	change className:className comment:(arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2072	change source:(parseTree printString).
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2073	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2074	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2075	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2076
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2077	handleClassDefinitionChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2078	\|nameSpace change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2079
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2080	className := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2081	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2082	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2083	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2084	nameSpace := Class nameSpaceQuerySignal query.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2085	nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2086	className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2087	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2088
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2089	change := ClassDefinitionChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2090	change className:className; source:(parseTree printString).
1453 27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2091	receiver isVariable ifTrue:[
27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2092	change superClassName:receiver name.
27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2093	].
1428 807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2094	selector keywords with:arguments do:[:kw :arg \|
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2095	kw = #'instanceVariableNames:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2096	change instanceVariableNames:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2097	].
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2098	kw = #'classVariableNames:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2099	change classVariableNames:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2100	].
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2101	kw = #'poolDictionaries:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2102	change poolDictionaries:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2103	].
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2104	kw = #'category:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2105	change category:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2106	].
2125 3c071cecc2b0 changed: #handleClassDefinitionChange fm parents: 2122 diff changeset	2107	kw = #'privateIn:' ifTrue:[
2290 882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2108	change className:(arg name ,'::',change classNameWithoutNamespace).
882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2109	change owningClassName:(arg name).
882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2110	change private:true.
2125 3c071cecc2b0 changed: #handleClassDefinitionChange fm parents: 2122 diff changeset	2111	].
1428 807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2112	].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2113
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2114	change package:(Class packageQuerySignal query).
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2115	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2116	"/ change nameSpaceName:(nameSpace name).
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2117	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2118	"/
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2119	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2120	^ true
2290 882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2121
882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2122	"Modified: / 30-08-2010 / 13:56:32 / cg"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2123	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2124
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2125	handleClassInstanceVariableDefinitionChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2126	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2127
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2128	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2129
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2130	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2131	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2132	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2133	change := ClassInstVarDefinitionChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2134	change className:className.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2135	change source:(parseTree printString).
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2136	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2137	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2138	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2139
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2140	handleMethodCategoryChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2141	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2142
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2143	(receiver isMessage
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2144	and:[receiverSelector == #'compiledMethodAt:']) ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2145	self error:'unexpected change' mayProceed:true.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2146	^ false.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2147	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2148	className := self classNameOf:receiverReceiver.
2046 6d7bc535ea69 Change #halt: to #shouldImplement or #assert: Stefan Vogel <sv@exept.de> parents: 2008 diff changeset	2149	self assert:className notNil.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2150
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2151	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2152	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2153	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2154	methodSelector := (receiver arguments at:1) evaluate.
2046 6d7bc535ea69 Change #halt: to #shouldImplement or #assert: Stefan Vogel <sv@exept.de> parents: 2008 diff changeset	2155	self assert:methodSelector notNil.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2156
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2157	change := MethodCategoryChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2158	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2159	className:className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2160	selector:methodSelector
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2161	category:(arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2162
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2163	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2164	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2165	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2166
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2167	handleMethodCategoryRenameChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2168	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2169
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2170	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2171	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2172	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2173	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2174
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2175	change := MethodCategoryRenameChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2176	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2177	className:className;
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2178	oldCategoryName:(arguments at:1) evaluate
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2179	newCategoryName:(arguments at:2) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2180
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2181	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2182	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2183	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2184
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2185	handleMethodChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2186	\|priv categoryName methodSource changes change parser \|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2187
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2188	(selector == #'ignoredMethodsFor:') ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2189	priv := #ignored.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2190	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2191	priv := nil
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2192	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2193	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2194	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2195	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2196	"/ ].
1977 3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2197	((selector == #'methods')
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2198	or:[(selector == #'publicMethods')
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2199	or:[(selector == #'methodsFor')]]) ifTrue:[
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2200	categoryName := 'uncategorized public'
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2201	] ifFalse:[
1977 3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2202	(selector == #'privateMethods') ifTrue:[
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2203	categoryName := 'uncategorized private'
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2204	] ifFalse:[
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2205	categoryName := (arguments at:1) evaluate.
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2206	]
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2207	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2208	inputStream skipSeparators.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2209	lineNumber := inputStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	2210	position := inputStream position1Based.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2211
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2212	methodSource := inputStream nextChunk.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2213	changes := OrderedCollection new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2214
1395 6ea99b157f6b Use #setFilename:forClass:package: to define an abbreviation Stefan Vogel <sv@exept.de> parents: 1389 diff changeset	2215	[methodSource notEmptyOrNil] whileTrue:[
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2216	parser := Parser
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2217	parseMethodArgAndVarSpecification:methodSource
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2218	in:nil
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2219	ignoreErrors:true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2220	ignoreWarnings:true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2221	parseBody:false.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2222
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2223	parser isNil ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2224	"/ something wierd ...
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2225	methodSelector := '????'.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2226	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2227	methodSelector := parser selector.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2228	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2229
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2230	change := MethodChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2231	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2232	className:className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2233	selector:methodSelector
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2234	source:methodSource
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2235	category:categoryName
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2236	privacy:priv.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2237
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2238	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2239
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2240	inputStream skipSeparators.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2241	lineNumber := inputStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	2242	position := inputStream position1Based.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2243	methodSource := inputStream nextChunk.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2244	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2245	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2246	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2247
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2248	handleMethodPrivacyChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2249	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2250
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2251	(receiver isMessage
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2252	and:[receiverSelector == #'compiledMethodAt:']) ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2253	self error:'unexpected change' mayProceed:true.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2254	^ false.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2255	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2256
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2257	className := self classNameOf:receiverReceiver.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2258	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2259	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2260	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2261	methodSelector := (receiver arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2262
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2263	change := MethodPrivacyChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2264	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2265	className:className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2266	selector:methodSelector
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2267	privacy:(arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2268
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2269	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2270	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2271	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2272
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2273	handleNameSpaceCreationChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2274	\|change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2275
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2276	(self checkReceiverIsGlobalNamed:#Namespace) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2277	(self checkReceiverIsGlobalNamed:#NameSpace) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2278	self error:'unexpected receiver in nameSpace message' mayProceed:true.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2279	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2280	].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2281	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2282
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2283	className := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2284
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2285	change := NameSpaceCreationChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2286	change name:className.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2287	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2288	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2289	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2290
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2291	handlePrimitiveChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2292	\|change primSource\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2293
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2294	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2295	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2296	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2297	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2298
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2299	inputStream skipSeparators.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2300	primSource := inputStream nextChunk.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2301
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2302	selector == #'primitiveDefinitions' ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2303	change := ClassPrimitiveDefinitionsChange new
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2304	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2305	selector == #'primitiveFunctions' ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2306	change := ClassPrimitiveFunctionsChange new
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2307	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2308	change := ClassPrimitiveVariablesChange new
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2309	]
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2310	].
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2311	change className:className source:primSource.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2312	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2313	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2314	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2315
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2316	handleRemoveClassChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2317	\|change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2318
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2319	(self checkReceiverIsGlobalNamed:#Smalltalk) ifFalse:[
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2320	self error:'unexpected receiver in remove-class message' mayProceed:true.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2321	^ false
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2322	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2323
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2324	className := (arguments at:1) name.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2325	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2326	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2327	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2328
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2329	change := ClassRemoveChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2330	change className:className.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2331	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2332	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2333	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2334
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2335	handleRemoveMethodChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2336	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2337
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2338	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2339	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2340	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2341	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2342	methodSelector := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2343	change := MethodRemoveChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2344	change className:className selector:methodSelector.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2345	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2346	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2347	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2348
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2349	handleRenameClassChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2350	\|oldName newName change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2351
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2352	(self checkReceiverIsGlobalNamed:#Smalltalk) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2353	self error:'unexpected receiver in rename-class message' mayProceed:true.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2354	^ false.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2355	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2356
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2357	oldName := (arguments at:1) name.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2358	newName := (arguments at:2) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2359
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2360	change := ClassRenameChange new oldName:oldName newName:newName.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2361	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2362	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2363	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2364
1181 e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2365	handleSqueakCommentStamp
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2366	\|comment change\|
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2367
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2368	inputStream skipSeparators.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2369
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2370	comment := inputStream nextChunk.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2371
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2372	className := self receiversClassName.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2373	change := ClassCommentChange new.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2374	change className:className comment:comment.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2375	change source:(parseTree printString).
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2376	self addChange:change.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2377	^ true
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2378	!
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2379
1183 419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2380	handleVW7ClassDefinitionChange
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2381	\|nameSpace change\|
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2382
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2383	nameSpace := receiver.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2384	className := (arguments at:1) evaluate.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2385
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2386	"/ nameSpace := Class nameSpaceQuerySignal query.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2387	"/ nameSpace ~~ Smalltalk ifTrue:[
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2388	"/ className := nameSpace name , '::' , className
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2389	"/ ].
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2390
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2391	change := ClassDefinitionChange new.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2392	change className:className; source:(parseTree printString).
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2393
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2394	change package:(Class packageQuerySignal query).
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2395	self addChange:change.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2396	^ true
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2397	!
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2398
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2399	processChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2400	"given a parse-tree (from parsing some changes source/chunk),
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2401	create changes and evaluate changeAction on each.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2402	The block is invoked with the change and a lineNumberOrNil as
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2403	arg; the lineNumber is only valid, if the underlying stream
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2404	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2405
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2406	\|dispatchSelector\|
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2407
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2408	dispatchSelector := ('process_',(selector copyReplaceAll:$: with:$_)) asSymbol.
2122 3ffe8c94f2cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2117 diff changeset	2409	"/ Transcript showCR:dispatchSelector.
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2410	(self respondsTo:dispatchSelector) ifTrue:[
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2411	^ self perform:dispatchSelector.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2412	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2413
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2414	"/ any subclass definiton selector ?
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2415	(Behavior definitionSelectors includes:selector)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2416	ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2417	^ self handleClassDefinitionChange.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2418	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2419
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2420	^ false
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2421	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2422
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2423	process_categoriesFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2424	"'categoriesFor:' chunk (Dolphin)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2425
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2426	^ self handleCategoriesForChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2427	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2428
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2429	process_category_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2430	"'category:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2431
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2432	^ self handleMethodCategoryChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2433	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2434
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2435	process_commentStamp_prior_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2436	"'commentStamp:prior::' chunk (Squeak)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2437
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2438	^ self handleSqueakCommentStamp.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2439	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2440
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2441	process_comment_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2442	"'comment:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2443
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2444	^ self handleClassCommentChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2445	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2446
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2447	process_ignoredMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2448	"'ignoredMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2449
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2450	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2451	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2452
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2453	process_instanceVariableNames_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2454	"'instanceVariableNames:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2455
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2456	^ self handleClassInstanceVariableDefinitionChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2457	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2458
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2459	process_methods
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2460	"'methods' chunk (ST/V and dolphin)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2461
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2462	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2463	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2464
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2465	process_methodsFor
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2466	"'methodsFor' chunk (ST/V and dolphin)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2467
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2468	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2469	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2470
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2471	process_methodsForUndefined_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2472	"'methodsForUndefined:' chunk (?)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2473
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2474	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2475	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2476
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2477	process_methodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2478	"'methodsFor:' chunk (ST/80, Squeak, ST/X, VW, ...)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2479
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2480	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2481	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2482
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2483	process_methodsFor_stamp_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2484	"'methodsFor:stamp:' chunk (Squeak)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2485
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2486	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2487	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2488
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2489	process_name_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2490	"'name:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2491
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2492	^ self handleNameSpaceCreationChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2493	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2494
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2495	process_primitiveDefinitions
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2496	"'primitiveDefinitions' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2497
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2498	^ self handlePrimitiveChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2499	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2500
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2501	process_primitiveFunctions
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2502	"'primitiveFunctions' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2503
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2504	^ self handlePrimitiveChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2505	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2506
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2507	process_primitiveVariables
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2508	"'primitiveVariables' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2509
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2510	^ self handlePrimitiveChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2511	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2512
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2513	process_privacy_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2514	"'privacy:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2515
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2516	^ self handleMethodPrivacyChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2517	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2518
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2519	process_privateMethods
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2520	"'privateMethods' chunk (ST/V and dolphin)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2521
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2522	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2523	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2524
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2525	process_privateMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2526	"'privateMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2527
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2528	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2529	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2530
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2531	process_protectedMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2532	"'protectedMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2533
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2534	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2535	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2536
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2537	process_publicMethods
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2538	"'publicMethods' chunk (ST/V and dolphin)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2539
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2540	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2541	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2542
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2543	process_publicMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2544	"'publicMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2545
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2546	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2547	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2548
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2549	process_removeClass_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2550	"'removeClass:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2551
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2552	^ self handleRemoveClassChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2553	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2554
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2555	process_removeSelector_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2556	"'removeSelector:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2557
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2558	^ self handleRemoveMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2559	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2560
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2561	process_renameCategory_to_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2562	"'renameCategory:to:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2563
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2564	^ self handleMethodCategoryRenameChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2565	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2566
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2567	process_renameClass_to_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2568	"'renameClass:to:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2569
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2570	^ self handleRenameClassChange.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2571	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2572
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2573	!ChangeSet::DiffSet class methodsFor:'documentation'!
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2574
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2575	documentation
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2576	"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2577	I represent the differences between two change sets.
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2578	As such, I can be used by a VersionDiffBrowser and to generate patchSets.
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2579	"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2580	! !
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	2581
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2582	!ChangeSet::DiffSet methodsFor:'accessing'!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2583
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2584	changed
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2585	"return the set of methods which were different"
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2586
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2587	^ changed
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2588
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2589	"Modified: / 12-10-2006 / 22:06:55 / cg"
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2590	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2591
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2592	changed:something
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2593	"set the set of changed methods"
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2594
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2595	changed := something.
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2596
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2597	"Modified: / 12-10-2006 / 22:06:03 / cg"
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2598	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2599
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2600	changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2601	"set instance variables (automatically generated)"
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2602
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2603	changed := changedArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2604	changed isNil ifTrue:[changed := OrderedCollection new].
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	2605
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2606	onlyInReceiver := onlyInReceiverArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2607	onlyInReceiver isNil ifTrue:[onlyInReceiver := ChangeSet new].
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	2608
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2609	onlyInArg := onlyInArgArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2610	onlyInArg isNil ifTrue:[onlyInArg := ChangeSet new].
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2611	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2612
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2613	onlyInArg
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2614	"return the set of methods which were only present in the argument of the diffset"
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2615
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2616	^ onlyInArg
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2617
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2618	"Modified: / 12-10-2006 / 22:07:02 / cg"
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2619	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2620
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2621	onlyInArg:something
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2622	onlyInArg := something.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2623	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2624
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2625	onlyInReceiver
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2626	"return the set of methods which were only present in the receiver of the diffset"
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2627
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2628	^ onlyInReceiver
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2629
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2630	"Modified: / 12-10-2006 / 22:07:12 / cg"
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2631	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2632
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2633	onlyInReceiver:something
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2634	onlyInReceiver := something.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2635	! !
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2636
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2637	!ChangeSet::DiffSet methodsFor:'merging'!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2638
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2639	addDiffSet:anotherDiffset
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2640	changed addAll:(anotherDiffset changed).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2641	onlyInReceiver addAll:(anotherDiffset onlyInReceiver).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2642	onlyInArg addAll:(anotherDiffset onlyInArg).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2643
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2644	"Created: / 12-10-2006 / 22:49:30 / cg"
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2645	!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2646
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2647	copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2648	^ self class new
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2649	changed:changed copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2650	onlyInReceiver:onlyInReceiver copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2651	onlyInArg:onlyInArg copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2652
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2653	"Created: / 12-10-2006 / 22:50:56 / cg"
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2654	! !
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2655
2186 3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2656	!ChangeSet::DiffSet methodsFor:'misc'!
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2657
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2658	removeAllVersionMethods
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2659	changed := changed
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2660	reject:[:pair \|
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2661	pair first isMethodChangeForVersionMethod
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2662	].
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2663	onlyInReceiver := onlyInReceiver
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2664	reject:[:chg \|
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2665	chg isMethodChangeForVersionMethod
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2666	].
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2667	onlyInArg := onlyInArg
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2668	reject:[:chg \|
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2669	chg isMethodChangeForVersionMethod
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2670	].
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2671	! !
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	2672
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2673	!ChangeSet::DiffSet methodsFor:'queries'!
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2674
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2675	isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2676	^ changed isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2677	and:[ onlyInReceiver isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2678	and:[ onlyInArg isEmpty ] ]
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2679	!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2680
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2681	notEmpty
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2682	^ self isEmpty not
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2683
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	2684	"Created: / 12-10-2006 / 23:12:27 / cg"
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2685	! !
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	2686
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2687	!ChangeSet::DolphinPACFileReader methodsFor:'reading-private'!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2688
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2689	handleCategoriesForClass
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2690	\|category change\|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2691
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2692	[
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2693	inputStream skipSeparators.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2694	category := inputStream nextChunk.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2695	category notEmpty
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2696	] whileTrue:[
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2697	change := ClassCategoryChange new.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2698	change
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2699	className:className
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2700	category:category.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2701
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2702	self addChange:change.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2703	].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2704	^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2705	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2706
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2707	handleCategoriesForMethod
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2708	\|methodSelector categories change isPrivate isPublic category\|
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2709
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2710	methodSelector := (arguments at:1) evaluate.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2711	inputStream skipSeparators.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2712	isPrivate := false.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2713
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2714	categories := OrderedCollection new.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2715	[
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2716	\|done category \|
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2717
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2718	category := inputStream nextChunk withoutSeparators.
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2719	done := category isEmpty.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2720	done ifFalse:[
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2721	categories add:category
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2722	].
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2723	done
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2724	] whileFalse.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2725
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2726	categories size > 1 ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2727	isPrivate := categories includes:'private'.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2728	categories remove:'private' ifAbsent:nil.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2729	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2730	categories size > 1 ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2731	isPublic := categories includes:'public'.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2732	categories remove:'public' ifAbsent:nil.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2733	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2734	"/ categories size > 1 ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2735	"/ self halt.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2736	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2737
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2738	category := categories first.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2739	isPrivate ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2740	category := category , '-private'.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2741	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2742
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2743	change := MethodCategoryChange new.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2744	change
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2745	className:className
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2746	selector:methodSelector
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2747	category:category.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2748
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2749	self addChange:change.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2750	^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2751	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2752
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2753	processChange
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2754	"given a parse-tree (from parsing some changes source/chunk),
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2755	create changes and evaluate changeAction on each.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2756	The block is invoked with the change and a lineNumberOrNil as
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2757	arg; the lineNumber is only valid, if the underlying stream
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2758	provides line-numbers; otherwise, nil is passed."
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2759
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2760	(selector == #'categoriesForClass') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2761	^ self handleCategoriesForClass.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2762	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2763	(selector == #'categoriesFor:') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2764	^ self handleCategoriesForMethod.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2765	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2766	selector == #'subclass:instanceVariableNames:classVariableNames:poolDictionaries:classInstanceVariableNames:' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2767	^ self handleClassDefinitionChange.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2768	].
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2769	"/ selector == #'guid:' ifTrue:[
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2770	"/ ^ self handleGUIDChange.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2771	"/ ].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2772	^ super processChange
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2773
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2774
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2775	"/ selector == #named:superclass:indexedInstanceVariables:instanceVariableNames:classVariableNames:sharedPools:classInstanceVariableNames: ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2776	"/ ^ self handleClassDefinitionChange.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2777	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2778	"/ (selector == #'key:value:') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2779	"/ (self checkReceiverIsGlobalNamed:'Annotation') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2780	"/ ^ self handleAnnotation.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2781	"/ ]
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2782	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2783	"/ selector == #'method' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2784	"/ ^ self handleMethodChange:false.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2785	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2786	"/ selector == #'classMethod' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2787	"/ ^ self handleMethodChange:true.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2788	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2789	"/
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2790	"/ selector == #'initializer' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2791	"/ ^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2792	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2793	"/ selector == #'initialize' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2794	"/ ^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2795	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2796	"/self halt.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2797	"/
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2798	"/ ^ false
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2799
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2800	"Created: / 16.2.1998 / 13:42:40 / cg"
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2801	"Modified: / 15.12.1999 / 00:29:06 / cg"
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2802	! !
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2803
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2804	!ChangeSet::SIFChangeFileReader methodsFor:'reading-private'!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2805
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2806	handleAnnotation
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2807	\|key value lastChange change\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2808
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2809	key := (arguments at:1) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2810	value := (arguments at:2) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2811
1422 6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	2812	key = 'Prerequisite' ifTrue:[
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	2813	"/ change := SIFPrerequisiteChange new prerequisiteFileName:value.
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	2814	"/ self addChange:change.
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	2815	^ true
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	2816	].
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	2817
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2818	lastChange := changeSet last.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2819
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2820	key = 'package' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2821	change := ClassCategoryChange new className:(lastChange className) category:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2822	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2823	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2824	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2825	key = 'category' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2826	"/ change := MethodCategoryChange new className:(lastChange className) selector:(lastChange selector) category:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2827	"/ self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2828	lastChange category:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2829	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2830	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2831	key = 'stamp' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2832	"/ lastChange timeStamp:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2833	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2834	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2835	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2836	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2837
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2838	handleClassDefinitionChange
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2839	\|nameSpace change\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2840
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2841	(self checkReceiverIsGlobalNamed:#Class) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2842	self error:'unexpected receiver in classDefinition message' mayProceed:true.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2843	^ false.
1313 8aceccee1eaf * empty log message * Claus Gittinger <cg@exept.de> parents: 1301 diff changeset	2844	].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2845	className := (arguments at:1) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2846
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2847	nameSpace := Class nameSpaceQuerySignal query.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2848	nameSpace ~~ Smalltalk ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2849	className := nameSpace name , '::' , className
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2850	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2851
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2852	change := ClassDefinitionChange new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2853	change className:className; source:(parseTree printString).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2854
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2855	change package:(Class packageQuerySignal query).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2856	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2857	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2858	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2859
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2860	handleMethodChange:isMeta
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	2861	\|categoryName methodSource change parser \|
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2862
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2863	className := self receiversClassName.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2864	isMeta ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2865	className := className , ' class'
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2866	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2867
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2868	categoryName := 'uncategorized'.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2869
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2870	inputStream skipSeparators.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2871	lineNumber := inputStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	2872	position := inputStream position1Based.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2873
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2874	methodSource := inputStream nextChunk.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2875
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2876	parser := Parser
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2877	parseMethodArgAndVarSpecification:methodSource
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2878	in:nil
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2879	ignoreErrors:true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2880	ignoreWarnings:true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2881	parseBody:false.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2882
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2883	parser isNil ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2884	"/ something wierd ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2885	methodSelector := '????'.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2886	] ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2887	methodSelector := parser selector.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2888	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2889
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2890	change := MethodChange new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2891	change
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2892	className:className
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2893	selector:methodSelector
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2894	source:methodSource
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2895	category:categoryName
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	2896	privacy:nil.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2897
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2898	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2899	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2900	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2901
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2902	processChange
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2903	"given a parse-tree (from parsing some changes source/chunk),
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2904	create changes and evaluate changeAction on each.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2905	The block is invoked with the change and a lineNumberOrNil as
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2906	arg; the lineNumber is only valid, if the underlying stream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2907	provides line-numbers; otherwise, nil is passed."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2908
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2909	(selector == #'interchangeVersion:') ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2910	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2911	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2912	selector == #named:superclass:indexedInstanceVariables:instanceVariableNames:classVariableNames:sharedPools:classInstanceVariableNames: ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2913	^ self handleClassDefinitionChange.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2914	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2915	(selector == #'key:value:') ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2916	(self checkReceiverIsGlobalNamed:'Annotation') ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2917	^ self handleAnnotation.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2918	]
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2919	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2920	selector == #'method' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2921	^ self handleMethodChange:false.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2922	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2923	selector == #'classMethod' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2924	^ self handleMethodChange:true.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2925	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2926
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2927	selector == #'initializer' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2928	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2929	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2930	selector == #'initialize' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2931	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2932	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2933
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2934	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2935
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2936	"Created: / 16.2.1998 / 13:42:40 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2937	"Modified: / 15.12.1999 / 00:29:06 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2938	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2939
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	2940	!ChangeSet class methodsFor:'documentation'!
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	2941
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2942	version_CVS
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2943	^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.181 2011-08-30 18:53:42 cg Exp $'
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2944
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	2945	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 30 Aug 2011 20:53:42 +0200
changeset 2491	882e07ee86bd
parent 2469	4a02caf1782d
child 2519	9ec9171b05e6
permissions	-rw-r--r--