hg/stx-libbasic3: ChangeSet.st@66f3216e3ea5 (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
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	37	SmalltalkChunkFileSourceWriter subclass:#ClassSourceWriter
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	38	instanceVariableNames:'changeSetBeingSaved infos topClassName classInfos metaInfos'
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	39	classVariableNames:''
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	40	poolDictionaries:''
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	41	privateIn:ChangeSet
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	42	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	43
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	44	Object subclass:#ClassInfo
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	45	instanceVariableNames:'name superclass definition methods methodDictionary'
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	46	classVariableNames:''
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	47	poolDictionaries:''
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	48	privateIn:ChangeSet::ClassSourceWriter
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	49	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	50
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	51	Object subclass:#DiffSet
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	52	instanceVariableNames:'changed onlyInReceiver onlyInArg'
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
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	56	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	57
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	58	ChangeSet::ChangeFileReader subclass:#DolphinPACFileReader
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
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	63	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	64
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	65	ChangeSet::ChangeProcessingError subclass:#InvalidChangeChunkError
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	66	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	67	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	68	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	69	privateIn:ChangeSet
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	70	!
b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	71
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	72	ChangeSet::ChangeFileReader subclass:#SIFChangeFileReader
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	73	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	74	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	75	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	76	privateIn:ChangeSet
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	77	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	78
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	79	!ChangeSet class methodsFor:'documentation'!
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	80
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	81	copyright
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	82	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	83	COPYRIGHT (c) 1993 by Claus Gittinger
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	84	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	85
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	86	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	87	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	88	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	89	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	90	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	91	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	92	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	93	!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	94
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	95	documentation
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	96	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	97	used in the changes management to keep track of changes
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	98
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	99	[author:]
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	100	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	101	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	102	! !
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	103
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	104	!ChangeSet class methodsFor:'instance creation'!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	105
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	106	forExistingClass:aClass
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	107	"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	108	and all extensions if any.
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	109	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	110	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	111	state of the given class.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	112	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	113	for example, when building patchLists, diffSets, comparing etc."
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	114
1954 521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	115	\|changeSet s changeObject\|
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	116
2633 5a5460e5231a comment/format in: Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	117	"/ kludge: could do this much faster...
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	118	s := ReadWriteStream on:''.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	119	aClass fileOutOn:s.
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	120	s reset.
a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	121	changeSet := self fromStream:s.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	122
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	123	"/ fetch the real package info...
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	124	changeSet do:[:eachChange \|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	125	eachChange isMethodChange ifTrue:[
1954 521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	126	changeObject := eachChange changeMethod.
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	127	changeObject notNil ifTrue:[
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	128	eachChange package:changeObject package
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	129	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	130	] ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	131	eachChange isClassChange ifTrue:[
1954 521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	132	changeObject := eachChange changeClass.
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	133	changeObject notNil ifTrue:[
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	134	eachChange package:changeObject package
521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	135	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	136	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	137	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	138	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	139
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	140	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	141
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	142	"/ \|source changeSet chunk sawExcla lastTimeStamp s change nameSpace\|
a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	143
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	144	"/ changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	145	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	146	"/ "/ first, a classDefinition change ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	147	"/ changeSet addClassDefinitionChangeFor:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	148	"/ "/ are there any class-instVars ?
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	149	"/ aClass class instVarNames size > 0 ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	150	"/ changeSet addInstVarDefinitionChangeFor:aClass class.
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	"/ "/ a comment ?
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	153	"/ aClass comment size > 0 ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	154	"/ changeSet addClassCommentChangeFor:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	155	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	156	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	157	"/ "/ class methods first ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	158	"/ aClass class methodDictionary keysAndValuesDo:[:sel :mthd \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	159	"/ changeSet addMethodChange:mthd in:aClass class.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	160	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	161	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	162	"/ "/ instance methods ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	163	"/ aClass methodDictionary keysAndValuesDo:[:sel :mthd \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	164	"/ changeSet addMethodChange:mthd in:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	165	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	166	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	167	"/ ^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	168
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	169
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	170	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	171	ChangeSet forExistingClass:ChangeSet
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	172	ChangeSet forExistingClass:A
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	173
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	174	Rectangle hasExtensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	175	ChangeSet forExistingClass:Rectangle
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	176	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	177
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	178	"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	179	"Modified: / 12-10-2006 / 23:45:14 / cg"
2633 5a5460e5231a comment/format in: Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	180	"Modified (format): / 01-12-2011 / 19:10:22 / cg"
1865 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
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	183	forExistingClass:aClass withExtensions:withExtensions extensionsOnly:extensionsOnly
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	184	"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	185	as specified by the with-arguments.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	186	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	187	state of the given class.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	188	It is useful in conjunction with the other utility methods,
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	189	for example, when building patchLists, diffSets etc."
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	190
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	191	\|changeSet classPackage\|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	192
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	193	changeSet := self forExistingClass:aClass.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	194	classPackage := aClass package.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	195
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	196	extensionsOnly ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	197	^ changeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	198	select:[:change \|
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	199	change isMethodChange and:[ change package ~= classPackage ]
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	200	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	201	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	202	withExtensions ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	203	^ changeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	204	reject:[:change \|
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	205	change isMethodChange and:[ change package ~= classPackage ]
1865 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
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	209	^ changeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	210
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	211	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	212	ChangeSet forExistingClass:ChangeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	213
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	214	Rectangle hasExtensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	215	Rectangle extensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	216
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	217	ChangeSet forExistingClass:Rectangle withExtensions:true extensionsOnly:false
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	218	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:false
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	219	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:true
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	220	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	221
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	222	"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	223	"Modified: / 12-10-2006 / 23:46:05 / cg"
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	224	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	225
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	226	forExistingMethods:aCollectionOfMethods
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	227	"build a changeSet for a collection of methods.
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	228	That does of course not give deltas, but instead reflects the current
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	229	state of the given set of methods.
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	230	It is useful in conjunction with the other utility methods,
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	231	for example, when building patchLists, diffSets etc."
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	232
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	233	\|changeSet stream previousPackage\|
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	234
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	235	changeSet := self new.
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	236	aCollectionOfMethods do:[:eachMethod \|
2524 309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	237	\|change source\|
309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	238
309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	239	source := eachMethod source.
309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	240	source isNil ifTrue:[
309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	241	Transcript showCR:'oops - no source for ',eachMethod whoString.
309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	242	].
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	243	change := MethodDefinitionChange new.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	244	eachMethod mclass notNil ifTrue:[ change className:eachMethod mclass name ].
2524 309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	245	source notNil ifTrue:[ change source:source ].
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	246	change selector:eachMethod selector.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	247	change package:(eachMethod package).
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	248	change category:(eachMethod category).
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	249	changeSet add:change.
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	250	].
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	251
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	252	"/ stream := ReadWriteStream on:''.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	253	"/ aCollectionOfMethods do:[:eachMethod \|
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	254	"/ previousPackage ~= eachMethod package ifTrue:[
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	255	"/ stream nextPutAll:'"{ Package: '''.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	256	"/ stream nextPutAll:eachMethod package asString.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	257	"/ stream nextPutAll:''' }"'; cr; cr.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	258	"/ ].
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	259	"/ eachMethod mclass fileOutMethod:eachMethod on:stream
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	260	"/ ].
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	261	"/ stream reset.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	262	"/ changeSet := self fromStream:stream.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	263	"/ changeSet do:[:eachChange \|
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	264	"/ eachChange package:(eachChange changeMethod package).
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	265	"/ ].
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	266	^ changeSet
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	267
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	268	"
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	269	ChangeSet forExistingMethods:(Array with:(Array compiledMethodAt:#at:)
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	270	with:(Object compiledMethodAt:#at:)
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	271	with:(Behavior compiledMethodAt:#compiledMethodAt:) )
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	272	"
1872 7a1f2a26bf90 changes for compare-project functionality Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	273
2524 309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	274	"Modified: / 17-09-2011 / 10:26:03 / cg"
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	275	!
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	276
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	277	forPackage: package
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	278
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	279	^self forPackage: package ignoreAutoloaded: false.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	280
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	281	"Created: / 20-05-2008 / 17:56:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	282	"Modified: / 12-08-2009 / 14:23:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	283	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	284
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	285	forPackage: package ignoreAutoloaded: ignoreAutoloaded
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	286	"build a changeSet for a given package"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	287
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	288	\|changeSet packageClasses packageExtensions\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	289
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	290	packageClasses := ProjectDefinition searchForClassesWithProject: package.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	291	packageExtensions := ProjectDefinition searchForExtensionsWithProject: package.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	292	changeSet := self forExistingMethods: packageExtensions.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	293	packageClasses do:
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	294	[:cls\|
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	295	(ignoreAutoloaded not and:[cls isLoaded not])
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	296	ifTrue:[cls autoload].
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	297	cls isLoaded
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	298	ifTrue:
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	299	[changeSet addAll:
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	300	(self
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	301	forExistingClass:cls
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	302	withExtensions:false
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	303	extensionsOnly:false)]].
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	304	changeSet name: 'Package ' , package.
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	305	^changeSet
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	306
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	307	"Created: / 12-08-2009 / 14:22:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	308	"Modified: / 16-03-2012 / 15:37:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	309	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	310
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	311	fromDiffSet:aDiffSet
2322 c5ebd3b56e54 comment/format in: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2321 diff changeset	312	"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	313	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	314
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	315	\|changeSet\|
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 := self new.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	318	"/ class definitions first...
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	319	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	320	changeSet addAll:((aDiffSet onlyInArg) select:[:ch \| ch isClassDefinitionChange]).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	321
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	322	"/ first add new methods...
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	323	changeSet addAll:((aDiffSet onlyInArg) reject:[:ch \| ch isClassDefinitionChange]).
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	324	"/ then, changed methods...
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	325	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	326	"/ then, removed methods...
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	327	aDiffSet onlyInReceiver do:[:each \|
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	328	\|ch\|
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	329
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	330	ch := MethodRemoveChange className:(each className) selector:(each selector).
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	331	changeSet add:ch.
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	332	].
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	333	^ changeSet
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	334
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	335	"Created: / 08-02-2011 / 10:48:36 / cg"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	336	!
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	337
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	338	fromDirectory: aStringOfFilename
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	339
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	340	\| d cs \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	341	d := aStringOfFilename asFilename.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	342	cs := self new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	343	d directoryContentsAsFilenames do:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	344	[:each\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	345	each suffix = 'st' ifTrue:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	346	[cs addAll: (self fromFileOrDirectory: each)]].
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	347	cs name: aStringOfFilename asFilename asAbsoluteFilename pathName.
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	348	^cs
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	349
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	350
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	351	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	352	ChangeSet fromDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	353	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	354
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	355	"Created: / 02-04-2011 / 00:54:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	356	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	357
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	358	fromDolphinPACStream:aStream
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	359	"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	360
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	361	^ self fromDolphinPACStream:aStream while:[:thisChange \| true]
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	!
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	fromDolphinPACStream:aStream while:aConditionBlock
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	366	"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	367
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	368	\|changeSet\|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	369
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	370	changeSet := self new.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	371	self
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	372	changesFromStream:aStream
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	373	for:changeSet
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	374	reader:(DolphinPACFileReader new)
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	375	do:[:aChange :lineNumberOrNil :posOrNil \|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	376	changeSet add:aChange.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	377	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	378	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	379
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	380	^ changeSet
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
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	383	fromFile:aFilename
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	384	\|mime stream nm\|
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	385
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	386	nm := aFilename asFilename asAbsoluteFilename pathName.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	387	mime := MIMETypes mimeTypeForFilename:aFilename.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	388	mime isNil ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	389	mime := aFilename asFilename mimeTypeOfContents.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	390	mime isNil ifTrue:[
1329 91aaace92f86 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1315 diff changeset	391	self error:'unknown MIME type for file'.
1176 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	].
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	394
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	395	[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	396	stream := aFilename asFilename readStream.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	397	mime = 'text/xml' ifTrue:[
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	398	^ (self fromXMLStream:stream) name: nm; yourself.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	399	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	400	mime = 'application/x-smalltalk-source-sif' ifTrue:[
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	401	^ (self fromSIFStream:stream) name: nm; yourself
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	402	].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	403	mime = 'application/x-smalltalk-dolphin-package' ifTrue:[
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	404	^ (self fromDolphinPACStream:stream) name: nm; yourself
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	405	].
2247 1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	406	stream := EncodedStream decodedStreamFor:stream.
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	407	^ (self fromStream:stream) name: nm; yourself
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	408	] ensure:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	409	stream notNil ifTrue:[stream close].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	410	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	411
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	412	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	413	ChangeSet fromFile:('changes')
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	414	ChangeSet fromFile:('patches')
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	415	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	416
3029 c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	417	"Created: / 16-02-1998 / 12:19:34 / cg"
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	418	"Modified: / 14-12-1999 / 15:23:16 / cg"
c7be0be50898 - ChangeSet>>#fromFile: sets the name of the CS to tje filename. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	419	"Modified: / 16-03-2012 / 15:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	420	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	421
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	422	fromFileOrDirectory: fileOrDirectory
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	423
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	424	\| f \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	425	f := fileOrDirectory asFilename.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	426	^(f isDirectory
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	427	ifTrue:[self fromDirectory: f]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	428	ifFalse:[self fromFile: f])
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	429	name: f pathName;
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	430	yourself.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	431
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	432	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	433	ChangeSet fromFileOrDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	434	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	435
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	436	"Created: / 02-04-2011 / 00:50:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	437	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	438
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	439	fromSIFStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	440	"build a changeSet from a SIF stream, containing chunks
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	441	in smalltalk interchange format.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	442	Return the 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	^ self fromSIFStream:aStream while:[:thisChange \| true]
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	445	!
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	fromSIFStream:aStream while:aConditionBlock
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	448	"build a changeSet from a SIF stream, containing chunks
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	449	in smalltalk interchange format.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	450	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	451
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	452	\|changeSet\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	453
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	454	changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	455	self
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	456	changesFromStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	457	for:changeSet
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	458	reader:(SIFChangeFileReader new)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	459	do:[:aChange :lineNumberOrNil :posOrNil \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	460	changeSet add:aChange.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	461	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	462	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	463
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	464	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	465	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	466
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	467	fromStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	468	"build a changeSet from a stream, containing chunks.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	469	(i.e. either a classes sourceFile or a change-file).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	470	Return the 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	^ self fromStream:aStream while:[:thisChange \| true]
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	473
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	474	"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	475	ChangeSet fromStream:('changes' asFilename readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	476	ChangeSet fromStream:('patches' asFilename readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	477	ChangeSet fromStream:(Object source asString readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	478	"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	479
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	480	"Created: / 16.2.1998 / 12:19:34 / cg"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	481	"Modified: / 14.12.1999 / 15:23:16 / cg"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	482	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	483
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	484	fromStream:aStream while:aConditionBlock
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	485	"build a changeSet from a stream, containing chunks.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	486	(i.e. either a classes sourceFile or a change-file).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	487	Return the changeSet."
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	\|changeSet\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	490
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	491	changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	492	self
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	493	changesFromStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	494	for:changeSet
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	495	reader:(ChangeFileReader new)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	496	do:[:aChange :lineNumberOrNil :posOrNil \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	497	changeSet add:aChange.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	498	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
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
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	501	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	502
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	503	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	504	ChangeSet fromStream:('changes' asFilename readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	505	ChangeSet fromStream:('patches' asFilename readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	506	ChangeSet fromStream:(Object source asString readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	507	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	508
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	509	"Created: / 16.2.1998 / 12:19:34 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	510	"Modified: / 14.12.1999 / 15:23:16 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	511	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	512
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	513	fromXMLStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	514	"build a changeSet from an XML stream, containing XML definitions.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	515	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	516
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	517	\|changeSet builder nameSpace\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	518
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	519	aStream isNil ifTrue:[^ nil].
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	changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	522	nameSpace := Smalltalk.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	523
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	524	builder := XML::SourceScannerNodeBuilder new.
1475 934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	525	builder scanFile:aStream do:[:change \| changeSet add: change. ].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	526	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	527
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	528	"
1247 be7277706e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1232 diff changeset	529	ChangeSet fromXMLStream:('../../goodies/xml/vw/xmlFileInTests/XMLParser.xml' asFilename readStream)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	530	ChangeSetBrowser
1247 be7277706e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1232 diff changeset	531	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	532	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	533	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	534
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	535	!ChangeSet class methodsFor:'Compatibility-ST80'!
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	536
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	537	patches
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	"Created: / 27.10.1997 / 13:52:54 / cg"
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
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	543
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	544	!ChangeSet class methodsFor:'Compatibility-VW'!
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	545
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	546	component: component definition: anObject change: changeSymbol
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	547	"Include indication that a class/namespace was added or removed
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	548	from a CodeComponent."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	549
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	550	self
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	551	changed:#'component:definition:change:'
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	552	with:
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	553	( Array
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	554	with: component
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	555	with: anObject
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	556	with: changeSymbol
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	557	)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	558
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	559	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	560
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	561	!ChangeSet class methodsFor:'instance creation-private'!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	562
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	563	changesFromStream:aStream do:aBlock
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	564	"enumerate changes from a stream and invoke aBlock on each.
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	565	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	566	The lineNumber is only valid, if the underlying stream
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	567	provides line-numbers; otherwise, nil is passed."
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	568
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	569	^ self
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	570	changesFromStream:aStream
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	571	for:(self new)
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	572	reader:nil
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	573	do:aBlock
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	574
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	575	"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	576	ChangeSet
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	577	changesFromStream:('changes' asFilename readStream)
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	578	do:[:chg \| Transcript showCR:chg]
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	579	"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	580
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	581	"Created: / 16.2.1998 / 12:19:34 / cg"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	582	"Modified: / 14.12.1999 / 15:23:16 / cg"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	583	!
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	584
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	585	changesFromStream:aStream for:aChangeSet reader:aReader do:aBlock
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	586	"enumerate changes from a stream and invoke aBlock on each.
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	587	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	588	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	589	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	590
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	591	\|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	592	lineNumber pos reader size \|
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	593
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	594	nameSpace := Smalltalk.
1135 08323691c543 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1128 diff changeset	595	package := Class packageQuerySignal query.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	596
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	597	(reader := aReader) isNil ifTrue:[
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	598	reader := ChangeFileReader new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	599	].
3017 114676d42a88 Added progress notifications during while reading changes from stream Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3012 diff changeset	600	size := aStream size.
114676d42a88 Added progress notifications during while reading changes from stream Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3012 diff changeset	601
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	602	reader changeSet:aChangeSet.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	603	reader changeAction:aBlock.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	604	reader inputStream:aStream.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	605
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	606	[aStream atEnd] whileFalse:[
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	607	aStream skipSeparators.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	608	lineNumber := aStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	609	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	610
114676d42a88 Added progress notifications during while reading changes from stream Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3012 diff changeset	611	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	612
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	613	chunk := aStream nextChunk.
2056 b4bd1ff4709e refactored Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	614
1447 2ac1cf09722b isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 1428 diff changeset	615	(chunk notEmptyOrNil) ifTrue:[
2279 a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	616	Class nameSpaceQuerySignal handle:[:ex\| ex proceedWith:nameSpace] do:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	617	Class packageQuerySignal handle:[:ex\| ex proceedWith:package] do:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	618	\|parser tree ns pkg\|
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	parser := Parser for:chunk.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	621	tree := parser
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	622	parseExpressionWithSelf:nil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	623	notifying:nil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	624	ignoreErrors:true
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	625	ignoreWarnings:true
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	626	inNameSpace:nameSpace.
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 notNil ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	629	tree == #Error ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	630	change := DoItChange new.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	631	change source:chunk.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	632	aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	633	] ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	634	"/ 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	635	((ns := parser currentNameSpace) notNil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	636	and:[ns ~~ nameSpace]) ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	637	nameSpace := ns
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	638	].
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	639	"/ 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	640	((pkg := parser currentPackage) notNil
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	641	and:[pkg ~~ package]) ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	642	package := pkg
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	643	].
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	644	"/
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	645	"/ what type of chunk is this ...
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	646	"/
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	647	tree isConstant ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	648	(s := tree evaluate) isString ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	649	(s startsWith:'---- timestamp ') ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	650	lastTimeStamp := s.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	651	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	652	] ifFalse:[
2279 a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	653	self error:'unexpected change-chunk' mayProceed:true
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	654	]
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	655	] ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	656	tree isMessage ifTrue:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	657	(reader
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	658	changesFromParseTree:tree
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	659	lineNumber:lineNumber
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	660	position:pos
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	661	chunk: chunk
2279 a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	662	) ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	663	change := DoItChange new.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	664	change source:chunk.
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	665	aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	666	]
2279 a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	667	] ifFalse:[
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	668	InvalidChangeChunkError
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	669	raiseRequestErrorString:'unexpected change-chunk'
a85d31a33e57 changed: #changesFromStream:for:reader:do: Stefan Vogel <sv@exept.de> parents: 2256 diff changeset	670	"/ mayProceed:true.
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	671	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	672	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	673	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	674	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	675	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	676	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	677	]
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	678	].
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	679
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	680	"
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	681	ChangeSet fromStream:('changes' asFilename readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	682	ChangeSet fromStream:('patches' asFilename readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	683	ChangeSet fromStream:(Object source asString readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	684	"
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	685
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	686	"Created: / 16-02-1998 / 12:19:34 / cg"
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	687	"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	688	"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	689	!
e33e77f7b88b skip and hide encoding chunk ca parents: 1379 diff changeset	690
e33e77f7b88b skip and hide encoding chunk ca parents: 1379 diff changeset	691	skipEncodingChunkOn:stream
2080 5cfd9170d01d Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 2056 diff changeset	692	<resource: #obsolete>
1415 44d3d469a528 skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	693	self obsoleteMethodWarning:'use stream>>skipENcodingChunk'.
44d3d469a528 skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	694	stream skipEncodingChunk
1083 e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	695	! !
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	696
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	697	!ChangeSet class methodsFor:'queries'!
27 d24c4aec6d07 . claus parents: 16 diff changeset	698
d24c4aec6d07 . claus parents: 16 diff changeset	699	current
d24c4aec6d07 . claus parents: 16 diff changeset	700	"ST-80 compatibility: return the current changeSet"
d24c4aec6d07 . claus parents: 16 diff changeset	701
d24c4aec6d07 . claus parents: 16 diff changeset	702	\|p\|
d24c4aec6d07 . claus parents: 16 diff changeset	703
d24c4aec6d07 . claus parents: 16 diff changeset	704	(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	705	^ p changeSet
ca4fff926135 ChangeSet current: return empty collection if there is no changeSet Claus Gittinger <cg@exept.de> parents: 956 diff changeset	706	].
ca4fff926135 ChangeSet current: return empty collection if there is no changeSet Claus Gittinger <cg@exept.de> parents: 956 diff changeset	707	^ #()
27 d24c4aec6d07 . claus parents: 16 diff changeset	708
d24c4aec6d07 . claus parents: 16 diff changeset	709	"
d24c4aec6d07 . claus parents: 16 diff changeset	710	ChangeSet current
d24c4aec6d07 . claus parents: 16 diff changeset	711	"
d24c4aec6d07 . claus parents: 16 diff changeset	712	! !
d24c4aec6d07 . claus parents: 16 diff changeset	713
2246 3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	714	!ChangeSet class methodsFor:'utilities'!
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	715
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	716	decodedStreamFor:aStream
2247 1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	717	<resource: #obsolete>
1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	718	^ EncodedStream decodedStreamFor:aStream
2246 3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	719	! !
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	720
1264 3d1fc5d40ab4 method category rename Claus Gittinger <cg@exept.de> parents: 1263 diff changeset	721	!ChangeSet methodsFor:'Compatibility-ST80'!
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	722
899 7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	723	changeClass:aClass
7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	724	"dummy here"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	725
899 7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	726	"Created: / 4.2.2000 / 18:30:59 / cg"
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	727	!
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	728
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	729	changeSelectors
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	730	"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	731
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	732	\|selectors\|
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	changeSelectors isNil ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	735	selectors := IdentitySet new.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	736	self do:[:chg \|
1967 18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	737	\|sel\|
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	chg notNil ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	740	chg isMethodChange ifTrue:[
1967 18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	741	sel := chg selector.
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	742	sel notNil ifTrue:[
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	743	selectors add:sel
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	744	]
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	745	]
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	746	]
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	747	].
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	748	changeSelectors := selectors.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	749	].
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	750	^ changeSelectors.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	751
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	752	"
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	753	ChangeSet current changeSelectors
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	754	"
1967 18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	755
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	756	"Modified: / 30-05-2007 / 12:12:32 / cg"
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	757	!
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	758
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	759	changedClasses
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	760	"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	761
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	762	\|classes\|
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	763
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	764	changedClasses isNil ifTrue:[
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	765	classes := IdentitySet new.
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	766	self do:[:chg \|
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	767	\|cls\|
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	768
1315 f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	769	chg notNil ifTrue:[
f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	770	cls := chg changeClass.
f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	771	cls notNil ifTrue:[
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	772	cls isRealNameSpace ifFalse:[
1315 f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	773	classes add:cls
f0f764125625 * empty log message * Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	774	]
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	775	]
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	776	]
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	777	].
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	778	changedClasses := classes.
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	779	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	780	^ changedClasses.
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	781
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	782	"
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	783	ChangeSet current changedClasses
1791 746e0b3aa286 * empty log message * Claus Gittinger <cg@exept.de> parents: 1718 diff changeset	784	ChangeSet current flushChangedClassesCache
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	785	"
1791 746e0b3aa286 * empty log message * Claus Gittinger <cg@exept.de> parents: 1718 diff changeset	786
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	787	"Modified: / 10-11-2006 / 17:17:26 / cg"
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	788	!
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	789
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	790	component:component definition:anObject change:changeSymbol
1083 e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	791	"Include indication that a class/namespace was added or removed
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	792	from a CodeComponent."
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	793
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	794	self
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	795	changed:#'component:definition:change:'
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	796	with:
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	797	( Array
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	798	with: component
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	799	with: anObject
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	800	with: changeSymbol
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	801	)
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	802	!
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	803
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	804	reorganizeSystem
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	805	"dummy here"
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	806
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	807	"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	808	! !
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	809
2235 3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	810	!ChangeSet methodsFor:'accessing'!
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	811
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	812	name
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	813	^ name
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	814	!
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	815
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	816	name:something
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	817	name := something.
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	818	! !
2234 f5af55bd08cb * empty log message * Claus Gittinger <cg@exept.de> parents: 2186 diff changeset	819
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	820	!ChangeSet methodsFor:'change & update'!
d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	821
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	822	changed:anAspectSymbol with:aParameter
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	823	"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	824	of ChangeSet (which may be switched using projects)."
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	825
1475 934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	826	self == ChangeSet current ifTrue:[
934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	827	ChangeSet changed:anAspectSymbol with:aParameter.
934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	828	].
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	829	super changed:anAspectSymbol with:aParameter
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	830	! !
d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	831
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	832	!ChangeSet methodsFor:'changes management'!
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	833
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	834	addClassCommentChangeFor:aClass
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	835	"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	836
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	837	\|newChange\|
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	838
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	839	newChange := ClassCommentChange class:aClass.
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	840	newChange comment:aClass comment.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	841	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	842	self addChange:newChange
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	843
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	844	"Modified: / 14.11.2001 / 13:35:34 / cg"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	845	!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	846
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	847	addClassDefinitionChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	848	"add a classDefinition change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	849
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	850	\|newChange\|
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	851
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	852	newChange := ClassDefinitionChange class:aClass source:(aClass definition).
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	853	newChange package:aClass package.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	854	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	855	self addChange:newChange
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	856
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	857	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	858	(ChangeSet new addClassDefinitionChangeFor:ChangeSet) inspect
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	859	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	860
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	861	"Modified: / 12-10-2006 / 18:17:02 / cg"
1096 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
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	864	addClassRemoveChange:oldClass
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	865	"add a classRemove change to the receiver"
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	866
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	867	\|newChange\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	868
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	869	newChange := ClassRemoveChange new className:oldClass name.
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	870	self rememberChangedClass:oldClass.
1421 eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	871	oldClass isPrivate ifTrue:[
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	872	self rememberChangedClass:oldClass topOwningClass.
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	873	].
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	874	ClassRemoveChange::ClassBeingRemovedQuery
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	875	answer:oldClass
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	876	do:[
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	877	self addChange:newChange
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	878	]
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	879	"Modified: / 14.11.2001 / 13:35:39 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	880	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	881
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	882	addClassRenameChangeFrom:oldName to:newName
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	883	"add a classRename change to the receiver"
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	884
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	885	\|newChange\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	886
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	887	newChange := ClassRenameChange new oldName:oldName newName:newName.
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	888	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	889	self addChange:newChange
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	890
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	891	"Modified: / 14.11.2001 / 13:35:41 / cg"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	892	!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	893
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	894	addDoIt:aString
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	895	"add a doIt to the receiver"
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	896
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	897	\|newChange\|
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	898
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	899	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	900	self addChange:newChange.
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	901
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	902	"Modified: / 14.11.2001 / 13:35:44 / cg"
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	903	!
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	904
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	905	addInstVarDefinitionChangeFor:aClass
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	906	"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	907
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	908	\|newChange\|
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	909
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	910	newChange := ClassInstVarDefinitionChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	911	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	912	source:(aClass name , ' instanceVariableNames:' , aClass instanceVariableString storeString).
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	913	newChange classInstVarNames:aClass instanceVariableString asCollectionOfWords.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	914	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	915	self addChange:newChange
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	916
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	917	"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	918	!
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	919
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	920	addMethodCategoryChange:aMethod category:newCategory in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	921	"add a methodCategory change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	922
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	923	\|newChange\|
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	924
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	925	newChange := MethodCategoryChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	926	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	927	selector:(aClass selectorAtMethod:aMethod)
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	928	category:newCategory.
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
16 fcbfbba03d49 * empty log message * claus parents: 10 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:48 / cg"
44 27caba2cee6b . claus parents: 39 diff changeset	933	!
27caba2cee6b . claus parents: 39 diff changeset	934
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	935	addMethodChange:aMethod fromOld:oldMethod in:aClass
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	936	"add a method change to the receiver"
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	937
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	938	\|newChange\|
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 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.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	945	oldMethod notNil ifTrue:[
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	946	newChange previousVersion:oldMethod.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	947	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	948	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	949	self addChange:newChange.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	950
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	951	"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	952	!
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	953
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	954	addMethodChange:aMethod in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	955	"add a method change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	956
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	957	\|newChange\|
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	958
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	959	newChange := MethodChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	960	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	961	selector:aMethod selector
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	962	source:aMethod source
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	963	category:aMethod category.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	964	newChange package:(aMethod package).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	965	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	966	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	967
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	968	"Modified: / 12-10-2006 / 18:15:28 / cg"
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	969	!
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	970
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	971	addMethodPackageChange:aMethod package:newPackage in:aClass
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	972	"add a methodPackage change to the receiver"
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	973
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	974	\|newChange\|
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	975
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	976	newChange := MethodPackageChange
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	977	class:aClass
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	978	selector:(aClass selectorAtMethod:aMethod)
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	979	package:newPackage.
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	980	self rememberChangedClass:aClass.
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	981	self addChange:newChange
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	982
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	983	"Created: / 09-10-2006 / 14:02:33 / cg"
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	984	!
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	985
44 27caba2cee6b . claus parents: 39 diff changeset	986	addMethodPrivacyChange:aMethod in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	987	"add a methodPrivacy change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	988
44 27caba2cee6b . claus parents: 39 diff changeset	989	\|newChange\|
27caba2cee6b . claus parents: 39 diff changeset	990
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	991	newChange := MethodPrivacyChange
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	992	class:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	993	selector:(aClass selectorAtMethod:aMethod)
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	994	privacy:aMethod privacy.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	995	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	996	self addChange:newChange
44 27caba2cee6b . claus parents: 39 diff changeset	997
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	998	"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	999	"Modified: / 14.11.2001 / 13:35:55 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1000	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1001
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1002	addPrimitiveDefinitionsChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1003	"add a primitiveDefinitions change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1004
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1005	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1006
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1007	newChange := ClassPrimitiveDefinitionsChange new
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1008	class:aClass source:(aClass primitiveDefinitionsString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1009	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1010	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1011
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1012	"Modified: / 14.11.2001 / 13:35:57 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1013	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1014
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1015	addPrimitiveFunctionsChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1016	"add a primitiveFunctions change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1017
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1018	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1019
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1020	newChange := ClassPrimitiveFunctionsChange new
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1021	class:aClass source:(aClass primitiveFunctionsString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1022	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1023	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1024
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1025	"Modified: / 14.11.2001 / 13:35:59 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1026	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1027
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1028	addPrimitiveVariablesChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1029	"add a primitiveVariables change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1030
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1031	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1032
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1033	newChange := ClassPrimitiveVariablesChange new
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1034	class:aClass source:(aClass primitiveVariablesString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1035	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1036	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1037
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1038	"Modified: / 14.11.2001 / 13:36:01 / cg"
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1039	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1040
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1041	addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1042	"add a method-remove change to the receiver"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1043
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1044	\|newChange\|
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1045
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1046	newChange := MethodRemoveChange class:aClass selector:aSelector.
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1047	oldMethod notNil ifTrue:[
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1048	newChange previousVersion:oldMethod.
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1049	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1050	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1051	self addChange:newChange
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1052
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1053	"Modified: / 27.8.1995 / 22:55:22 / claus"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1054	"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	1055	"Modified: / 14.11.2001 / 13:36:04 / cg"
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1056	!
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1057
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1058	addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1059	"add a category rename change to the receiver"
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1060
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1061	\|newChange\|
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1062
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1063	newChange := MethodCategoryRenameChange class:aClass.
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1064	newChange oldCategoryName:oldCategory newCategoryName:newCategory.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1065	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1066	self addChange:newChange
1105 b27c0d72d7d0 avoid useless change notifications from #collect:, #select: etc. Claus Gittinger <cg@exept.de> parents: 1102 diff changeset	1067
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1068	"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	1069	! !
b27c0d72d7d0 avoid useless change notifications from #collect:, #select: etc. Claus Gittinger <cg@exept.de> parents: 1102 diff changeset	1070
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1071	!ChangeSet methodsFor:'fileOut'!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1072
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1073	fileOutAs: aStringOrFilename
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1074
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1075	\| stream \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1076	stream := aStringOrFilename asFilename writeStream.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1077	[ self fileOutOn: stream ]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1078	ensure: [stream close]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1079
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1080	"Created: / 05-12-2009 / 12:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1081	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1082
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1083	fileOutOn: stream
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1084
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1085	self do:[:chg\|chg fileOutOn: stream]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1086
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1087	"Created: / 05-12-2009 / 12:32:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1088	! !
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1089
2469 4a02caf1782d changed: #saveToStream:format: Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	1090
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1091	!ChangeSet methodsFor:'misc'!
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1092
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1093	addPatch:nameOfPatch
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1094	"ignored for now - allows fileIn of ST-80 patch stuff .."
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1095
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1096	^ self
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1097	! !
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1098
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1099
1263 14ef737d93a8 method category rename Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	1100	!ChangeSet methodsFor:'private-accessing'!
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1101
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1102	addChange:aChange
2053 590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1103	\|changeClass\|
590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1104
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1105	aChange timeOfChangeIfKnown isNil ifTrue:[
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1106	aChange timeStamp:(Timestamp now).
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1107	].
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1108
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1109	self add:aChange.
1471 d3a32a4b689b * empty log message * Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	1110	changedClasses notNil ifTrue:[
2053 590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1111	(changeClass := aChange changeClass) notNil ifTrue:[
590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1112	changedClasses add:changeClass.
590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1113	].
1471 d3a32a4b689b * empty log message * Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	1114	].
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1115	changeSelectors notNil ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1116	aChange isMethodChange ifTrue:[
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1117	changeSelectors add:aChange selector.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1118	].
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1119	].
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1120
58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1121	"/ aChange sendChangeNotificationThroughSmalltalk.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1122	self changed:#addChange: with:aChange.
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1123
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1124	"Created: / 14-11-2001 / 13:35:11 / cg"
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1125	"Modified: / 10-11-2006 / 16:47:13 / cg"
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1126	!
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1127
1479 26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1128	flushChangedClassesCache
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1129	changedClasses := changeSelectors := nil
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1130
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1131	"
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1132	ChangeSet current flushChangedClassesCache
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1133	"
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1134	!
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1135
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1136	rememberChangedClass:aClass
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1137	changedClasses notNil ifTrue:[
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1138	changedClasses add:aClass
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1139	].
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1140	!
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1141
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1142	removeAll:aCollection
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1143	aCollection notEmpty ifTrue:[
b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1144	super removeAll:aCollection.
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1145	changedClasses := changeSelectors := nil.
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1146	self changed:#removeAll: with:aCollection.
b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1147	]
1421 eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1148	!
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1149
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1150	unrememberChangedClasses
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1151	changedClasses := nil
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1152	! !
420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1153
1034 cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1154	!ChangeSet methodsFor:'queries'!
cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1155
2160 831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1156	changedPackages
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1157	"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	1158
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1159	\|classes changedPackages\|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1160
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1161	changedPackages := Set new.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1162
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1163	self do:[:chg \|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1164	\|p mthd cls\|
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	p := chg package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1167	p isNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1168	chg isMethodChange ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1169	mthd := chg changeMethod.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1170	mthd notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1171	p := mthd package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1172	] ifFalse:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1173	cls := chg changeClass.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1174	cls notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1175	p := cls package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1176	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1177	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1178	] ifFalse:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1179	chg isClassChange ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1180	cls := chg changeClass.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1181	cls notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1182	p := cls package.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1183	]
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	].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1187	p notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1188	changedPackages add:p.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1189	]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1190	].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1191
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1192	"/ self changedClasses do:[:cls \|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1193	"/ \|p\|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1194	"/
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1195	"/ (p := cls package) notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1196	"/ changedPackages add:p.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1197	"/ ]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1198	"/ ].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1199	^ changedPackages.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1200
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1201	"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1202	ChangeSet current changedPackages
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1203	"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1204
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1205	"Created: / 22-09-2006 / 16:37:40 / cg"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1206	"Modified: / 13-10-2006 / 01:20:48 / cg"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1207	!
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1208
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1209	changesForPackage:aPackageSymbol
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1210
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1211	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1212	ChangeSet current changesForPackage:#'stx:goodies/libsvn'.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1213
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1214	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1215
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1216	^(self select:[:aChange \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1217	\|removeThis mClass mthd\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1218
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1219	removeThis := false.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1220	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1221	mClass := aChange changeClass.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1222	mClass notNil ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1223	mthd := mClass compiledMethodAt:(aChange selector).
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1224	mthd isNil ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1225	aChange isMethodRemoveChange ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1226	removeThis := (mClass package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1227	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1228	] ifFalse:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1229	removeThis := (mthd package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1230	]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1231	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1232	] ifFalse:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1233	(aChange isClassChange) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1234	(aChange changeClass notNil) ifTrue:[
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1235	removeThis := (aChange changeClass package = aPackageSymbol)
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1236	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1237	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1238	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1239	removeThis
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1240	])
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1241
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1242	"Created: / 05-11-2001 / 14:21:17 / cg"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1243	"Modified: / 12-10-2006 / 16:51:27 / cg"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1244	"Modified: / 22-10-2008 / 13:25:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1245	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1246
1034 cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1247	includesChangeForClass:aClass
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1248	\|nameOfClass\|
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1249
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1250	nameOfClass := aClass theNonMetaclass name.
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1251
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1252	(self changedClasses contains:[:aClass \| aClass theNonMetaclass name = nameOfClass]) ifFalse:[^ false].
1340 e5ccdb4c4efa checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	1253	^ self contains:[:aChange \| aChange className = nameOfClass]
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1254
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1255	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1256	ChangeSet current includesChangeForClass:ChangeSet
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1257	ChangeSet current includesChangeForClass:ChangeSet class
1686 7d2c1f9f63e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1258	ChangeSet current includesChangeForClass:SourceCodeManagerUtilities
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1259	ChangeSet current includesChangeForClass:(Expecco::ExpeccoXMLDecoder::ObjectCreator)
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1260	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1261
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1262	"Modified: / 09-10-2006 / 13:39:22 / cg"
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	includesChangeForClass:aClass selector:selector
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1266	\|nameOfNonMetaClass nameOfClass\|
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1267
1478 400bfb0e4ea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1476 diff changeset	1268	(self changeSelectors includes:selector) ifFalse:[^ false].
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1269
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1270	nameOfNonMetaClass := aClass theNonMetaclass name.
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1271	(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	1272
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1273	nameOfClass := aClass name.
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1274
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1275	^ self contains:[:aChange \|
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1276	selector = aChange selector
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1277	ifFalse:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1278	false
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1279	] ifTrue:[
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1280	nameOfClass = aChange className
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1281	]
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1282	]
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1283
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1284	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1285	ChangeSet current includesChangeForClass:ChangeSet selector:#includesChangeForClass:
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1286	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1287
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1288	"Created: / 31.10.2001 / 10:26:31 / cg"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1289	"Modified: / 31.10.2001 / 10:59:49 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1290	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1291
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1292	includesChangeForClassOrMetaclass:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1293	\|nameOfClass nameOfMetaclass\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1294
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1295	nameOfClass := aClass theNonMetaclass name.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1296	nameOfMetaclass := aClass theMetaclass name.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1297
1920 4365130e896f bad spelling of methodname Stefan Vogel <sv@exept.de> parents: 1918 diff changeset	1298	(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	1299	^ false.
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1300	].
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1301
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1302
1920 4365130e896f bad spelling of methodname Stefan Vogel <sv@exept.de> parents: 1918 diff changeset	1303	^ self contains:[:eachChange \|
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1304	\|changeClassName\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1305
1920 4365130e896f bad spelling of methodname Stefan Vogel <sv@exept.de> parents: 1918 diff changeset	1306	changeClassName := eachChange className.
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1307	changeClassName = nameOfClass or:[changeClassName = nameOfMetaclass]
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1308	]
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1309
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1310	"Modified: / 09-10-2006 / 13:40:29 / cg"
1127 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	includesChangeForClassOrMetaclassOrPrivateClassOf:aClass
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1314	\|nameOfClass nameOfMetaclass\|
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1315
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1316	nameOfClass := aClass theNonMetaclass name.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1317	nameOfMetaclass := aClass theMetaclass name.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1318
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1319	self do:[:aChange \|
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1320	\|changeClassName changeClass\|
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1321
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1322	changeClassName := aChange className.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1323	(changeClassName = nameOfClass) ifTrue:[^ true].
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1324	(changeClassName = nameOfMetaclass) ifTrue:[^ true].
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1325	changeClass := aChange changeClass.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1326	(changeClass notNil
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1327	and:[changeClass isPrivate
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1328	and:[changeClass owningClass == aClass]]) ifTrue:[
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1329	^ true
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1330	]
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1331	].
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1332	^ false
1885 b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1333	!
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1334
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1335	includesChangeForClassOrMetaclassOrPrivateClassOfAny:aCollectionOfClasses
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1336	\|namesOfClasses namesOfMetaclasses\|
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1337
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1338	namesOfClasses := aCollectionOfClasses collect:[:eachClass \| eachClass theNonMetaclass name] as:Array.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1339	namesOfMetaclasses := aCollectionOfClasses collect:[:eachClass \| eachClass theMetaclass name] as:Array.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1340
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1341	self do:[:aChange \|
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1342	\|changeClassName changeClass\|
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1343
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1344	changeClassName := aChange className.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1345	(namesOfClasses includes:changeClassName) ifTrue:[^ true].
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1346	(namesOfMetaclasses includes:changeClassName) ifTrue:[^ true].
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1347
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1348	changeClass := aChange changeClass.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1349	(changeClass notNil and:[changeClass isPrivate]) ifTrue:[
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1350	(aCollectionOfClasses includes:changeClass owningClass) ifTrue:[
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1351	^ true
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1352	].
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1353	]
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1354	].
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1355	^ false
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1356
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1357	"Created: / 08-09-2011 / 04:24:26 / cg"
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1358	!
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1359
1885 b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1360	includesChangeForPackage:aPackageID
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1361	^ self changedPackages includes:aPackageID
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1362
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1363	"/ ^ self contains:[:aChange \| aChange package = aPackageID]
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1364
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1365	"
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1366	ChangeSet current includesChangeForPackage:'stx:libbasic'
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1367	"
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1368
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1369	"Created: / 25-10-2006 / 18:06:55 / cg"
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1370	!
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1371
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1372	selectForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom:aCollectionOfClasses
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1373	\|namesOfClasses namesOfMetaclasses\|
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1374
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1375	namesOfClasses := aCollectionOfClasses collect:[:eachClass \| eachClass theNonMetaclass name] as:Array.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1376	namesOfMetaclasses := aCollectionOfClasses collect:[:eachClass \| eachClass theMetaclass name] as:Array.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1377
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1378	^ aCollectionOfClasses
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1379	select:[:aChange \|
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1380	\|changeClassName changeClass\|
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1381
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1382	changeClassName := aChange className.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1383	(namesOfClasses includes:changeClassName)
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1384	or:[ (namesOfMetaclasses includes:changeClassName)
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1385	or:[
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1386	changeClass := aChange changeClass.
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1387	(changeClass notNil
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1388	and:[ changeClass isPrivate
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1389	and:[ (aCollectionOfClasses includes:changeClass owningClass) ]])
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1390	]]
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1391	].
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1392
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1393	"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	1394	! !
cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1395
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1396	!ChangeSet methodsFor:'utilities'!
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1397
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1398	apply
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1399	"apply all changes in the receivers changeSet"
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1400
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1401	self do:[:aChange \|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1402	aChange apply
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1403	]
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1404	!
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1405
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1406	condenseChanges
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1407
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1408	\| changesToRemove changesToKeep \|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1409	changesToKeep := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1410	changesToRemove := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1411	self reverseDo:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1412	[:change\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1413	(changesToKeep anySatisfy:[:each\|each isForSameAs: change])
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1414	ifTrue:[changesToRemove add: change]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1415	ifFalse:[changesToKeep add: change]
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1416	].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1417	self condenseChanges: changesToRemove.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1418
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1419	"Created: / 22-10-2008 / 13:05:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1420	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1421
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1422	condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1423	"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	1424
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1425	changesToRemove notEmpty ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1426	changedClasses := changeSelectors := nil.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1427	self removeAll:changesToRemove.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1428	self changed.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1429	Smalltalk changed:#currentChangeSet with:self.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1430	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1431
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1432	"Created: / 12-10-2006 / 16:51:11 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1433	!
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1434
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1435	condenseChangesForClass:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1436	"remove all changes for aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1437	(i.e. leave changes for other classes)."
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1438
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1439	self condenseChangesForClass:aClass package:nil
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1440	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1441
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1442	condenseChangesForClass:aClass package:aPackageSymbol
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1443	"remove all changes for aClass and aPackageSymbol
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1444	(i.e. leave methodChanges for other packages).
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1445	This is invoked when a class is checked into the repository."
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1446
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1447	self condenseChangesForClass:aClass selector:nil package:aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1448
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1449	"Modified: / 5.11.2001 / 14:29:22 / cg"
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1450	!
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1451
1830 a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1452	condenseChangesForClass:aClass selector:aSelector
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1453	"remove all changes for aClass >> selector."
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1454
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1455	self condenseChangesForClass:aClass selector:aSelector package:nil
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1456
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1457	"Created: / 26-09-2006 / 17:22:59 / cg"
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1458	!
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1459
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1460	condenseChangesForClass:aClass selector:selectorOrNil package:aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1461	"remove all changes for aClass/selector and aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1462	(i.e. leave methodChanges for other packages).
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1463	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	1464	otherwise, only changes for the given selector.
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1465	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	1466
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1467	\|changesToRemove className metaClassName chgCls\|
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1468
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1469	className := aClass theNonMetaclass name.
f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1470	metaClassName := aClass theMetaclass name.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1471
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1472	changesToRemove := self select:[:aChange \|
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1473	\|chgClassName chgClass removeThis mClass mthd\|
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1474
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1475	removeThis := false.
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1476	chgClassName := aChange className.
1168 48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1477	(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	1478	removeThis := true
944 f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1479	] ifFalse:[
f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1480	chgCls := aChange changeClass.
1718 c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1481	chgCls isNil ifTrue:[
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1482	(chgClassName startsWith:(aClass name,':')) ifTrue:[
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1483	"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	1484	removeThis := true
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1485	].
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1486	].
c5b36c490912 * empty log message * Claus Gittinger <cg@exept.de> parents: 1686 diff changeset	1487
944 f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1488	(chgCls notNil
f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1489	and:[chgCls isPrivate
1190 02e2436893b6 condense after checkin: also condense sub-sub-private classes Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1490	and:[chgCls topOwningClass == aClass]]) ifTrue:[
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1491	removeThis := true
944 f4cb7e9b034b when condensing, also care for private classes Claus Gittinger <cg@exept.de> parents: 939 diff changeset	1492	]
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1493	].
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1494	selectorOrNil notNil ifTrue:[
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1495	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifFalse:[
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1496	removeThis := false.
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1497	] ifTrue:[
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1498	aChange selector = selectorOrNil ifFalse:[
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1499	removeThis := false.
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1500	].
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1501	]
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1502	].
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1503
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1504	removeThis ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1505	aChange isMethodChange ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1506	mClass := aChange changeClass.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1507	mClass notNil ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1508	mthd := mClass compiledMethodAt:(aChange selector).
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1509	mthd isNil ifTrue:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1510	"/ mthd does no longer exist
1168 48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1511	"/ I no longer understand what this was meant for .. (sigh)
48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1512	"/ aPackageSymbol notNil ifTrue:[
48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1513	"/ removeThis := false
48ec2c3c4151 * empty log message * Claus Gittinger <cg@exept.de> parents: 1167 diff changeset	1514	"/ ]
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1515	] ifFalse:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1516	(aPackageSymbol notNil and:[mthd package ~= aPackageSymbol]) ifTrue:[
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1517	removeThis := false
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1518	]
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1519	]
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1520	]
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1521	].
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1522	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1523	removeThis
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1524	].
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1525
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1526	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1527
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1528	"Modified: / 12-10-2006 / 16:51:38 / cg"
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1529	!
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1530
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1531	condenseChangesForExtensionsInPackage:aPackageSymbol
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1532	"remove all changes for aClass and aPackageSymbol
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1533	(i.e. leave methodChanges for other packages).
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1534	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	1535
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1536	\|changesToRemove\|
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	changesToRemove := OrderedCollection new.
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	changesToRemove := self select:[:aChange \|
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1541	\|removeThis mClass mthd\|
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1542
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1543	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1544	removeThis := false.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1545	mClass := aChange changeClass.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1546	mClass notNil ifTrue:[
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1547	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	1548	mthd isNil ifTrue:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1549	aChange isMethodRemoveChange ifTrue:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1550	removeThis := true
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1551	].
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1552	] ifFalse:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1553	mthd package = aPackageSymbol ifTrue:[
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1554	removeThis := true
f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1555	]
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1556	]
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1557	].
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1558	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1559	removeThis
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1560	].
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1561
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1562	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1563
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1564	"Created: / 05-11-2001 / 14:21:17 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1565	"Modified: / 12-10-2006 / 16:51:32 / cg"
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
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1568	condenseChangesForPackage:aPackageSymbol
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1569	"remove all changes for aPackageSymbol
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1570	This is invoked when a project is checked into the repository."
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1571
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1572	\|changesToRemove\|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1573
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1574	changesToRemove := self select:[:aChange \|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1575	\|removeThis mClass mthd\|
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	removeThis := false.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1578	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1579	mClass := aChange changeClass.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1580	mClass notNil ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1581	mthd := mClass compiledMethodAt:(aChange selector).
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1582	mthd isNil ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1583	aChange isMethodRemoveChange ifTrue:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1584	removeThis := (mClass package = aPackageSymbol)
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1585	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1586	] ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1587	removeThis := (mthd package = aPackageSymbol)
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1588	]
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1589	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1590	] ifFalse:[
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1591	(aChange isClassChange) ifTrue:[
1883 40975a15e85f * empty log message * sr parents: 1876 diff changeset	1592	(aChange changeClass notNil) ifTrue:[
40975a15e85f * empty log message * sr parents: 1876 diff changeset	1593	removeThis := (aChange changeClass package = aPackageSymbol)
40975a15e85f * empty log message * sr parents: 1876 diff changeset	1594	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1595	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1596	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1597	removeThis
1521 ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	1598	].
ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	1599
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1600	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1601
1521 ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	1602	"Created: / 05-11-2001 / 14:21:17 / cg"
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1603	"Modified: / 12-10-2006 / 16:51:27 / cg"
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1604	!
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1605
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1606	diffSetsAgainst:anotherChangeSet
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1607	"walk over the receiver and anotherChangeSet,
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1608	add all changes to one of the tree lists:
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1609	onlyInReceiver, onlyInArg or changed,
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1610	each being a changeSet containing corresponding changes.
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1611	WARNING:
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1612	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	1613	changing methodChanges into categoryChanges"
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1614
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1615	\|otherChangeIndicesBySelector otherNonMethodChangeIndices changeIndicesBySelector nonMethodChangeIndices
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1616	onlyInReceiver onlyInArg changedMethods
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1617	indexFromChangedMethodsToA indexFromChangedMethodsToB
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	1618	"info" ret\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1619
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1620	onlyInReceiver := ChangeSet new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1621	onlyInArg := ChangeSet new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1622	changedMethods := ChangeSet new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1623
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1624	indexFromChangedMethodsToA := OrderedCollection new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1625	indexFromChangedMethodsToB := OrderedCollection new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1626
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1627	otherChangeIndicesBySelector := Dictionary new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1628	otherNonMethodChangeIndices := OrderedCollection new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1629
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1630	"/ 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	1631	anotherChangeSet keysAndValuesDo:[:idxB :aChangeInB \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1632	\|setOfOtherChangeIndicesForThisSelector\|
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	aChangeInB isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1635	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	1636	setOfOtherChangeIndicesForThisSelector add:idxB.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1637	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1638	otherNonMethodChangeIndices add:idxB
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1639	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1640	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1641
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1642	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	1643	\|indicesOfChangesToExplore anyFound ch\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1644
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1645	anyFound := false.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1646
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1647	aChangeInA isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1648	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	1649	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1650	indicesOfChangesToExplore := otherNonMethodChangeIndices.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1651	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1652
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1653	indicesOfChangesToExplore do:[:idxB \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1654	\|aChangeInB\|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1655
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1656	aChangeInB := anotherChangeSet at:idxB.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1657
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1658	(aChangeInA isForSameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1659	anyFound := true.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1660
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1661	"/ also in B - is it different ?
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1662	(aChangeInA sameAs:aChangeInB) ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1663	changedMethods add:aChangeInA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1664	indexFromChangedMethodsToA add:idxA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1665	indexFromChangedMethodsToB add:idxB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1666	] ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1667	aChangeInA isMethodChange ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1668	aChangeInA methodCategory ~= aChangeInB methodCategory ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1669	"/ only the category is different;
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1670	"/ make it a MethodCategory changes.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1671
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1672	ch := MethodCategoryChange new
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1673	className:aChangeInA className
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1674	selector:aChangeInA selector
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1675	category:aChangeInA methodCategory.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1676	self at:idxA put:ch.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1677
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1678	ch := MethodCategoryChange new
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1679	className:aChangeInB className
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1680	selector:aChangeInB selector
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1681	category:aChangeInB methodCategory.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1682	anotherChangeSet at:idxB put:ch.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1683
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1684	changedMethods add:aChangeInA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1685	indexFromChangedMethodsToA add:idxA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1686	indexFromChangedMethodsToB add:idxB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1687	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1688	].
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1689	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1690	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1691	(aChangeInA sameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1692	anyFound := true.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1693	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1694	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1695	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1696	].
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1697
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1698	anyFound ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1699	onlyInReceiver add:aChangeInA.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1700	]
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1701	].
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1702
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1703	"/ 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	1704	changeIndicesBySelector := Dictionary new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1705	nonMethodChangeIndices := OrderedCollection new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1706
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1707	self keysAndValuesDo:[:idxA :aChangeInA \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1708	\|setOfChangeIndicesForThisSelector\|
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	aChangeInA isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1711	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	1712	setOfChangeIndicesForThisSelector add:idxA.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1713	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1714	nonMethodChangeIndices add:idxA
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1715	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1716	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1717
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1718	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	1719	\|anyFound indicesOfChangesToExplore\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1720
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1721	anyFound := false.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1722
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1723	aChangeInB isMethodChange ifTrue:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1724	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	1725	] ifFalse:[
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1726	indicesOfChangesToExplore := nonMethodChangeIndices.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1727	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1728
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1729	indicesOfChangesToExplore do:[:idxA \|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1730	\|aChangeInA idxM\|
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1731
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1732	aChangeInA := self at:idxA.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1733
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1734	(aChangeInA isForSameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1735	anyFound := true.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1736
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1737	"/ also in B - is it different ?
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1738	(aChangeInA sameAs:aChangeInB) ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1739	"/ already there ?
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1740	idxM := changedMethods findFirst:[:c \| c isForSameAs:aChangeInB].
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1741	idxM == 0 ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1742	changedMethods add:aChangeInB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1743	indexFromChangedMethodsToB add:idxB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1744	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1745	indexFromChangedMethodsToB at:idxM put:idxB
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1746	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1747	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1748	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1749	(aChangeInA sameAs:aChangeInB) ifTrue:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1750	anyFound := true.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1751	] ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1752	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1753	]
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1754	].
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1755	anyFound ifFalse:[
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1756	onlyInArg add:aChangeInB.
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1757	]
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1758	].
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1759
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	1760	"/ info := OrderedCollection new:(changedMethods size).
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1761	"/ changedMethods keysAndValuesDo:[:idx :changedMethod \|
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1762	"/ info add:(Array
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1763	"/ with:(indexFromChangedMethodsToA at:idx)
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1764	"/ with:(indexFromChangedMethodsToB at:idx)
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1765	"/ )
4f35b96a799e checkin from browser ps parents: 860 diff changeset	1766	"/ ].
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	1767	changedMethods := (1 to:changedMethods size) asOrderedCollection collect:[:idx \|
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1768	\|cA cB\|
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1769
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1770	cA := self at:(indexFromChangedMethodsToA at:idx).
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1771	cB := anotherChangeSet at:(indexFromChangedMethodsToB at:idx).
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1772	Array with:cA with:cB
11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	1773	].
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1774
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1775	ret := DiffSet new
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	1776	changed:changedMethods
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1777	onlyInReceiver:onlyInReceiver
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1778	onlyInArg:onlyInArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	1779	"/ ret info:info.
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	1780	^ret
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1781
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	1782	"Modified: / 12-10-2006 / 22:22:39 / cg"
2633 5a5460e5231a comment/format in: Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	1783	"Modified (comment): / 01-12-2011 / 19:12:55 / cg"
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1784	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1785
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1786	diffSetsAgainstImage
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1787
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1788	\|imageChangeSet\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1789
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1790	imageChangeSet := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1791	self changedClasses do:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1792	[:class\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1793	(class isMetaclass or:[class isPrivate]) ifFalse:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1794	[imageChangeSet addAll:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1795	(self class fromStream: class source asString readStream)]].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1796	^self diffSetsAgainst: imageChangeSet
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1797
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1798	"Created: / 04-12-2007 / 16:03:28 / janfrog"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1799	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1800
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1801	flatten
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1802
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1803	\| flatten \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1804	flatten := self class new: self size.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1805	self do:[:ea\|ea do:[:ea2\|flatten add: ea2]].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1806	^flatten
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1807
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1808	"Created: / 29-10-2010 / 14:40:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1809	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1810
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1811	groupBy: groupBlock labelAs: labelBlock
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1812
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1813	"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1814	returns a new changeset consisting of CompositeChanges.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1815	Changes are grouped together by value (tag) of groupBlock.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1816	Each composite change is then labeled using label
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1817	returned by labelBlock (called with the tag returned
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1818	by groupBlock as arg)
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1819	"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1820
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1821	^ self groupBy: groupBlock labelAs: labelBlock sort: false
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1822
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1823	"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	1824	"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	1825	"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	1826	"Modified: / 30-08-2011 / 16:07:30 / cg"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1827	!
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1828
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1829	groupBy: groupBlock labelAs: labelBlock sort: doSort
2626 0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1830	"returns a new changeset consisting of CompositeChanges.
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1831	Changes are grouped together by value (tag) of groupBlock.
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1832	Each composite change is then labeled using label
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1833	returned by labelBlock (called with the tag returned
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1834	by groupBlock as arg)"
2491 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 newChangeset keys \|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1837
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1838	buckets := OrderedDictionary new.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1839	self do:
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1840	[:change\| \| tag \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1841	tag := groupBlock value: change.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1842	(buckets at: tag ifAbsentPut: [ChangeSet new:4])
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1843	add: change].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1844	newChangeset := ChangeSet new: buckets size.
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1845
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1846	keys := buckets keys select:[:k \| k notNil].
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1847	doSort ifTrue:[
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1848	keys sort.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1849	].
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1850	keys do:[:tag \|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1851	\|changes classDefs\|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1852
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1853	changes := buckets at:tag.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1854
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1855	"/ buckets keysAndValuesDo:
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1856	"/ [:tag :changes\| \| classDefs \|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1857	"Move class definition to the front"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1858	classDefs := changes select:[:chg\|chg isClassDefinitionChange].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1859	changes removeAll: classDefs.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1860	changes addAllFirst: classDefs.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1861
2626 0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1862	tag notNil ifTrue:[
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1863	newChangeset add:
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1864	(CompositeChange
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1865	name: (labelBlock value: tag)
2626 0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1866	changes: changes)]
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1867	].
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1868	(buckets includesKey: nil) ifTrue:[
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1869	newChangeset addAll: (buckets at: nil)
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1870	].
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1871	^newChangeset
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1872
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1873	"Created: / 24-07-2009 / 23:17:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1874	"Modified: / 25-07-2009 / 19:40:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1875	"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	1876	"Created: / 30-08-2011 / 16:07:01 / cg"
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1877	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1878
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1879	groupByClass
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1880	\|nm\|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1881
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1882	^self
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1883	groupBy: [:change\|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1884	change isClassChange ifTrue: [
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1885	nm := change className.
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1886	(nm endsWith:' class') ifTrue:[nm := nm copyTo: nm size - 6].
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1887	nm
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1888	] ifFalse: [
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1889	nil
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1890	]
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1891	]
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1892	labelAs: [:className\|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1893	className
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1894	]
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	1895	sort: true
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1896
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1897	"Created: / 25-07-2009 / 19:43:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1898	"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	1899	"Modified: / 30-08-2011 / 16:08:38 / cg"
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1900	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1901
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1902	saveSignedToFile:aFilename
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1903	"write the changeSet to a signed file in chunk format"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1904
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1905	self saveSignedToFile:aFilename format:nil
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	"Created: / 08-02-2011 / 11:18:54 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1908	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1909
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1910	saveSignedToFile:aFilename format:formatSymbolOrNil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1911	"write the changeSet to a signed file in some format.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1912	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	1913	Nil fomat is chunk"
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	\|s pkcs7SignedData\|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1916
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1917	s := WriteStream on:(String new:2000).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1918	self saveToStream:s format:formatSymbolOrNil.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1919
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1920	pkcs7SignedData := Expecco::KeyFileGenerator new signExpeccoCode:s contents.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1921	aFilename asFilename contents:pkcs7SignedData.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1922
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1923	"Modified: / 08-02-2011 / 11:48:01 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1924	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1925
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1926	saveToFile:aFilename
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1927	"write the changeSet to a regular file in chunk format"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1928
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1929	self saveToFile:aFilename format:nil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1930
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1931	"Created: / 08-02-2011 / 11:18:46 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1932	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1933
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1934	saveToFile:aFilename format:formatSymbolOrNil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1935	"write the changeSet to a regular file in some format.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1936	Nil fomat is chunk"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1937
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1938	\|s\|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1939
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1940	s := aFilename asFilename writeStream.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1941	self saveToStream:s format:formatSymbolOrNil.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1942	s close.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1943
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1944	"Created: / 08-02-2011 / 11:20:06 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1945	!
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	saveToStream:aStream format:formatSymbolOrNil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1948	"write the changeSet to a stream in some format.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1949	Nil fomat is chunk"
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	formatSymbolOrNil isNil ifTrue:[
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1952	self do:[:eachChange \|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1953	eachChange isMethodCodeChange ifTrue:[
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1954	aStream nextPutAll:'!!',(eachChange className),' methodsFor: '.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1955	aStream nextPutAll:(eachChange methodCategory storeString).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1956	aStream nextPutLine:'!!'.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1957	aStream cr.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1958	aStream nextPutAll:(eachChange source).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1959	aStream nextPutLine:'!! !!'.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1960	] ifFalse:[
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1961	aStream nextPutAll:(eachChange source).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1962	aStream nextPutLine:'!!'.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1963	].
2469 4a02caf1782d changed: #saveToStream:format: Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	1964	aStream cr.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1965	].
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1966	^self.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1967	].
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1968
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1969	formatSymbolOrNil == #classSource ifTrue:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1970	ClassSourceWriter new fileOut: self on: aStream.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1971	^self.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1972	].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1973
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1974	self error:'Unknown format, possible formats are { nil, #classSource }'
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1975
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	1976	"Created: / 08-02-2011 / 11:25:16 / cg"
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	1977	"Modified: / 19-03-2012 / 17:22:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1978	! !
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1979
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1980	!ChangeSet::ChangeFileReader methodsFor:'accessing'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1981
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1982	changeAction:aBlock
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1983	changeAction := aBlock.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1984	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1985
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1986	changeSet:something
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1987	"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	1988
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1989	changeSet := something.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1990	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1991
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1992	inputStream:aStream
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1993	inputStream := aStream.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1994	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1995
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1996	!ChangeSet::ChangeFileReader methodsFor:'helpers'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	1997
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	1998	addChange:change
2008 204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	1999	changeAction
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	2000	valueWithOptionalArgument:change
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	2001	and:lineNumber
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	2002	and:position.
204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	2003
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2004	!
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	checkReceiverIsGlobalNamed:expectedName
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2007	^ self variableNameOfReceiver = expectedName
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2008	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2009
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2010	classNameOf:aReceiver
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2011
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2012	\| nameSpace clsName \|
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2013	nameSpace := Class nameSpaceQuerySignal query.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2014
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2015	(aReceiver isUnaryMessage and:[aReceiver selector == #class])
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2016	ifTrue:[clsName := (aReceiver receiver name) , ' class']
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2017	ifFalse:[clsName := aReceiver name].
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2018
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2019	^(nameSpace ~~ Smalltalk and:[(clsName startsWith: nameSpace name) not])
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2020	ifTrue:[nameSpace name , '::' , clsName]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2021	ifFalse:[clsName].
2745 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	"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	2024	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2025
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2026	receiversClassName
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2027	^ self classNameOf:receiver
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2028	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2029
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2030	variableNameOfReceiver
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2031
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2032	receiver isVariable ifFalse:[ ^ nil ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2033	^ receiver name
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2034	! !
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	!ChangeSet::ChangeFileReader methodsFor:'reading'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2037
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2038	changesFromParseTree:aTree lineNumber:initialLineNumberOrNil position:initialPositionOrNil
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2039	"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	2040	create changes and evaluate changeAction on each.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2041	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	2042	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	2043	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2044
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2045	^self changesFromParseTree:aTree lineNumber:initialLineNumberOrNil position:initialPositionOrNil chunk: nil
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	"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	2048	!
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2049
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2050	changesFromParseTree:aTree lineNumber:initialLineNumberOrNil position:initialPositionOrNil chunk: initialChunkOrNil
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2051	"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	2052	create changes and evaluate changeAction on each.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2053	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	2054	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	2055	provides line-numbers; otherwise, nil is passed."
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2056
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2057	lineNumber := initialLineNumberOrNil.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2058	position := initialPositionOrNil.
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2059	chunk := initialChunkOrNil.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2060	parseTree := aTree.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2061
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2062	selector := aTree selector.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2063	receiver := aTree receiver.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2064	arguments := aTree arguments.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2065
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2066	receiver isMessage ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2067	receiverSelector := receiver selector.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2068	receiverReceiver := receiver receiver.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2069	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2070
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2071	^ self processChange
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2072
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2073	"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	2074	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2075
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2076	!ChangeSet::ChangeFileReader methodsFor:'reading-private'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2077
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2078	handleCategoriesForChange
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2079	\|selector category categories attributes change\|
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2080
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	2081	selector := arguments first value.
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2082	className := self receiversClassName.
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	categories := OrderedCollection new.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2085	attributes := OrderedCollection new.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2086
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2087	[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2088	inputStream skipSeparators.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2089	category := inputStream nextChunk.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2090	category notEmptyOrNil
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2091	] whileTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2092	( #( 'public' 'private' ) includes: category) ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2093	attributes add:category
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2094	] ifFalse:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2095	categories add:category
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2096	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2097	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2098	categories size == 1 ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2099	"/ easy
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2100	change := MethodCategoryChange
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2101	className:className
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2102	selector:selector
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2103	source:(parseTree printString)
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2104	category:(categories first).
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2105	self addChange:change.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2106	] ifFalse:[
2298 42eaf6957b08 halt Claus Gittinger <cg@exept.de> parents: 2290 diff changeset	2107	self halt:'multiple/missing categories not supported'.
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2108	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2109
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2110	attributes size == 1 ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2111	"/ easy
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2112	(attributes first = 'public') ifTrue:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2113	"/ default anyway - ignore
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2114	] ifFalse:[
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2115	change := MethodPrivacyChange
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2116	className:className
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2117	selector:selector
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2118	privacy:(attributes first asSymbol).
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2119	change source:(parseTree printString).
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2120	self addChange:change.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2121	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2122	] ifFalse:[
2298 42eaf6957b08 halt Claus Gittinger <cg@exept.de> parents: 2290 diff changeset	2123	self halt:'multiple/missing attributes not supported'.
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2124	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2125	^ true
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2126	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2127
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2128	handleClassCommentChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2129	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2130
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2131	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2132	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2133	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2134	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2135
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2136	change := ClassCommentChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2137	change className:className comment:(arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2138	change source:(parseTree printString).
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2139	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2140	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2141	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2142
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2143	handleClassDefinitionChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2144	\|nameSpace change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2145
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2146	className := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2147	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2148	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2149	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2150	nameSpace := Class nameSpaceQuerySignal query.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2151	nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2152	className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2153	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2154
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2155	change := ClassDefinitionChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2156	change className:className; source:(parseTree printString).
1453 27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2157	receiver isVariable ifTrue:[
27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2158	change superClassName:receiver name.
27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2159	].
1428 807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2160	selector keywords with:arguments do:[:kw :arg \|
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2161	kw = #'instanceVariableNames:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2162	change instanceVariableNames:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2163	].
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2164	kw = #'classVariableNames:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2165	change classVariableNames:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2166	].
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2167	kw = #'poolDictionaries:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2168	change poolDictionaries:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2169	].
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2170	kw = #'category:' ifTrue:[
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2171	change category:arg evaluate.
807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2172	].
2125 3c071cecc2b0 changed: #handleClassDefinitionChange fm parents: 2122 diff changeset	2173	kw = #'privateIn:' ifTrue:[
2290 882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2174	change className:(arg name ,'::',change classNameWithoutNamespace).
882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2175	change owningClassName:(arg name).
882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2176	change private:true.
2125 3c071cecc2b0 changed: #handleClassDefinitionChange fm parents: 2122 diff changeset	2177	].
1428 807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2178	].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2179
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2180	change package:(Class packageQuerySignal query).
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2181	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2182	"/ change nameSpaceName:(nameSpace name).
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2183	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2184	"/
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2185	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2186	^ true
2290 882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2187
882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2188	"Modified: / 30-08-2010 / 13:56:32 / cg"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2189	!
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	handleClassInstanceVariableDefinitionChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2192	\|change\|
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	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2195
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2196	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2197	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2198	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2199	change := ClassInstVarDefinitionChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2200	change className:className.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2201	change source:(parseTree printString).
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	2202	change classInstVarNames:(parseTree arguments first value asCollectionOfWords asArray).
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2203	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2204	^ true
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	2205
a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	2206	"Modified: / 25-11-2011 / 17:40:49 / cg"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2207	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2208
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2209	handleMethodCategoryChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2210	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2211
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2212	(receiver isMessage
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2213	and:[receiverSelector == #'compiledMethodAt:']) ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2214	self error:'unexpected change' mayProceed:true.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2215	^ false.
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	className := self classNameOf:receiverReceiver.
2046 6d7bc535ea69 Change #halt: to #shouldImplement or #assert: Stefan Vogel <sv@exept.de> parents: 2008 diff changeset	2218	self assert:className notNil.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2219
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2220	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2221	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2222	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2223	methodSelector := (receiver arguments at:1) evaluate.
2046 6d7bc535ea69 Change #halt: to #shouldImplement or #assert: Stefan Vogel <sv@exept.de> parents: 2008 diff changeset	2224	self assert:methodSelector notNil.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2225
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2226	change := MethodCategoryChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2227	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2228	className:className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2229	selector:methodSelector
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2230	category:(arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2231
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2232	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2233	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2234	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2235
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2236	handleMethodCategoryRenameChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2237	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2238
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2239	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2240	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2241	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2242	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2243
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2244	change := MethodCategoryRenameChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2245	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2246	className:className;
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2247	oldCategoryName:(arguments at:1) evaluate
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2248	newCategoryName:(arguments at:2) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2249
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2250	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2251	^ true
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
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2254	handleMethodChange
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2255	[
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2256	^ self handleMethodChangeUnsafe
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2257	] on: Error do:[:ex\|
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2258	\| change \|
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2259
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2260	change := InvalidChange new source: chunk.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2261	self addChange: change.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2262
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2263	"Read methods that may follow"
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2264
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2265	[ (chunk := inputStream nextChunk) notEmptyOrNil ] whileTrue:[
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2266	change := InvalidChange new source: chunk.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2267	self addChange: change.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2268	]
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2269	].
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2270
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2271	^ true
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2272
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2273	"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	2274	!
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2275
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2276	handleMethodChangeUnsafe
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2277	\|priv categoryName methodSource changes change parser \|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2278
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2279	(selector == #'ignoredMethodsFor:') ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2280	priv := #ignored.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2281	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2282	priv := nil
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2283	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2284	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2285	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2286	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2287	"/ ].
1977 3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2288	((selector == #'methods')
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2289	or:[(selector == #'publicMethods')
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2290	or:[(selector == #'methodsFor')]]) ifTrue:[
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2291	categoryName := 'uncategorized public'
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2292	] ifFalse:[
1977 3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2293	(selector == #'privateMethods') ifTrue:[
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2294	categoryName := 'uncategorized private'
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2295	] ifFalse:[
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2296	categoryName := (arguments at:1) evaluate.
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2297	]
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2298	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2299	inputStream skipSeparators.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2300	lineNumber := inputStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	2301	position := inputStream position1Based.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2302
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2303	methodSource := chunk := inputStream nextChunk.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2304	changes := OrderedCollection new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2305
1395 6ea99b157f6b Use #setFilename:forClass:package: to define an abbreviation Stefan Vogel <sv@exept.de> parents: 1389 diff changeset	2306	[methodSource notEmptyOrNil] whileTrue:[
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2307	parser := Parser
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2308	parseMethodArgAndVarSpecification:methodSource
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2309	in:nil
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2310	ignoreErrors:true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2311	ignoreWarnings:true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2312	parseBody:false.
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	parser isNil ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2315	"/ something wierd ...
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2316	methodSelector := '????'.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2317	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2318	methodSelector := parser selector.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2319	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2320
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2321	change := MethodChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2322	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2323	className:className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2324	selector:methodSelector
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2325	source:methodSource
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2326	category:categoryName
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2327	privacy:priv.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2328
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2329	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2330
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2331	inputStream skipSeparators.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2332	lineNumber := inputStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	2333	position := inputStream position1Based.
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2334	methodSource := chunk := inputStream nextChunk.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2335	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2336	^ true
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2337
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2338	"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	2339	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2340
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2341	handleMethodPrivacyChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2342	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2343
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2344	(receiver isMessage
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2345	and:[receiverSelector == #'compiledMethodAt:']) ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2346	self error:'unexpected change' mayProceed:true.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2347	^ false.
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 := self classNameOf:receiverReceiver.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2351	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2352	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2353	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2354	methodSelector := (receiver arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2355
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2356	change := MethodPrivacyChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2357	change
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2358	className:className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2359	selector:methodSelector
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2360	privacy:(arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2361
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2362	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2363	^ true
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	handleNameSpaceCreationChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2367	\|change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2368
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2369	(self checkReceiverIsGlobalNamed:#Namespace) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2370	(self checkReceiverIsGlobalNamed:#NameSpace) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2371	self error:'unexpected receiver in nameSpace message' mayProceed:true.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2372	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2373	].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2374	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2375
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2376	className := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2377
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2378	change := NameSpaceCreationChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2379	change name:className.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2380	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2381	^ true
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
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2384	handlePrimitiveChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2385	\|change primSource\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2386
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2387	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2388	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2389	"/ className := nameSpace name , '::' , className
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
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2392	inputStream skipSeparators.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2393	primSource := inputStream nextChunk.
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	selector == #'primitiveDefinitions' ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2396	change := ClassPrimitiveDefinitionsChange new
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2397	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2398	selector == #'primitiveFunctions' ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2399	change := ClassPrimitiveFunctionsChange new
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2400	] ifFalse:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2401	change := ClassPrimitiveVariablesChange new
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2402	]
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2403	].
1287 faf72a0bc34a checkin from browser Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2404	change className:className source:primSource.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2405	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2406	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2407	!
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	handleRemoveClassChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2410	\|change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2411
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2412	(self checkReceiverIsGlobalNamed:#Smalltalk) ifFalse:[
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2413	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	2414	^ false
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
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2417	className := (arguments at:1) name.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2418	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2419	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2420	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2421
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2422	change := ClassRemoveChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2423	change className:className.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2424	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2425	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2426	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2427
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2428	handleRemoveMethodChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2429	\|change\|
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	className := self receiversClassName.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2432	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2433	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2434	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2435	methodSelector := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2436	change := MethodRemoveChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2437	change className:className selector:methodSelector.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2438	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2439	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2440	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2441
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2442	handleRenameClassChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2443	\|oldName newName change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2444
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2445	(self checkReceiverIsGlobalNamed:#Smalltalk) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2446	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	2447	^ false.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2448	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2449
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2450	oldName := (arguments at:1) name.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2451	newName := (arguments at:2) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2452
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2453	change := ClassRenameChange new oldName:oldName newName:newName.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2454	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2455	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2456	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2457
1181 e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2458	handleSqueakCommentStamp
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2459	\|comment change\|
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2460
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2461	inputStream skipSeparators.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2462
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2463	comment := inputStream nextChunk.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2464
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2465	className := self receiversClassName.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2466	change := ClassCommentChange new.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2467	change className:className comment:comment.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2468	change source:(parseTree printString).
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2469	self addChange:change.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2470	^ true
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2471	!
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	2472
1183 419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2473	handleVW7ClassDefinitionChange
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2474	\|nameSpace change\|
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2475
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2476	nameSpace := receiver.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2477	className := (arguments at:1) evaluate.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2478
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2479	"/ nameSpace := Class nameSpaceQuerySignal query.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2480	"/ nameSpace ~~ Smalltalk ifTrue:[
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2481	"/ className := nameSpace name , '::' , className
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2482	"/ ].
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2483
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2484	change := ClassDefinitionChange new.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2485	change className:className; source:(parseTree printString).
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2486
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2487	change package:(Class packageQuerySignal query).
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2488	self addChange:change.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2489	^ true
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2490	!
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	2491
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2492	processChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2493	"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	2494	create changes and evaluate changeAction on each.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2495	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	2496	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	2497	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2498
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2499	[
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2500	^ self processChangeUnsafe
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2501	] on: Error do:[:ex\|
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2502	\| change \|
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2503
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2504	change := InvalidChange new source: chunk.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2505	self addChange: change.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2506	].
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2507
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2508	^true
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	"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	2511	!
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2512
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2513	processChangeUnsafe
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2514	"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	2515	create changes and evaluate changeAction on each.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2516	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	2517	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	2518	provides line-numbers; otherwise, nil is passed."
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2519
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2520	\|dispatchSelector\|
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	dispatchSelector := ('process_',(selector copyReplaceAll:$: with:$_)) asSymbol.
2122 3ffe8c94f2cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2117 diff changeset	2523	"/ Transcript showCR:dispatchSelector.
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	2524	(self respondsTo:dispatchSelector) ifTrue:[
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2525	^ self perform:dispatchSelector.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2526	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2527
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2528	"/ any subclass definiton selector ?
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2529	(Behavior definitionSelectors includes:selector)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2530	ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2531	^ self handleClassDefinitionChange.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2532	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2533
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2534	^ false
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2535
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2536	"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	2537	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2538
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2539	process_categoriesFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2540	"'categoriesFor:' chunk (Dolphin)"
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	^ self handleCategoriesForChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2543	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2544
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2545	process_category_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2546	"'category:' chunk (ST/X)"
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	^ self handleMethodCategoryChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2549	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2550
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2551	process_commentStamp_prior_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2552	"'commentStamp:prior::' chunk (Squeak)"
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	^ self handleSqueakCommentStamp.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2555	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2556
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2557	process_comment_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2558	"'comment:' chunk (ST/X)"
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	^ self handleClassCommentChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2561	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2562
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2563	process_ignoredMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2564	"'ignoredMethodsFor:' chunk (ST/X)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2567	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2568
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2569	process_instanceVariableNames_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2570	"'instanceVariableNames:' chunk (ST/X)"
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	^ self handleClassInstanceVariableDefinitionChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2573	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2574
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2575	process_methods
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2576	"'methods' chunk (ST/V and dolphin)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2579	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2580
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2581	process_methodsFor
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2582	"'methodsFor' chunk (ST/V and dolphin)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2585	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2586
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2587	process_methodsForUndefined_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2588	"'methodsForUndefined:' chunk (?)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2591	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2592
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2593	process_methodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2594	"'methodsFor:' chunk (ST/80, Squeak, ST/X, VW, ...)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2597	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2598
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2599	process_methodsFor_stamp_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2600	"'methodsFor:stamp:' chunk (Squeak)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2603	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2604
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2605	process_name_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2606	"'name:' chunk (ST/X)"
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	^ self handleNameSpaceCreationChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2609	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2610
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2611	process_primitiveDefinitions
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2612	"'primitiveDefinitions' chunk (ST/X)"
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	^ self handlePrimitiveChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2615	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2616
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2617	process_primitiveFunctions
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2618	"'primitiveFunctions' chunk (ST/X)"
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	^ self handlePrimitiveChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2621	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2622
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2623	process_primitiveVariables
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2624	"'primitiveVariables' chunk (ST/X)"
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	^ self handlePrimitiveChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2627	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2628
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2629	process_privacy_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2630	"'privacy:' chunk (ST/X)"
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	^ self handleMethodPrivacyChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2633	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2634
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2635	process_privateMethods
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2636	"'privateMethods' chunk (ST/V and dolphin)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2639	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2640
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2641	process_privateMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2642	"'privateMethodsFor:' chunk (ST/X)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2645	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2646
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2647	process_protectedMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2648	"'protectedMethodsFor:' chunk (ST/X)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2651	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2652
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2653	process_publicMethods
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2654	"'publicMethods' chunk (ST/V and dolphin)"
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	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2657	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2658
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2659	process_publicMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2660	"'publicMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2661
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2662	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2663	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2664
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2665	process_removeClass_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2666	"'removeClass:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2667
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2668	^ self handleRemoveClassChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2669	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2670
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2671	process_removeSelector_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2672	"'removeSelector:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2673
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2674	^ self handleRemoveMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2675	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2676
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2677	process_renameCategory_to_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2678	"'renameCategory:to:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2679
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2680	^ self handleMethodCategoryRenameChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2681	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2682
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2683	process_renameClass_to_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2684	"'renameClass:to:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2685
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2686	^ self handleRenameClassChange.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2687	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2688
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2689	!ChangeSet::ClassSourceWriter methodsFor:'private'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2690
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2691	analyze
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2692	"Analyzes changeset an build some index"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2693
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2694	classInfos := Dictionary new.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2695	metaInfos := Dictionary new.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2696	topClassName := nil.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2697	"Pass 1 - collect classes"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2698	changeSetBeingSaved do:[:change\|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2699	change isClassDefinitionChange ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2700	\| nm \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2701
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2702	nm := change className.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2703	(nm endsWith:' class') ifFalse:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2704	(classInfos includesKey: nm) ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2705	self error:'Multiple definitions of class ', nm.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2706	^self.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2707	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2708	classInfos at: nm put: (ClassInfo new name: nm).
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2709	metaInfos at: nm put: (ClassInfo new name: nm , ' class').
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2710	change isPrivateClassDefinitionChange ifFalse:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2711	topClassName notNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2712	self error: ('Multiple top class definitions (%1 vs %2)' bindWith: topClassName with: nm).
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2713	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2714	topClassName := nm.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2715	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2716	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2717	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2718	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2719
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2720	"Pass 2: fill in infos"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2721	changeSetBeingSaved do:[:change\|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2722	\| nm info \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2723
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2724	nm := change className.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2725	(nm endsWith: ' class') ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2726	info := metaInfos at: (nm copyTo:(nm size - 6)).
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2727	] ifFalse:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2728	info := classInfos at: nm.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2729	"Fill superclass info..."
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2730	change isClassDefinitionChange ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2731	\| superNm \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2732	superNm := change superClassName.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2733	(classInfos includesKey: superNm) ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2734	info superclass: (classInfos at: superNm).
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2735	(metaInfos at: nm) superclass: (classInfos at: superNm).
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2736	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2737	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2738	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2739	info addChange: change.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2740
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2741
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2742
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2743
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2744	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2745
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2746
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2747	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2748	ChangeSet::ClassSourceWriter new
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2749	changeSetBeingSaved: (ChangeSet forExistingClass: ChangeSet);
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2750	analyze;
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2751	yourself
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2752
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2753	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2754
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2755	"Created: / 15-03-2012 / 17:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2756	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2757
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2758	changeSetBeingSaved:something
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2759	changeSetBeingSaved := something.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2760	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2761
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2762	privateClassesOf: classInfo
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2763
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2764	\| classInfoNameSz \|
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2765
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2766	classInfoNameSz := classInfo name size.
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2767	^classInfos values select:[:info\|
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2768	info name size > classInfoNameSz and:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2769	(info name startsWith: classInfo name)
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2770	and:[(info name at:classInfoNameSz + 1) == $:
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2771	and:[(info name at:classInfoNameSz + 2) == $:
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2772	and:[(info name indexOf: $: startingAt: classInfo name size + 3) == 0]]]]
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2773	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2774
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2775	"Created: / 15-03-2012 / 19:31:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2776	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2777
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2778	privateClassesSortedOf: classInfo
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2779
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2780	\|classes\|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2781
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2782	classes := self privateClassesOf: classInfo.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2783	(classes size > 0) ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2784	classes := classes asOrderedCollection.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2785	classes sort:[:a :b \| a name < b name].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2786
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2787	classes topologicalSort:[:a :b \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2788	"/ a must come before b iff:
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2789	"/ b is a subclass of a
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2790	"/ b has a private class which is a subclass of a
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2791
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2792	\|mustComeBefore privateClassesOfB\|
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2793	mustComeBefore := (b isSubclassOf:a) or:[b isPrivateClassOf: a].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2794	mustComeBefore
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2795	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2796	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2797	^ classes.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2798
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2799	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2800	Object privateClassesSorted
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2801	NewSystemBrowser privateClassesSorted
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2802	NewSystemBrowser privateClasses
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2803	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2804
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2805	"Created: / 15-03-2012 / 19:45:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2806	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2807
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2808	!ChangeSet::ClassSourceWriter methodsFor:'source writing'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2809
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2810	fileOut:aChangeSet on:outStreamArg withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2811
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2812	\|collectionOfCategories versionMethods
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2813	nonMeta meta classesImplementingInitialize outStream\|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2814
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2815	changeSetBeingSaved := aChangeSet.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2816	self analyze.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2817	nonMeta := classInfos at: topClassName.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2818	meta := metaInfos at: topClassName.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2819
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2820	methodsAlreadySaved := Set new.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2821
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2822	encoderOrNil isNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2823	outStream := outStreamArg.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2824	] ifFalse:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2825	outStream := EncodedStream stream:outStreamArg encoder:encoderOrNil.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2826	outStream nextPutAll:'"{ Encoding: ' , encoderOrNil nameOfEncoding , ' }"'; cr; cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2827	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2828
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2829	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2830	if there is a copyright method, add a copyright comment
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2831	at the beginning, taking the string from the copyright method.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2832	We cannot do this unconditionally - that would lead to my copyrights
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2833	being put on your code ;-).
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2834	On the other hand: I want every file created by myself to have the
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2835	copyright string at the beginning be preserved .... even if the
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2836	code was edited in the browser and filedOut.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2837	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2838	self generateHeaderWithCopyrightOn:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2839
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2840	stampIt ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2841	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2842	"/ first, a timestamp
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2843	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2844	outStream nextPutAll:(Smalltalk timeStamp).
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2845	outStream nextPutChunkSeparator.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2846	outStream cr; cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2847	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2848
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2849	withDefinition ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2850	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2851	"/ then the definition(s)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2852	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2853	self fileOutAllDefinitionsOf:nonMeta on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2854	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2855	"/ a comment - if any
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2856	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2857
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2858	"/ (comment := nonMeta comment) notNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2859	"/ nonMeta fileOutCommentOn:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2860	"/ outStream cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2861	"/ ].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2862	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2863	"/ ST/X primitive definitions - if any
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2864	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2865	self fileOutPrimitiveSpecsOf: nonMeta on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2866	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2867
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2868	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2869	"/ methods from all categories in metaclass (i.e. class methods)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2870	"/ EXCEPT: the version method is placed at the very end, to
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2871	"/ avoid sourcePosition-shifts when checked out later.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2872	"/ (RCS expands this string, so its size is not constant)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2873	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2874	collectionOfCategories := meta categories asSortedCollection.
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2875	versionMethods := meta methods select:[:change \|AbstractSourceCodeManager isVersionMethodSelector:change selector].
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2876
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2877	collectionOfCategories notNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2878	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2879	"/ documentation first (if any), but not the version method
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2880	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2881	(collectionOfCategories includes:'documentation') ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2882
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2883	"/ versionMethods do:[:versionMethod \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2884	"/ \|source\|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2885	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2886	"/ source := versionMethod source.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2887	"/ (source isEmptyOrNil or:[(source startsWith:nonMeta nameOfOldVersionMethod) not]) ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2888	"/ "something bad happend to the classes code"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2889	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2890	"/ Class fileOutErrorSignal
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2891	"/ raiseRequestWith:aClass
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2892	"/ errorString:' - bad source for version method (uncompiled class file?): ', (versionMethod displayString)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2893	"/ ].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2894	"/ ].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2895
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2896	self fileOutCategory:'documentation' of:meta except:versionMethods only:nil methodFilter:methodFilter on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2897	outStream cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2898	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2899
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2900	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2901	"/ initialization next (if any)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2902	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2903	(collectionOfCategories includes:'initialization') ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2904	self fileOutCategory:'initialization' of:meta methodFilter:methodFilter on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2905	outStream cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2906	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2907
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2908	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2909	"/ instance creation next (if any)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2910	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2911	(collectionOfCategories includes:'instance creation') ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2912	self fileOutCategory:'instance creation' of:meta methodFilter:methodFilter on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2913	outStream cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2914	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2915	collectionOfCategories do:[:aCategory \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2916	((aCategory ~= 'documentation')
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2917	and:[(aCategory ~= 'initialization')
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2918	and:[aCategory ~= 'instance creation']]) ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2919	self fileOutCategory:aCategory of:meta methodFilter:methodFilter on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2920	outStream cr
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2921	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2922	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2923	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2924
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2925	"/ if there are any primitive definitions (vw-like ffi-primitives),
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2926	"/ file them out first in the order: defines, types.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2927	"/ Otherwise, we might have trouble when filing in later, because the types are needed
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2928	"/ for the primitive calls.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2929	nonMeta methodDictionary keysAndValuesDo:[:sel :m \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2930	m isVisualWorksTypedef ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2931	self fileOutCategory:m category of:nonMeta except:nil only:(Array with:m) methodFilter:methodFilter on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2932	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2933	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2934
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2935	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2936	"/ methods from all categories
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2937	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2938	collectionOfCategories := nonMeta categories asSortedCollection.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2939	collectionOfCategories notNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2940	collectionOfCategories do:[:aCategory \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2941	self fileOutCategory:aCategory of:nonMeta methodFilter:methodFilter on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2942	outStream cr
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2943	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2944	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2945
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2946	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2947	"/ any private classes' methods
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2948	"/
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2949	(self privateClassesSortedOf: nonMeta) do:[:aClass \|
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2950	self fileOutAllMethodsOf:aClass on:outStream methodFilter:methodFilter
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2951	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2952
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2953
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2954	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2955	"/ finally, the previously skipped version method
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2956	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2957	versionMethods notEmpty ifTrue: [
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2958	self fileOutCategory:'documentation' of:meta except:nil only:versionMethods methodFilter:methodFilter on:outStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2959	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2960
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2961	initIt ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2962	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2963	"/ optionally an initialize message
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2964	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2965	classesImplementingInitialize := OrderedCollection new.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2966
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2967	classInfos values with: metaInfos values do:[:class :meta\|
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2968	(meta includesSelector: #initialize) ifTrue:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2969	classesImplementingInitialize add: class.
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2970	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2971	].
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2972
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2973	classesImplementingInitialize size ~~ 0 ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2974	classesImplementingInitialize topologicalSort:[:a :b \| b isSubclassOf:a].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2975	outStream cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2976	classesImplementingInitialize do:[:eachClass \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2977	eachClass printClassNameOn:outStream. outStream nextPutAll:' initialize'.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2978	outStream nextPutChunkSeparator.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2979	outStream cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2980	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2981	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2982	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2983
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2984	"Created: / 15-11-1995 / 12:53:06 / cg"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2985	"Modified: / 01-04-1997 / 16:01:05 / stefan"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2986	"Modified: / 29-09-2011 / 14:53:49 / cg"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2987	"Created: / 15-03-2012 / 17:39:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2988	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2989
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2990	fileOutAllDefinitionsOf:nonMetaInfo on:aStream
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2991	"append expressions on aStream, which defines myself and all of my private classes."
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2992
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2993	\| metaInfo \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	2994
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2995	nonMetaInfo definition isPrivateClassDefinitionChange ifFalse:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2996	nonMetaInfo definition package notNil ifTrue:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2997	aStream nextPutAll: ('"{ Package: ''%1'' }"' bindWith: nonMetaInfo definition package).
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2998	aStream cr.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	2999	].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3000	].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3001
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3002
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3003	aStream nextPutAll: nonMetaInfo definition source.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3004	aStream nextPutChunkSeparator.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3005	aStream cr; cr.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3006
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3007	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3008	"/ optional classInstanceVariables
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3009	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3010	metaInfo := metaInfos at: nonMetaInfo name.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3011	metaInfo definition notNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3012	aStream nextPutAll: metaInfo definition source.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3013	aStream nextPutChunkSeparator.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3014	aStream cr; cr
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3015	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3016
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3017	"/ here, the full nameSpace prefixes are output,
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3018	"/ to avoid confusing stc
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3019	"/ (which otherwise could not find the correct superclass)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3020	"/
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3021	Class fileOutNameSpaceQuerySignal answer:false do:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3022	Class forceNoNameSpaceQuerySignal answer:true do:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3023	(self privateClassesSortedOf: nonMetaInfo) do:[:i \|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3024	self fileOutAllDefinitionsOf:i on:aStream
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3025	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3026	]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3027	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3028
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3029	"Created: / 15-10-1996 / 11:15:19 / cg"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3030	"Modified: / 22-03-1997 / 16:11:56 / cg"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3031	"Created: / 15-03-2012 / 19:18:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3032	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3033
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3034	fileOutAllMethodsOf:aClass on:aStream methodFilter:methodFilter
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3035	\| collectionOfCategories meta \|
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3036
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3037	meta := metaInfos at: aClass name.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3038
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3039	collectionOfCategories := meta categories asSortedCollection.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3040	collectionOfCategories notNil ifTrue:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3041	collectionOfCategories do:[:aCategory \|
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3042	self fileOutCategory:aCategory of:meta methodFilter:methodFilter on:aStream.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3043	aStream cr
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3044	]
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3045	].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3046	collectionOfCategories := aClass categories asSortedCollection.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3047	collectionOfCategories notNil ifTrue:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3048	collectionOfCategories do:[:aCategory \|
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3049	self fileOutCategory:aCategory of:aClass methodFilter:methodFilter on:aStream.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3050	aStream cr
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3051	]
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3052	].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3053
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3054	(self privateClassesSortedOf: aClass) do:[:privateClass \|
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3055	self fileOutAllMethodsOf:privateClass on:aStream methodFilter:methodFilter
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3056	].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3057
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3058	"Created: / 15-10-1996 / 11:13:00 / cg"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3059	"Modified: / 22-03-1997 / 16:12:17 / cg"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3060	"Created: / 19-03-2012 / 18:21:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3061	!
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3062
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3063	fileOutPrimitiveSpecsOf: nonMeta on:outStream
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3064
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3065	"Nothing now..."
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3066
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3067	"Created: / 15-03-2012 / 19:48:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3068	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3069
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3070	generateHeaderWithCopyrightOn:outStream
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3071	\|copyrightChange copyrightText\|
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3072
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3073	copyrightChange :=
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3074	(metaInfos at: topClassName) methodAt: #copyright.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3075
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3076
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3077	copyrightChange notNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3078	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3079	get the copyright method's comment-text, strip off empty and blank lines
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3080	and insert at beginning.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3081	"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3082	copyrightText := Parser methodCommentFromSource: copyrightChange source.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3083	copyrightText notEmptyOrNil ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3084	copyrightText := copyrightText asCollectionOfLines asStringCollection.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3085	copyrightText := copyrightText withoutLeadingBlankLines.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3086	copyrightText := copyrightText withoutTrailingBlankLines.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3087	copyrightText notEmpty ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3088	copyrightText addFirst:'"'.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3089	copyrightText addLast:'"'.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3090	copyrightText := copyrightText asString.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3091	outStream nextPutAllAsChunk:copyrightText.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3092	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3093	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3094	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3095
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3096	"Created: / 15-03-2012 / 19:01:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3097	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3098
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3099	!ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'instance creation'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3100
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3101	new
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3102	"return an initialized instance"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3103
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3104	^ self basicNew initialize.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3105	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3106
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3107	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'accessing'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3108
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3109	categories
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3110
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3111	^ (methods collect:[:e\|e category]) asSet
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3112
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3113	"Created: / 19-03-2012 / 18:03:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3114	!
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3115
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3116	definition
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3117	^ definition
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3118	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3119
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3120	definition:something
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3121	definition := something.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3122	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3123
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3124	methodAt: selector
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3125	^methods detect:[:each\|each selector == selector] ifNone:[nil].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3126
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3127	"Created: / 15-03-2012 / 19:11:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3128	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3129
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3130	methodDictionary
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3131
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3132	methodDictionary isNil ifTrue:[
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3133	methodDictionary := Dictionary new.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3134	].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3135	^methodDictionary
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3136
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3137	"Created: / 19-03-2012 / 18:11:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3138	!
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3139
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3140	methods
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3141	^ methods
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3142	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3143
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3144	methods:something
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3145	methods := something.
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3146	methodDictionary := Dictionary new.
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3147	methods do:[:m\|methodDictionary at: m selector put: m].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3148
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3149	"Modified: / 19-03-2012 / 18:12:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3150	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3151
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3152	name
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3153	^ name
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3154	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3155
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3156	name:something
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3157	name := something.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3158	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3159
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3160	selectorAtMethod: m
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3161	^m selector
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3162
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3163	"Created: / 19-03-2012 / 18:14:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3164	!
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3165
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3166	superclass
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3167	^ superclass
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3168	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3169
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3170	superclass:something
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3171	superclass := something.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3172	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3173
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3174	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'adding'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3175
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3176	addChange: change
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3177
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3178	change isClassDefinitionChange ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3179	definition := change.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3180	^self.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3181	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3182	change isMethodCodeChange ifTrue:[
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3183	methods add: change.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3184	^self.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3185	].
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3186
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3187	self error: 'Unknown change'
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3188
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3189	"Created: / 15-03-2012 / 19:12:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3190	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3191
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3192	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'enumerating'!
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3193
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3194	methodsDo: aBlock
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3195
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3196	methods do: aBlock
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3197
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3198	"Created: / 19-03-2012 / 18:14:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3199	! !
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3200
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3201	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'initialization'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3202
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3203	initialize
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3204	"Invoked when a new instance is created."
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3205
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3206	"/ please change as required (and remove this comment)
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3207	"/ name := nil.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3208	"/ instDefinition := nil.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3209	"/ classDefinition := nil.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3210	methods := OrderedCollection new.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3211
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3212	"/ super initialize. -- commented since inherited method does nothing
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3213
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3214	"Modified: / 15-03-2012 / 19:12:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3215	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3216
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3217	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'printing & storing'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3218
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3219	printClassNameOn:aStream
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3220	aStream nextPutAll: name
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3221
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3222	"Created: / 19-03-2012 / 18:17:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3223	!
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3224
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3225	printOn:aStream
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3226	"append a printed representation if the receiver to the argument, aStream"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3227
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3228	aStream nextPutAll: self class nameWithoutPrefix.
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3229	aStream nextPutAll:'('.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3230	name printOn:aStream.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3231	aStream nextPutAll:')'.
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3232
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3233	"Modified: / 19-03-2012 / 19:43:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3234	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3235
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3236	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'queries'!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3237
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3238	includesSelector: selector
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3239
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3240	^methods anySatisfy:[:m\|m selector == selector].
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3241
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3242	"Created: / 19-03-2012 / 18:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3243	!
66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3244
3028 679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3245	isPrivateClassOf: classInfo
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3246
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3247	^name startsWith: classInfo name
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3248
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3249	"Created: / 15-03-2012 / 19:42:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3250	!
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3251
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3252	isSubclassOf: classInfo
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3253
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3254	^superclass notNil and:
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3255	[superclass == classInfo or:[superclass isSubclassOf: classInfo]]
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3256
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3257	"Created: / 15-03-2012 / 19:41:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3258	! !
679feb681da5 Initial support for writing a changeset in class source .st format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3017 diff changeset	3259
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3260	!ChangeSet::DiffSet class methodsFor:'documentation'!
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3261
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3262	documentation
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3263	"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3264	I represent the differences between two change sets.
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3265	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	3266	"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3267	! !
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	3268
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3269	!ChangeSet::DiffSet methodsFor:'accessing'!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3270
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3271	changed
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3272	"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	3273
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3274	^ changed
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3275
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3276	"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	3277	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3278
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3279	changed:something
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3280	"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	3281
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3282	changed := something.
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3283
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3284	"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	3285	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3286
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3287	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	3288	"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	3289
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3290	changed := changedArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3291	changed isNil ifTrue:[changed := OrderedCollection new].
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	3292
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3293	onlyInReceiver := onlyInReceiverArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3294	onlyInReceiver isNil ifTrue:[onlyInReceiver := ChangeSet new].
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	3295
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3296	onlyInArg := onlyInArgArg.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3297	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	3298	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3299
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3300	onlyInArg
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3301	"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	3302
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3303	^ onlyInArg
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3304
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3305	"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	3306	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3307
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3308	onlyInArg:something
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3309	onlyInArg := something.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3310	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3311
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3312	onlyInReceiver
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3313	"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	3314
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3315	^ onlyInReceiver
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3316
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	3317	"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	3318	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3319
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3320	onlyInReceiver:something
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3321	onlyInReceiver := something.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3322	! !
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	3323
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3324	!ChangeSet::DiffSet methodsFor:'merging'!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3325
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3326	addDiffSet:anotherDiffset
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3327	changed addAll:(anotherDiffset changed).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3328	onlyInReceiver addAll:(anotherDiffset onlyInReceiver).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3329	onlyInArg addAll:(anotherDiffset onlyInArg).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3330
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3331	"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	3332	!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3333
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3334	copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3335	^ self class new
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3336	changed:changed copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3337	onlyInReceiver:onlyInReceiver copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3338	onlyInArg:onlyInArg copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3339
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3340	"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	3341	! !
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3342
2186 3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3343	!ChangeSet::DiffSet methodsFor:'misc'!
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3344
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3345	removeAllVersionMethods
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3346	changed := changed
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3347	reject:[:pair \|
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3348	pair first isMethodChangeForVersionMethod
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3349	].
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3350	onlyInReceiver := onlyInReceiver
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3351	reject:[:chg \|
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3352	chg isMethodChangeForVersionMethod
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3353	].
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3354	onlyInArg := onlyInArg
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3355	reject:[:chg \|
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3356	chg isMethodChangeForVersionMethod
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3357	].
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3358	! !
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	3359
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3360	!ChangeSet::DiffSet methodsFor:'queries'!
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3361
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3362	isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3363	^ changed isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3364	and:[ onlyInReceiver isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3365	and:[ onlyInArg isEmpty ] ]
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3366	!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3367
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3368	notEmpty
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3369	^ self isEmpty not
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3370
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	3371	"Created: / 12-10-2006 / 23:12:27 / cg"
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3372	! !
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	3373
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3374	!ChangeSet::DolphinPACFileReader methodsFor:'reading-private'!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3375
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3376	handleCategoriesForClass
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3377	\|category change\|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3378
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3379	[
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3380	inputStream skipSeparators.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3381	category := inputStream nextChunk.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3382	category notEmpty
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3383	] whileTrue:[
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3384	change := ClassCategoryChange new.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3385	change
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3386	className:className
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3387	category:category.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3388
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3389	self addChange:change.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3390	].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3391	^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3392	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3393
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3394	handleCategoriesForMethod
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3395	\|methodSelector categories change isPrivate isPublic category\|
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3396
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3397	methodSelector := (arguments at:1) evaluate.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3398	inputStream skipSeparators.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3399	isPrivate := false.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3400
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3401	categories := OrderedCollection new.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3402	[
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3403	\|done category \|
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3404
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3405	category := inputStream nextChunk withoutSeparators.
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3406	done := category isEmpty.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3407	done ifFalse:[
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3408	categories add:category
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3409	].
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3410	done
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3411	] whileFalse.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3412
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3413	categories size > 1 ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3414	isPrivate := categories includes:'private'.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3415	categories remove:'private' ifAbsent:nil.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3416	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3417	categories size > 1 ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3418	isPublic := categories includes:'public'.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3419	categories remove:'public' ifAbsent:nil.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3420	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3421	"/ categories size > 1 ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3422	"/ self halt.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3423	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3424
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3425	category := categories first.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3426	isPrivate ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3427	category := category , '-private'.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3428	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3429
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3430	change := MethodCategoryChange new.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3431	change
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3432	className:className
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3433	selector:methodSelector
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3434	category:category.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3435
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3436	self addChange:change.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3437	^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3438	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3439
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3440	processChange
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3441	"given a parse-tree (from parsing some changes source/chunk),
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3442	create changes and evaluate changeAction on each.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3443	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	3444	arg; the lineNumber is only valid, if the underlying stream
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3445	provides line-numbers; otherwise, nil is passed."
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3446
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3447	(selector == #'categoriesForClass') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3448	^ self handleCategoriesForClass.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3449	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3450	(selector == #'categoriesFor:') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3451	^ self handleCategoriesForMethod.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3452	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3453	selector == #'subclass:instanceVariableNames:classVariableNames:poolDictionaries:classInstanceVariableNames:' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3454	^ self handleClassDefinitionChange.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3455	].
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3456	"/ selector == #'guid:' ifTrue:[
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3457	"/ ^ self handleGUIDChange.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3458	"/ ].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3459	^ super processChange
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3460
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3461
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3462	"/ selector == #named:superclass:indexedInstanceVariables:instanceVariableNames:classVariableNames:sharedPools:classInstanceVariableNames: ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3463	"/ ^ self handleClassDefinitionChange.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3464	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3465	"/ (selector == #'key:value:') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3466	"/ (self checkReceiverIsGlobalNamed:'Annotation') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3467	"/ ^ self handleAnnotation.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3468	"/ ]
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3469	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3470	"/ selector == #'method' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3471	"/ ^ self handleMethodChange:false.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3472	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3473	"/ selector == #'classMethod' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3474	"/ ^ self handleMethodChange:true.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3475	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3476	"/
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3477	"/ selector == #'initializer' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3478	"/ ^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3479	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3480	"/ selector == #'initialize' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3481	"/ ^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3482	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3483	"/self halt.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3484	"/
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3485	"/ ^ false
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3486
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3487	"Created: / 16.2.1998 / 13:42:40 / cg"
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3488	"Modified: / 15.12.1999 / 00:29:06 / cg"
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3489	! !
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3490
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3491	!ChangeSet::SIFChangeFileReader methodsFor:'reading-private'!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3492
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3493	handleAnnotation
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3494	\|key value lastChange change\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3495
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3496	key := (arguments at:1) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3497	value := (arguments at:2) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3498
1422 6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	3499	key = 'Prerequisite' ifTrue:[
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	3500	"/ change := SIFPrerequisiteChange new prerequisiteFileName:value.
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	3501	"/ self addChange:change.
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	3502	^ true
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	3503	].
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	3504
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3505	lastChange := changeSet last.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3506
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3507	key = 'package' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3508	change := ClassCategoryChange new className:(lastChange className) category:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3509	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3510	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3511	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3512	key = 'category' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3513	"/ change := MethodCategoryChange new className:(lastChange className) selector:(lastChange selector) category:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3514	"/ self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3515	lastChange category:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3516	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3517	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3518	key = 'stamp' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3519	"/ lastChange timeStamp:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3520	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3521	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3522	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3523	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3524
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3525	handleClassDefinitionChange
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3526	\|nameSpace change\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3527
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3528	(self checkReceiverIsGlobalNamed:#Class) ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3529	self error:'unexpected receiver in classDefinition message' mayProceed:true.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3530	^ false.
1313 8aceccee1eaf * empty log message * Claus Gittinger <cg@exept.de> parents: 1301 diff changeset	3531	].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3532	className := (arguments at:1) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3533
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3534	nameSpace := Class nameSpaceQuerySignal query.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3535	nameSpace ~~ Smalltalk ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3536	className := nameSpace name , '::' , className
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3537	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3538
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3539	change := ClassDefinitionChange new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3540	change className:className; source:(parseTree printString).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3541
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3542	change package:(Class packageQuerySignal query).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3543	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3544	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3545	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3546
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3547	handleMethodChange:isMeta
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	3548	\|categoryName methodSource change parser \|
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3549
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3550	className := self receiversClassName.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3551	isMeta ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3552	className := className , ' class'
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3553	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3554
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3555	categoryName := 'uncategorized'.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3556
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3557	inputStream skipSeparators.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3558	lineNumber := inputStream lineNumber.
1209 f98d5eb855d3 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1200 diff changeset	3559	position := inputStream position1Based.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3560
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3561	methodSource := inputStream nextChunk.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3562
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3563	parser := Parser
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3564	parseMethodArgAndVarSpecification:methodSource
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3565	in:nil
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3566	ignoreErrors:true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3567	ignoreWarnings:true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3568	parseBody:false.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3569
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3570	parser isNil ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3571	"/ something wierd ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3572	methodSelector := '????'.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3573	] ifFalse:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3574	methodSelector := parser selector.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3575	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3576
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3577	change := MethodChange new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3578	change
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3579	className:className
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3580	selector:methodSelector
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3581	source:methodSource
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3582	category:categoryName
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	3583	privacy:nil.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3584
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3585	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3586	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3587	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3588
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3589	processChange
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3590	"given a parse-tree (from parsing some changes source/chunk),
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3591	create changes and evaluate changeAction on each.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3592	The block is invoked with the change and a lineNumberOrNil as
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3593	arg; the lineNumber is only valid, if the underlying stream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3594	provides line-numbers; otherwise, nil is passed."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3595
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3596	(selector == #'interchangeVersion:') ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3597	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3598	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3599	selector == #named:superclass:indexedInstanceVariables:instanceVariableNames:classVariableNames:sharedPools:classInstanceVariableNames: ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3600	^ self handleClassDefinitionChange.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3601	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3602	(selector == #'key:value:') ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3603	(self checkReceiverIsGlobalNamed:'Annotation') ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3604	^ self handleAnnotation.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3605	]
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3606	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3607	selector == #'method' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3608	^ self handleMethodChange:false.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3609	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3610	selector == #'classMethod' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3611	^ self handleMethodChange:true.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3612	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3613
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3614	selector == #'initializer' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3615	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3616	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3617	selector == #'initialize' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3618	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3619	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3620
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3621	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3622
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3623	"Created: / 16.2.1998 / 13:42:40 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3624	"Modified: / 15.12.1999 / 00:29:06 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3625	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3626
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	3627	!ChangeSet class methodsFor:'documentation'!
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	3628
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3629	version_CVS
3011 1997ff6e7e55 trunk branched into /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2745 diff changeset	3630	^ '�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	3631
3012 4f40b8304d54 Added InvalidChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3011 diff changeset	3632	!
4f40b8304d54 Added InvalidChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3011 diff changeset	3633
4f40b8304d54 Added InvalidChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3011 diff changeset	3634	version_SVN
3031 66f3216e3ea5 Fixes to fileout changeset in St/X class source format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3029 diff changeset	3635	^ '$Id: ChangeSet.st 1897 2012-03-19 20:13:30Z vranyj1 $'
3012 4f40b8304d54 Added InvalidChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3011 diff changeset	3636	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 19 Mar 2012 20:13:30 +0000
branch	jv
changeset 3031	66f3216e3ea5
parent 3029	c7be0be50898
child 3032	f8b04203694b
permissions	-rw-r--r--