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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 11 Feb 2012 22:06:36 +0000
branch	jv
changeset 3017	114676d42a88
parent 3012	4f40b8304d54
child 3028	679feb681da5
permissions	-rw-r--r--