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

author	Stefan Vogel <sv@exept.de>
	Mon, 13 Aug 2012 16:22:06 +0200
changeset 2902	f6fce7bb1c55
parent 2894	ccd13e91583d
child 2907	dd00eb010669
permissions	-rw-r--r--