hg/stx-libbasic3: ChangeSet.st@c5c365c76256 (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
4330 998eb03f0736 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4304 diff changeset	3	COPYRIGHT (c) 2015-2018 Jan Vrany
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4	All Rights Reserved
3 263f814933d4 * empty log message * claus parents: 0 diff changeset	5
263f814933d4 * empty log message * claus parents: 0 diff changeset	6	This software is furnished under a license and may be used
263f814933d4 * empty log message * claus parents: 0 diff changeset	7	only in accordance with the terms of that license and with the
263f814933d4 * empty log message * claus parents: 0 diff changeset	8	inclusion of the above copyright notice. This software may not
263f814933d4 * empty log message * claus parents: 0 diff changeset	9	be provided or otherwise made available to, or used by, any
263f814933d4 * empty log message * claus parents: 0 diff changeset	10	other person. No title to or ownership of the software is
263f814933d4 * empty log message * claus parents: 0 diff changeset	11	hereby transferred.
263f814933d4 * empty log message * claus parents: 0 diff changeset	12	"
921 fa4db05c887b oops - nameSpace prefix handling needed fix due Claus Gittinger <cg@exept.de> parents: 916 diff changeset	13	"{ Package: 'stx:libbasic3' }"
fa4db05c887b oops - nameSpace prefix handling needed fix due Claus Gittinger <cg@exept.de> parents: 916 diff changeset	14
3697 2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	15	"{ NameSpace: Smalltalk }"
2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	16
0 470788421600 Initial revision claus parents: diff changeset	17	OrderedCollection subclass:#ChangeSet
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	18	instanceVariableNames:'changedClasses changeSelectors name'
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	19	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	20	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	21	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	22	!
470788421600 Initial revision claus parents: diff changeset	23
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	24	Object subclass:#ChangeFileReader
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	25	instanceVariableNames:'inputStream parseTree changeAction changeSet selector receiver
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	26	arguments receiverSelector receiverReceiver lineNumber position
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	27	className methodSelector nameSpaceOverride chunk timestamp
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	28	classIsJava'
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	29	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	30	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	31	privateIn:ChangeSet
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	32	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	33
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	34	Object subclass:#ChangeFileWriter
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	35	instanceVariableNames:''
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	36	classVariableNames:''
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	37	poolDictionaries:''
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	38	privateIn:ChangeSet
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	39	!
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	40
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	41	ChangeSet::ChangeFileReader subclass:#BeeChangeFileReader
4383 c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	42	instanceVariableNames:'properties'
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	43	classVariableNames:''
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	44	poolDictionaries:''
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	45	privateIn:ChangeSet
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	46	!
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	47
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	48	ChangeSet::ChangeFileWriter subclass:#BeeChangeFileWriter
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	49	instanceVariableNames:'timestamp'
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	50	classVariableNames:''
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	51	poolDictionaries:''
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	52	privateIn:ChangeSet
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	53	!
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	54
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	55	Error subclass:#ChangeProcessingError
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	56	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	57	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	58	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	59	privateIn:ChangeSet
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	60	!
b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	61
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	62	SmalltalkChunkFileSourceWriter subclass:#ClassSourceWriter
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	63	instanceVariableNames:'changeSetBeingSaved packageName namespaceName topClassName
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	64	classInfos metaInfos'
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	65	classVariableNames:''
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	66	poolDictionaries:''
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	67	privateIn:ChangeSet
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	68	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	69
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	70	Object subclass:#ClassInfo
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	71	instanceVariableNames:'name superclass definition comment methods methodDictionary
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	72	namespace primitiveDefinitions primitiveVariables
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	73	primitiveFunctions'
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	74	classVariableNames:''
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	75	poolDictionaries:''
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	76	privateIn:ChangeSet::ClassSourceWriter
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	77	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	78
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	79	Object subclass:#DiffSet
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	80	instanceVariableNames:'changed onlyInReceiver onlyInArg same'
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	81	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	82	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	83	privateIn:ChangeSet
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	84	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	85
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	86	ChangeSet::ChangeFileReader subclass:#DolphinPACFileReader
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	87	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	88	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	89	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	90	privateIn:ChangeSet
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	91	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	92
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	93	ChangeSet::ChangeProcessingError subclass:#InvalidChangeChunkError
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	94	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	95	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	96	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	97	privateIn:ChangeSet
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	98	!
b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	99
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	100	ChangeSet::ChangeFileReader subclass:#SIFChangeFileReader
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	101	instanceVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	102	classVariableNames:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	103	poolDictionaries:''
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	104	privateIn:ChangeSet
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	105	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	106
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	107	!ChangeSet class methodsFor:'documentation'!
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	108
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	109	copyright
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	110	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	111	COPYRIGHT (c) 1993 by Claus Gittinger
4330 998eb03f0736 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4304 diff changeset	112	COPYRIGHT (c) 2015-2018 Jan Vrany
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	113	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	114
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	115	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	116	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	117	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	118	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	119	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	120	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	121	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	122	!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	123
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	124	documentation
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	125	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	126	used in the changes management to keep track of changes
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	127
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	128	[author:]
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	129	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	130	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	131	! !
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	132
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	133	!ChangeSet class methodsFor:'instance creation'!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	134
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	135	forExistingClass:aClass
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	136	"build a changeSet for some given class, all of its private classes
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	137	and all extensions if any.
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	138	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	139	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	140	state of the given class.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	141	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	142	for example, when building patchLists, diffSets, comparing etc."
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	143
1954 521fa986be30 Fix if method does not exist in change Stefan Vogel <sv@exept.de> parents: 1920 diff changeset	144	\|changeSet s changeObject\|
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	145
2633 5a5460e5231a comment/format in: Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	146	"/ kludge: could do this much faster...
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	147	s := ReadWriteStream on:''.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	148	aClass fileOutOn:s.
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	149	s reset.
a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	150	changeSet := self fromStream:s.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	151
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	152	"/ fetch the real package info...
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	153	changeSet do:[:eachChange \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	154	eachChange isMethodChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	155	changeObject := eachChange changeMethod.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	156	changeObject notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	157	eachChange package:changeObject package
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	158	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	159	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	160	eachChange isClassChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	161	changeObject := eachChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	162	changeObject notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	163	eachChange package:changeObject package
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	164	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	165	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	166	].
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	167	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	168
1176 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
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	171	"/ \|source changeSet chunk sawExcla lastTimeStamp s change nameSpace\|
a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	172
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	173	"/ changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	174	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	175	"/ "/ first, a classDefinition change ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	176	"/ changeSet addClassDefinitionChangeFor:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	177	"/ "/ are there any class-instVars ?
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	178	"/ aClass class instVarNames size > 0 ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	179	"/ changeSet addInstVarDefinitionChangeFor:aClass class.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	180	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	181	"/ "/ a comment ?
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	182	"/ aClass comment size > 0 ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	183	"/ changeSet addClassCommentChangeFor:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	184	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	185	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	186	"/ "/ class methods first ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	187	"/ aClass class methodDictionary keysAndValuesDo:[:sel :mthd \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	188	"/ changeSet addMethodChange:mthd in:aClass class.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	189	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	190	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	191	"/ "/ instance methods ...
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	192	"/ aClass methodDictionary keysAndValuesDo:[:sel :mthd \|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	193	"/ changeSet addMethodChange:mthd in:aClass.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	194	"/ ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	195	"/
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	196	"/ ^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	197
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	198
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	199	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	200	ChangeSet forExistingClass:ChangeSet
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	201	ChangeSet forExistingClass:A
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	Rectangle hasExtensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	204	ChangeSet forExistingClass:Rectangle
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	205	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	206
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	207	"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	208	"Modified: / 12-10-2006 / 23:45:14 / cg"
2633 5a5460e5231a comment/format in: Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	209	"Modified (format): / 01-12-2011 / 19:10:22 / cg"
1865 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
2940 a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	212	forExistingClass:aClass withExtensions:withExtensions
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	213	"build a changeSet for some given full class with or without extensions.
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	214	That does of course not give deltas, but instead reflects the current
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	215	state of the given class.
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	216	It is useful in conjunction with the other utility methods,
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	217	for example, when building patchLists, diffSets etc."
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	218
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	219	^ self
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	220	forExistingClass:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	221	withExtensions:withExtensions
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	222	withLooseMethods:false
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	223	extensionsOnly:false
2940 a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	224
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	225	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	226	Object hasExtensions
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	227	Object extensions size
2940 a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	228
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	229	(ChangeSet forExistingClass:Object) size
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	230	(ChangeSet forExistingClass:Object withExtensions:false) size
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	231
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	232	(ChangeSet forExistingClass:stx_libbasic3 withExtensions:false)
2940 a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	233	"
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	234
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	235	"Created: / 12-10-2006 / 18:13:02 / cg"
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	236	"Modified: / 12-10-2006 / 23:46:05 / cg"
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	237	!
a81457cc5d01 added: #forExistingClass:withExtensions: Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	238
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	239	forExistingClass:aClass withExtensions:withExtensions extensionsOnly:extensionsOnly
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	240	"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	241	as specified by the with-arguments.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	242	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	243	state of the given class.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	244	It is useful in conjunction with the other utility methods,
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	245	for example, when building patchLists, diffSets etc."
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	246
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	247	^ self
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	248	forExistingClass:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	249	withExtensions:withExtensions
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	250	withLooseMethods:false
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	251	extensionsOnly:extensionsOnly
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	252
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	253	"
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	254	ChangeSet forExistingClass:ChangeSet
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	255
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	256	Rectangle hasExtensions
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	257	Rectangle extensions
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	258
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	259	ChangeSet forExistingClass:Rectangle withExtensions:true extensionsOnly:false
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	260	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:false
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	261	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:true
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	262	"
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	263
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	264	"Created: / 12-10-2006 / 18:13:02 / cg"
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	265	"Modified: / 12-10-2006 / 23:46:05 / cg"
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	266	!
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	267
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	268	forExistingClass:aClass withExtensions:withExtensions withLooseMethods:withLooseMethods
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	269	"build a changeSet for some given full class with or without extensions.
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	270	That does of course not give deltas, but instead reflects the current
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	271	state of the given class.
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	272	It is useful in conjunction with the other utility methods,
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	273	for example, when building patchLists, diffSets etc."
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	274
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	275	^ self
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	276	forExistingClass:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	277	withExtensions:withExtensions
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	278	withLooseMethods:withLooseMethods
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	279	extensionsOnly:false
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	280
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	281	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	282	Object hasExtensions
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	283	Object extensions size
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	284
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	285	(ChangeSet forExistingClass:Object) size
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	286	(ChangeSet forExistingClass:Object withExtensions:false) size
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	287
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	288	(ChangeSet forExistingClass:stx_libbasic3 withExtensions:false)
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	289	"
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	290
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	291	"Created: / 12-10-2006 / 18:13:02 / cg"
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	292	"Modified: / 12-10-2006 / 23:46:05 / cg"
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	293	!
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	294
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	295	forExistingClass:aClass withExtensions:withExtensions withLooseMethods:withLooseMethods extensionsOnly:extensionsOnly
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	296	"build a changeSet for some given full class, the base-class or the extensions only,
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	297	as specified by the with-arguments.
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	298	That does of course not give deltas, but instead reflects the current
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	299	state of the given class.
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	300	It is useful in conjunction with the other utility methods,
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	301	for example, when building patchLists, diffSets etc."
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	302
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	303	\|changeSet classPackage notInClassesPackage realExtensions looseMethods\|
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	304
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	305	changeSet := self forExistingClass:aClass.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	306	classPackage := aClass package.
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	307
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	308	notInClassesPackage :=
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	309	[:change \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	310	change isMethodChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	311	and:[ change package ~= classPackage ]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	312	].
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	313
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	314	realExtensions :=
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	315	[:change \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	316	change isMethodChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	317	and:[ change package ~= classPackage
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	318	and:[ change package ~~ PackageId noProjectID ]]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	319	].
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	320
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	321	looseMethods :=
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	322	[:change \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	323	change isMethodChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	324	and:[change package == PackageId noProjectID ]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	325	].
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	326
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	327	extensionsOnly ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	328	withLooseMethods ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	329	^ changeSet select:notInClassesPackage
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	330	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	331
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	332	^ changeSet select:realExtensions.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	333	].
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	334
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	335	withExtensions ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	336	withLooseMethods ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	337	^ changeSet reject:notInClassesPackage
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	338	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	339
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	340	^ changeSet reject:realExtensions.
2943 87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	341	].
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	342
87bd87dadb76 added: Claus Gittinger <cg@exept.de> parents: 2941 diff changeset	343	withLooseMethods ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	344	^ changeSet reject:looseMethods.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	345	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	346
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	347	^ changeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	348
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	349	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	350	ChangeSet forExistingClass:ChangeSet
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	351
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	352	Rectangle hasExtensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	353	Rectangle extensions
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	354
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	355	ChangeSet forExistingClass:Rectangle withExtensions:true extensionsOnly:false
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	356	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:false
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	357	ChangeSet forExistingClass:Rectangle withExtensions:false extensionsOnly:true
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	358	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	359
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	360	"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	361	"Modified: / 12-10-2006 / 23:46:05 / cg"
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	362	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	363
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	364	forExistingMethods:aCollectionOfMethods
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	365	"build a changeSet for a collection of methods in the image.
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	366	That does of course not give deltas, but instead reflects the current
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	367	state of the given set of methods.
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	368	It is useful in conjunction with the other utility methods,
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	369	for example, when building patchLists, diffSets etc."
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	370
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	371	\|changeSet stream previousPackage\|
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	372
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	373	changeSet := self new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	374	aCollectionOfMethods do:[:eachMethod \|
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	375	\|change source\|
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	376
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	377	source := eachMethod source.
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	378	source isNil ifTrue:[
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	379	Transcript showCR:'oops - no source for ',eachMethod whoString.
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	380	].
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	381	change := MethodDefinitionChange new.
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	382	eachMethod mclass notNil ifTrue:[ change className:eachMethod mclass name ].
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	383	source notNil ifTrue:[ change source:source ].
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	384	change selector:eachMethod selector.
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	385	change package:(eachMethod package).
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	386	change category:(eachMethod category).
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	387	changeSet add:change.
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	388	].
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	389
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	390	"/ stream := ReadWriteStream on:''.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	391	"/ aCollectionOfMethods do:[:eachMethod \|
2244 83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	392	"/ previousPackage ~= eachMethod package ifTrue:[
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	393	"/ stream nextPutAll:'"{ Package: '''.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	394	"/ stream nextPutAll:eachMethod package asString.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	395	"/ stream nextPutAll:''' }"'; cr; cr.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	396	"/ ].
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	397	"/ eachMethod mclass fileOutMethod:eachMethod on:stream
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	398	"/ ].
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	399	"/ stream reset.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	400	"/ changeSet := self fromStream:stream.
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	401	"/ changeSet do:[:eachChange \|
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	402	"/ eachChange package:(eachChange changeMethod package).
83dade66e325 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	403	"/ ].
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	404	^ changeSet
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	405
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	406	"
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	407	ChangeSet forExistingMethods:(Array with:(Array compiledMethodAt:#at:)
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	408	with:(Object compiledMethodAt:#at:)
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	409	with:(Behavior compiledMethodAt:#compiledMethodAt:) )
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	410	"
1872 7a1f2a26bf90 changes for compare-project functionality Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	411
2524 309a3ec3f7d1 changed: #forExistingMethods: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	412	"Modified: / 17-09-2011 / 10:26:03 / cg"
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	413	!
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	414
3619 e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	415	forPackage: pkg
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	416	"build a changeSet for a given package in the image"
3619 e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	417
e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	418	^self forPackage: pkg ignoreAutoloaded: false.
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	419
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	420	"Created: / 20-05-2008 / 17:56:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	421	"Modified: / 12-08-2009 / 14:23:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	422	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	423
3619 e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	424	forPackage: pkg ignoreAutoloaded: ignoreAutoloaded
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	425	"build a changeSet for a given package in the image"
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	426
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	427	\|changeSet packageClasses packageExtensions\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	428
3619 e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	429	packageClasses := ProjectDefinition searchForClassesWithProject: pkg.
e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	430	packageClasses := packageClasses select:[:each \| each programmingLanguage isSmalltalk ].
e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	431	packageExtensions := ProjectDefinition searchForExtensionsWithProject: pkg.
e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	432	packageExtensions := packageExtensions select:[:each \| each programmingLanguage isSmalltalk ].
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	433	changeSet := self forExistingMethods: packageExtensions.
2941 6bb8b3184650 formatting: #forPackage:ignoreAutoloaded: Claus Gittinger <cg@exept.de> parents: 2940 diff changeset	434	packageClasses do:[:cls\|
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	435	(ignoreAutoloaded not and:[cls isLoaded not]) ifTrue:[cls autoload].
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	436	cls isLoaded ifTrue: [
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	437	changeSet addAll: (self forExistingClass:cls withExtensions:false)
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	438	]
2941 6bb8b3184650 formatting: #forPackage:ignoreAutoloaded: Claus Gittinger <cg@exept.de> parents: 2940 diff changeset	439	].
3619 e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	440	changeSet name: 'Package ' , pkg.
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	441	^changeSet
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	442
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	443	"Created: / 12-08-2009 / 14:22:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
3619 e2a5752d7e1d Fix in ChangeSet>>#forPackage:ignoreAutoloaded: - ignore non-Smalltalk classes and methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3593 diff changeset	444	"Modified: / 31-07-2014 / 09:51:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	445	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	446
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	447	fromBeeStream:aStream
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	448	"build a changeSet from a Bee Smalltalk .bsc format stream, containing chunks.
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	449	Return the changeSet."
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	450
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	451	^ self fromBeeStream:aStream while:[:thisChange \| true]
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	452
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	453	"Created: / 21-08-2014 / 18:34:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	454	!
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	455
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	456	fromBeeStream:aStream while:aConditionBlock
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	457	"build a changeSet from a Bee Smalltalk .bsc stream, containing chunks
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	458	Pass each change to the conditionBlock and stop whenever that
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	459	returns false. This allows skipping reamaining chunks, and speeding up
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	460	reading, if only parts need to be extracted
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	461	(for example: only documentation methods).
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	462	Return the changeSet."
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	463
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	464	\|changeSet\|
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	465
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	466	changeSet := self new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	467	self
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	468	changesFromStream:aStream
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	469	for:changeSet
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	470	reader:(BeeChangeFileReader new)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	471	do:[:aChange :lineNumberOrNil :posOrNil \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	472	changeSet add:aChange.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	473	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	474	].
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	475
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	476	^ changeSet
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	477
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	478	"Created: / 21-08-2014 / 18:34:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	479	!
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	480
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	481	fromDiffSet:aDiffSet
2322 c5ebd3b56e54 comment/format in: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2321 diff changeset	482	"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	483	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	484
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	485	\|changeSet\|
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	486
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	487	changeSet := self new.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	488	"/ class definitions first...
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	489	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	490	changeSet addAll:((aDiffSet onlyInArg) select:[:ch \| ch isClassDefinitionChange]).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	491
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	492	"/ first add new methods...
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	493	changeSet addAll:((aDiffSet onlyInArg) reject:[:ch \| ch isClassDefinitionChange]).
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	494	"/ then, changed methods...
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	495	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	496	"/ then, removed methods...
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	497	aDiffSet onlyInReceiver do:[:each \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	498	\|ch\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	499
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	500	ch := MethodRemoveChange className:(each className) selector:(each selector).
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	501	changeSet add:ch.
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	502	].
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	503	^ changeSet
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	504
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	505	"Created: / 08-02-2011 / 10:48:36 / cg"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	506	!
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	507
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	508	fromDirectory: aStringOfFilename
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	509	"Read all .st files (non-recursively) from `aStringOrFilename`.
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	510	Return the resuling ChangeSet"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	511
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	512	^ self fromDirectory: aStringOfFilename asSmalltalkXPackage: false.
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	513
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	514	"Created: / 02-04-2011 / 00:54:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	515	"Modified: / 02-12-2013 / 17:36:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	516	!
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	517
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	518	fromDirectory: aStringOfFilename asSmalltalkXPackage: isSmalltalkXPackage
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	519	"Read all .st files (non-recursively) from `aStringOrFilename`
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	520	Return the resuling ChangeSet.
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	521
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	522	If `isSmalltalkXPacklage` is true, then treat directory as Smalltalk/X
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	523	package directory as checked out from a VCS. Read only those files
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	524	present in abbrev.stc (if present)."
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	525
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	526	\| directory abbrevFile filter \|
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	527
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	528	directory := aStringOfFilename asFilename.
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	529	(isSmalltalkXPackage and:[(abbrevFile := directory asFilename / 'abbrev.stc') exists]) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	530	\| files \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	531
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	532	files := OrderedCollection new.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	533	files add:'extensions.st'.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	534	(directory asFilename / 'abbrev.stc') readingFileDo:[:s \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	535	Smalltalk withAbbreviationsFromStream: s do:[:className :abbrev :pkg \| files add: (abbrev , '.st')]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	536	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	537	filter := [:filename \| files includes: filename baseName ]
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	538	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	539	filter := [:filename \| filename suffix = 'st' ]
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	540	].
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	541	^ self fromDirectory: aStringOfFilename filter: filter
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	542
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	543	"Created: / 02-12-2013 / 17:36:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3483 e2eff8ad70c3 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	544	"Modified: / 05-02-2014 / 19:05:14 / cg"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	545	!
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	546
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	547	fromDirectory: aStringOrFilename filter: filter
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	548	"Read all files (non-recursively) from `aStringOrFilename` for which the
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	549	filter return true. Return the resuling ChangeSet"
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	550
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	551	\| d cs files step \|
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	552
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	553	d := aStringOrFilename asFilename.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	554	cs := self new.
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	555	files := (d directoryContentsAsFilenames) select:filter.
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	556	step := 100 / files size.
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	557	files withIndexDo: [:each :index \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	558	ProgressNotification notify: 'Reading ', each baseName progress: (step * (index - 1)).
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	559	[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	560	cs addAll: (self fromFileOrDirectory: each)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	561	] on: ProgressNotification do:[:ex \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	562	ex proceed.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	563	].
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	564	].
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	565	ProgressNotification notify: nil progress: 100.
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	566	cs name: aStringOrFilename asFilename asAbsoluteFilename pathName.
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	567	^cs
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	568
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	569
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	570	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	571	ChangeSet fromDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	572	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	573
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	574	"Created: / 12-11-2013 / 15:24:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	575	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	576
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	577	fromDolphinPACStream:aStream
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	578	"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	579
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	580	^ self fromDolphinPACStream:aStream while:[:thisChange \| true]
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	581
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	582	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	583
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	584	fromDolphinPACStream:aStream while:aConditionBlock
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	585	"build a changeSet from a stream, containing dolphin pac file chunks.
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	586	Pass each change to the conditionBlock and stop whenever that
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	587	returns false. This allows skipping reamaining chunks, and speeding up
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	588	reading, if only parts need to be extracted
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	589	(for example: only documentation methods)."
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	590
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	591	\|changeSet\|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	592
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	593	changeSet := self new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	594	self
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	595	changesFromStream:aStream
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	596	for:changeSet
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	597	reader:(DolphinPACFileReader new)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	598	do:[:aChange :lineNumberOrNil :posOrNil \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	599	changeSet add:aChange.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	600	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	601	].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	602
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	603	^ changeSet
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	604	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	605
2894 ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	606	fromFile:filenameOrString
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	607	"build a changeSet from a file, which contains chunks.
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	608	(i.e. either a classes sourceFile or a change-file).
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	609	Return the changeSet."
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	610
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	611	\|filename suffix mime stream changeSet\|
2894 ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	612
ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	613	filename := filenameOrString asFilename.
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	614	suffix := filename suffix.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	615	((suffix = 'bsc') or:[suffix = 'ch']) ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	616	filename readingFileDo:[:stream \|
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	617	changeSet := self fromBeeStream:stream.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	618	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	619	changeSet name: filename baseName.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	620	^ changeSet
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	621	].
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	622
2894 ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	623	mime := MIMETypes mimeTypeForFilename:filename.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	624	mime isNil ifTrue:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	625	mime := filename mimeTypeOfContents.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	626	mime isNil ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	627	"/ self error:'unknown MIME type for file' mayProceed:true.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	628
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	629	"/ assume chunk format
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	630	mime := 'text/plain'.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	631	].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	632	].
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	633
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	634	[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	635	stream := filename readStream.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	636	mime = 'text/xml' ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	637	changeSet := self fromXMLStream:stream.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	638	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	639	mime = 'application/x-smalltalk-source-sif' ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	640	changeSet := self fromSIFStream:stream.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	641	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	642	mime = 'application/x-smalltalk-dolphin-package' ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	643	changeSet := self fromDolphinPACStream:stream.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	644	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	645	stream := EncodedStream decodedStreamFor:stream.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	646	changeSet := self fromStream:stream.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	647	]
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	648	]
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	649	]
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	650	] ensure:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	651	stream notNil ifTrue:[stream close].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	652	].
2894 ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	653	changeSet name: filename baseName.
ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	654	^ changeSet
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	655
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	656	"
2894 ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	657	ChangeSet fromFile: 'st.chg'
ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	658	ChangeSet fromFile: 'patches'
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	659	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	660
2868 bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	661	"Created: / 16-02-1998 / 12:19:34 / cg"
2894 ccd13e91583d changed: #fromFile: vrany parents: 2893 diff changeset	662	"Modified (comment): / 28-07-2012 / 09:41:40 / cg"
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	663	"Modified: / 26-02-2018 / 11:17:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	664	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	665
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	666	fromFileOrDirectory: fileOrDirectory
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	667	"Read either a single .st-file, or all .st files (non-recursively) in a directory.
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	668	Return the resuling ChangeSet"
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	669
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	670	\| f changeSet\|
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	671
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	672	f := fileOrDirectory asFilename.
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	673	changeSet :=
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	674	f isDirectory
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	675	ifTrue:[self fromDirectory: f]
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	676	ifFalse:[self fromFile: f].
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	677	changeSet name: f pathName.
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	678	^ changeSet
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	679
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	680	"
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	681	ChangeSet fromFileOrDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	682	"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	683
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	684	"Created: / 02-04-2011 / 00:50:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	685	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	686
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	687	fromSIFStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	688	"build a changeSet from a SIF stream, containing chunks
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	689	in smalltalk interchange format.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	690	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	691
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	692	^ self fromSIFStream:aStream while:[:thisChange \| true]
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	693	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	694
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	695	fromSIFStream:aStream while:aConditionBlock
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	696	"build a changeSet from a SIF stream, containing chunks
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	697	in smalltalk interchange format.
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	698	Pass each change to the conditionBlock and stop whenever that
f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	699	returns false. This allows skipping reamaining chunks, and speeding up
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	700	reading, if only parts need to be extracted
3732 f3bf00a70315 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3697 diff changeset	701	(for example: only documentation methods).
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	702	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	703
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	704	\|changeSet\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	705
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	706	changeSet := self new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	707	self
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	708	changesFromStream:aStream
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	709	for:changeSet
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	710	reader:(SIFChangeFileReader new)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	711	do:[:aChange :lineNumberOrNil :posOrNil \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	712	changeSet add:aChange.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	713	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	714	].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	715
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	716	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	717	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	718
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	719	fromStream:aStream
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	720	"build a changeSet from a stream, containing chunks.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	721	(i.e. either a classes sourceFile or a change-file).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	722	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	723
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	724	^ self fromStream:aStream while:[:thisChange \| true]
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	725
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	726	"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	727	ChangeSet fromStream:('changes' asFilename readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	728	ChangeSet fromStream:('patches' asFilename readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	729	ChangeSet fromStream:(Object source asString readStream)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	730	"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	731
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	732	"Created: / 16.2.1998 / 12:19:34 / cg"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	733	"Modified: / 14.12.1999 / 15:23:16 / cg"
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	734	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	735
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	736	fromStream:aStream while:aConditionBlock
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	737	"build a changeSet from a stream, containing chunks.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	738	(i.e. either a classes sourceFile or a change-file).
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	739	Pass each change to the conditionBlock and stop whenever that returns false.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	740	This allows skipping reamaining chunks,
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	741	and thus speeding up reading, if only parts need to be extracted
3869 a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	742	(for example: only documentation methods,
a478633d4558 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	743	or espcially if only class definition changes up to the first method change are required).
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	744	Returns the changeSet."
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	745
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	746	\|changeSet\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	747
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	748	changeSet := self new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	749	self
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	750	changesFromStream:aStream
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	751	for:changeSet
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	752	reader:(ChangeFileReader new)
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	753	do:[:aChange :lineNumberOrNil :posOrNil \|
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	754	(aConditionBlock value:aChange) ifFalse:[^ changeSet].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	755	changeSet add:aChange.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	756	].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	757
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	758	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	759
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	760	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	761	ChangeSet fromStream:('changes' asFilename readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	762	ChangeSet fromStream:('patches' asFilename readStream)
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	763	ChangeSet fromStream:(Object source asString readStream)
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	764	ChangeSet fromStream:(XWorkstation source asString readStream)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	765	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	766
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	767	"Created: / 16-02-1998 / 12:19:34 / cg"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	768	"Modified: / 14-12-1999 / 15:23:16 / cg"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	769	"Modified (comment): / 01-08-2012 / 15:24:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	770	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	771
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	772	fromXMLStream:aStream
3868 9a006429e942 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3860 diff changeset	773	"build a changeSet from an XML stream, containing XML change definitions in VisualWorks XML change file format.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	774	Return the changeSet."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	775
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	776	\|changeSet builder nameSpace\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	777
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	778	aStream isNil ifTrue:[^ nil].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	779
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	780	changeSet := self new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	781	nameSpace := Smalltalk.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	782
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	783	builder := XML::SourceScannerNodeBuilder new.
1475 934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	784	builder scanFile:aStream do:[:change \| changeSet add: change. ].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	785	^ changeSet
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	786
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	787	"
1247 be7277706e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1232 diff changeset	788	ChangeSet fromXMLStream:('../../goodies/xml/vw/xmlFileInTests/XMLParser.xml' asFilename readStream)
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	789	ChangeSetBrowser
3868 9a006429e942 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3860 diff changeset	790	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	791	"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	792	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	793
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	794	!ChangeSet class methodsFor:'Compatibility-ST80'!
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	795
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	796	patches
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	797	^ #()
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	798
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	799	"Created: / 27.10.1997 / 13:52:54 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	800	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	801
4183 4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	802
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	803	!ChangeSet class methodsFor:'Compatibility-VW'!
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	804
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	805	component: component definition: anObject change: changeSymbol
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	806	"Include indication that a class/namespace was added or removed
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	807	from a CodeComponent."
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	808
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	809	self
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	810	changed:#'component:definition:change:'
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	811	with:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	812	( Array
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	813	with: component
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	814	with: anObject
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	815	with: changeSymbol
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	816	)
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	817
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	818	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	819
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	820	!ChangeSet class methodsFor:'instance creation-private'!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	821
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	822	changesFromStream:aStream do:aBlock
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	823	"enumerate changes from a stream and invoke aBlock on each.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	824	The block is invoked with the change, a lineNumberOrNil and streamPosition arguments.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	825	The lineNumber is only valid, if the underlying stream
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	826	provides line-numbers; otherwise, nil is passed."
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	827
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	828	^ self
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	829	changesFromStream:aStream
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	830	for:(self new)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	831	reader:nil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	832	do:aBlock
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	833
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	834	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	835	ChangeSet
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	836	changesFromStream:('changes' asFilename readStream)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	837	do:[:chg \| Transcript showCR:chg]
1191 a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	838	"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	839
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	840	"Created: / 16.2.1998 / 12:19:34 / cg"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	841	"Modified: / 14.12.1999 / 15:23:16 / cg"
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	842	!
a63c8b5e4c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	843
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	844	changesFromStream:aStream for:aChangeSet reader:aReader do:aBlock
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	845	"enumerate changes from a stream and invoke aBlock on each.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	846	The block is invoked with the change, a lineNumberOrNil and streamPosition arguments.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	847	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	848	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	849
3998 1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	850	\|encodedStream chunk s change currentNameSpace currentPackage defaultPackage
3520 13a17b7c03ba Fixed reading ChangeSet from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3518 diff changeset	851	lineNumber pos reader reportProgress size \|
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	852
3593 b50ee8847a7e class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	853	aStream isNil ifTrue:[^ self].
b50ee8847a7e class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	854
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	855	currentNameSpace := Smalltalk.
3998 1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	856	currentPackage := defaultPackage := Class packageQuerySignal query.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	857
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	858	(reader := aReader) isNil ifTrue:[
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	859	reader := ChangeFileReader new.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	860	].
2893 5dfcb7f9f0da Fix in reading changeset from file (for EncodedStream) vrany parents: 2892 diff changeset	861
3521 6e43c118d860 Fixes for reading changesets from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3520 diff changeset	862	aStream isEncodedStream ifTrue:[
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	863	encodedStream := aStream
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	864	] ifFalse:[
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	865	aStream isPositionable ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	866	encodedStream := EncodedStream decodedStreamFor: aStream
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	867	] ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	868	encodedStream := EncodedStream stream: aStream encoder: CharacterEncoder nullEncoderInstance
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	869	].
3521 6e43c118d860 Fixes for reading changesets from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3520 diff changeset	870	].
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	871	aStream isFileStream ifTrue:[
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	872	aChangeSet name: aStream pathName
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	873	].
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	874
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	875	reportProgress := encodedStream stream isPositionable
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	876	and:[ ProgressNotification notNil
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	877	and:[ ProgressNotification isHandled ]].
3520 13a17b7c03ba Fixed reading ChangeSet from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3518 diff changeset	878	reportProgress ifTrue:[
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	879	size := encodedStream stream size.
3520 13a17b7c03ba Fixed reading ChangeSet from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3518 diff changeset	880	].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	881
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	882	reader changeSet:aChangeSet.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	883	reader changeAction:aBlock.
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	884	reader inputStream:encodedStream.
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	885
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	886	[encodedStream atEnd] whileFalse:[
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	887	encodedStream skipSeparators.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	888	lineNumber := encodedStream lineNumber.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	889
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	890
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	891	reportProgress ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	892	pos := encodedStream position + 1.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	893	ProgressNotification notify: nil progress:(100 / size) * pos.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	894	].
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	895
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	896	chunk := encodedStream nextChunk.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	897
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	898	(chunk notEmptyOrNil) ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	899	Class nameSpaceQuerySignal handle:[:ex\| ex proceedWith:currentNameSpace] do:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	900	Class packageQuerySignal handle:[:ex\| ex proceedWith:currentPackage] do:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	901	\|parser tree ns pkg\|
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	902
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	903	parser := Parser for:chunk.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	904	"/ parser parseForCode.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	905	Parser parseErrorSignal handle:[:ex \|
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	906	Transcript showCR:'ChangeSet: error while reading: ',ex description.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	907	tree := #Error.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	908	] do:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	909	tree := parser
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	910	parseExpressionWithSelf:nil
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	911	notifying:nil
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	912	ignoreErrors:true
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	913	ignoreWarnings:true
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	914	inNameSpace:currentNameSpace.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	915	].
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	916	tree ~~ #Error ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	917	tree isNil ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	918	"/ Hmm....it could be package-definition chunk in extensions container...
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	919	"/ if there is any package directive in there, extract it.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	920	((pkg := parser currentPackage) notNil
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	921	and:[pkg ~~ currentPackage]) ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	922	currentPackage := pkg
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	923	] ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	924	"/ if there is any nameSpace directive in there, extract it.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	925	((ns := parser currentNameSpace) notNil
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	926	and:[ns ~~ currentNameSpace]) ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	927	currentNameSpace := ns
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	928	] ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	929	change := DoItChange new.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	930	change source:chunk.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	931	aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	932	].
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	933	].
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	934	] ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	935	"/ if there is any nameSpace directive in there, extract it.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	936	((ns := parser currentNameSpace) notNil
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	937	and:[ns ~~ currentNameSpace]) ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	938	currentNameSpace := ns
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	939	].
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	940	"/ if there is any package directive in there, extract it.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	941	((pkg := parser currentPackage) notNil
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	942	and:[pkg ~~ currentPackage]) ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	943	currentPackage := pkg
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	944	].
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	945	"/
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	946	"/ what type of chunk is this ...
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	947	"/
4011 d60ab5e3030f #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3981 diff changeset	948	tree isLiteral ifTrue:[
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	949	(s := tree evaluate) isString ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	950	(s startsWith:'---- ') ifTrue:[
3998 1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	951	(s startsWith:'---- timestamp') ifTrue:[
1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	952	"/ Beginning of next record in changelog. Reset all
1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	953	"/ previously set namespaces and packages
1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	954	currentPackage := defaultPackage.
1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	955	currentNameSpace := Smalltalk.
1495d559dc7c Fixed reading session change log (st.chg) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3982 diff changeset	956	].
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	957	reader inputStream: s readStream.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	958	reader processInfo: s.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	959	reader inputStream: encodedStream.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	960	].
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	961	] ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	962	self error:'unexpected change-chunk' mayProceed:true
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	963	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	964	] ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	965	tree isMessage ifTrue:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	966	(reader
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	967	changesFromParseTree:tree
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	968	lineNumber:lineNumber
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	969	position:pos
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	970	chunk: chunk
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	971	) ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	972	change := DoItChange new.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	973	change source:chunk.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	974	aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	975	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	976	] ifFalse:[
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	977	InvalidChangeChunkError
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	978	raiseRequestErrorString:('unexpected change-chunk in or around line %1' bindWith:lineNumber)
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	979	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	980	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	981	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	982	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	983	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	984	]
d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	985	]
930 ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	986	].
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	987
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	988	"
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	989	ChangeSet fromStream:('changes' asFilename readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	990	ChangeSet fromStream:('patches' asFilename readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	991	ChangeSet fromStream:(Object source asString readStream)
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	992	"
ca4ce60fea8b lineNumber support Claus Gittinger <cg@exept.de> parents: 924 diff changeset	993
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	994	"Created: / 16-02-1998 / 12:19:34 / cg"
3360 f823605e7ccd class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	995	"Modified: / 30-07-2013 / 21:34:16 / cg"
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	996	"Modified: / 30-01-2019 / 10:34:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	997	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	998
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	999	!ChangeSet class methodsFor:'queries'!
27 d24c4aec6d07 . claus parents: 16 diff changeset	1000
d24c4aec6d07 . claus parents: 16 diff changeset	1001	current
d24c4aec6d07 . claus parents: 16 diff changeset	1002	"ST-80 compatibility: return the current changeSet"
d24c4aec6d07 . claus parents: 16 diff changeset	1003
d24c4aec6d07 . claus parents: 16 diff changeset	1004	\|p\|
d24c4aec6d07 . claus parents: 16 diff changeset	1005
d24c4aec6d07 . claus parents: 16 diff changeset	1006	(Project notNil and:[(p := Project current) notNil]) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1007	^ p changeSet
959 ca4fff926135 ChangeSet current: return empty collection if there is no changeSet Claus Gittinger <cg@exept.de> parents: 956 diff changeset	1008	].
ca4fff926135 ChangeSet current: return empty collection if there is no changeSet Claus Gittinger <cg@exept.de> parents: 956 diff changeset	1009	^ #()
27 d24c4aec6d07 . claus parents: 16 diff changeset	1010
d24c4aec6d07 . claus parents: 16 diff changeset	1011	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1012	ChangeSet current
27 d24c4aec6d07 . claus parents: 16 diff changeset	1013	"
d24c4aec6d07 . claus parents: 16 diff changeset	1014	! !
d24c4aec6d07 . claus parents: 16 diff changeset	1015
3578 b01e1b81271a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	1016	!ChangeSet class methodsFor:'signal access'!
b01e1b81271a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	1017
b01e1b81271a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	1018	invalidChangeChunkError
b01e1b81271a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	1019	^ InvalidChangeChunkError
b01e1b81271a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	1020	! !
b01e1b81271a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	1021
2246 3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	1022	!ChangeSet class methodsFor:'utilities'!
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	1023
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	1024	decodedStreamFor:aStream
2247 1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	1025	<resource: #obsolete>
1ff6d78eb96c code move Claus Gittinger <cg@exept.de> parents: 2246 diff changeset	1026	^ EncodedStream decodedStreamFor:aStream
2246 3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	1027	! !
3ce37b8e4967 changed: #decodedStreamFor: Claus Gittinger <cg@exept.de> parents: 2244 diff changeset	1028
1264 3d1fc5d40ab4 method category rename Claus Gittinger <cg@exept.de> parents: 1263 diff changeset	1029	!ChangeSet methodsFor:'Compatibility-ST80'!
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1030
899 7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	1031	changeClass:aClass
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	1032
899 7b65d6f2b0f0 more VW compatibility Claus Gittinger <cg@exept.de> parents: 894 diff changeset	1033	"dummy here"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1034
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	1035	"Created: / 04-02-2000 / 18:30:59 / cg"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	1036	"Modified (format): / 05-09-2012 / 16:39:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1037	!
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1038
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1039	changeSelectors
3946 3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1040	"return a collection (a set) of all selectors for which changes are in this changeSet"
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1041
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1042	\|selectors\|
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1043
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1044	changeSelectors isNil ifTrue:[
3946 3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1045	selectors := IdentitySet new.
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1046	self do:[:chg \|
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1047	\|sel\|
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1048
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1049	chg notNil ifTrue:[
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1050	chg isMethodChange ifTrue:[
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1051	sel := chg selector.
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1052	sel notNil ifTrue:[
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1053	selectors add:sel
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1054	]
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1055	]
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1056	]
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1057	].
3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1058	changeSelectors := selectors.
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1059	].
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1060	^ changeSelectors.
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1061
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1062	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1063	ChangeSet current changeSelectors
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1064	"
1967 18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	1065
18cf73f144e4 care for nil selectors. Claus Gittinger <cg@exept.de> parents: 1954 diff changeset	1066	"Modified: / 30-05-2007 / 12:12:32 / cg"
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1067	!
d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1068
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1069	changedClasses
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	1070	"return a collection of all classes for which changes are in this changeSet"
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1071
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1072	\|classes\|
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1073
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1074	changedClasses isNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1075	classes := IdentitySet new.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1076	self do:[:chg \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1077	\|cls\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1078
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1079	chg notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1080	cls := chg changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1081	cls notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1082	cls isRealNameSpace ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1083	classes add:cls
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1084	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1085	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1086	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1087	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1088	changedClasses := classes.
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1089	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1090	^ changedClasses.
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1091
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1092	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1093	ChangeSet current changedClasses
1791 746e0b3aa286 * empty log message * Claus Gittinger <cg@exept.de> parents: 1718 diff changeset	1094	ChangeSet current flushChangedClassesCache
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1095	"
1791 746e0b3aa286 * empty log message * Claus Gittinger <cg@exept.de> parents: 1718 diff changeset	1096
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1097	"Modified: / 10-11-2006 / 17:17:26 / cg"
1102 4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1098	!
4763b34e4c0e checkin from browser Claus Gittinger <cg@exept.de> parents: 1099 diff changeset	1099
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1100	component:component definition:anObject change:changeSymbol
1083 e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1101	"Include indication that a class/namespace was added or removed
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1102	from a CodeComponent."
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1103
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1104	self
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1105	changed:#'component:definition:change:'
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1106	with:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1107	( Array
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1108	with: component
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1109	with: anObject
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1110	with: changeSymbol
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1111	)
1083 e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1112	!
e3ac808d06e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1113
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1114	reorganizeSystem
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1115	"dummy here"
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1116
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1117	"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	1118	! !
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1119
2235 3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	1120	!ChangeSet methodsFor:'accessing'!
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	1121
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	1122	name
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	1123	^ name
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	1124	!
3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	1125
2868 bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	1126	name:aString
bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	1127	name := aString.
bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	1128
bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	1129	"Modified (format): / 28-07-2012 / 09:34:52 / cg"
2235 3078dab499ca * empty log message * Claus Gittinger <cg@exept.de> parents: 2234 diff changeset	1130	! !
2234 f5af55bd08cb * empty log message * Claus Gittinger <cg@exept.de> parents: 2186 diff changeset	1131
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	1132	!ChangeSet methodsFor:'change & update'!
d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	1133
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1134	changed:anAspectSymbol with:aParameter
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1135	"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	1136	of ChangeSet (which may be switched using projects)."
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	1137
4183 4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1138	self == self class current ifTrue:[
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1139	self class changed:anAspectSymbol with:aParameter.
1475 934d20073adb more support for alien namespaces (VW7) Claus Gittinger <cg@exept.de> parents: 1471 diff changeset	1140	].
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1141	super changed:anAspectSymbol with:aParameter
985 d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	1142	! !
d6e52410ac8a * empty log message * Claus Gittinger <cg@exept.de> parents: 965 diff changeset	1143
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1144	!ChangeSet methodsFor:'changes management'!
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1145
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1146	addClassCommentChangeFor:aClass
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1147	"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	1148
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1149	\|newChange\|
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1150
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1151	newChange := ClassCommentChange class:aClass.
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1152	newChange comment:aClass comment.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1153	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1154	self addChange:newChange
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1155
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1156	"Modified: / 14.11.2001 / 13:35:34 / cg"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1157	!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1158
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1159	addClassDefinitionChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1160	"add a classDefinition change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1161
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1162	\|newChange\|
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1163
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1164	newChange := ClassDefinitionChange class:aClass source:(aClass definition).
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1165	newChange package:aClass package.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1166	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1167	self addChange:newChange
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1168
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1169	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1170	(ChangeSet new addClassDefinitionChangeFor:ChangeSet) inspect
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1171	"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1172
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1173	"Modified: / 12-10-2006 / 18:17:02 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1174	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1175
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1176	addClassRemoveChange:oldClass
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1177	"add a classRemove change to the receiver"
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1178
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1179	\|newChange\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1180
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1181	newChange := ClassRemoveChange new className:oldClass name.
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	1182	self rememberChangedClass:oldClass.
1421 eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1183	oldClass isPrivate ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1184	self rememberChangedClass:oldClass topOwningClass.
1421 eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1185	].
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1186	ClassRemoveChange::ClassBeingRemovedQuery
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1187	answer:oldClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1188	do:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1189	self addChange:newChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1190	]
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1191	"Modified: / 14.11.2001 / 13:35:39 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1192	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1193
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1194	addClassRenameChangeFrom:oldName to:newName
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1195	"add a classRename change to the receiver"
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1196
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1197	\|newChange\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1198
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1199	newChange := ClassRenameChange new oldName:oldName newName:newName.
1281 6aeafe46d0ad category; Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	1200	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	1201	self addChange:newChange
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1202
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1203	"Modified: / 14.11.2001 / 13:35:41 / cg"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1204	!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1205
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1206	addDoIt:aString
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1207	"add a doIt to the receiver"
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1208
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1209	\|newChange\|
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1210
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1211	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	1212	self addChange:newChange.
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1213
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1214	"Modified: / 14.11.2001 / 13:35:44 / cg"
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1215	!
5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1216
889 6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1217	addInstVarDefinitionChangeFor:aClass
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1218	"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	1219
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1220	\|newChange\|
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1221
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1222	newChange := ClassInstVarDefinitionChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1223	class:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1224	source:(aClass name , ' instanceVariableNames:' , aClass instanceVariableString storeString).
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	1225	newChange classInstVarNames:aClass instanceVariableString asCollectionOfWords.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1226	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1227	self addChange:newChange
d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1228
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	1229	"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	1230	!
6b05401d7184 more changes (comments, class-instVars) in the changeSet; Claus Gittinger <cg@exept.de> parents: 887 diff changeset	1231
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	1232	addMethodCategoryChange:aMethod category:newCategory in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1233	"add a methodCategory change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1234
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	1235	\|newChange\|
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	1236
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1237	newChange := MethodCategoryChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1238	class:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1239	selector:(aClass selectorAtMethod:aMethod)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1240	category:newCategory.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1241	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1242	self addChange:newChange
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	1243
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1244	"Modified: / 14.11.2001 / 13:35:48 / cg"
44 27caba2cee6b . claus parents: 39 diff changeset	1245	!
27caba2cee6b . claus parents: 39 diff changeset	1246
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1247	addMethodChange:aMethod fromOld:oldMethod in:aClass
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1248	"add a method change to the receiver"
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1249
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1250	\|newChange\|
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1251
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1252	newChange := MethodDefinitionChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1253	class:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1254	selector:aMethod selector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1255	source:aMethod source
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1256	category:aMethod category.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1257	oldMethod notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1258	newChange previousVersion:oldMethod.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1259	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1260	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1261	self addChange:newChange.
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1262
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1263	"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	1264	!
0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1265
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1266	addMethodChange:aMethod in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1267	"add a method change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1268
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1269	\|newChange\|
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1270
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1271	newChange := MethodDefinitionChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1272	class:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1273	selector:aMethod selector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1274	source:aMethod source
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1275	category:aMethod category.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1276	newChange package:(aMethod package).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1277	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1278	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1279
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1280	"Modified: / 12-10-2006 / 18:15:28 / cg"
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1281	!
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1282
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1283	addMethodPackageChange:aMethod package:newPackage in:aClass
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1284	"add a methodPackage change to the receiver"
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1285
2934 487294a18ae0 changed: #addMethodPackageChange:package:in: Claus Gittinger <cg@exept.de> parents: 2930 diff changeset	1286	\|newChange selector\|
487294a18ae0 changed: #addMethodPackageChange:package:in: Claus Gittinger <cg@exept.de> parents: 2930 diff changeset	1287
487294a18ae0 changed: #addMethodPackageChange:package:in: Claus Gittinger <cg@exept.de> parents: 2930 diff changeset	1288	selector := (aClass selectorAtMethod:aMethod).
487294a18ae0 changed: #addMethodPackageChange:package:in: Claus Gittinger <cg@exept.de> parents: 2930 diff changeset	1289	selector isNil ifTrue:[^ self].
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1290
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1291	newChange := MethodPackageChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1292	class:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1293	selector:selector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1294	package:newPackage.
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1295	self rememberChangedClass:aClass.
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1296	self addChange:newChange
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1297
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1298	"Created: / 09-10-2006 / 14:02:33 / cg"
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1299	!
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1300
44 27caba2cee6b . claus parents: 39 diff changeset	1301	addMethodPrivacyChange:aMethod in:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1302	"add a methodPrivacy change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1303
44 27caba2cee6b . claus parents: 39 diff changeset	1304	\|newChange\|
27caba2cee6b . claus parents: 39 diff changeset	1305
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1306	newChange := MethodPrivacyChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1307	class:aClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1308	selector:(aClass selectorAtMethod:aMethod)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1309	privacy:aMethod privacy.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1310	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1311	self addChange:newChange
44 27caba2cee6b . claus parents: 39 diff changeset	1312
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1313	"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	1314	"Modified: / 14.11.2001 / 13:35:55 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1315	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1316
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1317	addPrimitiveDefinitionsChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1318	"add a primitiveDefinitions change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1319
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1320	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1321
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1322	newChange := ClassPrimitiveDefinitionsChange new
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1323	class:aClass source:(aClass primitiveDefinitionsString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1324	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1325	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1326
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1327	"Modified: / 14.11.2001 / 13:35:57 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1328	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1329
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1330	addPrimitiveFunctionsChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1331	"add a primitiveFunctions change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1332
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1333	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1334
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1335	newChange := ClassPrimitiveFunctionsChange new
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1336	class:aClass source:(aClass primitiveFunctionsString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1337	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1338	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1339
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1340	"Modified: / 14.11.2001 / 13:35:59 / cg"
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1341	!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1342
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1343	addPrimitiveVariablesChangeFor:aClass
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1344	"add a primitiveVariables change to the receiver"
f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1345
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1346	\|newChange\|
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	1347
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 781 diff changeset	1348	newChange := ClassPrimitiveVariablesChange new
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1349	class:aClass source:(aClass primitiveVariablesString).
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1350	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1351	self addChange:newChange
378 f106015c98a6 commentary Claus Gittinger <cg@exept.de> parents: 235 diff changeset	1352
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1353	"Modified: / 14.11.2001 / 13:36:01 / cg"
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1354	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1355
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1356	addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1357	"add a method-remove change to the receiver"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1358
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1359	\|newChange\|
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1360
1081 5d8001052312 * empty log message * Claus Gittinger <cg@exept.de> parents: 1045 diff changeset	1361	newChange := MethodRemoveChange class:aClass selector:aSelector.
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1362	oldMethod notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1363	newChange previousVersion:oldMethod.
1164 cecaa2229cab removeSelector change: remember methods previous version Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	1364	].
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1365	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1366	self addChange:newChange
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1367
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1368	"Modified: / 27.8.1995 / 22:55:22 / claus"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 625 diff changeset	1369	"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	1370	"Modified: / 14.11.2001 / 13:36:04 / cg"
901 8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1371	!
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1372
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1373	addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1374	"add a category rename change to the receiver"
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1375
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1376	\|newChange\|
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1377
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1378	newChange := MethodCategoryRenameChange class:aClass.
8fd26c5e8e8f more VW compatibility Claus Gittinger <cg@exept.de> parents: 899 diff changeset	1379	newChange oldCategoryName:oldCategory newCategoryName:newCategory.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1380	self rememberChangedClass:aClass.
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1381	self addChange:newChange
1105 b27c0d72d7d0 avoid useless change notifications from #collect:, #select: etc. Claus Gittinger <cg@exept.de> parents: 1102 diff changeset	1382
1111 d4f353ffaa53 oops - species must be ChangeSet; add: should not send notifications. Claus Gittinger <cg@exept.de> parents: 1105 diff changeset	1383	"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	1384	! !
b27c0d72d7d0 avoid useless change notifications from #collect:, #select: etc. Claus Gittinger <cg@exept.de> parents: 1102 diff changeset	1385
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1386	!ChangeSet methodsFor:'enumerating'!
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1387
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1388	rejectAllVersionMethodChanges
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1389	"Return a new ChangeSet without version_XXX methods"
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1390
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1391	^ self reject:[:each \| each isMethodCodeChange and:[(AbstractSourceCodeManager isVersionMethodSelector: each selector) ]].
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1392
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1393	"Created: / 06-01-2014 / 21:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1394	! !
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	1395
3688 4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1396	!ChangeSet methodsFor:'fileIn / fileOut'!
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1397
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1398	fileInFrom:aStream
3688 4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1399	self fileInFrom:aStream while:[:change \| true]
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1400	!
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1401
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1402	fileInFrom:aStream while:aConditionBlock
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1403	self class
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1404	changesFromStream:aStream
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1405	for:self
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1406	reader:(ChangeFileReader new)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1407	do:[:aChange :lineNumberOrNil :posOrNil \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1408	self add:aChange.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1409	(aConditionBlock value:aChange) ifFalse:[^ self].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1410	].
3688 4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1411	!
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1412
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1413	fileOutAs: aStringOrFilename
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1414	\| stream \|
4115 da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1415
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1416	stream := aStringOrFilename asFilename writeStream.
4115 da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1417
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1418	stream nextPutLine:'''---- encoding: utf8 ----''!!'.
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1419	stream := EncodedStream stream:stream encoder:(CharacterEncoder encoderForUTF8).
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1420
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1421	[
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1422	self fileOutOn: stream
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1423	] ensure: [
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1424	stream close
da8c2dc0d1b7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1425	]
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1426
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1427	"Created: / 05-12-2009 / 12:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1428	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1429
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1430	fileOutOn: stream
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1431
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1432	self do:[:chg\|chg fileOutOn: stream]
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1433
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1434	"Created: / 05-12-2009 / 12:32:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1435	! !
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	1436
3518 1b770a65ef66 Fix in namespace handling when filing out chunked changeset. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3483 diff changeset	1437
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1438	!ChangeSet methodsFor:'misc'!
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1439
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1440	addPatch:nameOfPatch
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1441	"ignored for now - allows fileIn of ST-80 patch stuff .."
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1442
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1443	^ self
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1444	! !
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1445
3518 1b770a65ef66 Fix in namespace handling when filing out chunked changeset. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3483 diff changeset	1446
1263 14ef737d93a8 method category rename Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	1447	!ChangeSet methodsFor:'private-accessing'!
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1448
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1449	addChange:aChange
2053 590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1450	\|changeClass\|
590bf720dfd4 dont add nil to a set Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	1451
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1452	aChange timeOfChangeIfKnown isNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1453	aChange timeStamp:(Timestamp now).
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1454	].
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1455
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1456	self add:aChange.
1471 d3a32a4b689b * empty log message * Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	1457	changedClasses notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1458	(changeClass := aChange changeClass) notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1459	changedClasses add:changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1460	].
1471 d3a32a4b689b * empty log message * Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	1461	].
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1462	changeSelectors notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1463	aChange isMethodChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1464	changeSelectors add:aChange selector.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1465	].
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1466	].
1232 58d1ebc59df5 added #addClassRemoveChange: james parents: 1209 diff changeset	1467
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1468	"/ aChange sendChangeNotificationThroughSmalltalk.
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1469	self changed:#addChange: with:aChange.
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1470
1898 325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1471	"Created: / 14-11-2001 / 13:35:11 / cg"
325fa7fbb3e3 use isRealNameSpace Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1472	"Modified: / 10-11-2006 / 16:47:13 / cg"
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1473	!
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1474
1479 26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1475	flushChangedClassesCache
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1476	changedClasses := changeSelectors := nil
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1477
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1478	"
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1479	ChangeSet current flushChangedClassesCache
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1480	"
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1481	!
26dc834b301a +flush Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	1482
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1483	rememberChangedClass:aClass
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1484	changedClasses notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1485	changedClasses add:aClass
1128 9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1486	].
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1487	!
9e213e86c212 cache changed classes (speedup browser) Claus Gittinger <cg@exept.de> parents: 1127 diff changeset	1488
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1489	removeAll:aCollection
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1490	aCollection notEmpty ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1491	super removeAll:aCollection.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1492	changedClasses := changeSelectors := nil.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1493	self changed:#removeAll: with:aCollection.
1301 b747d11e7ff8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	1494	]
1421 eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1495	!
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1496
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1497	unrememberChangedClasses
eeb8f1c9b6b4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	1498	changedClasses := nil
1098 420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1499	! !
420a868fd606 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	1500
1034 cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1501	!ChangeSet methodsFor:'queries'!
cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1502
2160 831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1503	changedPackages
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1504	"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	1505
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1506	\|classes changedPackages\|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1507
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1508	changedPackages := Set new.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1509
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1510	self do:[:chg \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1511	\|p mthd cls\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1512
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1513	p := chg package.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1514	p isNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1515	chg isMethodChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1516	mthd := chg changeMethod.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1517	mthd notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1518	p := mthd package.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1519	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1520	cls := chg changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1521	cls notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1522	p := cls package.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1523	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1524	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1525	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1526	chg isClassChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1527	cls := chg changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1528	cls notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1529	p := cls package.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1530	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1531	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1532	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1533	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1534	p notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1535	changedPackages add:p.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1536	]
2160 831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1537	].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1538
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1539	"/ self changedClasses do:[:cls \|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1540	"/ \|p\|
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1541	"/
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1542	"/ (p := cls package) notNil ifTrue:[
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1543	"/ changedPackages add:p.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1544	"/ ]
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1545	"/ ].
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1546	^ changedPackages.
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1547
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1548	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1549	ChangeSet current changedPackages
2160 831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1550	"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1551
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1552	"Created: / 22-09-2006 / 16:37:40 / cg"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1553	"Modified: / 13-10-2006 / 01:20:48 / cg"
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1554	!
831832c4c164 oops: fm lost #changedPackages Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	1555
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1556	changesForPackage:aPackageSymbol
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	1557	^(self select:[:aChange \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1558	\|includeThis mClass mthd\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1559
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1560	includeThis := false.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1561	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1562	mClass := aChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1563	mClass notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1564	mthd := mClass compiledMethodAt:(aChange selector).
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1565	mthd isNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1566	aChange isMethodRemoveChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1567	includeThis := (mClass package = aPackageSymbol)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1568	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1569	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1570	includeThis := (mthd package = aPackageSymbol)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1571	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1572	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1573	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1574	(aChange isClassChange) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1575	(aChange changeClass notNil) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1576	includeThis := (aChange changeClass package = aPackageSymbol)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1577	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1578	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1579	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1580	includeThis
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	1581	])
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1582
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1583	"
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	1584	ChangeSet current changesForPackage:#'stx:goodies/libsvn'
9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	1585	"
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1586
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1587	"Created: / 05-11-2001 / 14:21:17 / cg"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1588	"Modified: / 12-10-2006 / 16:51:27 / cg"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1589	"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	1590	"Modified (comment): / 26-07-2012 / 11:54:00 / cg"
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1591	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1592
3688 4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1593	classDefinitionChanges
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1594	^ self select:[:chg \| chg isClassDefinitionChange] as:OrderedCollection.
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1595	!
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1596
1034 cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1597	includesChangeForClass:aClass
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1598	\|nameOfClass\|
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1599
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1600	nameOfClass := aClass theNonMetaclass name.
3309 8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1601	^ self includesChangeForClassNamed:nameOfClass
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1602
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1603	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1604	ChangeSet current includesChangeForClass:ChangeSet
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1605	ChangeSet current includesChangeForClass:ChangeSet class
1686 7d2c1f9f63e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1521 diff changeset	1606	ChangeSet current includesChangeForClass:SourceCodeManagerUtilities
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1607	ChangeSet current includesChangeForClass:(Expecco::ExpeccoXMLDecoder::ObjectCreator)
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1608	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1609
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1610	"Modified: / 09-10-2006 / 13:39:22 / cg"
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1611	!
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1612
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1613	includesChangeForClass:aClass selector:selector
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1614	\|nameOfNonMetaClass nameOfClass\|
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1615
1478 400bfb0e4ea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1476 diff changeset	1616	(self changeSelectors includes:selector) ifFalse:[^ false].
1476 d8938e5b253e * empty log message * Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1617
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1618	nameOfNonMetaClass := aClass theNonMetaclass name.
2973 312e2e952094 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1619	(self changedClasses contains:[:someClass \| someClass theNonMetaclass name = nameOfNonMetaClass]) ifFalse:[^ false].
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1620
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1621	nameOfClass := aClass name.
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1622
3946 3cfa9e40ac69 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3904 diff changeset	1623	^ self contains:[:aChange \| (selector = aChange selector) and:[nameOfClass = aChange className]]
1085 e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1624
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1625	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1626	ChangeSet current includesChangeForClass:ChangeSet selector:#includesChangeForClass:
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1627	"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1628
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1629	"Created: / 31.10.2001 / 10:26:31 / cg"
e4912b831447 includesChangeFor... Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	1630	"Modified: / 31.10.2001 / 10:59:49 / cg"
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1631	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1632
3309 8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1633	includesChangeForClassNamed:aClassName
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1634	(self changedClasses contains:[:aClass \| aClass theNonMetaclass name = aClassName]) ifFalse:[^ false].
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1635	^ self contains:[:aChange \| aChange className = aClassName]
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1636
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1637	"
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1638	ChangeSet current includesChangeForClassNamed:'ChangeSet'
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1639	"
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1640	!
8815cc2ad038 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	1641
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1642	includesChangeForClassOrMetaclass:aClass
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1643	\|nameOfClass nameOfMetaclass\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1644
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1645	nameOfClass := aClass theNonMetaclass name.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1646	nameOfMetaclass := aClass theMetaclass name.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1647
1920 4365130e896f bad spelling of methodname Stefan Vogel <sv@exept.de> parents: 1918 diff changeset	1648	(self changedClasses contains:[:eachClass \| eachClass theNonMetaclass name = nameOfClass]) ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1649	^ false.
1918 1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1650	].
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1651
1f3fcb411307 do not check for identical class being in changeSet - boris parents: 1898 diff changeset	1652
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1653	^ self contains:[:eachChange \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1654	\|changeClassName\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1655
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1656	changeClassName := eachChange className.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1657	changeClassName = nameOfClass or:[changeClassName = nameOfMetaclass]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1658	]
1842 6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1659
6ca4e98df305 method-package change record added Claus Gittinger <cg@exept.de> parents: 1830 diff changeset	1660	"Modified: / 09-10-2006 / 13:40:29 / cg"
1127 b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1661	!
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1662
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1663	includesChangeForClassOrMetaclassOrPrivateClassOf:aClass
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1664	\|nameOfClass nameOfMetaclass\|
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1665
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1666	nameOfClass := aClass theNonMetaclass name.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1667	nameOfMetaclass := aClass theMetaclass name.
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1668
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1669	self do:[:aChange \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1670	\|changeClassName changeClass\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1671
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1672	changeClassName := aChange className.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1673	(changeClassName = nameOfClass) ifTrue:[^ true].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1674	(changeClassName = nameOfMetaclass) ifTrue:[^ true].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1675
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1676	changeClass := aChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1677	(changeClass notNil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1678	and:[changeClass isPrivate
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1679	and:[changeClass owningClass == aClass]]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1680	^ true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1681	]
1127 b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1682	].
b009373b0feb +includesChangeForClassOrMetaclassOrPrivateClassOf Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	1683	^ false
2845 914991e2dbd7 added: #changesForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2819 diff changeset	1684
914991e2dbd7 added: #changesForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2819 diff changeset	1685	"Modified (format): / 25-07-2012 / 16:50:26 / cg"
1885 b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1686	!
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1687
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1688	includesChangeForClassOrMetaclassOrPrivateClassOfAny:aCollectionOfClasses
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1689	\|namesOfClasses namesOfMetaclasses\|
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1690
3176 bf3e3ac08152 Don't do collect:[] as:Array and select:[] as:Array Stefan Vogel <sv@exept.de> parents: 3174 diff changeset	1691	namesOfClasses := (aCollectionOfClasses collect:[:eachClass \| eachClass theNonMetaclass name]) asArray.
bf3e3ac08152 Don't do collect:[] as:Array and select:[] as:Array Stefan Vogel <sv@exept.de> parents: 3174 diff changeset	1692	namesOfMetaclasses := (aCollectionOfClasses collect:[:eachClass \| eachClass theMetaclass name]) asArray.
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1693
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1694	self do:[:aChange \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1695	\|changeClassName changeClass\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1696
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1697	changeClassName := aChange className.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1698	(namesOfClasses includes:changeClassName) ifTrue:[^ true].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1699	(namesOfMetaclasses includes:changeClassName) ifTrue:[^ true].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1700
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1701	changeClass := aChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1702	(changeClass notNil and:[changeClass isPrivate]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1703	(aCollectionOfClasses includes:changeClass owningClass) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1704	^ true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1705	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1706	]
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1707	].
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1708	^ false
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1709
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1710	"Created: / 08-09-2011 / 04:24:26 / cg"
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1711	!
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1712
1885 b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1713	includesChangeForPackage:aPackageID
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1714	^ self changedPackages includes:aPackageID
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1715
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1716	"/ ^ self contains:[:aChange \| aChange package = aPackageID]
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1717
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1718	"
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1719	ChangeSet current includesChangeForPackage:'stx:libbasic'
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1720	"
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1721
b77dd687e497 * empty log message * Claus Gittinger <cg@exept.de> parents: 1883 diff changeset	1722	"Created: / 25-10-2006 / 18:06:55 / cg"
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1723	!
9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1724
3688 4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1725	methodDefinitionChangesForClassNamed:aClassName
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1726	^ self select:[:chg \| chg isMethodDefinitionChange and:[chg className = aClassName]] as:OrderedCollection.
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1727	!
4a8a1af9c89d class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3648 diff changeset	1728
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1729	selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom:aCollectionOfClasses
3378 905a79f03901 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3376 diff changeset	1730	"return the set of classes from a given collection, for which I have changes."
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1731
2845 914991e2dbd7 added: #changesForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2819 diff changeset	1732	\|selected alreadyProcessed classes prev\|
914991e2dbd7 added: #changesForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2819 diff changeset	1733
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1734	classes := (aCollectionOfClasses
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1735	collect:[:eachClass \| eachClass theNonMetaclass]) as:IdentitySet.
3378 905a79f03901 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3376 diff changeset	1736
905a79f03901 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3376 diff changeset	1737	selected := IdentitySet new.
905a79f03901 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3376 diff changeset	1738	alreadyProcessed := IdentitySet new.
2845 914991e2dbd7 added: #changesForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2819 diff changeset	1739
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1740	self do:[:eachChange \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1741	\|changeClassName changeClass isIn\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1742
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1743	changeClass := eachChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1744	(changeClass notNil and:[changeClass ~~ prev]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1745	changeClass := changeClass theNonMetaclass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1746	(alreadyProcessed includes:changeClass) ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1747	(classes includes:changeClass) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1748	selected add:changeClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1749	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1750
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1751	"/ Care for private classes. If one of its owningClass
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1752	"/ is in the given collection, add that owningClass into
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1753	"/ result too!!!!
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1754
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1755	changeClass isPrivate ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1756	\|owner\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1757
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1758	owner := changeClass owningClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1759	[owner notNil] whileTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1760	(classes includes:owner) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1761	selected add:owner.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1762	owner := nil.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1763	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1764	owner := owner owningClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1765	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1766	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1767	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1768	alreadyProcessed add: changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1769	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1770	prev := changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1771	].
2845 914991e2dbd7 added: #changesForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2819 diff changeset	1772	].
914991e2dbd7 added: #changesForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2819 diff changeset	1773	^ selected.
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1774
2907 dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1775	"Created: / 04-09-2012 / 14:01:37 / cg"
3378 905a79f03901 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3376 diff changeset	1776	"Modified: / 09-08-2013 / 12:40:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2907 dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1777	!
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1778
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1779	selectForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom:aCollectionOfClasses
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1780	"select changes for one of a given class.
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1781	Returns a collection of changes"
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1782
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1783	\|selected classes \|
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1784
4183 4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1785	classes := aCollectionOfClasses collect:[:eachClass \| eachClass theNonMetaclass] as:Array.
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1786
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1787	selected := self class new.
2907 dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1788
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1789	self do:[:eachChange \|
4183 4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1790	\|changeClassName changeClass isIn\|
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1791
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1792	changeClass := eachChange changeClass.
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1793	(changeClass notNil) ifTrue:[
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1794	changeClass := changeClass theNonMetaclass.
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1795	((classes includes:changeClass)
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1796	or: [
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1797	changeClass isPrivate
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1798	and: [ (classes includes:changeClass owningClass) ]
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1799	]
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1800	) ifTrue:[
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1801	selected add: eachChange
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1802	].
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	1803	]
2907 dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1804	].
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1805	^ selected.
dd00eb010669 added: #selectClassesForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom: Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	1806
2519 9ec9171b05e6 added: Claus Gittinger <cg@exept.de> parents: 2491 diff changeset	1807	"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	1808	! !
cdc9ddc19155 added query for a class being in a changeSet Claus Gittinger <cg@exept.de> parents: 985 diff changeset	1809
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1810	!ChangeSet methodsFor:'utilities'!
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	1811
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1812	apply
3222 a6996f259211 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3218 diff changeset	1813	"apply all changes in the receiver's changeSet"
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1814
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1815	self do:[:aChange \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1816	aChange apply
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1817	]
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1818	!
99583ccfe415 * empty log message * ps parents: 877 diff changeset	1819
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1820	condenseChanges
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1821	\| changesToRemove changesToKeep \|
2951 fb2a78a9064a changed: #condenseChanges: Claus Gittinger <cg@exept.de> parents: 2943 diff changeset	1822
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1823	changesToKeep := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1824	changesToRemove := self class new.
2951 fb2a78a9064a changed: #condenseChanges: Claus Gittinger <cg@exept.de> parents: 2943 diff changeset	1825	self reverseDo:[:change\|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1826	(changesToKeep anySatisfy:[:each\|each isForSameAs: change])
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1827	ifTrue:[changesToRemove add: change]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1828	ifFalse:[changesToKeep add: change]
2951 fb2a78a9064a changed: #condenseChanges: Claus Gittinger <cg@exept.de> parents: 2943 diff changeset	1829	].
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1830	self condenseChanges: changesToRemove.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1831
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1832	"Created: / 22-10-2008 / 13:05:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1833	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	1834
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1835	condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1836	"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	1837
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1838	changesToRemove notEmpty ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1839	changedClasses := changeSelectors := nil.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1840	self removeAll:changesToRemove.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1841	"/ self changed. "/ -- removeAll already sends out a notification
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1842	Smalltalk changed:#currentChangeSet with:self.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1843	].
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1844
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1845	"Created: / 12-10-2006 / 16:51:11 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1846	!
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1847
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1848	condenseChangesForClass:aClass
3825 ca84b0805d36 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	1849	"remove all changes for aClass (and its metaclass)
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1850	(i.e. leave changes for other classes)."
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1851
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1852	self condenseChangesForClass:aClass package:nil
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1853	!
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	1854
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1855	condenseChangesForClass:aClass package:aPackageSymbol
3825 ca84b0805d36 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	1856	"remove all changes for aClass (and its metaclass) and aPackageSymbol
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1857	(i.e. leave methodChanges for other packages).
956 0c6c209df4e9 keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1858	This is invoked when a class is checked into the repository."
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1859
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1860	self condenseChangesForClass:aClass selector:nil package:aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1861
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1862	"Modified: / 5.11.2001 / 14:29:22 / cg"
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1863	!
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1864
1830 a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1865	condenseChangesForClass:aClass selector:aSelector
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1866	"remove all changes for aClass >> selector."
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1867
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1868	self condenseChangesForClass:aClass selector:aSelector package:nil
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1869
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1870	"Created: / 26-09-2006 / 17:22:59 / cg"
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1871	!
a44c9beee9a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	1872
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1873	condenseChangesForClass:aClass selector:selectorOrNil package:aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1874	"remove all changes for aClass/selector and aPackageSymbol
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1875	(i.e. leave methodChanges for other packages).
3825 ca84b0805d36 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	1876	If selectorOrNil is nil, all changes for that class (or metaclass) are removed;
1186 a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1877	otherwise, only changes for the given selector.
a47e1a5770c2 condensing after an extensions-checkin fixed Claus Gittinger <cg@exept.de> parents: 1184 diff changeset	1878	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	1879
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1880	\|changesToRemove className metaClassName chgCls\|
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	1881
945 f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1882	className := aClass theNonMetaclass name.
f9e349d38d49 care for metaclasses when condensing changeSet Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1883	metaClassName := aClass theMetaclass name.
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1884
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1885	changesToRemove :=
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1886	self select:[:aChange \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1887	\|chgClassName chgClass removeThis mClass mthd\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1888
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1889	removeThis := false.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1890	chgClassName := aChange className.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1891	(chgClassName = className or:[chgClassName = metaClassName]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1892	removeThis := true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1893	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1894	chgCls := aChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1895	chgCls isNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1896	(chgClassName startsWith:(aClass name,':')) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1897	"a change for a private class of a no-longer present one..."
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1898	removeThis := true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1899	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1900	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1901
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1902	(chgCls notNil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1903	and:[chgCls isPrivate
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1904	and:[chgCls topOwningClass == aClass]]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1905	removeThis := true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1906	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1907	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1908	selectorOrNil notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1909	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1910	removeThis := false.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1911	] ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1912	aChange selector = selectorOrNil ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1913	removeThis := false.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1914	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1915	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1916	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1917
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1918	removeThis ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1919	aChange isMethodChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1920	mClass := aChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1921	mClass notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1922	mthd := mClass compiledMethodAt:(aChange selector).
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1923	mthd isNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1924	"/ mthd does no longer exist
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1925	"/ I no longer understand what this was meant for .. (sigh)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1926	"/ aPackageSymbol notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1927	"/ removeThis := false
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1928	"/ ]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1929	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1930	(aPackageSymbol notNil and:[mthd package ~= aPackageSymbol]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1931	removeThis := false
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1932	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1933	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1934	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1935	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1936	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1937	removeThis
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1938	].
1187 f63ecc7dbaff condenseChange fixes (if baseClass or extensions are checked in) Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1939
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1940	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1941
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1942	"Modified: / 12-10-2006 / 16:51:38 / cg"
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1943	!
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1944
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1945	condenseChangesForExtensionsInPackage:aPackageSymbol
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1946	"remove all changes for aClass and aPackageSymbol
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1947	(i.e. leave methodChanges for other packages).
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1948	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	1949
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1950	\|changesToRemove\|
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1951
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1952	changesToRemove := OrderedCollection new.
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1953
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1954	changesToRemove := self select:[:aChange \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1955	\|removeThis mClass mthd\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1956
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1957	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1958	removeThis := false.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1959	mClass := aChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1960	(mClass notNil and:[mClass package ~= aPackageSymbol]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1961	mthd := mClass compiledMethodAt:(aChange selector).
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1962	mthd isNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1963	aChange isMethodRemoveChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1964	removeThis := true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1965	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1966	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1967	mthd package = aPackageSymbol ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1968	removeThis := true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1969	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1970	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1971	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1972	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1973	removeThis
1087 5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1974	].
5aaf7da2882d condense changes for extensions Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	1975
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1976	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1977
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1978	"Created: / 05-11-2001 / 14:21:17 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1979	"Modified: / 12-10-2006 / 16:51:32 / cg"
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1980	!
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1981
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1982	condenseChangesForPackage:aPackageSymbol
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1983	"remove all changes for aPackageSymbol
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1984	This is invoked when a project is checked into the repository."
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1985
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1986	\|changesToRemove\|
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	1987
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1988	changesToRemove := self select:[:aChange \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1989	\|removeThis mClass mthd\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1990
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1991	removeThis := false.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1992	(aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1993	mClass := aChange changeClass.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1994	mClass notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1995	mthd := mClass compiledMethodAt:(aChange selector).
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1996	mthd isNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1997	aChange isMethodRemoveChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1998	removeThis := (mClass package = aPackageSymbol)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	1999	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2000	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2001	removeThis := (mthd package = aPackageSymbol)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2002	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2003	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2004	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2005	(aChange isClassChange) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2006	(aChange changeClass notNil) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2007	removeThis := (aChange changeClass package = aPackageSymbol)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2008	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2009	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2010	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2011	removeThis
1521 ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	2012	].
ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	2013
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	2014	self condenseChanges:changesToRemove
89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	2015
1521 ea6cb41e4523 send out a change notification, when I condensed Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	2016	"Created: / 05-11-2001 / 14:21:17 / cg"
1865 89d9aef483b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	2017	"Modified: / 12-10-2006 / 16:51:27 / cg"
878 99583ccfe415 * empty log message * ps parents: 877 diff changeset	2018	!
99583ccfe415 * empty log message * ps parents: 877 diff changeset	2019
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2020	diffSetsAgainst:anotherChangeSet
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2021	"walk over the receiver and anotherChangeSet,
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2022	add all changes to one of the tree lists:
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2023	onlyInReceiver, onlyInArg or changed,
946 11f09459b0f5 comment Claus Gittinger <cg@exept.de> parents: 945 diff changeset	2024	each being a changeSet containing corresponding changes.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2025	WARNING:
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2026	destructive; could modify both the receiver and the argument by possibly
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2027	changing methodChanges into categoryChanges"
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2028
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2029	^ self diffSetsAgainst:anotherChangeSet comparingDifferentClasses:false
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2030	!
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2031
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2032	diffSetsAgainst:anotherChangeSet comparingDifferentClasses:comparingDifferentClasses
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2033	"walk over the receiver and anotherChangeSet,
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2034	add all changes to one of the tree lists:
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2035	onlyInReceiver, onlyInArg or changed,
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2036	each being a changeSet containing corresponding changes.
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2037	If comparingDifferentClasses is false, changes to different classes will
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2038	generate onlyInA/onlyInB changes; eg. changes for the same selector will be
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2039	listed on either side.
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2040	If it is true, we are comparing two different classes, and selectors present in
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2041	both will be listed as different (or even as the same).
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2042
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2043	WARNING:
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2044	destructive; could modify both the receiver and the argument by possibly
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2045	changing methodChanges into categoryChanges."
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2046
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2047	\|otherChangeIndicesBySelector otherNonMethodChangeIndices changeIndicesBySelector nonMethodChangeIndices
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2048	onlyInReceiver onlyInArg changedMethods same
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2049	indexFromChangedMethodsToA indexFromChangedMethodsToB
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2050	"info" ret isForSame isSame\|
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2051
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2052	comparingDifferentClasses ifTrue:[
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2053	isForSame := [:aChangeInA :aChangeInB \|
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2054	\|isForSame\|
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2055
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2056	isForSame := false.
4120 99449d5ce3f8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4115 diff changeset	2057	(aChangeInA isMethodChange
99449d5ce3f8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4115 diff changeset	2058	and:[aChangeInB isMethodChange
99449d5ce3f8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4115 diff changeset	2059	and:[aChangeInA changeSelector = aChangeInB changeSelector
99449d5ce3f8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4115 diff changeset	2060	and:[aChangeInA changeClass isMeta = aChangeInB changeClass isMeta]]])
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2061	ifTrue:[
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2062	isForSame := true.
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2063	] ifFalse:[
4120 99449d5ce3f8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4115 diff changeset	2064	(aChangeInA isClassChange
99449d5ce3f8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4115 diff changeset	2065	and:[aChangeInB isClassChange
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2066	and:[aChangeInA changeClass nameWithoutNameSpacePrefix
4120 99449d5ce3f8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4115 diff changeset	2067	= aChangeInB changeClass nameWithoutNameSpacePrefix]])
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2068	ifTrue:[
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2069	isForSame := true.
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2070	]
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2071	].
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2072	isForSame
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2073	].
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2074
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2075	isSame := [:aChangeInA :aChangeInB \|
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2076	(aChangeInA source = aChangeInB source)
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2077	].
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2078	] ifFalse:[
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2079	isForSame := [:aChangeInA :aChangeInB \|
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2080	(aChangeInA isForSameAs:aChangeInB)
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2081	].
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2082
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2083	isSame := [:aChangeInA :aChangeInB \|
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2084	(aChangeInA sameAs:aChangeInB)
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2085	].
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2086	].
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2087
4183 4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	2088	onlyInReceiver := self class new.
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	2089	onlyInArg := self class new.
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	2090	changedMethods := self class new.
4963225764b6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 4120 diff changeset	2091	same := self class new.
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2092
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2093	indexFromChangedMethodsToA := OrderedCollection new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2094	indexFromChangedMethodsToB := OrderedCollection new.
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2095
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2096	otherChangeIndicesBySelector := Dictionary new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2097	otherNonMethodChangeIndices := OrderedCollection new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2098
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2099	"/ 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	2100	anotherChangeSet keysAndValuesDo:[:idxB :aChangeInB \|
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2101	\|setOfOtherChangeIndicesForThisSelector\|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2102
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2103	aChangeInB isMethodChange ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2104	setOfOtherChangeIndicesForThisSelector := otherChangeIndicesBySelector at:(aChangeInB selector) ifAbsentPut:[OrderedCollection new].
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2105	setOfOtherChangeIndicesForThisSelector add:idxB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2106	] ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2107	otherNonMethodChangeIndices add:idxB
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2108	].
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2109	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2110
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2111	self keysAndValuesDo:[:idxA :aChangeInA \|
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2112	\|indicesOfChangesToExplore anyFound ch\|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2113
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2114	anyFound := false.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2115
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2116	aChangeInA isMethodChange ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2117	indicesOfChangesToExplore := otherChangeIndicesBySelector at:(aChangeInA selector) ifAbsent:#()
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2118	] ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2119	indicesOfChangesToExplore := otherNonMethodChangeIndices.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2120	].
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2121
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2122	indicesOfChangesToExplore do:[:idxB \|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2123	\|aChangeInB\|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2124
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2125	aChangeInB := anotherChangeSet at:idxB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2126
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2127	(isForSame value:aChangeInA value:aChangeInB) ifTrue:[
27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2128	"/ these two are for the same class/selector
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2129	anyFound := true.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2130
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2131	"/ also in B - is it different?
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2132	(isSame value:aChangeInA value:aChangeInB) ifFalse:[
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2133	changedMethods add:aChangeInA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2134	indexFromChangedMethodsToA add:idxA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2135	indexFromChangedMethodsToB add:idxB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2136	] ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2137	aChangeInA isMethodChange ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2138	aChangeInA methodCategory ~= aChangeInB methodCategory ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2139	"/ only the category is different;
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2140	"/ make it a MethodCategory changes.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2141
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2142	ch := MethodCategoryChange new
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2143	className:aChangeInA className
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2144	selector:aChangeInA selector
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2145	category:aChangeInA methodCategory;
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2146	"JV@2012-03-20: Also keeps origin, required by merge tool"
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2147	origin: aChangeInA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2148	self at:idxA put:ch.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2149
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2150	ch := MethodCategoryChange new
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2151	className:aChangeInB className
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2152	selector:aChangeInB selector
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2153	category:aChangeInB methodCategory;
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2154	"JV@2012-03-20: Also keeps origin, required by merge tool"
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2155	origin: aChangeInB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2156	anotherChangeSet at:idxB put:ch.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2157
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2158	changedMethods add:aChangeInA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2159	indexFromChangedMethodsToA add:idxA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2160	indexFromChangedMethodsToB add:idxB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2161	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2162	].
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2163	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2164	] ifFalse:[
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2165	(isSame value:aChangeInA value:aChangeInB) ifTrue:[
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2166	anyFound := true.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2167	] ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2168	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2169	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2170	].
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2171
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2172	anyFound ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2173	onlyInReceiver add:aChangeInA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2174	]
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2175	].
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2176
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2177	"/ these caches reduce square runtime to almost linear...
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2178	changeIndicesBySelector := Dictionary new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2179	nonMethodChangeIndices := OrderedCollection new.
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2180
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2181	self keysAndValuesDo:[:idxA :aChangeInA \|
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2182	\|setOfChangeIndicesForThisSelector\|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2183
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2184	aChangeInA isMethodChange ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2185	setOfChangeIndicesForThisSelector := changeIndicesBySelector at:(aChangeInA selector) ifAbsentPut:[OrderedCollection new].
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2186	setOfChangeIndicesForThisSelector add:idxA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2187	] ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2188	nonMethodChangeIndices add:idxA
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2189	].
1200 2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2190	].
2da3e026f94d much faster diffSet generation - watch out - report bugs to cg Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	2191
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2192	anotherChangeSet keysAndValuesDo:[:idxB :aChangeInB \|
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2193	\|anyFound indicesOfChangesToExplore\|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2194
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2195	anyFound := false.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2196
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2197	aChangeInB isMethodChange ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2198	indicesOfChangesToExplore := changeIndicesBySelector at:(aChangeInB selector) ifAbsent:#()
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2199	] ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2200	indicesOfChangesToExplore := nonMethodChangeIndices.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2201	].
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2202
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2203	indicesOfChangesToExplore do:[:idxA \|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2204	\|aChangeInA idxM\|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2205
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2206	aChangeInA := self at:idxA.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2207
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2208	(isForSame value:aChangeInA value:aChangeInB) ifTrue:[
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2209	anyFound := true.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2210
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2211	"/ also in B - is it different ?
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2212	(isSame value:aChangeInA value:aChangeInB) ifFalse:[
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2213	"/ already there ?
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2214	idxM := changedMethods findFirst:[:c \| (isForSame value:c value:aChangeInB)].
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2215	idxM == 0 ifTrue:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2216	changedMethods add:aChangeInB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2217	indexFromChangedMethodsToB add:idxB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2218	] ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2219	indexFromChangedMethodsToB at:idxM put:idxB
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2220	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2221	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2222	] ifFalse:[
4033 27e307c5e35f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 4011 diff changeset	2223	(isSame value:aChangeInA value:aChangeInB) ifTrue:[
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2224	anyFound := true.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2225	] ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2226	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2227	]
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2228	].
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2229	anyFound ifFalse:[
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2230	onlyInArg add:aChangeInB.
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2231	]
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2232	].
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2233
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	2234	"/ info := OrderedCollection new:(changedMethods size).
4f35b96a799e checkin from browser ps parents: 860 diff changeset	2235	"/ changedMethods keysAndValuesDo:[:idx :changedMethod \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2236	"/ info add:(Array
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	2237	"/ with:(indexFromChangedMethodsToA at:idx)
4f35b96a799e checkin from browser ps parents: 860 diff changeset	2238	"/ with:(indexFromChangedMethodsToB at:idx)
4f35b96a799e checkin from browser ps parents: 860 diff changeset	2239	"/ )
4f35b96a799e checkin from browser ps parents: 860 diff changeset	2240	"/ ].
1450 0ec14b2064fb * empty log message * Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	2241	changedMethods := (1 to:changedMethods size) asOrderedCollection collect:[:idx \|
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2242	\|cA cB\|
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2243
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2244	cA := self at:(indexFromChangedMethodsToA at:idx).
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2245	cB := anotherChangeSet at:(indexFromChangedMethodsToB at:idx).
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2246	Array with:cA with:cB
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2247	].
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2248
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2249	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	2250
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2251	ret := DiffSet new
3981 60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2252	changed:changedMethods
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2253	onlyInReceiver:onlyInReceiver
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2254	onlyInArg:onlyInArg
60a9e8dcb7d1 #DOCUMENTATION by mawalch mawalch parents: 3964 diff changeset	2255	same: same.
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	2256	"/ ret info:info.
864 4f35b96a799e checkin from browser ps parents: 860 diff changeset	2257	^ret
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2258
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	2259	"Modified: / 12-10-2006 / 22:22:39 / cg"
2633 5a5460e5231a comment/format in: Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2260	"Modified (comment): / 01-12-2011 / 19:12:55 / cg"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2261	"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	2262	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2263
2412 13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2264	diffSetsAgainstImage
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2265
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2266	\|imageChangeSet\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2267
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2268	imageChangeSet := self class new.
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2269	self changedClasses do:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2270	[:class\|
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2271	(class isMetaclass or:[class isPrivate]) ifFalse:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2272	[imageChangeSet addAll:
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2273	(self class fromStream: class source asString readStream)]].
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2274	^self diffSetsAgainst: imageChangeSet
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2275
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2276	"Created: / 04-12-2007 / 16:03:28 / janfrog"
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2277	!
13197e877a9e Extension methods from libsvn vrany parents: 2376 diff changeset	2278
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2279	flatten
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2280	"return a flat changeset from a changeset which may contain compositeChanges"
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2281
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2282	\| flatten \|
3824 df87c97ebf32 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3760 diff changeset	2283
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2284	flatten := self class new: self size.
3824 df87c97ebf32 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3760 diff changeset	2285	self do:[:ea\|
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2286	ea do:[:ea2\| flatten add: ea2]
3824 df87c97ebf32 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3760 diff changeset	2287	].
df87c97ebf32 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3760 diff changeset	2288	^ flatten
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2289
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2290	"Created: / 29-10-2010 / 14:40:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2291	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2292
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2293	groupBy: groupBlock labelAs: labelBlock
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2294
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2295	"
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2296	returns a new changeset consisting of CompositeChanges.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2297	Changes are grouped together by value (tag) of groupBlock.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2298	Each composite change is then labeled using label
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2299	returned by labelBlock (called with the tag returned
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2300	by groupBlock as arg)
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2301	"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2302
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2303	^ self groupBy: groupBlock labelAs: labelBlock sort: false
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2304
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2305	"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	2306	"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	2307	"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	2308	"Modified: / 30-08-2011 / 16:07:30 / cg"
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2309	!
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2310
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2311	groupBy: groupBlock labelAs: labelBlock sort: doSort
2626 0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	2312	"returns a new changeset consisting of CompositeChanges.
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	2313	Changes are grouped together by value (tag) of groupBlock.
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	2314	Each composite change is then labeled using label
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	2315	returned by labelBlock (called with the tag returned
0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	2316	by groupBlock as arg)"
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2317
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2318	\| buckets newChangeset keys \|
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2319
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2320	buckets := OrderedDictionary new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2321	self do:[:change\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2322	\| tag \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2323
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2324	tag := groupBlock value: change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2325	(buckets at: tag ifAbsentPut: [self class new:4]) add: change
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2326	].
9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2327	newChangeset := self class new: buckets size.
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2328
882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2329	keys := buckets keys select:[:k \| k notNil].
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2330	doSort ifTrue:[ keys sort ].
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2331	keys do:[:tag \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2332	\|changes classDefs\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2333
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2334	changes := buckets at:tag.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2335
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2336	"Move class definition to the front"
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2337	classDefs := changes select:[:chg\|chg isClassDefinitionChange].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2338	changes removeAll: classDefs.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2339	changes addAllFirst: classDefs.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2340
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2341	tag notNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2342	newChangeset add:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2343	(CompositeChange
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2344	name: (labelBlock value: tag)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2345	changes: changes)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2346	]
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2347	].
2626 0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	2348	(buckets includesKey: nil) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2349	newChangeset addAll: (buckets at: nil)
2626 0ac000060c44 changed: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	2350	].
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2351	^newChangeset
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2352
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2353	"Created: / 24-07-2009 / 23:17:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2354	"Modified: / 25-07-2009 / 19:40:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2355	"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	2356	"Created: / 30-08-2011 / 16:07:01 / cg"
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2357	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2358
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2359	groupByClass
2491 882e07ee86bd added: #groupBy:labelAs:sort: Claus Gittinger <cg@exept.de> parents: 2469 diff changeset	2360	\|nm\|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2361
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2362	^self
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2363	groupBy: [:change\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2364	change isClassChange ifTrue: [
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2365	nm := change className.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2366	(nm notNil and:[nm endsWith:' class']) ifTrue:[nm := nm copyTo: nm size - 6].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2367	nm
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2368	] ifFalse: [
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2369	nil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2370	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2371	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2372	labelAs: [:className\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2373	className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2374	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2375	sort: true
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2376
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2377	"Created: / 25-07-2009 / 19:43:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2378	"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	2379	"Modified: / 30-08-2011 / 16:08:38 / cg"
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2380	!
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2381
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2382	saveSignedToFile:aFilename
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2383	"write the changeSet to a signed file in chunk format"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2384
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2385	self saveSignedToFile:aFilename format:nil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2386
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2387	"Created: / 08-02-2011 / 11:18:54 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2388	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2389
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2390	saveSignedToFile:aFilename format:formatSymbolOrNil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2391	"write the changeSet to a signed file in some format.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2392	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	2393	Nil is chunk format (currently, the only supported)"
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2394
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2395	\|s pkcs7SignedData\|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2396
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2397	self assert: (Smalltalk at:#'Expecco::KeyFileGenerator') notNil.
9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2398
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2399	s := WriteStream on:(String new:2000).
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2400	self saveToStream:s format:formatSymbolOrNil.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2401
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2402	pkcs7SignedData := (Smalltalk at:#'Expecco::KeyFileGenerator') new signExpeccoCode:s contents.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2403	aFilename asFilename contents:pkcs7SignedData.
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2404
2852 9e670f6d2145 code cleanup Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	2405	"Modified (comment): / 26-07-2012 / 12:15:58 / cg"
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2406	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2407
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2408	saveToFile:aFilename
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2409	"write the changeSet to a regular file in chunk format"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2410
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2411	self saveToFile:aFilename format:nil
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2412
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2413	"Created: / 08-02-2011 / 11:18:46 / cg"
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2414	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2415
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2416	saveToFile:aFilename format:formatSymbolOrNil
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2417	"Writes the changeSet to a regular file in some format.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2418	Supported formats are:
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2419	nil ............ chunk changeset file
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2420	#classSource ... class fileout format, assumes that
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2421	the receiver is a changeset containing
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2422	single class (possibly with its private
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2423	classes)
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2424	#Bee ........... Bee Smalltalk changeset file format
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2425	"
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2426
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2427	\|s\|
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2428
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2429	s := aFilename asFilename writeStream.
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2430	[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2431	self saveToStream:s format:formatSymbolOrNil.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2432	] ensure:[ s close ].
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2433
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2434	"Created: / 08-02-2011 / 11:20:06 / cg"
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2435	"Modified: / 24-10-2017 / 11:57:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2436	!
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2437
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2438	saveToStream:aStream format:formatSymbolOrNil
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2439	"Writes the changeSet to a stream in some format.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2440	Supported formats are:
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2441	nil ............ chunk changeset file format
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2442	#classSource ... class fileout format, assumes that
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2443	the receiver is a changeset containing
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2444	single class (possibly with its private
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2445	classes)
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2446	#Bee ........... Bee Smalltalk changeset file format
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2447	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2448
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2449
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2450	formatSymbolOrNil isNil ifTrue:[
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2451	ChangeFileWriter new fileOut:self on:aStream.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2452	^ self.
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2453	].
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2454
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2455	formatSymbolOrNil == #classSource ifTrue:[
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2456	ClassSourceWriter new fileOut:self on:aStream.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2457	^ self.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2458	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2459
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2460	formatSymbolOrNil == #Bee ifTrue:[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2461	BeeChangeFileWriter new fileOut:self on:aStream.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2462	^ self.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2463	].
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2464
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2465	self error:'Unknown format, possible formats are { nil, #classSource . #Bee }'
2323 3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2466
3c9f00f9ca34 added:5 methods Claus Gittinger <cg@exept.de> parents: 2322 diff changeset	2467	"Created: / 08-02-2011 / 11:25:16 / cg"
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	2468	"Modified: / 24-10-2017 / 11:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2469	!
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2470
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2471	sortedByClassName
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2472	"returns a new changeset containing the changes sorted by class names"
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2473
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2474	\| newChangeset \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2475
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2476	newChangeset := self class new: self size.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2477	newChangeset addAll:self.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2478	newChangeset sort:[:a :b \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2479	\|nameA nameB\|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2480	nameA := a isClassChange ifTrue:[ a className ] ifFalse:[ '^other' ].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2481	nameB := b isClassChange ifTrue:[ b className ] ifFalse:[ '^other' ].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2482	nameA < nameB].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2483	^ newChangeset
857 0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2484	! !
0a1a91c94e53 diff utility Claus Gittinger <cg@exept.de> parents: 829 diff changeset	2485
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2486	!ChangeSet::ChangeFileReader methodsFor:'accessing'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2487
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2488	changeAction:aBlock
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2489	changeAction := aBlock.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2490	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2491
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2492	changeSet:something
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2493	"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	2494
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2495	changeSet := something.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2496	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2497
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2498	inputStream:aStream
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2499	inputStream := aStream.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2500	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2501
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2502	!ChangeSet::ChangeFileReader methodsFor:'helpers'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2503
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2504	addChange:change
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2505
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2506	timestamp notNil ifTrue:[change timeStamp: timestamp].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2507	timestamp := nil.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2508	change isClassChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2509	change package: Class packageQuerySignal query.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2510	change nameSpace: Class nameSpaceQuerySignal query.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2511	].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	2512
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2513	changeAction
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2514	valueWithOptionalArgument:change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2515	and:lineNumber
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2516	and:position.
2008 204b171a553d * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	2517
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2518	"Modified: / 11-06-2013 / 15:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2519	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2520
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2521	checkReceiverIsGlobalNamed:expectedName
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2522	^ self variableNameOfReceiver = expectedName
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2523	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2524
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2525	classNameOf:aReceiver
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2526	"old"
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2527
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2528	\| nameSpace isMeta clsNode clsName \|
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2529	nameSpace := Class nameSpaceQuerySignal query.
d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2530
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2531	isMeta := false.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2532	classIsJava := false.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2533
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2534
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2535	(aReceiver isUnaryMessage and:[aReceiver selector == #class]) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2536	isMeta := true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2537	clsNode := aReceiver receiver.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2538	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2539	clsNode := aReceiver.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2540	].
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2541
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2542	clsNode isMessage ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2543	"Normal smalltalk method on Smalltalk class"
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2544	clsName := clsNode name
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2545	] ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2546	"Maybe a Java class?"
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2547	((clsNode selector == #classForName:) and:[clsNode receiver name = 'Java']) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2548	clsName := '(Java classForName:''%1'')' bindWith: clsNode arguments first value.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2549	classIsJava := true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2550	].
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2551	].
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2552
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2553	isMeta ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2554	clsName := clsName , ' class'.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2555	].
2376 d7311cfb8a5f Jan's changes vrany parents: 2323 diff changeset	2556
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2557	(nameSpace ~~ Smalltalk and:[(clsName startsWith: nameSpace name) not])
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2558	ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2559	^ nameSpace name , '::' , clsName
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2560	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2561	^ clsName
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2562	].
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2563
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2564	"Modified: / 30-01-2013 / 10:02:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2565	!
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2566
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2567	classNameOfRememberingNamespace:aReceiver
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2568	"new"
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2569
3247 09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2570	\| nameSpace isMeta clsNode clsName \|
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2571	nameSpace := Class nameSpaceQuerySignal query.
3195 5ce601cd8a45 class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	2572
3247 09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2573	isMeta := false.
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2574	classIsJava := false.
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2575
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2576
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2577	(aReceiver isUnaryMessage and:[aReceiver selector == #class]) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2578	isMeta := true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2579	clsNode := aReceiver receiver.
3197 e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	2580	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2581	clsNode := aReceiver.
3247 09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2582	].
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2583
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2584	clsNode isMessage ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2585	"Normal smalltalk method on Smalltalk class"
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2586	clsName := clsNode name
3247 09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2587	] ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2588	"Maybe a Java class?"
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2589	((clsNode selector == #classForName:) and:[clsNode receiver name = 'Java']) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2590	clsName := '(Java classForName:''%1'')' bindWith: clsNode arguments first value.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2591	classIsJava := true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2592	].
3247 09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2593	].
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2594
09f7b7abf87c Bugfix for Java extension methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3246 diff changeset	2595	isMeta ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2596	clsName := clsName , ' class'.
3195 5ce601cd8a45 class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	2597	].
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2598
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2599	"Strip off the namespace"
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2600	(classIsJava not and:[ nameSpace ~~ Smalltalk]) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2601	(clsName startsWith: nameSpace name) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2602	clsName := clsName copyFrom: nameSpace name size + 3.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2603	]
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2604	].
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2605
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2606	(nameSpace ~~ Smalltalk and:[(clsName startsWith: nameSpace name) not])
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2607	ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2608	"/ old: remember namespace in name
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2609	"/ ^ nameSpace name , '::' , clsName
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2610	"/ new: remember in override
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2611	nameSpaceOverride := nameSpace.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2612	^ clsName
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2613	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2614	nameSpaceOverride := nil.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2615	^ clsName
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2616	].
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2617
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2618	"Modified: / 11-06-2013 / 17:55:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2619	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2620
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2621	extractMethodsClassAndSelectorFromReceiver
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2622	"helper for all changes which are of the form:
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2623	(className compiledMethodAt:#methodSelector) something: ...
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2624	"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2625
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2626	(receiver isMessage
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2627	and:[receiverSelector == #'compiledMethodAt:']) ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2628	self error:'unexpected change' mayProceed:true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2629	^ false.
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2630	].
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2631
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2632	"/ className := self classNameOf:receiverReceiver.
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2633	className := self classNameOfRememberingNamespace:receiverReceiver.
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2634	self assert:className notNil.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2635
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2636	methodSelector := (receiver arguments at:1) evaluate.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2637	self assert:methodSelector notNil.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2638	^ true.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2639
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2640	"Created: / 27-07-2012 / 21:33:47 / cg"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2641	!
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	2642
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2643	receiversClassName
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2644	^ self classNameOf:receiver
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2645	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2646
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2647	receiversClassNameRememberingNamespace
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2648	^ self classNameOfRememberingNamespace:receiver
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2649	!
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2650
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2651	variableNameOfReceiver
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2652
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2653	receiver isVariable ifFalse:[ ^ nil ].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2654	^ receiver name
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2655	! !
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	!ChangeSet::ChangeFileReader methodsFor:'reading'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2658
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2659	changesFromParseTree:aTree lineNumber:initialLineNumberOrNil position:initialPositionOrNil
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2660	"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	2661	create changes and evaluate changeAction on each.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2662	The chnageAction-block is invoked with the change and a lineNumberOrNil as
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2663	arg; the lineNumber is only valid, if the underlying inputStream
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2664	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2665
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2666	^self changesFromParseTree:aTree lineNumber:initialLineNumberOrNil position:initialPositionOrNil chunk: nil
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2667
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2668	"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	2669	!
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2670
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2671	changesFromParseTree:aTree lineNumber:initialLineNumberOrNil position:initialPositionOrNil chunk: initialChunkOrNil
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2672	"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	2673	create changes and evaluate changeAction on each.
3964 38bc2f6fa1db #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3957 diff changeset	2674	The changeAction-block is invoked with the change and a lineNumberOrNil as
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2675	arg; the lineNumber is only valid, if the underlying inputStream
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2676	provides line-numbers; otherwise, nil is passed."
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2677
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2678	lineNumber := initialLineNumberOrNil.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2679	position := initialPositionOrNil.
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2680	chunk := initialChunkOrNil.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2681	parseTree := aTree.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2682
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2683	selector := aTree selector.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2684	receiver := aTree receiver.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2685	arguments := aTree arguments.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2686
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2687	receiver isMessage ifTrue:[
3964 38bc2f6fa1db #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3957 diff changeset	2688	receiverSelector := receiver selector.
38bc2f6fa1db #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 3957 diff changeset	2689	receiverReceiver := receiver receiver.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2690	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2691
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2692	^ self processChange
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2693
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2694	"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	2695	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2696
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2697	!ChangeSet::ChangeFileReader methodsFor:'reading-private'!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2698
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2699	handleCategoriesForChange
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2700	\|selector category categories attributes change\|
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2701
2256 b98137d2aa30 changed: #changesFromStream:for:reader:do: Claus Gittinger <cg@exept.de> parents: 2247 diff changeset	2702	selector := arguments first value.
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2703	className := self receiversClassNameRememberingNamespace.
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2704
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2705	categories := OrderedCollection new.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2706	attributes := OrderedCollection new.
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	[
3957 420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2709	inputStream skipSeparators.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2710	category := inputStream nextChunk.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2711	category notEmptyOrNil
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2712	] whileTrue:[
3957 420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2713	( #( 'public' 'private' ) includes: category) ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2714	attributes add:category
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2715	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2716	categories add:category
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2717	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2718	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2719	categories notEmpty ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2720	categories size == 1 ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2721	category := categories first.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2722	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2723	category := categories asStringWith:' and '
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2724	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2725	change := MethodCategoryChange
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2726	className:className
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2727	selector:selector
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2728	source:(parseTree printString)
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2729	category:category.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2730	self addChange:change.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2731	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2732
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2733	attributes notEmpty ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2734	attributes size == 1 ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2735	"/ easy
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2736	(attributes first = 'public') ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2737	"/ default anyway - ignore
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2738	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2739	change := MethodPrivacyChange
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2740	className:className
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2741	selector:selector
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2742	privacy:(attributes first asSymbol).
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2743	change nameSpaceOverride:nameSpaceOverride.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2744	change source:(parseTree printString).
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2745	self addChange:change.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2746	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2747	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2748	self halt:'multiple/missing attributes not supported'.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2749	].
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2750	].
3957 420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2751	^ true
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2752
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2753	"Modified: / 11-06-2013 / 16:11:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2754	!
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2755
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2756	handleCategoriesForClassChange
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2757	\|category categories attributes change\|
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2758
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2759	className := self receiversClassNameRememberingNamespace.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2760
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2761	categories := OrderedCollection new.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2762	attributes := OrderedCollection new.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2763
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2764	[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2765	inputStream skipSeparators.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2766	category := inputStream nextChunk.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2767	category notEmptyOrNil
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2768	] whileTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2769	( #( 'public' 'private' ) includes: category) ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2770	attributes add:category
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2771	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2772	categories add:category
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2773	].
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2774	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2775
3957 420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2776	categories notEmpty ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2777	categories size == 1 ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2778	"/ easy
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2779	category := categories first
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2780	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2781	category := categories asStringWith:' and '
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2782	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2783	change := ClassCategoryChange new
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2784	className:className
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2785	category:category.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2786	self addChange:change.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2787	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2788
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2789	attributes notEmpty ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2790	attributes size == 1 ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2791	"/ easy
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2792	(attributes first = 'public') ifTrue:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2793	"/ default anyway - ignore
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2794	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2795	"/ a private class!!
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2796	"/ change := ClassDefinitionChange
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2797	"/ className:className
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2798	"/ selector:selector
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2799	"/ privacy:(attributes first asSymbol).
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2800	"/ change nameSpaceOverride:nameSpaceOverride.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2801	"/ change source:(parseTree printString).
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2802	"/ self addChange:change.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2803	].
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2804	] ifFalse:[
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2805	self halt:'multiple/missing attributes not supported'.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	2806	].
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2807	].
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2808	^ true
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2809
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2810	"Modified: / 11-06-2013 / 16:11:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2811	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	2812
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2813	handleClassCommentChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2814	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2815
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2816	className := self receiversClassNameRememberingNamespace.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2817
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2818	change := ClassCommentChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2819	change className:className comment:(arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2820	change source:(parseTree printString).
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2821	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2822	^ true
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2823
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2824	"Modified: / 11-06-2013 / 16:11:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2825	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2826
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2827	handleClassDefinitionChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2828	\|nameSpace change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2829
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2830	className := (arguments at:1) evaluate.
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2831
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2832	nameSpace := Class nameSpaceQuerySignal query.
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2833	(nameSpace == Smalltalk) ifTrue:[ nameSpace := nil ].
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2834
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2835	"/ old: remember namespace in className
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2836	"/ nameSpace ~~ Smalltalk ifTrue:[
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2837	"/ className := nameSpace name , '::' , className
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2838	"/ ].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2839
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2840	change := ClassDefinitionChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2841	change className:className; source:(parseTree printString).
3860 e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2842	change definitionSelector:selector.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2843
1453 27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2844	receiver isVariable ifTrue:[
3860 e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2845	change superClassName:receiver name.
1453 27882f000bc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	2846	].
1428 807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2847	selector keywords with:arguments do:[:kw :arg \|
3860 e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2848	kw = #'instanceVariableNames:' ifTrue:[
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2849	change instanceVariableString:arg evaluate.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2850	].
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2851	kw = #'classVariableNames:' ifTrue:[
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2852	change classVariableString:arg evaluate.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2853	].
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2854	kw = #'poolDictionaries:' ifTrue:[
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2855	change poolDictionaries:arg evaluate.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2856	].
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2857	kw = #'category:' ifTrue:[
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2858	change category:arg evaluate.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2859	].
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2860	kw = #'privateIn:' ifTrue:[
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2861	\| nm \|
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2862
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2863	nm := arg name.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2864	nameSpace notNil ifTrue:[
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2865	(nm startsWith: nameSpace name) ifTrue:[
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2866	nm := nm copyFrom: nameSpace name size + 3.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2867	].
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2868	].
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2869	change className:(nm ,'::',change classNameWithoutNamespace).
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2870	change owningClassName:nm.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2871	change private:true.
e997ac64abab class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	2872	].
1428 807f0bc05504 more state in classdefinition change Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2873	].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2874
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2875	change package:(Class packageQuerySignal query).
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2876	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2877	"/ change nameSpaceName:(nameSpace name).
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2878	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2879	"/
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2880	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2881	^ true
2290 882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2882
882d87800dea private class handling Claus Gittinger <cg@exept.de> parents: 2279 diff changeset	2883	"Modified: / 30-08-2010 / 13:56:32 / cg"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2884	"Modified: / 11-06-2013 / 22:30:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2885	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2886
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2887	handleClassInitializeChange
3526 e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2888	\| change nm \|
e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2889
e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2890	nm := self receiversClassNameRememberingNamespace.
e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2891
e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2892	change := ClassInitializeChange new source: chunk.
e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2893	change className: nm.
3197 e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	2894	self addChange: change.
3526 e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2895
3197 e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	2896	^ true
3526 e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2897
e64bd3cbd704 For class initialization chunk, create ClassInitializeChange instead of plain DoItChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3521 diff changeset	2898	"Modified: / 21-03-2014 / 18:19:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3197 e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	2899	!
e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	2900
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2901	handleClassInstanceVariableDefinitionChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2902	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2903
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2904	className := self receiversClassNameRememberingNamespace.
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2905
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2906	change := ClassInstVarDefinitionChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2907	change className:className.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2908	change source:(parseTree printString).
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	2909	change classInstVarNames:(parseTree arguments first value asCollectionOfWords asArray).
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2910	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2911	^ true
2617 a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	2912
a9e632776c57 visitor support (for monticello); Claus Gittinger <cg@exept.de> parents: 2524 diff changeset	2913	"Modified: / 25-11-2011 / 17:40:49 / cg"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2914	"Modified: / 11-06-2013 / 16:11:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2915	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2916
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2917	handleMethodCategoryChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2918	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2919
2867 6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	2920	self extractMethodsClassAndSelectorFromReceiver ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2921	^ false.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2922	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2923
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2924	change := MethodCategoryChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2925	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2926	className:className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2927	selector:methodSelector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2928	category:(arguments at:1) evaluate.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2929
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2930	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2931	^ true
2867 6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	2932
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	2933	"Modified: / 27-07-2012 / 21:34:42 / cg"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2934	"Modified: / 11-06-2013 / 16:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2935	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2936
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2937	handleMethodCategoryRenameChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2938	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2939
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2940	className := self receiversClassNameRememberingNamespace.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2941
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2942	change := MethodCategoryRenameChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2943	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2944	className:className;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2945	oldCategoryName:(arguments at:1) evaluate
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2946	newCategoryName:(arguments at:2) evaluate.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2947
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	2948	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2949	^ true
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2950
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	2951	"Modified: / 11-06-2013 / 16:11:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2952	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2953
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2954	handleMethodChange
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2955	[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2956	^ self handleMethodChangeUnsafe
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2957	] on: Error do:[:ex\|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2958	\| change \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2959
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2960	change := InvalidChange new source: chunk.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2961	self addChange: change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2962
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2963	"Read methods that may follow"
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2964
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2965	[ (chunk := inputStream nextChunk) notEmptyOrNil ] whileTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2966	change := InvalidChange new source: chunk.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2967	self addChange: change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2968	]
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2969	].
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2970
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2971	^ true
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2972
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2973	"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	2974	!
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2975
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	2976	handleMethodChangeUnsafe
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2977	\|priv categoryName methodSource change parser \|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2978
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2979	className := self receiversClassNameRememberingNamespace.
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	2980
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2981	(selector == #'ignoredMethodsFor:') ifTrue:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2982	priv := #ignored.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2983	] ifFalse:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2984	priv := nil
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2985	].
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	2986	classIsJava := false.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	2987	((selector == #'methods')
1977 3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2988	or:[(selector == #'publicMethods')
3694111ead95 publicMethods & privateMethods detection fm parents: 1969 diff changeset	2989	or:[(selector == #'methodsFor')]]) ifTrue:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2990	categoryName := 'uncategorized public'
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2991	] ifFalse:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2992	(selector == #'privateMethods') ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2993	categoryName := 'uncategorized private'
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2994	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2995	categoryName := (arguments at:1) evaluate.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	2996	]
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2997	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2998	inputStream skipSeparators.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	2999	lineNumber := inputStream lineNumber.
3521 6e43c118d860 Fixes for reading changesets from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3520 diff changeset	3000	"/ Care for non-positionable streams
6e43c118d860 Fixes for reading changesets from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3520 diff changeset	3001	position := nil.
6e43c118d860 Fixes for reading changesets from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3520 diff changeset	3002	inputStream isPositionable ifTrue:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3003	position := inputStream position + 1.
3521 6e43c118d860 Fixes for reading changesets from non-positionable streams Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3520 diff changeset	3004	].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3005
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3006	methodSource := chunk := inputStream nextChunk.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3007
1395 6ea99b157f6b Use #setFilename:forClass:package: to define an abbreviation Stefan Vogel <sv@exept.de> parents: 1389 diff changeset	3008	[methodSource notEmptyOrNil] whileTrue:[
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3009	parser := Parser
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3010	parseMethodArgAndVarSpecification:methodSource
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3011	in:nil
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3012	ignoreErrors:true
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3013	ignoreWarnings:true
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3014	parseBody:false.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3015
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3016	parser isNil ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3017	"/ something wierd ...
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3018	methodSelector := '????'.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3019	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3020	methodSelector := parser selector.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3021	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3022
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3023	change := MethodDefinitionChange new.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3024	change
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3025	className:className
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3026	selector:methodSelector
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3027	source:methodSource
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3028	category:categoryName
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3029	privacy:priv.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3030	classIsJava ifTrue:[ change classIsJava: classIsJava ].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3031
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3032	self addChange:change.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3033
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3034	inputStream skipSeparators.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3035	lineNumber := inputStream lineNumber.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3036	"/ Care for non-positionable streams
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3037	position := nil.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3038	inputStream isPositionable ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3039	position := inputStream position + 1.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3040	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3041	methodSource := chunk := inputStream nextChunk.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3042	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3043	^ true
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3044
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3045	"Created: / 24-01-2012 / 16:52:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3046	"Modified: / 27-02-2018 / 09:23:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3047	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3048
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3049	handleMethodPackageChange
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3050	\|change\|
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3051
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3052	self extractMethodsClassAndSelectorFromReceiver ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3053	^ false.
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3054	].
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3055
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3056	change := MethodPackageChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3057	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3058	className:className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3059	selector:methodSelector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3060	package:(arguments at:1) evaluate.
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3061
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3062	self addChange:change.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3063	^ true
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3064
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3065	"Created: / 27-07-2012 / 21:31:25 / cg"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	3066	"Modified: / 11-06-2013 / 16:11:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3067	!
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3068
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3069	handleMethodPrivacyChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3070	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3071
2867 6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3072	self extractMethodsClassAndSelectorFromReceiver ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3073	^ false.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3074	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3075
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3076	change := MethodPrivacyChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3077	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3078	className:className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3079	selector:methodSelector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3080	privacy:(arguments at:1) evaluate.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3081
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3082	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3083	^ true
2867 6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3084
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3085	"Modified: / 27-07-2012 / 21:35:20 / cg"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	3086	"Modified: / 11-06-2013 / 16:11:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3087	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3088
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3089	handleNameSpaceCreationChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3090	\|change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3091
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3092	(self checkReceiverIsGlobalNamed:#Namespace) ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3093	(self checkReceiverIsGlobalNamed:#NameSpace) ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3094	self error:'unexpected receiver in nameSpace message' mayProceed:true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3095	^ false
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3096	].
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3097	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3098
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3099	className := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3100
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3101	change := NameSpaceCreationChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3102	change name:className.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3103	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3104	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3105	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3106
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3107	handlePrimitiveChange
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3108	self handlePrimitiveChange:nil
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3109	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3110
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3111	handlePrimitiveChange: sourceOrNil
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3112	"if sourceOrNil is nil, the def has not been read and must be read from
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3113	the next chunk. Otherwise, it has been already read as argument."
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3114
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3115	\|change primSource\|
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3116
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3117	className := self receiversClassNameRememberingNamespace.
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3118
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3119	sourceOrNil notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3120	primSource := sourceOrNil
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3121	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3122	inputStream skipSeparators.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3123	primSource := inputStream nextChunk.
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3124	].
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3125
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3126	(selector == #'primitiveDefinitions' or:[ selector == #'primitiveDefinitions:' ]) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3127	change := ClassPrimitiveDefinitionsChange new
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3128	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3129	(selector == #'primitiveFunctions' or:[ selector == #'primitiveFunctions:' ]) ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3130	change := ClassPrimitiveFunctionsChange new
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3131	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3132	change := ClassPrimitiveVariablesChange new
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3133	]
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3134	].
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3135	change className:className source:primSource.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3136	self addChange:change.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3137	^ true
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3138
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3139	"Created: / 27-07-2012 / 21:39:55 / cg"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	3140	"Modified (format): / 11-06-2013 / 16:12:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3141	!
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3142
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3143	handleRemoveClassChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3144	\|change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3145
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3146	(self checkReceiverIsGlobalNamed:#Smalltalk) ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3147	self error:'unexpected receiver in remove-class message' mayProceed:true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3148	^ false
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3149	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3150
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3151	className := (arguments at:1) name.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3152	"/ nameSpace ~~ Smalltalk ifTrue:[
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3153	"/ className := nameSpace name , '::' , className
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3154	"/ ].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3155
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3156	change := ClassRemoveChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3157	change className:className.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3158	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3159	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3160	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3161
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3162	handleRemoveMethodChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3163	\|change\|
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3164
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3165	className := self receiversClassName.
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3166
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3167	methodSelector := (arguments at:1) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3168	change := MethodRemoveChange new.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3169	change className:className selector:methodSelector.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3170	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3171	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3172	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3173
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3174	handleRenameClassChange
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3175	\|oldName newName change\|
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3176
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3177	(self checkReceiverIsGlobalNamed:#Smalltalk) ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3178	self error:'unexpected receiver in rename-class message' mayProceed:true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3179	^ false.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3180	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3181
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3182	oldName := (arguments at:1) name.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3183	newName := (arguments at:2) evaluate.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3184
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3185	change := ClassRenameChange new oldName:oldName newName:newName.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	3186	self addChange:change.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3187	^ true
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3188	!
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3189
1181 e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3190	handleSqueakCommentStamp
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3191	\|comment change\|
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3192
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3193	inputStream skipSeparators.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3194
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3195	comment := inputStream nextChunk.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3196
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3197	className := self receiversClassNameRememberingNamespace.
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3198
1181 e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3199	change := ClassCommentChange new.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3200	change className:className comment:comment.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3201	change source:(parseTree printString).
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3202	self addChange:change.
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3203	^ true
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3204	!
e13c86138164 more to read squeak change sets Claus Gittinger <cg@exept.de> parents: 1176 diff changeset	3205
1183 419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3206	handleVW7ClassDefinitionChange
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3207	\|nameSpace change\|
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3208
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3209	nameSpace := receiver.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3210	className := (arguments at:1) evaluate.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3211
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3212	"/ nameSpace := Class nameSpaceQuerySignal query.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3213	"/ nameSpace ~~ Smalltalk ifTrue:[
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3214	"/ className := nameSpace name , '::' , className
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3215	"/ ].
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3216
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3217	change := ClassDefinitionChange new.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3218	change className:className; source:(parseTree printString).
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3219
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3220	change package:(Class packageQuerySignal query).
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3221	self addChange:change.
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3222	^ true
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3223	!
419dc41ad796 * empty log message * Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3224
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3225	processChange
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3226	"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	3227	create changes and evaluate changeAction on each.
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3228	The block is invoked with the change and a lineNumberOrNil as
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3229	arg; 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	3230	provides line-numbers; otherwise, nil is passed."
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3231
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3232	[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3233	^ self processChangeUnsafe
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3234	] on: Error do:[:ex\|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3235	\| change \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3236
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3237	change := DoItChange new source: chunk.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3238	self addChange: change.
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3239	].
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3240
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3241	^true
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3242
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3243	"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	3244	!
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3245
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3246	processChangeUnsafe
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3247	"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	3248	create changes and evaluate changeAction on each.
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3249	The block is invoked with the change and a lineNumberOrNil as
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3250	arg; the lineNumber is only valid, if the underlying stream
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3251	provides line-numbers; otherwise, nil is passed."
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3252
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3253	\|dispatchSelector\|
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3254
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3255	dispatchSelector := ('process_',(selector copyReplaceAll:$: with:$_)) asSymbol.
2122 3ffe8c94f2cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2117 diff changeset	3256	"/ Transcript showCR:dispatchSelector.
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	3257	(self respondsTo:dispatchSelector) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3258	^ self perform:dispatchSelector.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3259	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3260
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3261	"/ any subclass definiton selector ?
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3262	(Behavior definitionSelectors includes:selector)
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3263	ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3264	^ self handleClassDefinitionChange.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3265	].
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3266
3195 5ce601cd8a45 class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	3267	self error:'unhandled change selector: ',selector.
1174 f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	3268	^ false
2745 c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3269
c2f7200248e7 More robust changeset reading - creates InvalidChange when an error vrany parents: 2633 diff changeset	3270	"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	3271	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3272
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3273	processInfo: string
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3274	"Processes 'info record' - an info record consist of a chunk containing
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3275	single string literal starting with ----, such as:
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3276
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3277	'---- timestamp jv@neso 12-03-2012 10:49:40 ----'
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3278	'---- snapshot st.img 30-03-2012 11:40:24 ----'
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3279	'---- 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	3280	'---- rake update 30-03-2012 11:40:24 ----'
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3281	'---- start 30-03-2012 11:40:24 ----'
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3282
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3283	timestamp info records are (for historical reasons) processed in ChangeSet
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	\| kind sel \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3287	inputStream skip: 5.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3288	kind := inputStream upTo: Character space.
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3289	(kind endsWith:$:) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3290	kind := kind copyButLast:1
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3291	].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3292	sel := ('process_', kind) asSymbolIfInterned.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3293	sel notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3294	MessageNotUnderstood handle:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3295	self process_otherInfo:kind
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3296	] do:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3297	self perform: sel.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3298	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3299	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3300	self process_otherInfo:kind
2881 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: / 30-03-2012 / 16:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3304	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3305
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3306	process_category_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3307	"'category:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3308
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3309	^ self handleMethodCategoryChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3310	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3311
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3312	process_comment_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3313	"'comment:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3314
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3315	^ self handleClassCommentChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3316	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3317
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3318	process_encoding
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3319	"St/X encoding info record. Ignored"
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3320	!
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3321
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3322	process_ignoredMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3323	"'ignoredMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3324
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3325	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3326	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3327
3197 e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	3328	process_initialize
e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	3329	"'class initialize' chunk"
e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	3330
e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	3331	^ self handleClassInitializeChange
e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	3332	!
e7da5ac31b96 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3195 diff changeset	3333
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3334	process_instanceVariableNames_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3335	"'instanceVariableNames:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3336
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3337	^ self handleClassInstanceVariableDefinitionChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3338	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3339
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3340	process_name_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3341	"'name:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3342
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3343	^ self handleNameSpaceCreationChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3344	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3345
3184 ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3346	process_otherInfo:what
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3347	"'---- <what> 12-03-2012 10:49:40 ----'
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3348
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3349	'<what>' is already read from inputStream.
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3350	"
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3351
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3352	"/ inputStream skipSeparators.
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3353	self addChange: (InfoChange type: what data: (inputStream upToEnd) timestamp: nil)
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3354
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3355	"Created: / 18-05-2012 / 17:03:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3356	!
ca653a71c27f class: ChangeFileReader Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	3357
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3358	process_package_
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3359	"'package:' chunk (ST/X)"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3360
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3361	^ self handleMethodPackageChange.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3362
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3363	"Created: / 27-07-2012 / 21:36:30 / cg"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3364	!
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3365
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3366	process_primitiveDefinitions
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3367	"'primitiveDefinitions' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3368
2867 6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3369	^ self handlePrimitiveChange:nil.
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3370
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3371	"Modified: / 27-07-2012 / 21:40:33 / cg"
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3372	!
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3373
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3374	process_primitiveDefinitions_
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3375	"'primitiveDefinitions:' chunk (ST/X)"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3376
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3377	^ self handlePrimitiveChange: (arguments at:1) evaluate.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3378
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3379	"Created: / 27-07-2012 / 21:42:03 / cg"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3380	!
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3381
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3382	process_primitiveFunctions
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3383	"'primitiveFunctions' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3384
2867 6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3385	^ self handlePrimitiveChange:nil.
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3386
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3387	"Modified: / 27-07-2012 / 21:40:23 / cg"
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3388	!
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3389
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3390	process_primitiveFunctions_
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3391	"'primitiveFunctions:' chunk (ST/X)"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3392
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3393	^ self handlePrimitiveChange: (arguments at:1) evaluate.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3394
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3395	"Created: / 27-07-2012 / 21:37:21 / cg"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3396	!
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3397
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3398	process_primitiveVariables
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3399	"'primitiveVariables' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3400
2867 6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3401	^ self handlePrimitiveChange:nil.
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3402
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3403	"Modified: / 27-07-2012 / 21:40:35 / cg"
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3404	!
6d868612727b fix reading primitiveDefinitions and package changes Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	3405
2892 0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3406	process_primitiveVariables_
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3407	"'primitiveVariables:' chunk (ST/X)"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3408
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3409	^ self handlePrimitiveChange: (arguments at:1) evaluate.
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3410
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3411	"Created: / 27-07-2012 / 21:41:49 / cg"
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3412	!
0a8a369149e9 Added lost methods vrany parents: 2881 diff changeset	3413
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3414	process_privacy_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3415	"'privacy:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3416
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3417	^ self handleMethodPrivacyChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3418	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3419
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3420	process_privateMethods
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3421	"'privateMethods' chunk (ST/V and dolphin)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3422
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3423	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3424	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3425
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3426	process_privateMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3427	"'privateMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3428
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3429	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3430	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3431
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3432	process_protectedMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3433	"'protectedMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3434
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3435	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3436	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3437
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3438	process_publicMethodsFor_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3439	"'publicMethodsFor:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3440
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3441	^ self handleMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3442	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3443
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3444	process_rake
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3445	"Rake build system info record
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3446
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3447	'---- rake update st.img 12-03-2012 10:49:40 ----'!!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3448	'---- rake compile st.img 12-03-2012 10:49:40 ----'!!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3449
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3450	'rake' is already read from inputStream.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3451	"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3452
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3453	\| ts what \|
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3454
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3455	inputStream skipSeparators.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3456	what := inputStream through: Character space. "/read snapshot name
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3457	inputStream through: Character space. "/skip username@host
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3458	ts := Timestamp readFrom: inputStream.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3459	self addChange: (InfoChange type: #rake data: what timestamp: ts)
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3460
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3461	"Created: / 01-08-2012 / 19:33:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3462	!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3463
2117 4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3464	process_removeClass_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3465	"'removeClass:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3466
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3467	^ self handleRemoveClassChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3468	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3469
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3470	process_removeSelector_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3471	"'removeSelector:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3472
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3473	^ self handleRemoveMethodChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3474	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3475
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3476	process_renameCategory_to_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3477	"'renameCategory:to:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3478
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3479	^ self handleMethodCategoryRenameChange.
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3480	!
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3481
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3482	process_renameClass_to_
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3483	"'renameClass:to:' chunk (ST/X)"
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3484
4ff77bbf9f89 refactored for more flexible changeChunk handling Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	3485	^ self handleRenameClassChange.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3486	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3487
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3488	process_snapshot
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3489	"St/X system start info record
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3490
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3491	'---- snapshot st.img 12-03-2012 10:49:40 ----'!!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3492
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3493	'start' is already read from inputStream.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3494	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3495
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3496	\| ts file \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3497
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3498	inputStream skipSeparators.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3499	file := inputStream through: Character space. "/read snapshot name
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3500	ts := Timestamp readFrom: inputStream.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3501	self addChange: (InfoChange type: #snapshot data: file timestamp: ts)
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3502
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3503	"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	3504	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3505
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3506	process_start
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3507	"St/X system start info record
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3508
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3509	'---- start 12-03-2012 10:49:40 ----'!!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3510
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3511	'start' is already read from inputStream.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3512	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3513
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3514	\| ts \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3515
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3516	inputStream skipSeparators.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3517	ts := Timestamp readFrom: inputStream.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3518	self addChange: (InfoChange type: #start data: nil timestamp: ts)
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3519
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3520	"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	3521	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3522
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3523	process_timestamp
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3524	"St/X timestamp info record. Example:
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3525
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3526	'---- timestamp jv@neso 12-03-2012 10:49:40 ----'!!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3527
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3528	'timestamp' is already read from inputStream.
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	inputStream skipSeparators; through: Character space. "/read username@host
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3532	timestamp := Timestamp readFrom: inputStream.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3533
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3534	"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	3535	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3536
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3537	!ChangeSet::ChangeFileReader methodsFor:'reading-private-dolphin'!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3538
3957 420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3539	process_categoriesForClass
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3540	"'categoriesForClass' chunk (Dolphin)"
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3541
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3542	^ self handleCategoriesForClassChange.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3543	!
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3544
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3545	process_categoriesFor_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3546	"'categoriesFor:' chunk (Dolphin)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3547
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3548	^ self handleCategoriesForChange.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3549	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3550
3957 420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3551	process_methods
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3552	"'methods' chunk (ST/V and dolphin)"
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3553
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3554	^ self handleMethodChange.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3555	!
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3556
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3557	process_methodsFor
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3558	"'methodsFor' chunk (ST/V and dolphin)"
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3559
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3560	^ self handleMethodChange.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3561	!
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3562
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3563	process_methodsForUndefined_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3564	"'methodsForUndefined:' chunk (?)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3565
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3566	^ self handleMethodChange.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3567	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3568
3957 420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3569	process_methodsFor_
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3570	"'methodsFor:' chunk (ST/80, Squeak, ST/X, VW, ...)"
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3571
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3572	^ self handleMethodChange.
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3573	!
420da9168e36 #FEATURE Claus Gittinger <cg@exept.de> parents: 3946 diff changeset	3574
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3575	process_publicMethods
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3576	"'publicMethods' chunk (ST/V and dolphin)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3577
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3578	^ self handleMethodChange.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3579	! !
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3580
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3581	!ChangeSet::ChangeFileReader methodsFor:'reading-private-gravel'!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3582
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3583	process_addClassMethod_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3584	"'reader addClassMethod:' chunk (gravel Smalltalk)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3585
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3586	^ self process_addMethodOrClassMethod:true
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3587	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3588
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3589	process_addMethodOrClassMethod:isClassMethod
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3590	"'reader addMethod:' chunk (gravel Smalltalk)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3591
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3592	\|categoryName methodSource change parser\|
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3593
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3594	categoryName := (arguments at:1) evaluate.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3595
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3596	lineNumber := inputStream lineNumber.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3597	"/ Care for non-positionable streams
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3598	position := nil.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3599	inputStream isPositionable ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3600	position := inputStream position + 1.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3601	].
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3602	methodSource := inputStream nextChunk.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3603
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3604	parser := Parser
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3605	parseMethodArgAndVarSpecification:methodSource
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3606	in:nil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3607	ignoreErrors:true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3608	ignoreWarnings:true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3609	parseBody:false.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3610
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3611	parser isNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3612	"/ something wierd ...
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3613	methodSelector := '????'.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3614	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3615	methodSelector := parser selector.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3616	].
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3617
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3618	isClassMethod ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3619	className := className , ' class'
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3620	].
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3621
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3622	change := MethodDefinitionChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3623	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3624	className:className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3625	selector:methodSelector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3626	source:methodSource
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3627	category:categoryName
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3628	privacy:nil.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3629
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3630	self addChange:change.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3631
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3632	"/ self halt.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3633	^ true
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3634	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3635
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3636	process_addMethod_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3637	"'reader addMethod:' chunk (gravel Smalltalk)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3638
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3639	^ self process_addMethodOrClassMethod:false
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3640	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3641
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3642	process_addSimpleClassTrait_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3643	"'reader defineaddSimpleTraitTrait:' chunk (gravel Smalltalk)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3644
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3645	\|change traitName\|
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3646
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3647	traitName := (arguments at:1) evaluate.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3648
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3649	change := TraitDefinitionChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3650	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3651	className:className,' class';
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3652	baseTrait:traitName;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3653	source:chunk.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3654	"/ self halt.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3655	self addChange:change.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3656	^ true
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3657	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3658
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3659	process_addSimpleTrait_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3660	"'reader defineaddSimpleTraitTrait:' chunk (gravel Smalltalk)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3661
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3662	\|change traitName gravelSuperclassName superclassName\|
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3663
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3664	traitName := (arguments at:1) evaluate.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3665	gravelSuperclassName := (arguments at:2) evaluate.
3833 f40fb26d03f7 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3832 diff changeset	3666	superclassName := SourceFileLoader::SourceFileReader classNameMappingFor:gravelSuperclassName.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3667
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3668	change := TraitDefinitionChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3669	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3670	className:className;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3671	superClassName:superclassName;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3672	baseTrait:traitName;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3673	source:chunk.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3674	"/ self halt.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3675	self addChange:change.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3676	^ true
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3677	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3678
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3679	process_defineClass_superclass_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3680	"'reader defineClass:superclass:' chunk (gravel Smalltalk)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3681
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3682	\|nameSpace change gravelSuperclassName superclassName\|
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3683
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3684	className := (arguments at:1) evaluate.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3685	gravelSuperclassName := (arguments at:2) evaluate.
3833 f40fb26d03f7 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3832 diff changeset	3686	superclassName := SourceFileLoader::SourceFileReader classNameMappingFor:gravelSuperclassName.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3687
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3688	nameSpace := Class nameSpaceQuerySignal query.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3689	(nameSpace == Smalltalk) ifTrue:[ nameSpace := nil ].
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3690
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3691	change := ClassDefinitionChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3692	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3693	className:className;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3694	superClassName:superclassName;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3695	source:chunk.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3696	"/ self halt.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3697	self addChange:change.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3698	^ true
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3699	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3700
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3701	process_defineTrait_superclass_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3702	"'reader defineTrait:' chunk (gravel Smalltalk)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3703
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3704	\|nameSpace change\|
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3705
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3706	className := (arguments at:1) evaluate.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3707
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3708	nameSpace := Class nameSpaceQuerySignal query.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3709	(nameSpace == Smalltalk) ifTrue:[ nameSpace := nil ].
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3710
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3711	change := TraitDefinitionChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3712	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3713	className:className;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3714	source:chunk.
3832 d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3715	"/ self halt.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3716	self addChange:change.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3717	^ true
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3718	! !
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3719
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3720	!ChangeSet::ChangeFileReader methodsFor:'reading-private-squeak'!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3721
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3722	process_commentStamp_prior_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3723	"'commentStamp:prior::' chunk (Squeak)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3724
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3725	^ self handleSqueakCommentStamp.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3726	!
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3727
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3728	process_methodsFor_stamp_
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3729	"'methodsFor:stamp:' chunk (Squeak)"
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3730
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3731	^ self handleMethodChange.
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3732	! !
d8158c7c612f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3825 diff changeset	3733
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3734	!ChangeSet::ChangeFileWriter methodsFor:'source writing'!
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3735
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3736	fileOut: aChangeSet on: aStream
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3737	\| hasWideChars stream lastNameSpace \|
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3738
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3739	hasWideChars := aChangeSet contains:[:each \| each source isWideString ].
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3740	hasWideChars ifTrue:[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3741	stream := EncodedStream stream: aStream encoder: CharacterEncoder encoderForUTF8.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3742	stream nextPutAll: '"{ Encoding: utf8 }"'; cr; cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3743	stream nextPutAll: '!!'; cr; cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3744	] ifFalse:[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3745	stream := aStream
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3746	].
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3747
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3748	lastNameSpace := nil.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3749
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3750	aChangeSet do:[:eachChange \|
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3751	eachChange isClassChange ifTrue:[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3752	\| changeNameSpace \|
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3753
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3754	changeNameSpace := eachChange nameSpaceName.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3755	changeNameSpace ~= lastNameSpace ifTrue:[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3756	aStream nextPutAll: ('"{ NameSpace: %1 }"' bindWith: changeNameSpace).
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3757	aStream cr; cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3758	stream nextPutLine:'!!'.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3759	lastNameSpace := changeNameSpace.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3760	].
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3761	eachChange isMethodCodeChange ifTrue:[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3762	stream nextPutAll:'!!'; nextPutAll:(eachChange className); nextPutAll:' methodsFor: '.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3763	stream nextPutAll:(eachChange methodCategory storeString).
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3764	stream nextPutLine:'!!'.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3765	stream cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3766	stream nextPutAllAsChunk:(eachChange source).
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3767	stream nextPutLine:'!! !!'.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3768	] ifFalse:[
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3769	stream nextPutAll:(eachChange source).
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3770	stream nextPutLine:'!!'.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3771	].
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3772	].
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3773	aStream cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3774	].
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3775
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3776	"Created: / 04-02-2014 / 18:51:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3777	"Modified: / 06-03-2014 / 12:48:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3778	! !
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3779
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3780	!ChangeSet::BeeChangeFileReader methodsFor:'helpers'!
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3781
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3782	currentMethodProtocol
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3783	"Returns a protocol of currently processed `MethodDefinition` change"
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3784
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3785	\| categoryIndex category\|
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3786
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3787	self assert: parseTree receiver name = 'MethodDefinition'.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3788	categoryIndex := parseTree selector keywords indexOf: 'category:'.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3789	category := parseTree arguments at: categoryIndex.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3790	^ category value.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3791
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3792	"Created: / 27-02-2018 / 09:36:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3793	!
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3794
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3795	receiversClassNameRememberingNamespace
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3796	^ (parseTree arguments at: 3) value.
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3797
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3798	"Created: / 21-08-2014 / 18:53:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3799	! !
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3800
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3801	!ChangeSet::BeeChangeFileReader methodsFor:'reading-private'!
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3802
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3803	handleClassDefinition
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3804	\| source \|
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3805
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3806	source := inputStream nextChunk.
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3807	self addChange:
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3808	(ClassDefinitionChange new
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3809	package: (properties at: 'project:' ifAbsent: nil);
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3810	className: (properties at: 'className:' ifAbsent: nil);
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3811	source: source;
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3812	yourself).
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3813	^ true
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3814
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3815	"Created: / 30-01-2019 / 10:29:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3816	"Modified: / 30-01-2019 / 14:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3817	!
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3818
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3819	handleMethodChangeUnsafe
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3820	\| retval changeSetSize protocol \|
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3821
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3822	changeSetSize := changeSet size.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3823	retval := super handleMethodChangeUnsafe.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3824	protocol := self currentMethodProtocol.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3825	changeSetSize + 1 to: changeSet size do:[:i \|
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3826	(changeSet at: i) category: protocol.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3827	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3828	^ retval.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3829
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3830	"Created: / 27-02-2018 / 09:27:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3831	!
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3832
4383 c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3833	handleMethodDefinition
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3834	\| source \|
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3835
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3836	source := inputStream nextChunk.
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3837	self addChange:
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3838	(MethodDefinitionChange new
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3839	package: (properties at: 'project:' ifAbsent: nil);
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3840	className: (properties at: 'className:' ifAbsent: nil);
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3841	selector: (properties at: 'selector:' ifAbsent: nil);
4383 c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3842	source: source;
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3843	category: (properties at: 'category:'ifAbsent: nil);
4383 c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3844	yourself).
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3845	^ true
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3846
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3847	"Created: / 06-11-2018 / 22:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3848	"Modified: / 30-01-2019 / 14:19:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4383 c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3849	!
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3850
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3851	processChangeUnsafe
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3852	"given a parse-tree (from parsing some changes source/chunk),
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3853	create changes and evaluate changeAction on each.
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3854	The block is invoked with the change and a lineNumberOrNil as
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	3855	arg; the lineNumber is only valid, if the underlying stream
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3856	provides line-numbers; otherwise, nil is passed."
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3857
4383 c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3858	\| dispatchSelector \|
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3859
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3860	parseTree receiver isVariable ifTrue:[
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3861	dispatchSelector := ('handle', parseTree receiver name) asSymbol"IfInterned".
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3862	(dispatchSelector notNil and:[self respondsTo:dispatchSelector]) ifTrue:[
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3863	"/ Initialize properties dictionary...
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3864	properties := Dictionary new.
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3865	selector keywords withIndexDo:[ :property :index \|
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3866	\| value \|
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3867
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3868	properties at: property put: (value := (parseTree arguments at: index) value).
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3869	(property = 'timestamp:') ifTrue:[
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3870	timestamp := Timestamp fromString: value
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3871	].
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3872	].
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3873	^ self perform:dispatchSelector.
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3874	] ifFalse:[
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3875	"/ uncomment following for debugging
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3876	"/ self halt: 'Unknown change type: ', parseTree receiver name
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3877	self addChange:
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3878	(DoItChange new
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3879	source: inputStream nextChunk;
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3880	yourself).
c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3881	^ true
4383 c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3882	].
c6ff0a1dc213 Fix reading Bee changesets (.stp) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4330 diff changeset	3883	].
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3884	self error:'unhandled change'.
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3885	^ false
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3886
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3887	"Created: / 21-08-2014 / 18:37:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4394 c5c365c76256 Minor improvements in Bee changeset reader Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4383 diff changeset	3888	"Modified: / 30-01-2019 / 14:20:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3889	!
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3890
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3891	process_timeStamp_author_className_project_
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3892	"/ Nothing to do
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3893
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3894	"Created: / 26-02-2018 / 11:38:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3621 3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3895	! !
3979244930e1 Initial support for reading Bee Smalltalk .bsc chunk format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3619 diff changeset	3896
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3897	!ChangeSet::BeeChangeFileWriter methodsFor:'source writing'!
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3898
4304 2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3899	fileOut: aChangeSet on: aStream
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3900	\| hasWideChars stream \|
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3901
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3902	hasWideChars := aChangeSet contains:[:each \| each source isWideString ].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3903	hasWideChars ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3904	stream := EncodedStream stream: aStream encoder: CharacterEncoder encoderForUTF8.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3905	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3906	stream := aStream
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3907	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3908	aChangeSet do:[:chg \|
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3909	chg isMethodDefinitionChange ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3910	self fileOutMethodDefinition: chg on: stream
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3911	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3912	chg isClassDefinitionChange ifTrue:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3913	self fileOutClassDefinition: chg on: stream
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3914	] ifFalse:[
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3915	self notYetImplemented
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3916	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3917	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3918	stream cr.
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3919	].
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3920
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3921	"Created: / 05-03-2018 / 12:53:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3922	"Modified: / 05-03-2018 / 13:53:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3923	!
2feea54a7804 Fixes and improvements in Bee changesets reader and writer (.ch) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4260 diff changeset	3924
4260 022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3925	fileOutClassDefinition: aMethodClassChange on: aStream
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3926
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3927	aStream nextPutAll: '!!ClassDefinition timeStamp:'; nextPutAll: timestamp storeString; nextPutAll: ' author: ''Unknown'''; nextPutAll:' className: '; nextPutAll: aMethodClassChange className asString storeString; nextPutAll: '!!';cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3928	aStream nextPutAll: aMethodClassChange superClassName; cr;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3929	tab; nextPutAll: 'subclass: #'; nextPutAll: aMethodClassChange className; cr;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3930	tab; nextPutAll: 'instanceVariableNames: '; nextPutAll: aMethodClassChange instanceVariableString storeString ; cr;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3931	tab; nextPutAll: 'classVariableNames: '; nextPutAll: aMethodClassChange classVariableString storeString ; cr;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3932	tab; nextPutAll: 'poolDictionaries: '; nextPutAll: aMethodClassChange poolDictionaries ? '' storeString ; cr;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3933	nextPut: $!!; cr;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3934	cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3935
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3936	"Created: / 24-10-2017 / 11:52:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3937	!
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3938
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3939	fileOutMethodDefinition: aMethodDefinitionChange on: aStream
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3940	aStream nextPutAll: '!!MethodDefinition timeStamp:'; nextPutAll: timestamp storeString;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3941	nextPutAll: ' author: '; nextPutAll: 'Unknown' storeString;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3942	nextPutAll: ' className: '; nextPutAll: aMethodDefinitionChange className storeString;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3943	nextPutAll: ' selector: '; nextPutAll: aMethodDefinitionChange selector storeString;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3944	nextPutAll: ' category: '; nextPutAll: aMethodDefinitionChange category storeString;
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3945	nextPutAll: '!!'.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3946	aStream cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3947	aStream nextChunkPut: aMethodDefinitionChange source.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3948	aStream cr.
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3949
022b210d86b5 Added basic support to file out changeset in Bee Smalltalk format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4186 diff changeset	3950	"Created: / 24-10-2017 / 11:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	3951	! !
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	3952
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3953	!ChangeSet::ClassSourceWriter methodsFor:'private'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3954
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3955	analyze
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3956	"Analyzes changeset and build some index"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3957
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3958	classInfos := Dictionary new.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3959	metaInfos := Dictionary new.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3960	topClassName := nil.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3961	"Pass 1 - collect classes"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3962	changeSetBeingSaved do:[:change\|
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3963	\| pkg \|
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3964	pkg := change package.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3965	packageName isNil ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3966	packageName := pkg.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3967	] ifFalse:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3968	"/Just a defensive check...
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3969	self assert: (pkg isNil or:[pkg = packageName]) message: 'STC does not support multiple packages in source files'.
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3970	].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3971
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3972	change isClassDefinitionChange ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3973	\| nm ns \|
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3974
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3975	nm := change className.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3976	(nm endsWith:' class') ifFalse:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3977	(classInfos includesKey: nm) ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3978	self error:'Multiple definitions of class ', nm.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3979	^self.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3980	].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3981	classInfos at: nm put: (ClassInfo new name: nm).
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3982	metaInfos at: nm put: (ClassInfo new name: nm , ' class').
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3983	change isPrivateClassDefinitionChange ifFalse:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3984	topClassName notNil ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3985	self error: ('Multiple top class definitions (%1 vs %2)' bindWith: topClassName with: nm).
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3986	^self.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3987	].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3988	topClassName := nm.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3989	namespaceName := change nameSpaceName.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3990
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3991	]
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3992	]
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3993	]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3994	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	3995
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3996	"/ Could be an extension container...
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3997	topClassName isNil ifTrue:[
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	3998	^self
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	3999	].
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4000
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4001	"Pass 2: fill in infos"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4002	changeSetBeingSaved do:[:change\|
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4003	change isClassChange ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4004	\| nm info \|
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4005
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4006	nm := change className.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4007	(nm endsWith: ' class') ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4008	info := metaInfos at: (nm copyButLast:(' class' size)).
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4009	] ifFalse:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4010	info := classInfos at: nm.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4011	"Fill superclass info..."
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4012	change isClassDefinitionChange ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4013	\| superNm \|
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4014	superNm := change superClassName.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4015	superNm notNil ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4016	(classInfos includesKey: superNm) ifTrue:[
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4017	info superclass: (classInfos at: superNm).
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4018	(metaInfos at: nm) superclass: (classInfos at: superNm).
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4019	].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4020	].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4021	].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4022	].
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4023	info addChange: change.
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4024	]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4025	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4026
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4027	classInfos do:[:info\|info namespace: namespaceName].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4028	metaInfos do:[:info\|info namespace: namespaceName].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4029
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4030
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4031	"
3856 f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4032	ChangeSet::ClassSourceWriter new
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4033	changeSetBeingSaved: (ChangeSet forExistingClass: ChangeSet);
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4034	analyze;
f75fb195e35a class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3844 diff changeset	4035	yourself
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4036
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4037	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4038
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4039	"Created: / 15-03-2012 / 17:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4040	"Modified: / 11-06-2013 / 17:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4041	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4042
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4043	changeSetBeingSaved:something
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4044	changeSetBeingSaved := something.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4045	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4046
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4047	privateClassesOf: classInfo
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4048
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4049	\| classInfoNameSz \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4050
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4051	classInfoNameSz := classInfo name size.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4052	^classInfos values select:[:info\|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4053	info name size > classInfoNameSz and:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4054	(info name startsWith: classInfo name)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4055	and:[(info name at:classInfoNameSz + 1) == $:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4056	and:[(info name at:classInfoNameSz + 2) == $:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4057	and:[(info name indexOf: $: startingAt: classInfo name size + 3) == 0]]]]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4058	]
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4059
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4060	"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	4061	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4062
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4063	privateClassesSortedOf: classInfo
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4064
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4065	\|classes\|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4066
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4067	classes := self privateClassesOf: classInfo.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4068	(classes size > 0) ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4069	classes := classes asOrderedCollection.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4070	classes sort:[:a :b \| a name < b name].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4071
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4072	classes topologicalSort:[:a :b \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4073	"/ a must come before b iff:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4074	"/ b is a subclass of a
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4075	"/ b has a private class which is a subclass of a
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4076
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4077	\|mustComeBefore privateClassesOfB\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4078	mustComeBefore := (b isSubclassOf:a) or:[b isPrivateClassOf: a].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4079	mustComeBefore
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4080	].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4081	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4082	^ classes.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4083
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4084	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4085	Object privateClassesSorted
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4086	NewSystemBrowser privateClassesSorted
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4087	NewSystemBrowser privateClasses
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4088	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4089
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4090	"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	4091	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4092
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4093	!ChangeSet::ClassSourceWriter methodsFor:'source writing'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4094
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4095	fileOut:aChangeSet on:outStreamArg
3842 6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4096	\|encoder any16Bit\|
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4097
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4098	any16Bit := aChangeSet contains:[:chg \| \|src\| src := chg source. src notNil and:[src isWideString and:[ src contains: [:c \| c codePoint > 16rFF ] ] ] ].
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4099	any16Bit ifTrue:[
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4100	encoder := CharacterEncoder encoderForUTF8.
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4101	].
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4102
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4103
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4104	^ self
3842 6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4105	fileOut: aChangeSet
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4106	on:outStreamArg
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4107	withTimeStamp:false
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4108	withInitialize:true
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4109	withDefinition:true
6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4110	methodFilter:nil encoder:encoder.
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4111
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4112	"Created: / 04-02-2014 / 18:36:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3842 6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4113	"Modified: / 13-04-2015 / 21:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4114	!
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4115
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4116	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	4117
3646 cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4118	\|collectionOfCategories versionMethods extensionVersionMethods comment
cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4119	nonMeta meta classesImplementingInitialize outStream
cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4120	allMetaClassSelectors versionSelectors extensionVersionSelectors
cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4121	allVersionMethods\|
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4122
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4123	self todo:'code duplication with SmalltalkChunkFileSourceFileWriter - please refactor'.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4124
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4125	changeSetBeingSaved := aChangeSet.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4126	self analyze.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4127
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4128	encoderOrNil isNil ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4129	outStream := outStreamArg.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4130	] ifFalse:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4131	outStream := EncodedStream stream:outStreamArg encoder:encoderOrNil.
3842 6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4132	outStream nextPutAll:'"{ Encoding: '; nextPutAll: encoderOrNil nameOfEncoding; nextPutAll: ' }"'; cr; cr.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4133	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4134
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4135	"/ Just a bunch of extensions?
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4136	topClassName isNil ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4137	self fileOutMethodsOn: outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4138	^self.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4139	].
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4140
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4141	nonMeta := classInfos at: topClassName.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4142	meta := metaInfos at: topClassName.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4143
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4144	methodsAlreadySaved := Set new.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4145
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4146
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4147
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4148	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4149	if there is a copyright method, add a copyright comment
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4150	at the beginning, taking the string from the copyright method.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4151	We cannot do this unconditionally - that would lead to my copyrights
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4152	being put on your code ;-).
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4153	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	4154	copyright string at the beginning be preserved .... even if the
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4155	code was edited in the browser and filedOut.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4156	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4157	self generateHeaderWithCopyrightOn:outStream.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4158
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4159	stampIt ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4160	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4161	"/ first, a timestamp
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4162	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4163	outStream nextPutAll:(Smalltalk timeStamp).
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4164	outStream nextPutChunkSeparator.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4165	outStream cr; cr.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4166	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4167
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4168	withDefinition ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4169	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4170	"/ then the definition(s)
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4171	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4172	self fileOutAllDefinitionsOf:nonMeta on:outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4173	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4174	"/ a comment - if any
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4175	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4176
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4177	(comment := nonMeta comment) notNil ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4178	nonMeta printClassNameOn: outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4179	outStream nextPutAll:' comment:'.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4180	comment comment storeOn: outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4181	outStream cr.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4182	outStream nextPut:$!!; cr; cr.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4183	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4184	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4185	"/ ST/X primitive definitions - if any
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4186	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4187	self fileOutPrimitiveSpecsOf: nonMeta on:outStream.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4188	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4189
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4190	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4191	"/ methods from all categories in metaclass (i.e. class methods)
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4192	"/ EXCEPT: the version method is placed at the very end, to
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4193	"/ avoid sourcePosition-shifts when checked out later.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4194	"/ (RCS expands this string, so its size is not constant)
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4195	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4196	collectionOfCategories := meta categories asSortedCollection.
3646 cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4197
cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4198	allMetaClassSelectors := meta methodDictionary keys.
cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4199	versionSelectors := allMetaClassSelectors select:[:selector \| AbstractSourceCodeManager isVersionMethodSelector:selector ].
cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4200	versionMethods := versionSelectors collect:[:eachSelector \| meta methodDictionary at:eachSelector].
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4201	extensionVersionSelectors := allMetaClassSelectors select:[:selector \| AbstractSourceCodeManager isExtensionsVersionMethodSelector:selector ].
3646 cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4202	extensionVersionMethods := extensionVersionSelectors collect:[:eachSelector \| meta methodDictionary at:eachSelector].
cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4203	allVersionMethods := Set new addAll:versionMethods; addAll:extensionVersionMethods; yourself.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4204
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4205	collectionOfCategories notNil ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4206	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4207	"/ documentation first (if any), but not the version method
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4208	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4209	(collectionOfCategories includes:'documentation') ifTrue:[
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4210
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4211	"/ versionMethods do:[:versionMethod \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4212	"/ \|source\|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4213	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4214	"/ source := versionMethod source.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4215	"/ (source isEmptyOrNil or:[(source startsWith:nonMeta nameOfOldVersionMethod) not]) ifTrue:[
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4216	"/ "something bad happend to the classes code"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4217	"/
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4218	"/ Class fileOutErrorSignal
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4219	"/ raiseRequestWith:aClass
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4220	"/ errorString:' - bad source for version method (uncompiled class file?): ', (versionMethod displayString)
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4221	"/ ].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4222	"/ ].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4223
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4224	self fileOutCategory:'documentation' of:meta except:allVersionMethods only:nil methodFilter:methodFilter on:outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4225	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4226
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4227	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4228	"/ initialization next (if any)
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4229	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4230	(collectionOfCategories includes:'initialization') ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4231	self fileOutCategory:'initialization' of:meta methodFilter:methodFilter on:outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4232	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4233
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4234	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4235	"/ instance creation next (if any)
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4236	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4237	(collectionOfCategories includes:'instance creation') ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4238	self fileOutCategory:'instance creation' of:meta methodFilter:methodFilter on:outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4239	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4240	collectionOfCategories do:[:aCategory \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4241	((aCategory ~= 'documentation')
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4242	and:[(aCategory ~= 'initialization')
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4243	and:[aCategory ~= 'instance creation']]) ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4244	self fileOutCategory:aCategory of:meta methodFilter:methodFilter on:outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4245	]
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4246	]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4247	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4248
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4249	"/ if there are any primitive definitions (vw-like ffi-primitives),
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4250	"/ file them out first in the order: defines, types.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4251	"/ 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	4252	"/ for the primitive calls.
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4253
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4254	"/ TODO: that does not work - MethodDefinition does not implement #isVisualWorksTypedef
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4255	"/ nonMeta methodDictionary keysAndValuesDo:[:sel :m \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4256	"/ m isVisualWorksTypedef ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4257	"/ self fileOutCategory:m category of:nonMeta except:nil only:(Array with:m) methodFilter:methodFilter on:outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4258	"/ ].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4259	"/ ].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4260	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4261	"/ methods from all categories
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4262	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4263	collectionOfCategories := nonMeta categories asSortedCollection.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4264	collectionOfCategories notNil ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4265	collectionOfCategories do:[:aCategory \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4266	self fileOutCategory:aCategory of:nonMeta methodFilter:methodFilter on:outStream.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4267	]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4268	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4269
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4270	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4271	"/ any private classes' methods
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4272	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4273	(self privateClassesSortedOf: nonMeta) do:[:aClass \|
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4274	self fileOutAllMethodsOf:aClass on:outStream methodFilter:methodFilter
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4275	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4276
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4277
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4278	"/
3646 cecd3c25e5af class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3621 diff changeset	4279	"/ finally, the previously skipped version method(s) - but NOT the extension version methods
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4280	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4281	versionMethods notEmpty ifTrue: [
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4282	self fileOutCategory:'documentation' of:meta except:nil only:versionMethods methodFilter:methodFilter on:outStream.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4283	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4284
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4285	initIt ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4286	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4287	"/ optionally an initialize message
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4288	"/
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4289	classesImplementingInitialize := OrderedCollection new.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4290
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4291	classInfos values with: metaInfos values do:[:class :meta\|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4292	(meta includesSelector: #initialize) ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4293	classesImplementingInitialize add: class.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4294	]
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4295	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4296
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4297	classesImplementingInitialize size ~~ 0 ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4298	classesImplementingInitialize topologicalSort:[:a :b \| b isSubclassOf:a].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4299	outStream cr.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4300	classesImplementingInitialize do:[:eachClass \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4301	eachClass printClassNameOn:outStream. outStream nextPutAll:' initialize'.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4302	outStream nextPutChunkSeparator.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4303	outStream cr.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4304	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4305	].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4306	]
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4307
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4308	"Created: / 15-11-1995 / 12:53:06 / cg"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4309	"Modified: / 01-04-1997 / 16:01:05 / stefan"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4310	"Modified: / 29-09-2011 / 14:53:49 / cg"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4311	"Created: / 15-03-2012 / 17:39:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3842 6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4312	"Modified: / 13-04-2015 / 21:25:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4313	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4314
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4315	fileOutAllDefinitionsOf:nonMetaInfo on:aStream
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4316	"append expressions on aStream, which defines myself and all of my private classes."
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4317
3697 2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	4318	\| metaInfo definition metaDefinition \|
2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	4319
2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	4320	definition := nonMetaInfo definition.
2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	4321	definition isPrivateClassDefinitionChange ifFalse:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4322	definition package notNil ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4323	aStream nextPutAll: ('"{ Package: ''%1'' }"' bindWith: definition package).
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4324	aStream cr; cr.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4325	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4326	aStream nextPutAll: ('"{ NameSpace: %1 }"' bindWith: namespaceName ? 'Smalltalk').
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4327	aStream cr; cr.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4328	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4329
3697 2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	4330	aStream nextChunkPut: (definition definitionStringInNamespace: namespaceName).
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4331	aStream cr; cr.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4332
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4333	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4334	"/ optional classInstanceVariables
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4335	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4336	metaInfo := metaInfos at: nonMetaInfo name.
3697 2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	4337	metaDefinition := metaInfo definition.
2fa150de2ee1 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3696 diff changeset	4338	metaDefinition notNil ifTrue:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4339	\| anySuperClassInstVar myClass \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4340	aStream
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4341	nextPutAll: metaDefinition className;
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4342	nextPutAll:' instanceVariableNames:';
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4343	nextPutAll: (metaDefinition classInstVarNames asStringWith:' ') storeString.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4344	"mhmh - good idea; saw this in SmallDraw sourcecode ..."
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4345
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4346	anySuperClassInstVar := false.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4347	myClass := metaDefinition changeClass.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4348	myClass notNil ifTrue:[myClass := myClass theNonMetaclass].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4349	myClass notNil ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4350	myClass allSuperclassesDo:[:aSuperClass \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4351	aSuperClass class instVarNames do:[:ignored \| anySuperClassInstVar := true].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4352	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4353
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4354	aStream cr; cr; nextPut:(Character doubleQuote); cr; space.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4355	anySuperClassInstVar ifFalse:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4356	aStream
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4357	nextPutLine:'No other class instance variables are inherited by this class.'.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4358	] ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4359	aStream
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4360	nextPutLine:'The following class instance variables are inherited by this class:'.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4361	aStream cr.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4362	myClass allSuperclassesDo:[:aSuperClass \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4363	aStream tab; nextPutAll:aSuperClass name; nextPutAll:' - '.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4364	aStream nextPutLine:(aSuperClass class instanceVariableString).
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4365	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4366
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4367	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4368	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4369	aStream nextPut:(Character doubleQuote); cr.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4370	aStream nextPut:$!!; cr; cr
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4371	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4372
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4373	"/ here, the full nameSpace prefixes are output,
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4374	"/ to avoid confusing stc
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4375	"/ (which otherwise could not find the correct superclass)
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4376	"/
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4377	Class fileOutNameSpaceQuerySignal answer:false do:[
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4378	Class forceNoNameSpaceQuerySignal answer:true do:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4379	(self privateClassesSortedOf: nonMetaInfo) do:[:i \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4380	self fileOutAllDefinitionsOf:i on:aStream
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4381	]
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4382	]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4383	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4384
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4385	"Created: / 15-10-1996 / 11:15:19 / cg"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4386	"Modified: / 22-03-1997 / 16:11:56 / cg"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4387	"Created: / 15-03-2012 / 19:18:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3841 813b462d169a Fixed class definition fileout to catch up with changes in stx:libbasic Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3840 diff changeset	4388	"Modified: / 13-04-2015 / 18:32:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4389	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4390
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4391	fileOutAllMethodsOf:aClass on:aStream methodFilter:methodFilter
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4392	\| collectionOfCategories meta \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4393
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4394	meta := metaInfos at: aClass name.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4395
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4396	collectionOfCategories := meta categories asSortedCollection.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4397	collectionOfCategories notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4398	collectionOfCategories do:[:aCategory \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4399	self fileOutCategory:aCategory of:meta methodFilter:methodFilter on:aStream.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4400	"/ aStream cr.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4401	]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4402	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4403	collectionOfCategories := aClass categories asSortedCollection.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4404	collectionOfCategories notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4405	collectionOfCategories do:[:aCategory \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4406	self fileOutCategory:aCategory of:aClass methodFilter:methodFilter on:aStream.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4407	"/ aStream cr.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4408	]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4409	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4410
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4411	(self privateClassesSortedOf: aClass) do:[:privateClass \|
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4412	self fileOutAllMethodsOf:privateClass on:aStream methodFilter:methodFilter
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4413	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4414
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4415	"Created: / 15-10-1996 / 11:13:00 / cg"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4416	"Modified: / 22-03-1997 / 16:12:17 / cg"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4417	"Created: / 19-03-2012 / 18:21:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4418	"Modified: / 01-05-2013 / 09:06:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4419	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4420
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4421	fileOutMethod:change on:aStream
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4422	"file a single method onto aStream."
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4423
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4424	\| changeToFileOut \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4425
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4426	change isMethodCategoryChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4427	self assert: change origin notNil.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4428	changeToFileOut := change origin copy.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4429	changeToFileOut category: change category.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4430	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4431	changeToFileOut := change.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4432	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4433	changeToFileOut source notEmptyOrNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4434	super fileOutMethod:changeToFileOut on:aStream
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4435	] ifFalse:[
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4436	"/ self error: 'Should not happen' mayProceed: true.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4437	]
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4438
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4439	"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	4440	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4441
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4442	fileOutMethodsOn:stream
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4443	"Writes a set of methods in changesetBeingSaved in same format as
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4444	extensions.st created by source code management. Code stolen from
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4445
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4446	AbstractSourceCodeManager class>>fileOutSourceCodeExtensions:package:on:version:
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4447	"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4448
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4449	\| methodsSortedByName \|
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4450
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4451
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4452	stream nextPutAll:'"{ Package: '''.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4453	stream nextPutAll:packageName asString.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4454	stream nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4455
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4456	"/ s nextPutAll:(Smalltalk timeStamp).
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4457	"/ s nextPutChunkSeparator.
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4458	"/ s cr; cr.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4459
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4460	"/ sort them by name (to avoid conflict due to CVS merge)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4461	methodsSortedByName := changeSetBeingSaved.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4462	methodsSortedByName sort:[:a :b \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4463	\|clsA clsB\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4464
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4465	clsA := a className.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4466	clsB := b className.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4467	clsA < clsB ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4468	true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4469	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4470	clsA > clsB ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4471	false
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4472	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4473	a selector < b selector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4474	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4475	]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4476	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4477	methodsSortedByName do:[:aMethod \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4478	\|cat source privacy\|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4479
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4480	self assert: aMethod package = packageName.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4481	"/self assert: aMethod programmingLanguage isSmalltalk.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4482
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4483
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4484	stream nextPutChunkSeparator.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4485	aMethod className printOn: stream.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4486
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4487	(privacy := aMethod privacy) ~~ #public ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4488	stream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4489	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4490	stream nextPutAll:' methodsFor:'.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4491	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4492
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4493	cat := aMethod category ? ''.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4494	stream nextPutAll:cat asString storeString.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4495	stream nextPutChunkSeparator; cr; cr.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4496
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4497	source := aMethod source.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4498	source isNil ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4499	"FileOutErrorSignal"Error
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4500	raiseRequestWith:self
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4501	errorString:(' - no source for method: ' ,
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4502	self className , '>>' ,
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4503	aMethod selector)
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4504	] ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4505	stream nextChunkPut:source.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4506	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4507	stream space.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4508	stream nextPutChunkSeparator.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4509	stream cr.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4510	].
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4511
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4512	"Created: / 30-01-2013 / 09:35:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4513	!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4514
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4515	fileOutPrimitiveSpecsOf: nonMeta on:aStream
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4516	"append primitive defs (if any) to aStream."
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4517
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4518	\|s\|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4519
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4520	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4521	primitive definitions - if any
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4522	"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4523	(s := nonMeta primitiveDefinitionsString) notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4524	aStream nextPutChunkSeparator.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4525	nonMeta printClassNameOn:aStream.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4526	aStream nextPutAll:' primitiveDefinitions';
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4527	nextPutChunkSeparator;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4528	cr.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4529	aStream nextPutAll:s.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4530	aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4531	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4532	(s := nonMeta primitiveVariablesString) notNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4533	aStream nextPutChunkSeparator.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4534	nonMeta printClassNameOn:aStream.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4535	aStream nextPutAll:' primitiveVariables';
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4536	nextPutChunkSeparator;
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4537	cr.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4538	aStream nextPutAll:s.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4539	aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4540	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4541
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4542	"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	4543	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4544
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4545	generateHeaderWithCopyrightOn:outStream
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4546	\|copyrightChange copyrightText\|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4547
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4548	copyrightChange :=
4035 047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4549	(metaInfos at: topClassName) methodAt: #copyright.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4550
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4551
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4552	copyrightChange notNil ifTrue:[
4035 047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4553	"
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4554	get the copyright method's comment-text, strip off empty and blank lines
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4555	and insert at beginning.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4556	"
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4557	copyrightText := Parser methodCommentFromSource: copyrightChange source.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4558	copyrightText notEmptyOrNil ifTrue:[
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4559	copyrightText := copyrightText asCollectionOfLines asStringCollection.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4560	copyrightText := copyrightText withoutLeadingAndTrailingBlankLines.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4561	copyrightText notEmpty ifTrue:[
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4562	copyrightText addFirst:'"'.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4563	copyrightText addLast:'"'.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4564	copyrightText := copyrightText asString.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4565	outStream nextPutAllAsChunk:copyrightText.
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4566	].
047862768e35 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 4033 diff changeset	4567	].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4568	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4569
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4570	"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	4571	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4572
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4573	!ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'documentation'!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4574
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4575	copyright
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4576	"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4577	COPYRIGHT (c) 2006 by eXept Software AG
4330 998eb03f0736 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4304 diff changeset	4578	COPYRIGHT (c) 2015-2018 Jan Vrany
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4579	All Rights Reserved
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4580
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4581	This software is furnished under a license and may be used
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4582	only in accordance with the terms of that license and with the
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4583	inclusion of the above copyright notice. This software may not
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4584	be provided or otherwise made available to, or used by, any
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4585	other person. No title to or ownership of the software is
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4586	hereby transferred.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4587	"
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4588	!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4589
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4590	version_SVN
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4591	^ '$Id$'
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4592	! !
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4593
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4594	!ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'instance creation'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4595
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4596	new
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4597	"return an initialized instance"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4598
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4599	^ self basicNew initialize.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4600	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4601
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4602	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'accessing'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4603
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4604	categories
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4605
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4606	^ (methods collect:[:e\|e category]) asSet
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4607
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4608	"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	4609	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4610
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4611	comment
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4612	^ comment
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4613	!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4614
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4615	comment:something
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4616	comment := something.
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4617	!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4618
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4619	definition
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4620	^ definition
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4621	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4622
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4623	definition:something
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4624	definition := something.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4625	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4626
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4627	methodAt: selector
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4628	^methods detect:[:each\|each selector == selector] ifNone:[nil].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4629
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4630	"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	4631	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4632
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4633	methodDictionary
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4634	methodDictionary isEmptyOrNil ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4635	methodDictionary := Dictionary new.
3842 6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4636	self methodsDo:[:e \| methodDictionary at: e selector put: e]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4637	].
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4638
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4639	^ methodDictionary.
3842 6991b496fe8a fileout: File out source file in UTF8 only if necessary Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3841 diff changeset	4640	"Modified: / 13-04-2015 / 19:02:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4641	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4642
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4643	methods
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4644	^ methods
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4645	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4646
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4647	methods:something
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4648	methods := something.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4649	methodDictionary := Dictionary new.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4650	methods do:[:m\|methodDictionary at: m selector put: m].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4651
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4652	"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	4653	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4654
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4655	name
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4656	^ name
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4657	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4658
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4659	name:something
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4660	name := something.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4661	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4662
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4663	namespace
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4664	^ namespace
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4665	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4666
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4667	namespace:aString
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4668	namespace := aString.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4669	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4670
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4671	primitiveDefinitions
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4672	^ primitiveDefinitions
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4673	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4674
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4675	primitiveDefinitionsString
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4676	^ primitiveDefinitions isNil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4677	ifTrue:[nil]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4678	ifFalse:[primitiveDefinitions source]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4679
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4680	"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	4681	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4682
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4683	primitiveFunctions
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4684	^ primitiveFunctions
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4685	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4686
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4687	primitiveFunctionsString
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4688	^ primitiveFunctions isNil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4689	ifTrue:[nil]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4690	ifFalse:[primitiveFunctions source]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4691
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4692	"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	4693	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4694
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4695	primitiveVariables
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4696	^ primitiveVariables
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4697	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4698
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4699	primitiveVariablesString
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4700	^ primitiveVariables isNil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4701	ifTrue:[nil]
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4702	ifFalse:[primitiveVariables source]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4703
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4704	"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	4705	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4706
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4707	selectorAtMethod: m
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4708	^m selector
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4709
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4710	"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	4711	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4712
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4713	superclass
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4714	^ superclass
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4715	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4716
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4717	superclass:something
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4718	superclass := something.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4719	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4720
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4721	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'adding'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4722
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4723	addChange: change
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4724
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4725	change isClassDefinitionChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4726	self assert: definition isNil.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4727	definition := change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4728	^self.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4729	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4730	change isMethodCodeChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4731	methods add: change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4732	^self.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4733	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4734	change isMethodCategoryChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4735	methods add: change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4736	^self.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4737	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4738
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4739	change isClassInstVarDefinitionChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4740	self assert: definition isNil.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4741	definition := change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4742	^self
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4743	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4744
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4745	change isPrimitiveDefinitionsChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4746	primitiveDefinitions := change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4747	^self
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4748	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4749
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4750	change isPrimitiveVariablesChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4751	primitiveVariables := change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4752	^self
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4753	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4754
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4755	change isPrimitiveFunctionsChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4756	primitiveFunctions := change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4757	^self
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4758	].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4759
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4760	change isClassCommentChange ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4761	comment := change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4762	^self
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4763	].
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	4764
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4765	change isClassInitializeChange ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4766	"/ Ignore it, the class inititalization chunk is
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4767	"/ written fileOut:on:withTimeStamp:withInitialize:withDefinition:methodFilter:encoder:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4768	"/ for all class implementing class-side #initialize
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4769	^ self
3575 6d208ef54e78 Fixes ClassSourceWriter - ignore ClassInitializeChange when analyzing changeset. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3545 diff changeset	4770	].
6d208ef54e78 Fixes ClassSourceWriter - ignore ClassInitializeChange when analyzing changeset. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3545 diff changeset	4771
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4772	self error: 'Unknown change'
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4773
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4774	"Created: / 15-03-2012 / 19:12:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3575 6d208ef54e78 Fixes ClassSourceWriter - ignore ClassInitializeChange when analyzing changeset. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3545 diff changeset	4775	"Modified: / 05-06-2014 / 08:14:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4776	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4777
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4778	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'enumerating'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4779
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4780	methodsDo: aBlock
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4781
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4782	methods do: aBlock
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4783
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4784	"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	4785	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4786
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4787	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'initialization'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4788
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4789	initialize
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4790	"Invoked when a new instance is created."
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4791
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4792	"/ please change as required (and remove this comment)
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4793	"/ name := nil.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4794	"/ instDefinition := nil.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4795	"/ classDefinition := nil.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4796	methods := OrderedCollection new.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4797
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4798	"/ super initialize. -- commented since inherited method does nothing
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4799
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4800	"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	4801	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4802
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4803	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'printing & storing'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4804
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4805	printClassNameOn:aStream
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4806	\| nameWithoutNs \|
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4807
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4808	nameWithoutNs := name.
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4809	"/ namespace notNil ifTrue:[
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4810	"/ self assert: (name startsWith:namespace).
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4811	"/ nameWithoutNs := nameWithoutNs copyFrom: namespace size + 3.
71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4812	"/ ].
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4813
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4814	aStream nextPutAll: nameWithoutNs
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4815
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4816	"Created: / 19-03-2012 / 18:17:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3445 71962ba45fb7 merged in jv's changes Claus Gittinger <cg@exept.de> parents: 3395 diff changeset	4817	"Modified: / 11-06-2013 / 17:59:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4818	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4819
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4820	printOn:aStream
4073 34b57b08a7df #DOCUMENTATION by mawalch mawalch parents: 4035 diff changeset	4821	"append a printed representation of the receiver to the argument, aStream"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4822
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4823	aStream nextPutAll: self class nameWithoutPrefix.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4824	aStream nextPutAll:'('.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4825	name printOn:aStream.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4826	aStream nextPutAll:')'.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4827
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4828	"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	4829	! !
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4830
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4831	!ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'queries'!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4832
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4833	includesSelector: selector
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4834
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4835	^methods anySatisfy:[:m\|m selector == selector].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4836
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4837	"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	4838	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4839
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4840	isPrivateClassOf: classInfo
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4841
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4842	^(name startsWith: classInfo name)
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4843	and:[ (name at: (classInfo name size + 1)) == $:
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4844	and:[ (name at: (classInfo name size + 2)) == $:]]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4845
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4846	"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	4847	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4848
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4849	isSubclassOf: classInfo
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4850
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4851	^superclass notNil and:
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4852	[superclass == classInfo or:[superclass isSubclassOf: classInfo]]
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4853
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4854	"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	4855	! !
f4794940b620 new changeSet reading mechanism (extensible); Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	4856
2321 cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4857	!ChangeSet::DiffSet class methodsFor:'documentation'!
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4858
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4859	documentation
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4860	"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4861	I represent the differences between two change sets.
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4862	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	4863	"
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4864	! !
cdba8ed97ed6 added: #fromDiffSet: Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	4865
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4866	!ChangeSet::DiffSet methodsFor:'accessing'!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4867
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4868	changed
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4869	"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	4870
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4871	^ changed
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4872
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4873	"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	4874	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4875
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4876	changed:something
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4877	"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	4878
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4879	changed := something.
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4880
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4881	"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	4882	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4883
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4884	changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg
3338 c6065f4c9def class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3309 diff changeset	4885	self changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg same:nil
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4886	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4887
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4888	changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg same: sameArg
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4889	"set instance variables (automatically generated)"
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4890
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4891	changed := changedArg.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4892	changed isNil ifTrue:[changed := OrderedCollection new].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4893
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4894	onlyInReceiver := onlyInReceiverArg.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4895	onlyInReceiver isNil ifTrue:[onlyInReceiver := ChangeSet new].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4896
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4897	onlyInArg := onlyInArgArg.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4898	onlyInArg isNil ifTrue:[onlyInArg := ChangeSet new].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4899
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4900	same := sameArg.
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4901	same isNil ifTrue:[same := ChangeSet new].
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4902
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4903	"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	4904	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4905
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4906	onlyInArg
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4907	"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	4908
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4909	^ onlyInArg
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4910
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4911	"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	4912	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4913
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4914	onlyInArg:something
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4915	onlyInArg := something.
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4916	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4917
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4918	onlyInReceiver
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4919	"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	4920
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4921	^ onlyInReceiver
1867 dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4922
dad9e13fba4c comments Claus Gittinger <cg@exept.de> parents: 1865 diff changeset	4923	"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	4924	!
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4925
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4926	onlyInReceiver:something
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4927	onlyInReceiver := something.
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4928	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4929
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4930	same
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4931	^ same
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4932	!
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4933
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4934	same:something
ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4935	same := something.
1156 29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4936	! !
29fb7d77797d use a rela object instead of a Dictionary as diffSet Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	4937
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4938	!ChangeSet::DiffSet methodsFor:'merging'!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4939
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4940	addDiffSet:anotherDiffset
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4941	changed addAll:(anotherDiffset changed).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4942	onlyInReceiver addAll:(anotherDiffset onlyInReceiver).
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4943	onlyInArg addAll:(anotherDiffset onlyInArg).
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4944	same addAll: (anotherDiffset same).
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4945
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4946	"Created: / 12-10-2006 / 22:49:30 / cg"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4947	"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	4948	!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4949
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4950	copy
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4951	^ self class new
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4952	changed:changed copy
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4953	onlyInReceiver:onlyInReceiver copy
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4954	onlyInArg:onlyInArg copy
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4955	same:same copy
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4956
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4957	"Created: / 12-10-2006 / 22:50:56 / cg"
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	4958	"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	4959	! !
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	4960
2186 3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	4961	!ChangeSet::DiffSet methodsFor:'misc'!
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	4962
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	4963	removeAllVersionMethods
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4964	changed := changed
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4965	reject:[:pair \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4966	pair first isMethodChangeForVersionMethod
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4967	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4968	onlyInReceiver := onlyInReceiver
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4969	reject:[:chg \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4970	chg isMethodChangeForVersionMethod
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4971	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4972	onlyInArg := onlyInArg
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4973	reject:[:chg \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4974	chg isMethodChangeForVersionMethod
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	4975	].
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4976	!
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4977
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4978	sortByClassName
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4979	onlyInReceiver notNil ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4980	onlyInReceiver := onlyInReceiver sortedByClassName.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4981	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4982	onlyInArg notNil ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4983	onlyInArg := onlyInArg sortedByClassName.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4984	].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4985	changed notEmptyOrNil ifTrue:[
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4986	changed := changed sort:[:pairA :pairB \|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4987	\|nameA nameB chgA chgB\|
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4988	chgA := pairA first. chgB := pairB first.
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4989	nameA := chgA isClassChange ifTrue:[chgA className] ifFalse:['^other'].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4990	nameB := chgB isClassChange ifTrue:[chgB className] ifFalse:['^other'].
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4991	nameA < nameB]
060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	4992	].
2186 3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	4993	! !
3cbd8cb9e36e removeAllVersionMethods in DiffSet fm parents: 2179 diff changeset	4994
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	4995	!ChangeSet::DiffSet methodsFor:'queries'!
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	4996
2914 8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	4997	changedClasses
8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	4998	\|allChangedClasses\|
8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	4999
2923 fb0a62def59a diffset Claus Gittinger <cg@exept.de> parents: 2914 diff changeset	5000	allChangedClasses := Set new.
2914 8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	5001	allChangedClasses addAll:(onlyInArg changedClasses).
8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	5002	allChangedClasses addAll:(onlyInReceiver changedClasses).
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5003	changed do:[:eachChangePair \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5004	allChangedClasses add:(eachChangePair first changeClass).
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5005	allChangedClasses add:(eachChangePair second changeClass).
2923 fb0a62def59a diffset Claus Gittinger <cg@exept.de> parents: 2914 diff changeset	5006	].
fb0a62def59a diffset Claus Gittinger <cg@exept.de> parents: 2914 diff changeset	5007	allChangedClasses remove:nil ifAbsent:[].
2914 8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	5008	^ allChangedClasses
8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	5009
8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	5010	"Created: / 26-09-2012 / 15:39:18 / cg"
8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	5011	!
8d837a083e9b query for changedClasses added Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	5012
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	5013	isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	5014	^ changed isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	5015	and:[ onlyInReceiver isEmpty
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	5016	and:[ onlyInArg isEmpty ] ]
1869 988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	5017	!
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	5018
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	5019	notEmpty
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	5020	^ self isEmpty not
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	5021
988269721678 +isPrivateClassDefinitionChange and other support for private classes Claus Gittinger <cg@exept.de> parents: 1867 diff changeset	5022	"Created: / 12-10-2006 / 23:12:27 / cg"
1292 4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	5023	! !
4f2a8ea516fa category & comments Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	5024
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5025	!ChangeSet::DolphinPACFileReader methodsFor:'reading-private'!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5026
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5027	handleCategoriesForClass
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5028	\|category change\|
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5029
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5030	[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5031	inputStream skipSeparators.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5032	category := inputStream nextChunk.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5033	category notEmpty
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5034	] whileTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5035	change := ClassCategoryChange new.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5036	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5037	className:className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5038	category:category.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5039
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5040	self addChange:change.
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5041	].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5042	^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5043	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5044
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5045	handleCategoriesForMethod
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5046	\|methodSelector categories change isPrivate isPublic category\|
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5047
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5048	methodSelector := (arguments at:1) evaluate.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5049	inputStream skipSeparators.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5050	isPrivate := false.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5051
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5052	categories := OrderedCollection new.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5053	[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5054	\|done category \|
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5055
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5056	category := inputStream nextChunk withoutSeparators.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5057	done := category isEmpty.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5058	done ifFalse:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5059	categories add:category
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5060	].
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5061	done
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5062	] whileFalse.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5063
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5064	categories size > 1 ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5065	isPrivate := categories includes:'private'.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5066	categories remove:'private' ifAbsent:nil.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5067	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5068	categories size > 1 ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5069	isPublic := categories includes:'public'.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5070	categories remove:'public' ifAbsent:nil.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5071	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5072	"/ categories size > 1 ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5073	"/ self halt.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5074	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5075
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5076	category := categories first.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5077	isPrivate ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5078	category := category , '-private'.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5079	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5080
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5081	change := MethodCategoryChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5082	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5083	className:className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5084	selector:methodSelector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5085	category:category.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5086
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5087	self addChange:change.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5088	^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5089	!
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5090
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5091	processChange
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5092	"given a parse-tree (from parsing some changes source/chunk),
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5093	create changes and evaluate changeAction on each.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5094	The block is invoked with the change and a lineNumberOrNil as
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5095	arg; the lineNumber is only valid, if the underlying stream
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5096	provides line-numbers; otherwise, nil is passed."
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5097
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5098	(selector == #'categoriesForClass') ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5099	^ self handleCategoriesForClass.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5100	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5101	(selector == #'categoriesFor:') ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5102	^ self handleCategoriesForMethod.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5103	].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5104	selector == #'subclass:instanceVariableNames:classVariableNames:poolDictionaries:classInstanceVariableNames:' ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5105	^ self handleClassDefinitionChange.
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5106	].
2179 9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5107	"/ selector == #'guid:' ifTrue:[
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5108	"/ ^ self handleGUIDChange.
9698d31298e4 oops Claus Gittinger <cg@exept.de> parents: 2160 diff changeset	5109	"/ ].
1182 5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5110	^ super processChange
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5111
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5112
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5113	"/ selector == #named:superclass:indexedInstanceVariables:instanceVariableNames:classVariableNames:sharedPools:classInstanceVariableNames: ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5114	"/ ^ self handleClassDefinitionChange.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5115	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5116	"/ (selector == #'key:value:') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5117	"/ (self checkReceiverIsGlobalNamed:'Annotation') ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5118	"/ ^ self handleAnnotation.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5119	"/ ]
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5120	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5121	"/ selector == #'method' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5122	"/ ^ self handleMethodChange:false.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5123	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5124	"/ selector == #'classMethod' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5125	"/ ^ self handleMethodChange:true.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5126	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5127	"/
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5128	"/ selector == #'initializer' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5129	"/ ^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5130	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5131	"/ selector == #'initialize' ifTrue:[
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5132	"/ ^ true
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5133	"/ ].
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5134	"/self halt.
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5135	"/
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5136	"/ ^ false
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5137
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5138	"Created: / 16.2.1998 / 13:42:40 / cg"
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5139	"Modified: / 15.12.1999 / 00:29:06 / cg"
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5140	! !
5963a5799b4e dolphin pac-file reading Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	5141
3576 e188540a0549 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3575 diff changeset	5142	!ChangeSet::InvalidChangeChunkError class methodsFor:'queries'!
e188540a0549 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3575 diff changeset	5143
e188540a0549 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3575 diff changeset	5144	mayProceed
e188540a0549 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3575 diff changeset	5145	^ true
e188540a0549 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3575 diff changeset	5146	! !
e188540a0549 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3575 diff changeset	5147
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5148	!ChangeSet::SIFChangeFileReader methodsFor:'reading-private'!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5149
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5150	handleAnnotation
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5151	\|key value lastChange change\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5152
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5153	key := (arguments at:1) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5154	value := (arguments at:2) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5155
1422 6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	5156	key = 'Prerequisite' ifTrue:[
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	5157	"/ change := SIFPrerequisiteChange new prerequisiteFileName:value.
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	5158	"/ self addChange:change.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5159	^ true
1422 6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	5160	].
6871068da880 * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	5161
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5162	lastChange := changeSet last.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5163
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5164	key = 'package' ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5165	change := ClassCategoryChange new className:(lastChange className) category:value.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5166	self addChange:change.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5167	^ true
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5168	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5169	key = 'category' ifTrue:[
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5170	"/ change := MethodCategoryChange new className:(lastChange className) selector:(lastChange selector) category:value.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5171	"/ self addChange:change.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5172	lastChange category:value.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5173	^ true
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5174	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5175	key = 'stamp' ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5176	"/ lastChange timeStamp:value.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5177	^ true
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5178	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5179	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5180	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5181
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5182	handleClassDefinitionChange
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5183	\|nameSpace change\|
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5184
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5185	(self checkReceiverIsGlobalNamed:#Class) ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5186	self error:'unexpected receiver in classDefinition message' mayProceed:true.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5187	^ false.
1313 8aceccee1eaf * empty log message * Claus Gittinger <cg@exept.de> parents: 1301 diff changeset	5188	].
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5189	className := (arguments at:1) evaluate.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5190
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5191	nameSpace := Class nameSpaceQuerySignal query.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5192	nameSpace ~~ Smalltalk ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5193	className := nameSpace name , '::' , className
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5194	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5195
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5196	change := ClassDefinitionChange new.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5197	change className:className; source:(parseTree printString).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5198
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5199	change package:(Class packageQuerySignal query).
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5200	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5201	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5202	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5203
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5204	handleMethodChange:isMeta
1188 a4594193f884 Remove unused method variables Stefan Vogel <sv@exept.de> parents: 1187 diff changeset	5205	\|categoryName methodSource change parser \|
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5206
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5207	className := self receiversClassName.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5208	isMeta ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5209	className := className , ' class'
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5210	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5211
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5212	categoryName := 'uncategorized'.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5213
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5214	inputStream skipSeparators.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5215	lineNumber := inputStream lineNumber.
3376 a0e06d192df4 class: ChangeSet Stefan Vogel <sv@exept.de> parents: 3360 diff changeset	5216	position := inputStream position + 1.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5217
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5218	methodSource := inputStream nextChunk.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5219
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5220	parser := Parser
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5221	parseMethodArgAndVarSpecification:methodSource
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5222	in:nil
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5223	ignoreErrors:true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5224	ignoreWarnings:true
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5225	parseBody:false.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5226
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5227	parser isNil ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5228	"/ something wierd ...
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5229	methodSelector := '????'.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5230	] ifFalse:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5231	methodSelector := parser selector.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5232	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5233
3648 c66bc4f3ee3f class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3646 diff changeset	5234	change := MethodDefinitionChange new.
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5235	change
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5236	className:className
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5237	selector:methodSelector
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5238	source:methodSource
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5239	category:categoryName
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5240	privacy:nil.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5241
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5242	self addChange:change.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5243	^ true
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5244	!
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5245
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5246	processChange
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5247	"given a parse-tree (from parsing some changes source/chunk),
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5248	create changes and evaluate changeAction on each.
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5249	The block is invoked with the change and a lineNumberOrNil as
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5250	arg; the lineNumber is only valid, if the underlying stream
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5251	provides line-numbers; otherwise, nil is passed."
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5252
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5253	(selector == #'interchangeVersion:') ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5254	^ true
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5255	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5256	selector == #named:superclass:indexedInstanceVariables:instanceVariableNames:classVariableNames:sharedPools:classInstanceVariableNames: ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5257	^ self handleClassDefinitionChange.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5258	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5259	(selector == #'key:value:') ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5260	(self checkReceiverIsGlobalNamed:'Annotation') ifTrue:[
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5261	^ self handleAnnotation.
e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5262	]
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5263	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5264	selector == #'method' ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5265	^ self handleMethodChange:false.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5266	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5267	selector == #'classMethod' ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5268	^ self handleMethodChange:true.
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5269	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5270
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5271	selector == #'initializer' ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5272	^ true
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5273	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5274	selector == #'initialize' ifTrue:[
3839 e16f2217fc74 * empty log message * Claus Gittinger <cg@exept.de> parents: 3833 diff changeset	5275	^ true
1176 6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5276	].
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5277
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5278	^ false
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5279
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5280	"Created: / 16.2.1998 / 13:42:40 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5281	"Modified: / 15.12.1999 / 00:29:06 / cg"
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5282	! !
6c65f871a3bc added SIF reading Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	5283
625 06f4ed35832b added #patches for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 378 diff changeset	5284	!ChangeSet class methodsFor:'documentation'!
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	5285
2868 bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	5286	version
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	5287	^ '$Header$'
2923 fb0a62def59a diffset Claus Gittinger <cg@exept.de> parents: 2914 diff changeset	5288	!
fb0a62def59a diffset Claus Gittinger <cg@exept.de> parents: 2914 diff changeset	5289
fb0a62def59a diffset Claus Gittinger <cg@exept.de> parents: 2914 diff changeset	5290	version_CVS
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	5291	^ '$Header$'
3246 ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	5292	!
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	5293
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	5294	version_HG
ac9dc57ea097 class: ChangeSet Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3229 diff changeset	5295
3269 84de19204303 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3248 diff changeset	5296	^ '$Changeset: <not expanded> $'
2868 bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	5297	!
bee17299d228 changed: Claus Gittinger <cg@exept.de> parents: 2867 diff changeset	5298
2881 ddbb874c0ce2 Merged from SVN, added ClassSourceWriter vrany parents: 2868 diff changeset	5299	version_SVN
3904 060fbc556cf9 #FEATURE Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	5300	^ '$Id$'
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	5301	! !
3844 d404026a7a55 class: ChangeSet Claus Gittinger <cg@exept.de> parents: 3839 diff changeset	5302

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 30 Jan 2019 11:01:17 +0000
branch	jv
changeset 4394	c5c365c76256
parent 4383	c6ff0a1dc213
child 4563	a24887780da0
permissions	-rw-r--r--