| author | Stefan Vogel <sv@exept.de> |
| Fri, 31 Mar 2017 15:57:47 +0200 | |
| changeset 4232 | f02d9d68eabc |
| parent 4230 | 51459e224b36 |
| child 4241 | 6aa29eece1bb |
| permissions | -rw-r--r-- |
| 906 | 1 |
" |
2 |
COPYRIGHT (c) 2000 eXept Software AG |
|
3 |
All Rights Reserved |
|
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
| 920 | 12 |
"{ Package: 'stx:libbasic3' }"
|
13 |
||
|
3812
173678af0074
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3692
diff
changeset
|
14 |
"{ NameSpace: Smalltalk }"
|
|
173678af0074
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3692
diff
changeset
|
15 |
|
| 873 | 16 |
Object subclass:#SourceCodeManagerUtilities |
| 2847 | 17 |
instanceVariableNames:'manager resources confirmNewFiles' |
18 |
classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery |
|
| 4174 | 19 |
YesToAllNotification LastSourceLogMessages DefaultUtilities |
| 4201 | 20 |
LastTag LastComparedTag' |
| 2847 | 21 |
poolDictionaries:'' |
22 |
category:'System-SourceCodeManagement' |
|
| 873 | 23 |
! |
24 |
||
25 |
!SourceCodeManagerUtilities class methodsFor:'documentation'! |
|
26 |
||
| 906 | 27 |
copyright |
28 |
" |
|
29 |
COPYRIGHT (c) 2000 eXept Software AG |
|
30 |
All Rights Reserved |
|
31 |
||
32 |
This software is furnished under a license and may be used |
|
33 |
only in accordance with the terms of that license and with the |
|
34 |
inclusion of the above copyright notice. This software may not |
|
35 |
be provided or otherwise made available to, or used by, any |
|
36 |
other person. No title to or ownership of the software is |
|
37 |
hereby transferred. |
|
38 |
" |
|
39 |
||
40 |
! |
|
41 |
||
| 873 | 42 |
documentation |
43 |
" |
|
44 |
utility code which is useful at more than one place |
|
45 |
(extracted from the browser) |
|
46 |
||
47 |
[author:] |
|
48 |
Claus Gittinger (cg@exept) |
|
49 |
||
50 |
[see also:] |
|
51 |
||
52 |
[instance variables:] |
|
53 |
||
54 |
[class variables:] |
|
55 |
" |
|
56 |
! ! |
|
57 |
||
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
58 |
!SourceCodeManagerUtilities class methodsFor:'instance creation'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
59 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
60 |
forManager: aSourceCodeManager |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
61 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
62 |
^self new setManager: aSourceCodeManager |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
63 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
64 |
"Created: / 10-10-2011 / 11:45:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2597
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
65 |
! |
|
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
66 |
|
|
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
67 |
new |
|
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
68 |
"return an initialized instance" |
|
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
69 |
|
| 2969 | 70 |
self == SourceCodeManagerUtilities ifTrue:[ |
71 |
self abstractClassInstantiationError |
|
72 |
]. |
|
|
2597
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
73 |
^ self basicNew initialize. |
| 2847 | 74 |
|
75 |
"Modified: / 25-07-2012 / 17:10:55 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
76 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
77 |
|
| 992 | 78 |
!SourceCodeManagerUtilities class methodsFor:'Signal constants'! |
79 |
||
80 |
yesToAllNotification |
|
81 |
YesToAllNotification isNil ifTrue:[ |
|
82 |
YesToAllNotification := QuerySignal new. |
|
83 |
]. |
|
84 |
^ YesToAllNotification |
|
85 |
! |
|
86 |
||
87 |
yesToAllQuery |
|
88 |
YesToAllQuery isNil ifTrue:[ |
|
89 |
YesToAllQuery := QuerySignal new. |
|
90 |
]. |
|
91 |
^ YesToAllQuery |
|
92 |
! ! |
|
93 |
||
| 1084 | 94 |
!SourceCodeManagerUtilities class methodsFor:'accessing'! |
95 |
||
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
96 |
default |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
97 |
|
|
3635
765b567f596a
oops - a global variable named "Default" was introduced
Claus Gittinger <cg@exept.de>
parents:
3633
diff
changeset
|
98 |
DefaultUtilities isNil ifTrue:[DefaultUtilities := SourceCodeManagerUtilitiesForContainerBasedManagers new]. |
|
3642
28683778b9c3
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3635
diff
changeset
|
99 |
^ DefaultUtilities |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
100 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
101 |
"Created: / 10-10-2011 / 11:28:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 2864 | 102 |
"Modified: / 26-07-2012 / 20:31:52 / cg" |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
103 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
104 |
|
| 1084 | 105 |
lastModule |
106 |
"return the value of the static variable 'LastModule' (automatically generated)" |
|
107 |
||
108 |
^ LastModule |
|
109 |
! |
|
110 |
||
111 |
lastModule:something |
|
112 |
"set the value of the static variable 'LastModule' (automatically generated)" |
|
113 |
||
114 |
LastModule := something. |
|
115 |
! |
|
116 |
||
117 |
lastPackage |
|
118 |
"return the value of the static variable 'LastPackage' (automatically generated)" |
|
119 |
||
120 |
^ LastPackage |
|
121 |
! |
|
122 |
||
123 |
lastPackage:something |
|
124 |
"set the value of the static variable 'LastPackage' (automatically generated)" |
|
125 |
||
126 |
LastPackage := something. |
|
127 |
! ! |
|
128 |
||
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
129 |
!SourceCodeManagerUtilities class methodsFor:'error handling'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
130 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
131 |
doesNotUnderstand: aMessage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
132 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
133 |
(self default respondsTo: aMessage selector) ifTrue:[ |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
134 |
"Bad, method moved to instance side but not forwarded" |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
135 |
self breakPoint: #jv. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
136 |
self breakPoint: #cg. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
137 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
138 |
^aMessage sendTo: self default |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
139 |
] ifFalse:[ |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
140 |
^super doesNotUnderstand: aMessage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
141 |
] |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
142 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
143 |
"Created: / 10-10-2011 / 14:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
144 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
145 |
|
| 2569 | 146 |
!SourceCodeManagerUtilities class methodsFor:'private-migration'! |
147 |
||
148 |
compileForwarders |
|
149 |
||
150 |
"Utility method" |
|
151 |
||
152 |
" |
|
153 |
SourceCodeManagerUtilities compileForwarders. |
|
154 |
" |
|
155 |
||
156 |
self methodsDo:[:m| |
|
157 |
| sel | |
|
158 |
sel := m selector. |
|
159 |
((self class includesSelector: sel) and: [(self class >> sel) source = m source]) ifTrue:[ |
|
160 |
| source header | |
|
161 |
||
162 |
header := m source asStringCollection first. |
|
163 |
source := '%1 |
|
164 |
||
165 |
<resource: #obsolete> |
|
166 |
||
167 |
self obsoleteMethodWarning: ''Please use instance protocol (SourceCodeManagerUtilities default doSomething)''. |
|
168 |
||
169 |
^self default %1' bindWith: header with: header. |
|
170 |
||
171 |
self halt: 'Inspect source'. |
|
172 |
self class compile: source classified: m category. |
|
173 |
]. |
|
174 |
||
175 |
] |
|
176 |
||
177 |
"Created: / 11-10-2011 / 10:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
178 |
! ! |
|
179 |
||
| 1806 | 180 |
!SourceCodeManagerUtilities class methodsFor:'resources'! |
181 |
||
182 |
resourcePackage |
|
183 |
^ #'stx:libtool' |
|
184 |
! ! |
|
185 |
||
| 873 | 186 |
!SourceCodeManagerUtilities class methodsFor:'utilities'! |
187 |
||
|
1882
8b3a4c2a2c2a
when creating a new container, set the package of all methods.
Claus Gittinger <cg@exept.de>
parents:
1879
diff
changeset
|
188 |
classIsNotYetInRepository:aClass withManager:mgr |
| 2570 | 189 |
|
190 |
<resource: #obsolete> |
|
191 |
||
192 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
193 |
||
194 |
^self default classIsNotYetInRepository:aClass withManager:mgr |
|
|
1882
8b3a4c2a2c2a
when creating a new container, set the package of all methods.
Claus Gittinger <cg@exept.de>
parents:
1879
diff
changeset
|
195 |
! |
|
8b3a4c2a2c2a
when creating a new container, set the package of all methods.
Claus Gittinger <cg@exept.de>
parents:
1879
diff
changeset
|
196 |
|
| 1704 | 197 |
nameOfExtensionsContainer |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
198 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
199 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
200 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
201 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
202 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
203 |
^self default nameOfExtensionsContainer |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
204 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
205 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
206 |
setPackageOfAllMethodsIn:aClass to:aPackage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
207 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
208 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
209 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
210 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
211 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
212 |
^self default setPackageOfAllMethodsIn:aClass to:aPackage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
213 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
214 |
"Modified: / 10-10-2011 / 14:00:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
215 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
216 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
217 |
setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
218 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
219 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
220 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
221 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
222 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
223 |
^self default setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
224 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
225 |
"Created: / 10-10-2011 / 14:00:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
226 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
227 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
228 |
sourceCodeManagerFor:aClass |
|
3370
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
229 |
|mgr assumption| |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
230 |
|
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
231 |
mgr := aClass theNonMetaclass sourceCodeManager. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
232 |
mgr isNil ifTrue:[ |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
233 |
SourceCodeManager isNil ifTrue:[ |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
234 |
"/ self warn:'SourceCodeManagement is disabled or not configured.\\Please setup in the Launcher.' withCRs. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
235 |
^ nil. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
236 |
]. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
237 |
assumption := AbstractSourceCodeManager defaultManager ? CVSSourceCodeManager. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
238 |
assumption notNil ifTrue:[ |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
239 |
(self confirm:('Class does not seem to provide a valid sourceCodeManager.\\Assume %1 ?' bindWith:assumption managerTypeName) withCRs) ifFalse:[
|
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
240 |
^ nil |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
241 |
]. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
242 |
mgr := assumption. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
243 |
]. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
244 |
]. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
245 |
^ mgr |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
246 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
247 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
248 |
sourceCodeOfClass:aClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
249 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
250 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
251 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
252 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
253 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
254 |
^self default sourceCodeOfClass:aClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
255 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
256 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
257 |
versionString:a isLessThan:b |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
258 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
259 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
260 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
261 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
262 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
263 |
^self default versionString:a isLessThan:b |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
264 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
265 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
266 |
!SourceCodeManagerUtilities class methodsFor:'utilities-cvs'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
267 |
|
| 2691 | 268 |
changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
269 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
270 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
271 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
272 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
273 |
|
| 2691 | 274 |
^self default changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager |
275 |
||
276 |
"Created: / 29-12-2011 / 14:28:08 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
277 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
278 |
|
| 2691 | 279 |
changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision usingManager:aSourceCodeManager |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
280 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
281 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
282 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
283 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
284 |
|
| 2691 | 285 |
^self default |
286 |
changeSetForExtensionMethodsForPackage:packageToCheckOut |
|
287 |
revision:revisionOrNil |
|
288 |
orAskForRevision:askForRevision |
|
289 |
usingManager:aSourceCodeManager |
|
290 |
||
291 |
"Created: / 29-12-2011 / 14:28:14 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
292 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
293 |
|
| 2691 | 294 |
checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
295 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
296 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
297 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
298 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
299 |
|
| 2691 | 300 |
^self default checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate |
301 |
||
302 |
"Created: / 29-12-2011 / 14:30:37 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
303 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
304 |
|
| 2691 | 305 |
checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
306 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
307 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
308 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
309 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
310 |
|
| 2691 | 311 |
^self default checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate |
312 |
||
313 |
"Created: / 29-12-2011 / 14:29:02 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
314 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
315 |
|
| 2691 | 316 |
checkForExistingModule:module usingManager:mgr allowCreate:allowCreate |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
317 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
318 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
319 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
320 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
321 |
|
| 2691 | 322 |
^self default checkForExistingModule:module usingManager:mgr allowCreate:allowCreate |
323 |
||
324 |
"Created: / 29-12-2011 / 14:30:00 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
325 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
326 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
327 |
checkinClass:aClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
328 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
329 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
330 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
331 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
332 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
333 |
^self default checkinClass:aClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
334 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
335 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
336 |
checkinClass:aClass withInfo:aLogInfoOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
337 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
338 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
339 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
340 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
341 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
342 |
^self default checkinClass:aClass withInfo:aLogInfoOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
343 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
344 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
345 |
checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass |
| 2569 | 346 |
|
347 |
<resource: #obsolete> |
|
348 |
||
349 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
350 |
||
351 |
^self default checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
352 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
353 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
354 |
checkinClasses:aCollectionOfClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
355 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
356 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
357 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
358 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
359 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
360 |
^self default checkinClasses:aCollectionOfClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
361 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
362 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
363 |
checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
364 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
365 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
366 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
367 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
368 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
369 |
^self default checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
370 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
371 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
372 |
checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses |
| 2569 | 373 |
|
374 |
<resource: #obsolete> |
|
375 |
||
376 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
377 |
||
378 |
^self default checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
379 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
380 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
381 |
checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
382 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
383 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
384 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
385 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
386 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
387 |
^self default checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
388 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
389 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
390 |
checkoutClass:aClass askForMerge:askForMerge |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
391 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
392 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
393 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
394 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
395 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
396 |
^self default checkoutClass:aClass askForMerge:askForMerge |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
397 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
398 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
399 |
checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
400 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
401 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
402 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
403 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
404 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
405 |
^self default checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
406 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
407 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
408 |
checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
409 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
410 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
411 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
412 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
413 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
414 |
^self default checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
415 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
416 |
|
| 2691 | 417 |
checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
418 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
419 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
420 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
421 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
422 |
|
| 2691 | 423 |
^self default checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager |
424 |
||
425 |
"Created: / 29-12-2011 / 14:34:24 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
426 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
427 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
428 |
compareClassWithRepository:aClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
429 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
430 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
431 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
432 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
433 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
434 |
^self default compareClassWithRepository:aClass |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
435 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
436 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
437 |
compareClassWithRepository:aClass askForRevision:askForRevision |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
438 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
439 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
440 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
441 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
442 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
443 |
^self default compareClassWithRepository:aClass askForRevision:askForRevision |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
444 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
445 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
446 |
compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
447 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
448 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
449 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
450 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
451 |
|
| 3926 | 452 |
^self compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
453 |
! |
|
454 |
||
455 |
compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
|
456 |
||
457 |
<resource: #obsolete> |
|
458 |
||
459 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
460 |
||
461 |
^self default compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
462 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
463 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
464 |
compareProjectWithRepository:aProject |
| 2569 | 465 |
|
466 |
<resource: #obsolete> |
|
467 |
||
468 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
469 |
||
470 |
^self default compareProjectWithRepository:aProject |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
471 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
472 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
473 |
createSourceContainerForClass:aClass |
| 2569 | 474 |
|
475 |
<resource: #obsolete> |
|
476 |
||
477 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
478 |
||
479 |
^self default createSourceContainerForClass:aClass |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
480 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
481 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
482 |
defineSourceContainerForClass:aClass title:title text:boxText createDirectories:createDirs createContainer:createContainer |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
483 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
484 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
485 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
486 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
487 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
488 |
^self default defineSourceContainerForClass:aClass title:title text:boxText createDirectories:createDirs createContainer:createContainer |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
489 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
490 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
491 |
diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
492 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
493 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
494 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
495 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
496 |
|
| 3926 | 497 |
^self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
498 |
! |
|
499 |
||
500 |
diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
|
501 |
||
502 |
<resource: #obsolete> |
|
503 |
||
504 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
505 |
||
506 |
^self default |
|
507 |
diffSetOfProject:aProject |
|
508 |
againstRepositoryVersionFrom:aDateOrNilForNewest |
|
509 |
extensionsOnly:extensionsOnly |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
510 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
511 |
|
| 2691 | 512 |
ensureCorrectVersionMethodsInClass:aClass usingManager:aManager |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
513 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
514 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
515 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
516 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
517 |
|
| 2691 | 518 |
^self default ensureCorrectVersionMethodsInClass:aClass usingManager:aManager |
519 |
||
520 |
"Created: / 29-12-2011 / 14:33:37 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
521 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
522 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
523 |
getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
524 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
525 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
526 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
527 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
528 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
529 |
^self default getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
530 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
531 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
532 |
removeSourceContainerForClass:aClass |
| 2569 | 533 |
|
534 |
<resource: #obsolete> |
|
535 |
||
536 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
537 |
||
538 |
^self default removeSourceContainerForClass:aClass |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
539 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
540 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
541 |
removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
542 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
543 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
544 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
545 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
546 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
547 |
^self default removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
548 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
549 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
550 |
repositoryLogOf:aClass onto:aStream |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
551 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
552 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
553 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
554 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
555 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
556 |
^self default repositoryLogOf:aClass onto:aStream |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
557 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
558 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
559 |
repositoryLogOf:aClass short:shortOrNot onto:aStream |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
560 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
561 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
562 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
563 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
564 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
565 |
^self default repositoryLogOf:aClass short:shortOrNot onto:aStream |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
566 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
567 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
568 |
tagClass:aClass as:tag |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
569 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
570 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
571 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
572 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
573 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
574 |
^self default tagClass:aClass as:tag |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
575 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
576 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
577 |
tagClasses:aCollectionOfClasses as:tag |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
578 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
579 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
580 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
581 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
582 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
583 |
^self default tagClasses:aCollectionOfClasses as:tag |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
584 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
585 |
|
| 2691 | 586 |
tagPath:aPath as:tag usingManager:aManager |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
587 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
588 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
589 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
590 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
591 |
|
| 2691 | 592 |
^self default tagPath:aPath as:tag usingManager:aManager |
593 |
||
594 |
"Created: / 29-12-2011 / 14:31:43 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
595 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
596 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
597 |
!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-helpers'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
598 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
599 |
getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
600 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
601 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
602 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
603 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
604 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
605 |
^self default getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
606 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
607 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
608 |
!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-user interaction'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
609 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
610 |
askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
611 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
612 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
613 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
614 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
615 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
616 |
^self default askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
617 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
618 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
619 |
askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
620 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
621 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
622 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
623 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
624 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
625 |
^self default askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
626 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
627 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
628 |
askForExistingRevision:boxText title:title class:aClass |
| 2570 | 629 |
|
630 |
<resource: #obsolete> |
|
631 |
||
632 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
633 |
||
634 |
^self default askForExistingRevision:boxText title:title class:aClass |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
635 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
636 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
637 |
askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
638 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
639 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
640 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
641 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
642 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
643 |
^self default askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
644 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
645 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
646 |
checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
647 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
648 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
649 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
650 |
self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
651 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
652 |
^self default checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
653 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
654 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
655 |
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil |
| 2795 | 656 |
^self default |
657 |
getCheckinInfoFor:aClassNameOrPackageNameString |
|
658 |
initialAnswer:initialAnswerOrNil |
|
659 |
||
660 |
"Modified: / 12-03-2012 / 12:56:45 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
661 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
662 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
663 |
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption |
| 2795 | 664 |
^self default |
665 |
getCheckinInfoFor:aClassNameOrPackageNameString |
|
666 |
initialAnswer:initialAnswerOrNil |
|
667 |
withQuickOption:withQuickOption |
|
668 |
||
669 |
"Modified: / 12-03-2012 / 12:56:50 / cg" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
670 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
671 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
672 |
goodInitialLogMessageForCheckinClassOfClass:aClass |
| 4230 | 673 |
"figure out, if there were any non-comment changes. |
674 |
Provide a reasonable initial log message (I am tired of typing in 'comment only'). |
|
675 |
This is a q&d hack - not complete and not correct (for example, it will generate a method change |
|
676 |
info line, even if the selector was removed afterwards). |
|
677 |
So check the outcome." |
|
678 |
||
679 |
||
680 |
"/ a helper function |
|
681 |
|printSelectors initialLogStream additionalInfoPerChangedSelector changesForThisCheckin changesPerClass| |
|
682 |
||
683 |
printSelectors := |
|
684 |
[:what :selectors :more | |
|
685 |
|sel moreInfo| |
|
686 |
||
687 |
selectors remove:nil ifAbsent:[]. |
|
688 |
initialLogStream nextPutAll:(what,':'). |
|
689 |
selectors size < 15 ifTrue:[ |
|
690 |
selectors size == 1 ifTrue:[ |
|
691 |
sel := selectors first. |
|
692 |
initialLogStream nextPutAll: ' #'; nextPutAll:sel. |
|
693 |
more ifTrue:[ |
|
694 |
(moreInfo := additionalInfoPerChangedSelector at:sel ifAbsent:nil) notNil ifTrue:[ |
|
695 |
initialLogStream space; nextPutAll:moreInfo. |
|
696 |
] |
|
697 |
]. |
|
698 |
initialLogStream cr. |
|
699 |
] ifFalse:[ |
|
700 |
initialLogStream cr. |
|
701 |
selectors asSortedCollection do:[:sel | |
|
702 |
initialLogStream tab; nextPutAll:'#'; nextPutAll:sel. |
|
703 |
more ifTrue:[ |
|
704 |
(moreInfo := additionalInfoPerChangedSelector at:sel ifAbsent:nil) notNil ifTrue:[ |
|
705 |
initialLogStream space; nextPutAll:moreInfo. |
|
706 |
]. |
|
707 |
]. |
|
708 |
initialLogStream cr |
|
709 |
]. |
|
710 |
]. |
|
711 |
] ifFalse:[ |
|
712 |
initialLogStream |
|
713 |
print: (selectors size); nextPutAll: ' methods'; cr. |
|
714 |
]. |
|
715 |
]. |
|
716 |
||
717 |
changesForThisCheckin := ChangeSet current |
|
718 |
select:[:aChange | |
|
719 |
|changeClass| |
|
720 |
||
721 |
aChange isClassChange and:[ |
|
722 |
changeClass := aChange changeClass theNonMetaclass. |
|
723 |
changeClass == aClass or:[changeClass topOwningClass == aClass] |
|
724 |
]. |
|
725 |
]. |
|
726 |
||
727 |
changesForThisCheckin sort:[:a :b| a className < b className]. |
|
728 |
changesPerClass := changesForThisCheckin asCollectionOfSubCollectionsSeparatedByAnyChange:[:prev :curr| prev className ~= curr className]. |
|
729 |
||
730 |
initialLogStream := '' writeStream. |
|
731 |
||
732 |
changesPerClass do:[:changesForThisClass| |
|
733 |
|selectorsInChangeSet newSelectors modifiedSelectors definitionChangesForThisClass methodChangesForThisClass |
|
734 |
allMethodChangesForThisClass modifiedMethodsForThisClass newMethodsForThisClass removedMethodsForThisClass |
|
735 |
selectorsWithCommentOrFormattingChangeOnly |
|
736 |
selectorsWithVariableChangeOnly newSelectorsRemoved |
|
737 |
removedSelectors categoryChanges categoryChangeSelectors| |
|
738 |
||
739 |
additionalInfoPerChangedSelector := Dictionary new. |
|
740 |
definitionChangesForThisClass := changesForThisClass reject:[:aChange | aChange isMethodChange]. |
|
741 |
categoryChanges := changesForThisClass select:[:aChange | aChange isMethodCategoryChange]. |
|
742 |
categoryChangeSelectors := categoryChanges collect:[:aChange | aChange changeSelector] as:Set. |
|
743 |
allMethodChangesForThisClass := changesForThisClass select:[:aChange | aChange isMethodCodeChange]. |
|
744 |
selectorsInChangeSet := allMethodChangesForThisClass collect:[:aChange | aChange changeSelector] as:Set. |
|
745 |
methodChangesForThisClass := selectorsInChangeSet collect:[:eachSelector | |
|
746 |
allMethodChangesForThisClass detectLast:[:change | change changeSelector = eachSelector]] as:OrderedCollection. |
|
747 |
||
748 |
modifiedMethodsForThisClass := methodChangesForThisClass |
|
749 |
select:[:aChange | aChange previousVersion notNil]. |
|
750 |
modifiedSelectors := modifiedMethodsForThisClass collect:[:aChange | aChange changeSelector] as:Set. |
|
751 |
||
752 |
newMethodsForThisClass := allMethodChangesForThisClass |
|
753 |
select:[:aChange | aChange previousVersion isNil]. |
|
754 |
newSelectors := newMethodsForThisClass collect:[:aChange | aChange changeSelector] as:Set. |
|
755 |
||
756 |
removedMethodsForThisClass := changesForThisClass |
|
757 |
select:[:aChange | aChange isMethodRemoveChange and:[ aChange changeMethod isNil ]]. |
|
758 |
removedSelectors := removedMethodsForThisClass collect:[:aChange | aChange changeSelector] as:Set. |
|
759 |
||
760 |
"/ get rid of category changes for new and removed methods |
|
761 |
categoryChanges := categoryChanges reject:[:chg | |
|
762 |
|methodWithChangedCat| |
|
763 |
||
764 |
(methodWithChangedCat := chg changeMethod) isNil |
|
765 |
or:[ newMethodsForThisClass contains:[:newChg | newChg changeMethod = methodWithChangedCat]]]. |
|
766 |
||
767 |
initialLogStream nextPutLine:'class: ', changesForThisClass first className. |
|
768 |
||
769 |
"/ definition? |
|
770 |
"/ suppress definition-message if initial checkin |
|
771 |
(aClass package isNil or:[aClass revision isNil]) ifFalse:[ |
|
772 |
definitionChangesForThisClass notEmpty ifTrue:[ |
|
773 |
"/ self halt. |
|
774 |
initialLogStream nextPutLine:'class definition'. |
|
775 |
]. |
|
776 |
]. |
|
777 |
||
778 |
"/ added selectors? |
|
779 |
newSelectorsRemoved := newSelectors select:[:sel | removedSelectors includes:sel]. |
|
780 |
||
781 |
newSelectors removeAllFoundIn:removedSelectors. |
|
782 |
newSelectors notEmpty ifTrue:[ |
|
783 |
printSelectors value:'added' value:newSelectors value:false. |
|
784 |
]. |
|
785 |
modifiedSelectors removeAllFoundIn:newSelectors. |
|
786 |
categoryChangeSelectors removeAllFoundIn:newSelectors. |
|
787 |
||
788 |
"/ removed selectors? |
|
789 |
removedSelectors removeAllFoundIn:newSelectorsRemoved. |
|
790 |
removedSelectors notEmpty ifTrue:[ |
|
791 |
printSelectors value:'removed' value:removedSelectors value:false. |
|
792 |
]. |
|
793 |
modifiedSelectors removeAllFoundIn:removedSelectors. |
|
794 |
categoryChangeSelectors removeAllFoundIn:removedSelectors. |
|
795 |
||
796 |
"/ modifications? |
|
797 |
modifiedSelectors notEmpty ifTrue:[ |
|
798 |
selectorsWithCommentOrFormattingChangeOnly := Set new. |
|
799 |
selectorsWithVariableChangeOnly := Set new. |
|
800 |
||
801 |
"/ check for format/comment change |
|
802 |
RBParser notNil ifTrue:[ |
|
803 |
modifiedSelectors do:[:eachSelector | |
|
804 |
|oldest newest oldMethod newMethod oldTree newTree |
|
805 |
variableMapping selectorMapping unchangedVariables unchangedSelectors| |
|
806 |
||
807 |
(newSelectors includes:eachSelector) ifFalse:[ |
|
808 |
oldest := allMethodChangesForThisClass detect:[:change | change changeSelector = eachSelector]. |
|
809 |
newest := allMethodChangesForThisClass detectLast:[:change | change changeSelector = eachSelector]. |
|
810 |
||
811 |
oldest := oldest previousVersion notNil ifTrue:[oldest previousVersion] ifFalse:[oldest]. |
|
812 |
||
813 |
oldTree := RBParser parseMethod:oldest source onError:[:aString :pos | nil]. |
|
814 |
newTree := RBParser parseMethod:newest source onError:[:aString :pos | nil]. |
|
815 |
||
816 |
(oldTree notNil and:[newTree notNil]) ifTrue:[ |
|
817 |
variableMapping := Dictionary new. |
|
818 |
(oldTree "semanticallyEqualTo:" equalTo:newTree withMapping: variableMapping) ifTrue:[ |
|
819 |
unchangedVariables := variableMapping keys select:[:k | (variableMapping at:k) = k]. |
|
820 |
variableMapping removeAllKeys:unchangedVariables. |
|
821 |
||
822 |
(variableMapping at:'self' ifAbsent:'self') = 'self' ifTrue:[ |
|
823 |
((variableMapping associations count:[:assoc | assoc key ~= assoc value]) == 0) ifTrue:[ |
|
824 |
selectorsWithCommentOrFormattingChangeOnly add:eachSelector. |
|
825 |
] ifFalse:[ |
|
826 |
"/ check, if a global has changed (aka sends to another global) |
|
827 |
((variableMapping keys contains:[:var | var first isUppercase]) |
|
828 |
or:[ (variableMapping values contains:[:var | var first isUppercase]) ]) ifFalse:[ |
|
829 |
selectorsWithVariableChangeOnly add:eachSelector. |
|
830 |
]. |
|
831 |
]. |
|
832 |
]. |
|
833 |
] ifFalse:[ |
|
834 |
selectorMapping := Dictionary new. |
|
835 |
(oldTree equalTo:newTree withSelectorMapping: selectorMapping) ifTrue:[ |
|
836 |
unchangedSelectors := selectorMapping keys select:[:k | (selectorMapping at:k) = k]. |
|
837 |
selectorMapping removeAllKeys:unchangedSelectors. |
|
838 |
(selectorMapping notEmpty and:[selectorMapping size <= 2]) ifTrue:[ |
|
839 |
additionalInfoPerChangedSelector at:eachSelector put:( |
|
840 |
String streamContents:[:s | |
|
841 |
|first| |
|
842 |
||
843 |
s nextPutAll:'('.
|
|
844 |
first := true. |
|
845 |
selectorMapping keysAndValuesDo:[:selOld :selNew | |
|
846 |
first ifFalse:[s nextPutAll:', ']. |
|
847 |
s print:('send #',selNew,' instead of #',selOld).
|
|
848 |
first := false. |
|
849 |
]. |
|
850 |
s nextPutAll:')'. |
|
851 |
]). |
|
852 |
] |
|
853 |
] |
|
854 |
]. |
|
855 |
]. |
|
856 |
] |
|
857 |
]. |
|
858 |
]. |
|
859 |
||
860 |
modifiedSelectors removeAllFoundIn:selectorsWithCommentOrFormattingChangeOnly. |
|
861 |
modifiedSelectors removeAllFoundIn:selectorsWithVariableChangeOnly. |
|
862 |
||
863 |
(selectorsWithCommentOrFormattingChangeOnly notEmpty) ifTrue:[ |
|
864 |
printSelectors value:'comment/format in' value:selectorsWithCommentOrFormattingChangeOnly value:false. |
|
865 |
]. |
|
866 |
(selectorsWithVariableChangeOnly notEmpty) ifTrue:[ |
|
867 |
printSelectors value:'variable renamed in' value:selectorsWithVariableChangeOnly value:false. |
|
868 |
]. |
|
869 |
(modifiedSelectors notEmpty) ifTrue:[ |
|
870 |
printSelectors value:'changed' value:modifiedSelectors value:true. |
|
871 |
]. |
|
872 |
]. |
|
873 |
categoryChanges notEmpty ifTrue:[ |
|
874 |
printSelectors value:'category of' value:categoryChangeSelectors value:false. |
|
875 |
]. |
|
876 |
] separatedBy:[ |
|
877 |
initialLogStream cr. |
|
878 |
]. |
|
879 |
^ initialLogStream contents |
|
880 |
||
881 |
"Modified: / 17-03-2017 / 18:39:28 / stefan" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
882 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
883 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
884 |
!SourceCodeManagerUtilities class methodsFor:'utilities-encoding'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
885 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
886 |
guessEncodingOfFile:aFilename |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
887 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
888 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
889 |
|
| 2818 | 890 |
self obsoleteMethodWarning:'ask CharacterEncoder'. |
891 |
^ CharacterEncoder guessEncodingOfFile:aFilename |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
892 |
! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
893 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
894 |
guessEncodingOfStream:aStream |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
895 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
896 |
<resource: #obsolete> |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
897 |
|
|
2817
8a836ca902d4
changed: #guessEncodingOfStream:
Stefan Vogel <sv@exept.de>
parents:
2796
diff
changeset
|
898 |
self obsoleteMethodWarning:'ask CharacterEncoder'. |
|
8a836ca902d4
changed: #guessEncodingOfStream:
Stefan Vogel <sv@exept.de>
parents:
2796
diff
changeset
|
899 |
^ CharacterEncoder guessEncodingOfStream:aStream |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
900 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
901 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
902 |
!SourceCodeManagerUtilities methodsFor:'accessing'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
903 |
|
| 2847 | 904 |
confirmNewFiles:aBoolean |
905 |
"if true, ask if new files are about to be added to the repo" |
|
906 |
||
907 |
confirmNewFiles := aBoolean. |
|
908 |
||
909 |
"Modified (comment): / 24-07-2012 / 18:18:34 / cg" |
|
910 |
! |
|
911 |
||
| 2795 | 912 |
lastSourceLogMessageHeadlines |
913 |
LastSourceLogMessage isNil ifTrue:[ |
|
914 |
LastSourceLogMessages := OrderedCollection new. |
|
915 |
]. |
|
916 |
^ LastSourceLogMessages |
|
917 |
collect:[:msg | |
|
918 |
msg withoutLeadingSeparators asCollectionOfLines first , '...' |
|
919 |
] |
|
920 |
||
921 |
"Created: / 12-03-2012 / 12:34:35 / cg" |
|
922 |
! |
|
923 |
||
| 2569 | 924 |
yesToAllNotification |
925 |
||
926 |
^self class yesToAllNotification |
|
927 |
||
928 |
"Created: / 11-10-2011 / 12:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
929 |
! |
|
930 |
||
931 |
yesToAllQuery |
|
932 |
||
933 |
^self class yesToAllQuery |
|
934 |
||
935 |
"Created: / 11-10-2011 / 12:01:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
936 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
937 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
938 |
!SourceCodeManagerUtilities methodsFor:'error handling'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
939 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
940 |
doesNotUnderstand: aMessage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
941 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
942 |
(self class respondsTo: aMessage selector) ifTrue:[ |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
943 |
"Bad, method is not moved the the instance side" |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
944 |
self breakPoint: #jv. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
945 |
self breakPoint: #cg. |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
946 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
947 |
^aMessage sendTo: self class |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
948 |
] ifFalse:[ |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
949 |
^super doesNotUnderstand: aMessage |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
950 |
] |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
951 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
952 |
"Created: / 10-10-2011 / 14:02:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
953 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
954 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
955 |
!SourceCodeManagerUtilities methodsFor:'initialization'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
956 |
|
|
2597
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
957 |
initialize |
| 2847 | 958 |
confirmNewFiles := true. |
|
3551
e8feddd829f9
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3546
diff
changeset
|
959 |
resources := self class classResources. |
|
2597
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
960 |
|
|
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
961 |
"Modified: / 13-10-2011 / 11:03:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 2847 | 962 |
"Modified: / 24-07-2012 / 18:17:57 / cg" |
|
2597
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
963 |
! |
|
fcb5d74b32d2
More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities
vrany
parents:
2596
diff
changeset
|
964 |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
965 |
setManager: aSourceCodeManager |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
966 |
|
| 2847 | 967 |
manager := aSourceCodeManager. |
968 |
manager isContainerBased ifFalse:[ |
|
969 |
confirmNewFiles isNil "not yet set by user" ifTrue:[ |
|
970 |
confirmNewFiles := false. |
|
971 |
] |
|
972 |
]. |
|
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
973 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
974 |
"Created: / 10-10-2011 / 11:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 2847 | 975 |
"Modified: / 25-07-2012 / 08:35:35 / cg" |
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
976 |
! ! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
977 |
|
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
978 |
!SourceCodeManagerUtilities methodsFor:'utilities'! |
|
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
979 |
|
| 2569 | 980 |
classIsNotYetInRepository:aClass withManager:mgr |
981 |
|info| |
|
982 |
||
983 |
info := mgr sourceInfoOfClass:aClass. |
|
984 |
||
985 |
^ (info isNil |
|
986 |
or:[(info at:#fileName ifAbsent:nil) isNil |
|
987 |
or:[(info at:#module ifAbsent:nil) isNil |
|
988 |
or:[(info at:#directory ifAbsent:nil) isNil]]]) |
|
989 |
||
990 |
"Created: / 25-10-2006 / 09:43:00 / cg" |
|
991 |
! |
|
992 |
||
| 2673 | 993 |
defaultManager |
994 |
^ manager |
|
995 |
||
996 |
"Created: / 22-12-2011 / 10:59:28 / cg" |
|
997 |
! |
|
998 |
||
|
2556
7d79bba1a1fa
Methods moved to an instance side (with forwarding from class side)
vrany
parents:
2539
diff
changeset
|
999 |
nameOfExtensionsContainer |
| 1704 | 1000 |
^ 'extensions.st' |
1001 |
! |
|
1002 |
||
| 1375 | 1003 |
setPackageOfAllMethodsIn:aClass to:aPackage |
1004 |
"make all methods belong to the classes project" |
|
|
933
84fd7806afaf
offer existing modules/packages in source-container dialog
Claus Gittinger <cg@exept.de>
parents:
923
diff
changeset
|
1005 |
|
| 1375 | 1006 |
|anyChange anyChangeHere| |
| 893 | 1007 |
|
| 1375 | 1008 |
anyChange := false. |
1009 |
aClass withAllPrivateClassesDo:[:eachClass | |
|
1010 |
anyChangeHere := false. |
|
1011 |
eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | |
|
1012 |
mthd package ~= aPackage ifTrue:[ |
|
1013 |
mthd setPackage:aPackage. |
|
1014 |
anyChangeHere := true. |
|
1015 |
]. |
|
1016 |
]. |
|
1017 |
anyChangeHere ifTrue:[ |
|
1018 |
eachClass changed:#projectOrganization |
|
1019 |
]. |
|
1020 |
anyChangeHere ifTrue:[anyChange := true]. |
|
| 893 | 1021 |
]. |
| 1375 | 1022 |
anyChange ifTrue:[ |
1023 |
Smalltalk changed:#projectOrganization |
|
| 1185 | 1024 |
]. |
| 1375 | 1025 |
^ anyChange |
| 893 | 1026 |
! |
1027 |
||
| 2193 | 1028 |
setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage |
1029 |
"make all methods belong to the classes project" |
|
1030 |
||
1031 |
aChangeSet do:[:eachChange | |
|
1032 |
eachChange isMethodCodeChange ifTrue:[ |
|
1033 |
eachChange changeMethod package ~= aPackage ifTrue:[ |
|
1034 |
Transcript showCR:'change package of ',eachChange changeMethod whoString. |
|
1035 |
eachChange changeMethod setPackage:aPackage. |
|
1036 |
] |
|
1037 |
] |
|
1038 |
]. |
|
1039 |
! |
|
1040 |
||
|
3134
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1041 |
sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:scmManagerOrNil |
| 2847 | 1042 |
|s methodsSortedByName defClass| |
1043 |
||
|
3201
f0993e3fdf02
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3199
diff
changeset
|
1044 |
s := CharacterWriteStream on:(String new:1000). |
| 2847 | 1045 |
|
1046 |
s nextPutAll:'"{ Package: '''.
|
|
1047 |
s nextPutAll:aPackageID asString. |
|
1048 |
s nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr. |
|
1049 |
||
1050 |
"/ don't write a timestamp. Otherwise we would always generate a new version, even if nothing changed |
|
1051 |
"/ s nextPutAll:(Smalltalk timeStamp). |
|
1052 |
"/ s nextPutChunkSeparator. |
|
1053 |
"/ s cr; cr. |
|
1054 |
||
1055 |
"/ sort them by name (to avoid conflicts due to SCM merge) |
|
1056 |
methodsSortedByName := aCollectionOfMethods asOrderedCollection. |
|
1057 |
methodsSortedByName sort:[:a :b | |
|
1058 |
|clsA clsB| |
|
1059 |
||
1060 |
clsA := a mclass name. |
|
1061 |
clsB := b mclass name. |
|
1062 |
clsA < clsB ifTrue:[ |
|
1063 |
true |
|
1064 |
] ifFalse:[ |
|
1065 |
clsA > clsB ifTrue:[ |
|
1066 |
false |
|
1067 |
] ifFalse:[ |
|
1068 |
a selector < b selector |
|
1069 |
] |
|
1070 |
] |
|
1071 |
]. |
|
1072 |
methodsSortedByName do:[:aMethod | |
|
1073 |
aMethod mclass fileOutMethod:aMethod on:s. |
|
1074 |
s cr. |
|
1075 |
]. |
|
1076 |
||
|
3134
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1077 |
scmManagerOrNil notNil ifTrue:[ |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1078 |
defClass := ProjectDefinition definitionClassForPackage:aPackageID. |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1079 |
defClass notNil ifTrue:[ |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1080 |
"/ make sure, an extensionVersion_XXX method is included... |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1081 |
"/ (notice: no need to support a secondary backward compatible non-manager related version method here) |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1082 |
(methodsSortedByName contains:[:aMethod | aMethod selector == scmManagerOrNil nameOfVersionMethodForExtensions]) ifFalse:[ |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1083 |
s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
|
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1084 |
s cr. |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1085 |
s nextChunkPut: |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1086 |
(scmManagerOrNil versionMethodTemplateForSmalltalkFor:(scmManagerOrNil nameOfVersionMethodForExtensions)). |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1087 |
s space; nextPutChunkSeparator; cr. |
|
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
1088 |
]. |
| 2847 | 1089 |
]. |
1090 |
]. |
|
1091 |
||
1092 |
^ s contents. |
|
1093 |
||
1094 |
"Created: / 25-07-2012 / 18:38:05 / cg" |
|
1095 |
! |
|
1096 |
||
| 1375 | 1097 |
sourceCodeManagerFor:aClass |
|
3370
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
1098 |
manager notNil ifTrue:[^ manager]. |
|
9953065c1ea1
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3354
diff
changeset
|
1099 |
^ self class sourceCodeManagerFor:aClass. |
|
1449
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1100 |
! |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1101 |
|
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1102 |
sourceCodeOfClass:aClass |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1103 |
|stream src| |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1104 |
|
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1105 |
stream := '' writeStream. |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1106 |
Method flushSourceStreamCache. |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1107 |
aClass fileOutOn:stream withTimeStamp:false. |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1108 |
src := stream contents asString. |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1109 |
stream close. |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
1110 |
^ src |
|
2326
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1111 |
! |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1112 |
|
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1113 |
validateConsistencyOfPackage:aPackage |
|
3146
913e76c86499
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3140
diff
changeset
|
1114 |
^ self validateConsistencyOfPackage:aPackage doClasses:true doExtensions:true |
|
913e76c86499
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3140
diff
changeset
|
1115 |
! |
|
913e76c86499
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3140
diff
changeset
|
1116 |
|
|
913e76c86499
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3140
diff
changeset
|
1117 |
validateConsistencyOfPackage:aPackage doClasses:doClasses doExtensions:doExtensions |
|
3692
ce00ca02e94a
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3683
diff
changeset
|
1118 |
|checker report msg answer dialog problems numProblems| |
|
3155
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
1119 |
|
|
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
1120 |
"/ also done by ProjectChecker... |
|
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
1121 |
"/ defClass := aPackage asPackageId projectDefinitionClass. |
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1122 |
"/ defClass validateDescription. |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1123 |
|
|
3146
913e76c86499
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3140
diff
changeset
|
1124 |
checker := ProjectChecker new. |
|
913e76c86499
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3140
diff
changeset
|
1125 |
checker checkExtensionsOnly:(doClasses not and:[ doExtensions ]). |
|
3155
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
1126 |
report := checker check: aPackage. |
|
3692
ce00ca02e94a
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3683
diff
changeset
|
1127 |
(report notNil and:[(problems := report problems) notEmptyOrNil]) ifTrue:[ |
|
ce00ca02e94a
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3683
diff
changeset
|
1128 |
numProblems := problems size. |
|
ce00ca02e94a
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3683
diff
changeset
|
1129 |
numProblems == 1 ifTrue:[ |
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1130 |
msg := 'The ProblemChecker found the following error/inconsistency:\\ %2\\Need more detail or help for repair?' |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1131 |
] ifFalse:[ |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1132 |
msg := 'The ProblemChecker found %1 errors/inconsistencies.\\Browse them for detail or repair?' |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1133 |
]. |
|
3692
ce00ca02e94a
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3683
diff
changeset
|
1134 |
answer := Dialog confirmWithCancel:(msg bindWith:numProblems |
|
ce00ca02e94a
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3683
diff
changeset
|
1135 |
with:problems first label) withCRs. |
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1136 |
answer isNil ifTrue:[ |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1137 |
"/ cancel |
|
3433
eee3079d18d3
AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents:
3425
diff
changeset
|
1138 |
AbortOperationRequest raiseRequest |
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1139 |
]. |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1140 |
answer == true ifTrue:[ |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1141 |
dialog := Tools::ProjectCheckerBrowser new. |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1142 |
dialog |
|
3155
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
1143 |
projectChecker: (ProjectChecker forPackage: aPackage); |
|
3692
ce00ca02e94a
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3683
diff
changeset
|
1144 |
problemList:problems; |
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1145 |
showCancel:true; |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1146 |
openModal. |
|
3155
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
1147 |
|
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1148 |
dialog accepted ifFalse:[ |
|
3433
eee3079d18d3
AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents:
3425
diff
changeset
|
1149 |
AbortOperationRequest raiseRequest |
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1150 |
]. |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1151 |
]. |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1152 |
]. |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1153 |
! |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
1154 |
|
|
2326
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1155 |
versionString:a isLessThan:b |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1156 |
"compare two strings of the form: a.b.c..." |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1157 |
|
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1158 |
|i1 i2 a1 b1 rest1 rest2| |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1159 |
|
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1160 |
i1 := a indexOf:$. . |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1161 |
i2 := b indexOf:$. . |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1162 |
i1 == 0 ifTrue:[ |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1163 |
i1 := a size + 1. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1164 |
]. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1165 |
i2 == 0 ifTrue:[ |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1166 |
i2 := b size + 1. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1167 |
]. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1168 |
|
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1169 |
a1 := Integer readFrom:(a copyTo:i1-1). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1170 |
b1 := Integer readFrom:(b copyTo:i2-1). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1171 |
a1 < b1 ifTrue:[^ true]. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1172 |
a1 > b1 ifTrue:[^ false]. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1173 |
rest1 := (a copyFrom:i1+1). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1174 |
rest2 := (b copyFrom:i2+1). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1175 |
rest1 isEmpty ifTrue:[ |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1176 |
^ rest2 notEmpty |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1177 |
]. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1178 |
rest2 isEmpty ifTrue:[ |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1179 |
^ false |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1180 |
]. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1181 |
^ self versionString:rest1 isLessThan:rest2 |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1182 |
|
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1183 |
" |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1184 |
self assert:(self versionString:'12.34.66' isLessThan:'12.35.66'). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1185 |
self assert:(self versionString:'12.34.66' isLessThan:'12.35.67'). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1186 |
self assert:(self versionString:'11.34.66' isLessThan:'12.34.67'). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1187 |
self assert:(self versionString:'11.35.66' isLessThan:'12.34.67'). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1188 |
self assert:(self versionString:'13.35.66' isLessThan:'12.34.67') not. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1189 |
self assert:(self versionString:'13.35.66' isLessThan:'13.34.67') not. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1190 |
self assert:(self versionString:'13.35.66' isLessThan:'13.35.67'). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1191 |
self assert:(self versionString:'13.35.66' isLessThan:'13.35.65') not. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1192 |
self assert:(self versionString:'13.35.66.1' isLessThan:'13.35.66') not. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1193 |
self assert:(self versionString:'13.35.66' isLessThan:'13.35.66.1'). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1194 |
self assert:(self versionString:'13.35.66.2' isLessThan:'13.35.66.1') not. |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1195 |
self assert:(self versionString:'13.35.66.1' isLessThan:'13.35.66.2'). |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1196 |
" |
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1197 |
|
|
c0b55d3a8f08
added: #versionString:isLessThan:
Claus Gittinger <cg@exept.de>
parents:
2325
diff
changeset
|
1198 |
"Modified: / 17-02-2011 / 10:20:14 / cg" |
| 1375 | 1199 |
! ! |
| 1160 | 1200 |
|
| 4226 | 1201 |
!SourceCodeManagerUtilities methodsFor:'utilities-encoding'! |
1202 |
||
1203 |
guessEncodingOfFile:aFilename |
|
1204 |
"look for a string |
|
1205 |
encoding #name |
|
1206 |
or: |
|
1207 |
encoding: name |
|
1208 |
within the given buffer |
|
1209 |
(which is usually the first few bytes of a textFile). |
|
1210 |
If that's not found, use heuristics (in CharacterArray) to guess." |
|
1211 |
||
1212 |
<resource: #obsolete> |
|
1213 |
||
1214 |
self obsoleteMethodWarning:'ask CharacterEncoder'. |
|
1215 |
^ CharacterEncoder guessEncodingOfFile:aFilename |
|
1216 |
||
1217 |
" |
|
1218 |
SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_de.rs' asFilename |
|
1219 |
SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_ru.rs' asFilename |
|
1220 |
" |
|
1221 |
||
1222 |
"Modified (comment): / 14-01-2012 / 20:54:35 / cg" |
|
1223 |
! |
|
1224 |
||
1225 |
guessEncodingOfStream:aStream |
|
1226 |
"look for a string of the form |
|
1227 |
encoding #name |
|
1228 |
or: |
|
1229 |
encoding: name |
|
1230 |
in the first few bytes of aStream." |
|
1231 |
||
1232 |
<resource: #obsolete> |
|
1233 |
||
1234 |
self obsoleteMethodWarning:'ask CharacterEncoder'. |
|
1235 |
^ CharacterEncoder guessEncodingOfStream:aStream |
|
1236 |
! ! |
|
1237 |
||
1238 |
!SourceCodeManagerUtilities methodsFor:'utilities-scm'! |
|
|
973
b9004b37290a
check for #halt and #error when checking in
Claus Gittinger <cg@exept.de>
parents:
958
diff
changeset
|
1239 |
|
| 4201 | 1240 |
askForPackageVersion:question with:includeSubProjectsHolderOrNil knownTags:knownTags into:aTwoArgBlock |
1241 |
|dateFormat string dateOrNil symbolicNameOrNil| |
|
1242 |
||
1243 |
dateFormat := UserPreferences current dateInputFormat. |
|
1244 |
||
1245 |
Dialog |
|
1246 |
modifyingBoxWith:[:box | |
|
1247 |
includeSubProjectsHolderOrNil notNil ifTrue:[ |
|
1248 |
box verticalPanel |
|
1249 |
add:(CheckBox label:(resources string:'Include Subprojects') |
|
1250 |
model:includeSubProjectsHolderOrNil). |
|
1251 |
] |
|
1252 |
] |
|
1253 |
do:[ |
|
1254 |
|suggestion| |
|
1255 |
||
1256 |
suggestion := LastComparedTag. |
|
1257 |
suggestion isNil ifTrue:[ suggestion := Date today printStringFormat:dateFormat ]. |
|
1258 |
||
1259 |
string := Dialog |
|
1260 |
request:(resources string:question with:dateFormat) |
|
1261 |
initialAnswer:suggestion |
|
1262 |
list:knownTags. |
|
1263 |
]. |
|
1264 |
||
1265 |
string notEmptyOrNil ifTrue:[ |
|
1266 |
dateOrNil := Date readFrom:string printFormat:dateFormat onError:nil. |
|
1267 |
dateOrNil isNil ifTrue:[ |
|
1268 |
symbolicNameOrNil := string |
|
1269 |
]. |
|
1270 |
aTwoArgBlock value:dateOrNil value:symbolicNameOrNil. |
|
1271 |
]. |
|
1272 |
^ string |
|
1273 |
||
1274 |
"Created: / 04-02-2017 / 18:39:11 / cg" |
|
1275 |
"Modified: / 05-02-2017 / 04:24:23 / cg" |
|
1276 |
! |
|
1277 |
||
| 2691 | 1278 |
changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager |
|
1841
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1279 |
"check-out an extension container from the source repository, and return the methods there as a change set. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1280 |
If askForRevision is false, check-out the newest version. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1281 |
Return a changeSet or nil (if any error occurred)" |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1282 |
|
|
2242
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1283 |
^ self |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1284 |
changeSetForExtensionMethodsForPackage:packageToCheckOut |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1285 |
revision:nil orAskForRevision:askForRevision |
| 2691 | 1286 |
usingManager:aSourceCodeManager |
1287 |
||
1288 |
"Created: / 29-12-2011 / 14:26:01 / cg" |
|
|
2242
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1289 |
! |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1290 |
|
| 2691 | 1291 |
changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision usingManager:aSourceCodeManager |
|
2242
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1292 |
"check-out an extension container from the source repository, and return the methods there as a change set. |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1293 |
If askForRevision is false, check-out the newest version. |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1294 |
Return a changeSet or nil (if any error occurred)" |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1295 |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
1296 |
|directory module file aStream sourceToLoad rev msg newestRev | |
|
1841
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1297 |
|
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1298 |
directory := packageToCheckOut asPackageId directory. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1299 |
module := packageToCheckOut asPackageId module. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1300 |
file := self nameOfExtensionsContainer. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1301 |
|
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1302 |
"/ |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1303 |
"/ ask for revision |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1304 |
"/ |
|
2242
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1305 |
(rev := revisionOrNil) isNil ifTrue:[ |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1306 |
newestRev := aSourceCodeManager newestRevisionInFile:file directory:directory module:module. |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1307 |
askForRevision ifFalse:[ |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1308 |
rev := newestRev ? '' |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1309 |
] ifTrue:[ |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1310 |
msg := resources string:'CheckOut which revision of extensions for ''%1'': (empty for newest)' with:packageToCheckOut allBold. |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1311 |
newestRev notNil ifTrue:[ |
|
3261
7a585999dcef
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3259
diff
changeset
|
1312 |
msg := msg , '\' , (resources string:'Newest in repository is %1.' with:newestRev) |
|
2242
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1313 |
]. |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1314 |
|
| 2791 | 1315 |
rev := self |
|
2242
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1316 |
askForExistingRevision:msg |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1317 |
title:'CheckOut from repository' |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1318 |
class:nil |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1319 |
manager:aSourceCodeManager |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1320 |
module:module package:directory fileName:file. |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1321 |
|
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1322 |
rev isNil ifTrue:[ |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1323 |
^ nil "/ canceled |
|
8ea64354212d
added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using:
Claus Gittinger <cg@exept.de>
parents:
2237
diff
changeset
|
1324 |
]. |
|
1841
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1325 |
]. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1326 |
]. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1327 |
rev withoutSpaces isEmpty ifTrue:[ |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1328 |
rev := #newest. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1329 |
msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
|
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1330 |
] ifFalse:[ |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1331 |
msg := 'extracting previous %1'. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1332 |
]. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1333 |
aStream := aSourceCodeManager |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1334 |
streamForClass:nil |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1335 |
fileName:file |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1336 |
revision:rev |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1337 |
directory:directory |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1338 |
module:module |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1339 |
cache:true. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1340 |
|
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1341 |
aStream isNil ifTrue:[ |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1342 |
self warn:(resources string:'Could not extract "extensions.st" for %1 from repository' with:packageToCheckOut allBold). |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1343 |
^ nil |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1344 |
]. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1345 |
aStream class readErrorSignal handle:[:ex | |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1346 |
self warn:('read error while reading extracted source\\' , ex description) withCRs.
|
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1347 |
aStream close. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1348 |
^ nil |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1349 |
] do:[ |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1350 |
sourceToLoad := aStream contents asString. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1351 |
]. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1352 |
aStream close. |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1353 |
^ ChangeSet fromStream:(sourceToLoad readStream). |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1354 |
|
| 2691 | 1355 |
"Created: / 29-12-2011 / 14:27:00 / cg" |
|
1841
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1356 |
! |
|
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
1357 |
|
| 2691 | 1358 |
checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
1359 |
|moduleName directoryName containerName| |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
1360 |
|
| 1158 | 1361 |
moduleName := module allBold. |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
1362 |
directoryName := directory allBold. |
| 1158 | 1363 |
containerName := containerFileName allBold. |
1364 |
||
1365 |
"/ |
|
1366 |
"/ check for the container |
|
1367 |
"/ |
|
| 1787 | 1368 |
(mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[ |
| 1158 | 1369 |
allowCreate ifFalse:[ |
1370 |
self warn:(resources string:'A container for ''%1'' does not exist in ''%2:%3''' |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
1371 |
with:containerName with:moduleName with:directoryName) withCRs. |
| 1158 | 1372 |
^ false |
1373 |
]. |
|
1374 |
(Dialog |
|
1375 |
confirm:(resources string:'''%1'' is a new container (in ''%2:%3'').\\Create it ?' |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
1376 |
with:containerName with:moduleName with:directoryName) withCRs |
| 1158 | 1377 |
noLabel:'Cancel') |
1378 |
ifFalse:[ |
|
1379 |
^ false. |
|
1380 |
]. |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
1381 |
(mgr createContainerForText:'' inModule:module package:directory container:containerFileName) ifFalse:[ |
| 1158 | 1382 |
self warn:(resources string:'Cannot create new container: ''%1'' (in ''%2:%3'')' |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
1383 |
with:containerName with:moduleName with:directoryName). |
| 1158 | 1384 |
^ false. |
1385 |
] |
|
1386 |
]. |
|
1387 |
^ true. |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
1388 |
|
| 1787 | 1389 |
"Modified: / 13-09-2006 / 18:24:57 / cg" |
| 2691 | 1390 |
"Created: / 29-12-2011 / 14:35:36 / cg" |
| 1158 | 1391 |
! |
1392 |
||
| 2691 | 1393 |
checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
1394 |
|moduleNameBold directoryNameBold| |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
1395 |
|
| 1704 | 1396 |
moduleNameBold := module allBold. |
1397 |
directoryNameBold := directory allBold. |
|
| 1158 | 1398 |
|
1399 |
"/ |
|
| 1704 | 1400 |
"/ check for the directory |
| 1158 | 1401 |
"/ |
| 1840 | 1402 |
(mgr checkForExistingModule:module directory:directory) ifFalse:[ |
| 1158 | 1403 |
allowCreate ifFalse:[ |
| 1704 | 1404 |
self warn:(resources string:'A directory for ''%1'' does not exist in module ''%2''' |
1405 |
with:directoryNameBold with:moduleNameBold) withCRs. |
|
| 1158 | 1406 |
^ false |
1407 |
]. |
|
1408 |
(Dialog |
|
| 2651 | 1409 |
confirm:(resources stringWithCRs:'''%1'' is a new directory in module ''%2''.\\Create it in %3?' |
1410 |
with:directoryNameBold |
|
1411 |
with:moduleNameBold |
|
1412 |
with:mgr managerTypeName) |
|
| 1158 | 1413 |
noLabel:'Cancel') |
1414 |
ifFalse:[ |
|
1415 |
^ false. |
|
1416 |
]. |
|
| 1840 | 1417 |
(mgr createModule:module directory:directory) ifFalse:[ |
| 2651 | 1418 |
self warn:(resources stringWithCRs:'Cannot create new directory: ''%1'' in module ''%2'' in %3' |
1419 |
with:directoryNameBold |
|
1420 |
with:moduleNameBold |
|
1421 |
with:mgr managerTypeName). |
|
| 1158 | 1422 |
^ false. |
1423 |
] |
|
1424 |
]. |
|
1425 |
^ true. |
|
| 1840 | 1426 |
|
| 2651 | 1427 |
"Modified: / 21-12-2011 / 18:46:11 / cg" |
| 2691 | 1428 |
"Created: / 29-12-2011 / 14:35:20 / cg" |
| 1158 | 1429 |
! |
1430 |
||
| 2691 | 1431 |
checkForExistingModule:module usingManager:mgr allowCreate:allowCreate |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
1432 |
|moduleName answer| |
| 1158 | 1433 |
|
1434 |
(mgr checkForExistingModule:module) ifFalse:[ |
|
1435 |
moduleName := module allBold. |
|
1436 |
||
1437 |
allowCreate ifFalse:[ |
|
| 1423 | 1438 |
self warn:(resources stringWithCRs:'A module named ''%1'' does not exist in the repository' |
1439 |
with:moduleName) . |
|
| 1158 | 1440 |
^ false |
1441 |
]. |
|
| 2325 | 1442 |
AbortAllOperationWantedQuery query ifTrue:[ |
| 1483 | 1443 |
answer := Dialog |
1444 |
confirmWithCancel:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName) |
|
1445 |
labels:(resources array:#('Cancel All' 'Cancel' 'Yes' )).
|
|
1446 |
answer isNil ifTrue:[ AbortAllOperationRequest raise ]. |
|
1447 |
] ifFalse:[ |
|
1448 |
answer := Dialog |
|
| 2651 | 1449 |
confirm:(resources stringWithCRs:'''%1'' is a new module in %2.\\create it ?' with:moduleName with:mgr managerTypeName) |
| 1483 | 1450 |
noLabel:'Cancel' |
1451 |
]. |
|
1452 |
answer ifFalse:[ ^ false]. |
|
| 1158 | 1453 |
|
1454 |
(mgr createModule:module) ifFalse:[ |
|
| 2651 | 1455 |
self warn:(resources stringWithCRs:'Cannot create new module: ''%1'' in %2' with:moduleName with:mgr managerTypeName) . |
| 1158 | 1456 |
^ false. |
1457 |
] |
|
1458 |
]. |
|
1459 |
^ true. |
|
| 2325 | 1460 |
|
| 2651 | 1461 |
"Modified: / 21-12-2011 / 18:42:03 / cg" |
| 2691 | 1462 |
"Created: / 29-12-2011 / 14:35:06 / cg" |
| 1158 | 1463 |
! |
1464 |
||
|
3534
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1465 |
checkOutPackages: packages askForRevision: askForRevision |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1466 |
"Updates code of given packages (loaded in the image) to a specific revision. |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1467 |
If `askForRevision` is true, then user is asked to specify to which revision to |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1468 |
update. If `askForRevision` is false, then packages are updated to a 'newest' |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1469 |
revision. |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1470 |
|
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1471 |
NOTE: Definition of `newest` revision may vary. For SCMs which allows for multiple |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1472 |
heads, it is not clear which one it is. In that case, even if `askForRevision` is |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1473 |
false, this method may result in user interation, asking user to select which of the |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1474 |
newest she wants. |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1475 |
|
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1476 |
NOTE: Naming is bit confusing, it should be something like #updatePackages:ask... |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1477 |
but to keep this in line with other methods, we use #checkOutPackages" |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1478 |
|
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1479 |
^ self subclassResponsibility. |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1480 |
|
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1481 |
"Created: / 01-04-2014 / 21:50:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1482 |
! |
|
914309d517ed
class: SourceCodeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3514
diff
changeset
|
1483 |
|
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1484 |
checkinClass:aClass |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1485 |
"check a class into the source repository. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1486 |
Asks interactively for a log-message." |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1487 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1488 |
^ self checkinClass:aClass withInfo:nil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1489 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1490 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1491 |
checkinClass:aClass withInfo:aLogInfoOrNil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1492 |
"check a class into the source repository. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1493 |
If the argument, aLogInfoOrNil isNil, ask interactively for a log-message." |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1494 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1495 |
^ self checkinClass:aClass withInfo:aLogInfoOrNil withCheck:true |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1496 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1497 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1498 |
checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1499 |
"check a class into the source repository. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1500 |
If the argument, aLogInfoOrNil isNil, ask interactively for log-message. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1501 |
If doCheckClass is true, the class is checked for send of halts etc." |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1502 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1503 |
^ self |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1504 |
checkinClass:aClass |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1505 |
withInfo:aLogInfoOrNil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1506 |
withCheck:doCheckClass |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1507 |
usingManager:(self sourceCodeManagerFor:aClass) |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1508 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1509 |
"Modified: / 21-12-2011 / 18:19:55 / cg" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1510 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1511 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1512 |
checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClassHolder usingManager:managerOrNil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1513 |
"check a class into the source repository. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1514 |
If the argument, aLogInfoOrNil isNil, ask interactively for log-message. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1515 |
If doCheckClass is true, the class is checked for send of halts etc." |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1516 |
|
| 3992 | 1517 |
^ self |
1518 |
checkinClass:aClass |
|
1519 |
withInfo:aLogInfoOrNil withCheck:doCheckClassHolder |
|
1520 |
usingManager:managerOrNil |
|
1521 |
confirmNewContainer:confirmNewFiles |
|
1522 |
! |
|
1523 |
||
1524 |
checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClassHolder usingManager:managerOrNil confirmNewContainer:confirmNewContainer |
|
1525 |
"check a class into the source repository. |
|
1526 |
If the argument, aLogInfoOrNil isNil, ask interactively for log-message. |
|
1527 |
If doCheckClass is true, the class is checked for send of halts etc." |
|
1528 |
||
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1529 |
|logMessage checkinInfo mgr pri| |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1530 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1531 |
aClass isLoaded ifFalse:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1532 |
self information:(resources string:'Cannot checkin unloaded classes (%1)' with:aClass name). |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1533 |
^ false. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1534 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1535 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1536 |
mgr := managerOrNil. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1537 |
mgr isNil ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1538 |
mgr := self sourceCodeManagerFor:aClass. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1539 |
mgr isNil ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1540 |
^ false |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1541 |
] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1542 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1543 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1544 |
self ensureCorrectVersionMethodsInClass:aClass usingManager:mgr. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1545 |
mgr supportsCheckinLogMessages ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1546 |
(self |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1547 |
getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1548 |
forClass:aClass |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1549 |
valuesInto:[:logMessageRet :checkinInfoRet | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1550 |
logMessage := logMessageRet. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1551 |
checkinInfo := checkinInfoRet. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1552 |
] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1553 |
) ifFalse:[^ false]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1554 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1555 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1556 |
(self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[ |
| 3992 | 1557 |
(self createSourceContainerForClass:aClass usingManager:mgr confirmNewContainer:confirmNewContainer) ifFalse:[ |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1558 |
"/ self warn:'did not create a container for ''' , aClass name , ''''. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1559 |
^ false |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1560 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1561 |
^ true. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1562 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1563 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1564 |
self activityNotification:(resources string:'checking in %1' with:aClass name). |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1565 |
pri := Processor activePriority. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1566 |
Processor activeProcess withPriority:pri-1 to:pri |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1567 |
do:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1568 |
|revision aborted freshCreated| |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1569 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1570 |
freshCreated := false. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1571 |
revision := aClass revision. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1572 |
revision isNil ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1573 |
mgr isContainerBased ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1574 |
"/ mhmh - check if it has a container. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1575 |
(mgr checkForExistingContainerForClass:aClass) ifFalse:[ |
| 3992 | 1576 |
(self createSourceContainerForClass:aClass usingManager:mgr confirmNewContainer:confirmNewContainer) ifFalse:[ |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1577 |
self warn:'Did not create/change repository container for ''' , aClass name allBold , ''''. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1578 |
^ false. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1579 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1580 |
freshCreated := true. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1581 |
] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1582 |
] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1583 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1584 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1585 |
doCheckClassHolder value ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1586 |
"/ check if the class contains halts, error-sends etc. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1587 |
(self checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:doCheckClassHolder) ifFalse:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1588 |
^ false |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1589 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1590 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1591 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1592 |
freshCreated ifFalse:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1593 |
aborted := false. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1594 |
AbortOperationRequest handle:[:ex | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1595 |
aborted := true. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1596 |
ex return. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1597 |
] do:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1598 |
|checkinState cause| |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1599 |
checkinState := false. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1600 |
cause := ''. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1601 |
[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1602 |
checkinState := mgr checkinClass:aClass logMessage:logMessage |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1603 |
] on:SourceCodeManagerError do:[:ex| |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1604 |
cause := ex description. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1605 |
"/ ex proceed. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1606 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1607 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1608 |
checkinState ifFalse:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1609 |
Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1610 |
self warn:(resources stringWithCRs:'Checkin of "%1" failed\\' with:aClass name allBold),cause. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1611 |
AbortOperationRequest raise. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1612 |
"/ ^ false. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1613 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1614 |
checkinInfo notNil ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1615 |
checkinInfo isStable ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1616 |
"set stable tag for class that has been checked in" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1617 |
self tagClass:aClass as:#stable. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1618 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1619 |
checkinInfo tagIt ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1620 |
"set any additional tags for the class that has been checked in" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1621 |
(checkinInfo tag asCollectionOfSubstringsSeparatedByAny:',;') do:[:eachTag | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1622 |
self tagClass:aClass as:eachTag withoutSeparators. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1623 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1624 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1625 |
CVSSourceCodeManager recentTag:checkinInfo tag. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1626 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1627 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1628 |
aborted ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1629 |
Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1630 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1631 |
AbortAllOperationWantedQuery query ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1632 |
(Dialog |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1633 |
confirm:(resources stringWithCRs:'Checkin of "%1" aborted.\\Cancel all ?' with:aClass name) |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1634 |
default:false) |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1635 |
ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1636 |
AbortAllOperationRequest raise. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1637 |
] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1638 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1639 |
^ false. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1640 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1641 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1642 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1643 |
^ true |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1644 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1645 |
"Created: / 21-12-2011 / 18:19:14 / cg" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1646 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1647 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1648 |
checkinClasses:aCollectionOfClass |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1649 |
"check a collection of classes into the source repository. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1650 |
Asks interactively for log-message." |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1651 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1652 |
^ self checkinClasses:aCollectionOfClass withInfo:nil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1653 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1654 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1655 |
checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1656 |
"check a bunch of classes into the source repository. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1657 |
If the argument, aLogInfoOrNil isNil, ask interactively for log-message." |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1658 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1659 |
|checkClassWhenCheckingInHolder| |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1660 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1661 |
checkClassWhenCheckingInHolder := ValueHolder with:(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true). |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1662 |
checkClassWhenCheckingInHolder |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1663 |
onChangeEvaluate:[ UserPreferences current at:#checkClassesWhenCheckingIn put:checkClassWhenCheckingInHolder value ]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1664 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1665 |
^ self |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1666 |
checkinClasses:aCollectionOfClasses |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1667 |
withInfo:aLogInfoOrNil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1668 |
withCheck:checkClassWhenCheckingInHolder |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1669 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1670 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1671 |
checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClassesHolder |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1672 |
"check a bunch of classes into the source repository. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1673 |
If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message." |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1674 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1675 |
self checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClassesHolder usingManager:nil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1676 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1677 |
"Modified: / 21-12-2011 / 18:24:47 / cg" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1678 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1679 |
|
|
3818
25607a4f1e98
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3814
diff
changeset
|
1680 |
checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringOrNil withCheck:doCheckClassesHolder usingManager:aManagerOrNil |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1681 |
"check a bunch of classes into the source repository. |
|
3818
25607a4f1e98
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3814
diff
changeset
|
1682 |
If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message." |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1683 |
|
| 3992 | 1684 |
^ self |
1685 |
checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringOrNil withCheck:doCheckClassesHolder |
|
1686 |
usingManager:aManagerOrNil |
|
1687 |
confirmNewContainer:confirmNewFiles |
|
1688 |
! |
|
1689 |
||
1690 |
checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringOrNil withCheck:doCheckClassesHolder |
|
1691 |
usingManager:aManagerOrNil confirmNewContainer:confirmNewContainer |
|
1692 |
"check a bunch of classes into the source repository. |
|
1693 |
If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message." |
|
1694 |
||
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1695 |
|classes allClasses checkinInfoOrString yesOrNoToAll unchangedClasses| |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1696 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1697 |
"/ ignore private classes |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1698 |
classes := aCollectionOfClasses select:[:aClass | aClass owningClass isNil]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1699 |
classes isEmpty ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1700 |
self information:'Only private classes given - nothing checked in.'. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1701 |
^ self |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1702 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1703 |
classes := classes select:[:aClass | aClass isLoaded]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1704 |
classes isEmpty ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1705 |
self information:'Only unloaded classes given - nothing checked in.'. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1706 |
^ self |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1707 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1708 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1709 |
classes size == 1 ifTrue:[ |
| 3992 | 1710 |
self |
1711 |
checkinClass:classes first |
|
1712 |
withInfo:aLogInfoOrStringOrNil withCheck:doCheckClassesHolder |
|
1713 |
usingManager:aManagerOrNil |
|
1714 |
confirmNewContainer:confirmNewContainer. |
|
1715 |
^ self |
|
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1716 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1717 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1718 |
"ask once, for all classes" |
|
3818
25607a4f1e98
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3814
diff
changeset
|
1719 |
aLogInfoOrStringOrNil isNil ifTrue:[ |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1720 |
checkinInfoOrString := self |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1721 |
getCheckinInfoFor:(resources string:'%1 classes to checkin' with:aCollectionOfClasses size) |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1722 |
initialAnswer:nil |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1723 |
withQuickOption:true. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1724 |
checkinInfoOrString isNil ifTrue:[^ self]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1725 |
] ifFalse:[ |
|
3818
25607a4f1e98
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3814
diff
changeset
|
1726 |
checkinInfoOrString := aLogInfoOrStringOrNil. |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1727 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1728 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1729 |
allClasses := classes. |
|
3818
25607a4f1e98
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3814
diff
changeset
|
1730 |
(checkinInfoOrString isString not and:[checkinInfoOrString quickCheckIn]) ifTrue:[ |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1731 |
"/ not only the one's in the changeSet; |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1732 |
"/ also those which have not been checked in before. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1733 |
classes := classes select:[:each | each hasUnsavedChanges or:[ (each revisionOfManager:aManagerOrNil) isNil ]]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1734 |
classes isEmpty ifTrue:[ Dialog information:'no changes to checkin (quickCheckIn)' ] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1735 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1736 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1737 |
"abortAll is handled, and also asked for here!!" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1738 |
AbortAllOperationRequest handleAndAnswerQueryIn:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1739 |
classes notEmpty ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1740 |
self yesToAllNotification handle:[:ex | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1741 |
yesOrNoToAll := ex parameter. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1742 |
ex proceed |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1743 |
] do:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1744 |
self yesToAllQuery handle:[:ex | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1745 |
ex proceedWith:yesOrNoToAll |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1746 |
] do:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1747 |
classes do:[:aClass | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1748 |
self activityNotification:(resources string:'checking in %1' with:aClass name). |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1749 |
"/ ca does not want boxes to pop up all over ... |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1750 |
UserInformation handle:[:ex | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1751 |
Transcript showCR:ex description. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1752 |
ex proceed. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1753 |
] do:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1754 |
AbortOperationRequest catch:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1755 |
self |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1756 |
checkinClass:aClass |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1757 |
withInfo:checkinInfoOrString |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1758 |
withCheck:doCheckClassesHolder |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1759 |
usingManager:aManagerOrNil |
| 3992 | 1760 |
confirmNewContainer:confirmNewContainer |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1761 |
] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1762 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1763 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1764 |
] |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1765 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1766 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1767 |
|
|
3818
25607a4f1e98
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3814
diff
changeset
|
1768 |
(checkinInfoOrString isString not and:[ (checkinInfoOrString isStable or:[checkinInfoOrString tagIt]) ]) |
|
3602
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1769 |
ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1770 |
"/mhmh - but tag should be set on all (even unchanged ones) |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1771 |
"/ the other onces have already been tagged |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1772 |
unchangedClasses := allClasses reject:[:eachClass | (classes includes:eachClass)]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1773 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1774 |
"mhmh - could still have to tag them" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1775 |
checkinInfoOrString isStable ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1776 |
unchangedClasses do:[:eachClass | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1777 |
self tagClass:eachClass as:#stable. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1778 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1779 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1780 |
checkinInfoOrString tagIt ifTrue:[ |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1781 |
unchangedClasses do:[:eachClass | |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1782 |
self tagClass:eachClass as:(checkinInfoOrString tag). |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1783 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1784 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1785 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1786 |
]. |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1787 |
|
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1788 |
"Created: / 21-12-2011 / 18:24:25 / cg" |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1789 |
! |
|
d5a67c9e51dd
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3594
diff
changeset
|
1790 |
|
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1791 |
checkoutClass:aClass askForMerge:askForMerge |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1792 |
"check-out a class from the source repository." |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1793 |
|
| 1006 | 1794 |
self |
1795 |
checkoutClass:aClass |
|
1796 |
askForRevision:true |
|
1797 |
askForMerge:askForMerge |
|
1798 |
! |
|
1799 |
||
1800 |
checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge |
|
1801 |
"check-out a class from the source repository. |
|
1802 |
If askForRevision is false, check-out the newest version." |
|
1803 |
||
|
2013
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1804 |
self |
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1805 |
checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge |
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1806 |
askForConfirmation:true |
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1807 |
! |
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1808 |
|
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1809 |
checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation |
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1810 |
"check-out a class from the source repository. |
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1811 |
If askForRevision is false, check-out the newest version." |
|
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
1812 |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
1813 |
|mgr sourceInfo |
| 1339 | 1814 |
currentClass inChangeSet |
|
1055
f44b12442c58
version update after load from rep.
Claus Gittinger <cg@exept.de>
parents:
1054
diff
changeset
|
1815 |
aStream sourceToLoad currentSource rev revString |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1816 |
nm msg rev2 newestRev |
| 1030 | 1817 |
containerModule containerPackage containerFile rslt |
1818 |
pkg listHere listRep diffSet |
|
| 1054 | 1819 |
changed onlyHere onlyInRep answer labels values singleChangeSelector |
|
1879
3ca8838014ee
dont ask for changeSet-compression if the loaded
Claus Gittinger <cg@exept.de>
parents:
1877
diff
changeset
|
1820 |
changedClasses default versionMethodsHere versionMethodsRep changedClassDefinitions |
|
3ca8838014ee
dont ask for changeSet-compression if the loaded
Claus Gittinger <cg@exept.de>
parents:
1877
diff
changeset
|
1821 |
wasInChangeSetBefore| |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1822 |
|
|
1189
fdc5e747c184
refactored check for a valid sourceCodeManager into one place
Claus Gittinger <cg@exept.de>
parents:
1185
diff
changeset
|
1823 |
aClass isNil ifTrue:[self error:'nil class']. |
| 1158 | 1824 |
|
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1825 |
currentClass := aClass theNonMetaclass. |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1826 |
|
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1827 |
nm := currentClass name. |
|
1189
fdc5e747c184
refactored check for a valid sourceCodeManager into one place
Claus Gittinger <cg@exept.de>
parents:
1185
diff
changeset
|
1828 |
mgr := self sourceCodeManagerFor:currentClass. |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1829 |
mgr isNil ifTrue:[ |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1830 |
^ self |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1831 |
]. |
| 1084 | 1832 |
|
1833 |
sourceInfo := mgr sourceInfoOfClass:currentClass. |
|
1834 |
sourceInfo notNil ifTrue:[ |
|
|
2209
e3a4510c45f2
Project noProjectID -> PackageId noProjectID
Claus Gittinger <cg@exept.de>
parents:
2200
diff
changeset
|
1835 |
currentClass package ~= PackageId noProjectID ifTrue:[ |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
1836 |
containerPackage := mgr directoryFromSourceInfo:sourceInfo. |
| 1084 | 1837 |
containerModule := mgr moduleFromSourceInfo:sourceInfo. |
1838 |
]. |
|
1839 |
containerFile := mgr containerFromSourceInfo:sourceInfo. |
|
1840 |
]. |
|
1841 |
||
|
989
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1842 |
currentClass isLoaded ifTrue:[ |
|
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1843 |
rev := currentClass binaryRevision. |
|
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1844 |
rev2 := currentClass revision. |
|
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1845 |
rev isNil ifTrue:[ |
|
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1846 |
rev := rev2 |
|
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1847 |
]. |
|
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1848 |
rev isNil ifTrue:[ |
| 1084 | 1849 |
pkg := currentClass package. |
|
2209
e3a4510c45f2
Project noProjectID -> PackageId noProjectID
Claus Gittinger <cg@exept.de>
parents:
2200
diff
changeset
|
1850 |
(pkg notNil and:[pkg ~= PackageId noProjectID]) ifTrue:[ |
| 1019 | 1851 |
containerModule := pkg upTo:$:. |
1852 |
containerPackage := pkg copyFrom:(containerModule size + 2). |
|
1853 |
]. |
|
1854 |
containerModule size == 0 ifTrue:[ |
|
| 2791 | 1855 |
containerModule := (self class lastModule ) ? Project current repositoryModule. |
| 1019 | 1856 |
]. |
1857 |
containerPackage size == 0 ifTrue:[ |
|
| 2791 | 1858 |
containerPackage := (self class lastPackage ) ? Project current package. |
| 1019 | 1859 |
]. |
| 1030 | 1860 |
answer := self confirmWithCancel:(resources |
| 1035 | 1861 |
string:'The class %3 seems to have no (valid) repository information.\\I assume you want to check it out from: %1/%2.' |
| 1030 | 1862 |
with:containerModule allBold |
| 1035 | 1863 |
with:containerPackage allBold |
| 1084 | 1864 |
with:currentClass name allBold) withCRs. |
| 1030 | 1865 |
answer isNil ifTrue:[^ self "cancelled"]. |
1866 |
answer ifFalse:[ |
|
| 2791 | 1867 |
rslt := self |
| 1030 | 1868 |
askForContainer:(resources string:'The class seems to have no repository information.\\Do you want to checkOut from an existing containers contents ?') |
1869 |
title:'Container to load from' note:nil |
|
1870 |
initialModule:containerModule |
|
1871 |
initialPackage:containerPackage |
|
| 1158 | 1872 |
initialFileName:(currentClass nameWithoutPrefix , '.st') |
| 1030 | 1873 |
forNewContainer:false. |
| 1084 | 1874 |
|
| 1030 | 1875 |
rslt isNil ifTrue:[ |
1876 |
"/ canel |
|
1877 |
^ self |
|
1878 |
]. |
|
1879 |
containerModule := "lastModule :=" rslt at:#module. |
|
1880 |
containerPackage := "lastPackage :=" rslt at:#package. |
|
1881 |
containerFile := rslt at:#fileName. |
|
1882 |
]. |
|
| 1019 | 1883 |
|
| 2791 | 1884 |
"/ rslt := self |
| 1019 | 1885 |
"/ askForContainer:(resources string:'The class seems to have no (valid) repository information.\\Do you want to check it out from an existing container ?') |
1886 |
"/ title:'Container to checkOut' note:nil |
|
1887 |
"/ initialModule:containerModule |
|
1888 |
"/ initialPackage:containerPackage |
|
1889 |
"/ initialFileName:(currentClass name , '.st'). |
|
| 1030 | 1890 |
"/ forNewContainer:false. |
| 1019 | 1891 |
"/ rslt isNil ifTrue:[^ self]. |
1892 |
"/ self warn:(resources string:'Class %1 seems to be not yet in the repository' with:currentClass name allBold). |
|
1893 |
"/ ^ self |
|
|
989
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1894 |
]. |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1895 |
]. |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1896 |
|
| 1966 | 1897 |
containerFile isNil ifTrue:[ |
1898 |
containerFile := currentClass classFilename. |
|
1899 |
]. |
|
1900 |
||
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1901 |
"/ |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1902 |
"/ class in repository - ask for revision |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1903 |
"/ |
| 1978 | 1904 |
containerModule isNil ifTrue:[ |
| 1982 | 1905 |
containerModule := Dialog request:(resources |
1906 |
stringWithCRs:'Missing Module Information for CheckOut of "%1".\\Module:' |
|
1907 |
with:aClass name allBold). |
|
| 1978 | 1908 |
containerModule isEmptyOrNil ifTrue:[^ self]. |
1909 |
]. |
|
1910 |
containerPackage isNil ifTrue:[ |
|
| 1982 | 1911 |
containerPackage := Dialog request:(resources |
1912 |
stringWithCRs:'Missing Package Information for CheckOut of "%1".\\Package:' |
|
1913 |
with:aClass name allBold). |
|
| 1978 | 1914 |
containerPackage isEmptyOrNil ifTrue:[^ self]. |
1915 |
]. |
|
1916 |
||
| 1084 | 1917 |
newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule. |
| 1006 | 1918 |
askForRevision ifFalse:[ |
1919 |
rev := newestRev ? '' |
|
1920 |
] ifTrue:[ |
|
| 1019 | 1921 |
msg := resources string:'CheckOut which revision of ''%1'': (empty for newest)' with:nm allBold. |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1922 |
rev notNil ifTrue:[ |
| 1006 | 1923 |
msg := msg , '\\' , (resources string:'Current ''%1'' is based upon rev %2.' |
| 1019 | 1924 |
with:nm allBold with:rev). |
| 1006 | 1925 |
(rev2 notNil and:[rev2 ~= rev]) ifTrue:[ |
|
2539
abce5c41eef8
comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2522
diff
changeset
|
1926 |
msg := msg , '\' , (resources string:'And has been checked into the repository as %1.' with:rev2) |
| 1006 | 1927 |
] |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1928 |
]. |
| 1006 | 1929 |
newestRev notNil ifTrue:[ |
|
2539
abce5c41eef8
comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2522
diff
changeset
|
1930 |
msg := msg , '\' , (resources string:'Newest in repository is %1.' with:newestRev) |
|
989
bb70a0f30e98
care for autoloaded classes when checking out
Claus Gittinger <cg@exept.de>
parents:
987
diff
changeset
|
1931 |
]. |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1932 |
|
| 2791 | 1933 |
rev := self |
| 1006 | 1934 |
askForExistingRevision:msg |
1935 |
title:'CheckOut from repository' |
|
1936 |
class:currentClass. |
|
1937 |
rev isNil ifTrue:[ |
|
| 1339 | 1938 |
^ self "/ canceled |
| 987 | 1939 |
]. |
| 1006 | 1940 |
]. |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
1941 |
|
| 1006 | 1942 |
rev withoutSpaces isEmpty ifTrue:[ |
1943 |
msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
|
|
1944 |
"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm. |
|
1945 |
aStream := mgr getSourceStreamFor:currentClass revision:newestRev. |
|
1946 |
revString := '(newest: ' , (newestRev ? '???') , ')'. |
|
1947 |
] ifFalse:[ |
|
1948 |
msg := 'extracting previous %1'. |
|
| 1084 | 1949 |
"/ aStream := mgr getSourceStreamFor:currentClass revision:rev. |
1950 |
"/ revString := rev |
|
1951 |
aStream := mgr |
|
1952 |
streamForClass:currentClass |
|
1953 |
fileName:containerFile |
|
1954 |
revision:rev |
|
1955 |
directory:containerPackage |
|
1956 |
module:containerModule |
|
1957 |
cache:true. |
|
| 1006 | 1958 |
]. |
| 996 | 1959 |
|
| 1006 | 1960 |
aStream isNil ifTrue:[ |
|
1800
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
1961 |
self warn:(resources string:'Could not extract source of %1 from repository' with:aClass name allBold). |
| 1006 | 1962 |
^ self |
1963 |
]. |
|
1964 |
aStream class readErrorSignal handle:[:ex | |
|
|
1800
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
1965 |
self warn:('Read error while reading extracted source\\' , ex description) withCRs.
|
| 1006 | 1966 |
aStream close. |
1967 |
^ self |
|
1968 |
] do:[ |
|
1969 |
sourceToLoad := aStream contents asString. |
|
1970 |
]. |
|
1971 |
aStream close. |
|
| 987 | 1972 |
|
| 1919 | 1973 |
wasInChangeSetBefore := ChangeSet current includesChangeForClassOrMetaclass:currentClass. |
|
1879
3ca8838014ee
dont ask for changeSet-compression if the loaded
Claus Gittinger <cg@exept.de>
parents:
1877
diff
changeset
|
1974 |
|
| 1006 | 1975 |
currentClass isLoaded ifFalse:[ |
1976 |
rev = newestRev ifTrue:[ |
|
1977 |
currentClass autoload. |
|
| 996 | 1978 |
] ifFalse:[ |
| 1006 | 1979 |
sourceToLoad readStream fileIn. |
| 996 | 1980 |
]. |
|
1879
3ca8838014ee
dont ask for changeSet-compression if the loaded
Claus Gittinger <cg@exept.de>
parents:
1877
diff
changeset
|
1981 |
wasInChangeSetBefore ifFalse:[ |
|
3ca8838014ee
dont ask for changeSet-compression if the loaded
Claus Gittinger <cg@exept.de>
parents:
1877
diff
changeset
|
1982 |
ChangeSet current condenseChangesForClass:currentClass. |
|
3ca8838014ee
dont ask for changeSet-compression if the loaded
Claus Gittinger <cg@exept.de>
parents:
1877
diff
changeset
|
1983 |
]. |
| 1006 | 1984 |
^ self. |
1985 |
]. |
|
1986 |
||
| 2236 | 1987 |
inChangeSet := aClass hasUnsavedChanges. |
|
1800
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
1988 |
|
|
1972
32853d3cb43a
care for errors during fileOut ofr local source
Claus Gittinger <cg@exept.de>
parents:
1971
diff
changeset
|
1989 |
Error handle:[:ex | |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
1990 |
(Dialog |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
1991 |
confirm:(resources |
|
2426
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
1992 |
stringWithCRs:'An error:\ %1\was encountered while generating the current source of the class %2.\This might be due to some missing or corrupted source file.\You may proceed, but no information about the differences between your current version and the repositories version can be shown.\\Continue ?' |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
1993 |
with:ex description |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
1994 |
with:currentClass name allBold) |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
1995 |
noLabel:'Cancel') |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
1996 |
ifFalse:[ |
| 1999 | 1997 |
AbortOperationRequest raise |
|
1972
32853d3cb43a
care for errors during fileOut ofr local source
Claus Gittinger <cg@exept.de>
parents:
1971
diff
changeset
|
1998 |
]. |
|
2426
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
1999 |
sourceToLoad readStream fileIn. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2000 |
^ self. |
|
1972
32853d3cb43a
care for errors during fileOut ofr local source
Claus Gittinger <cg@exept.de>
parents:
1971
diff
changeset
|
2001 |
] do:[ |
|
2426
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2002 |
self activityNotification:'generating current source...'. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2003 |
|
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2004 |
currentSource := self sourceCodeOfClass:currentClass. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2005 |
|
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2006 |
self activityNotification:'comparing...'. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2007 |
|
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2008 |
sourceToLoad = currentSource ifTrue:[ |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2009 |
"/ make all methods belong to the classes project |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2010 |
self setPackageOfAllMethodsIn:aClass to:aClass package. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2011 |
inChangeSet ifTrue:[ |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2012 |
rev = newestRev ifTrue:[ |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2013 |
(askForConfirmation not |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2014 |
or:[ wasInChangeSetBefore not |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2015 |
or:[ self confirm:(resources |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2016 |
stringWithCRs:'%1 is up-to-date.\\Remove entries for %1 from changeSet ?' |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2017 |
with:aClass name)]]) |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2018 |
ifTrue:[ |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2019 |
ChangeSet current condenseChangesForClass:aClass. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2020 |
]. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2021 |
]. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2022 |
]. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2023 |
self activityNotification:'... nothing changed in repository'. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2024 |
^ self. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2025 |
]. |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2026 |
|
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2027 |
self activityNotification:'generating diffSet...'. |
|
1972
32853d3cb43a
care for errors during fileOut ofr local source
Claus Gittinger <cg@exept.de>
parents:
1971
diff
changeset
|
2028 |
listHere := ChangeSet fromStream:(currentSource readStream). |
|
32853d3cb43a
care for errors during fileOut ofr local source
Claus Gittinger <cg@exept.de>
parents:
1971
diff
changeset
|
2029 |
]. |
|
2426
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2030 |
|
| 1006 | 2031 |
listRep := ChangeSet fromStream:(sourceToLoad readStream). |
| 1051 | 2032 |
|
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2033 |
Error handle:[:ex | |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2034 |
(Dialog |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2035 |
confirm:(resources |
|
2426
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2036 |
stringWithCRs:'An error:\ %1\was encountered while trying to figure out what has changed.\This might be due to some missing or corrupted source file.\If you proceed, the old code will be loaded over the existing code without further checks (fileIn).\\Continue ?' |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2037 |
with:ex description |
|
d698fb5ebbd7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2397
diff
changeset
|
2038 |
) |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2039 |
noLabel:'Cancel') |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2040 |
ifFalse:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2041 |
^ self |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2042 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2043 |
sourceToLoad readStream fileIn. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2044 |
^ self. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2045 |
] do:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2046 |
versionMethodsHere := listHere select:[:change | (change isMethodChange |
|
3354
d36778f0ff0b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3351
diff
changeset
|
2047 |
and:[((self sourceCodeManagerFor:aClass) "AbstractSourceCodeManager" isVersionMethodSelector:change selector) |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2048 |
and:[change changeClass isMeta]])]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2049 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2050 |
versionMethodsRep := listRep select:[:change | (change isMethodChange |
|
3354
d36778f0ff0b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3351
diff
changeset
|
2051 |
and:[((self sourceCodeManagerFor:aClass) "AbstractSourceCodeManager" isVersionMethodSelector:change selector) |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2052 |
and:[change changeClass isMeta]])]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2053 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2054 |
"/ compare all but the version methods |
| 3291 | 2055 |
listHere := listHere reject:[:change | (change isMethodChange |
|
2184
4bb6267612be
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
fm
parents:
2175
diff
changeset
|
2056 |
and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector) |
| 3291 | 2057 |
and:[change changeClass isMeta]])]. |
2058 |
listRep := listRep reject:[:change | (change isMethodChange |
|
|
2184
4bb6267612be
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
fm
parents:
2175
diff
changeset
|
2059 |
and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector) |
| 3291 | 2060 |
and:[change changeClass isMeta]])]. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2061 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2062 |
diffSet := listHere diffSetsAgainst:listRep. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2063 |
changed := diffSet changed. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2064 |
onlyHere := diffSet onlyInReceiver. |
|
2794
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2065 |
|
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2066 |
"/ reject extensions |
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2067 |
onlyHere := onlyHere reject:[:eachDiff| |
|
2774
46c3fee4b485
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2719
diff
changeset
|
2068 |
|method methodsPackage| |
|
2794
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2069 |
|
|
3272
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2070 |
eachDiff isMethodChange |
|
2794
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2071 |
and:[ eachDiff changeClass notNil |
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2072 |
and:[ (method := (eachDiff changeClass compiledMethodAt:eachDiff selector)) notNil |
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2073 |
and:[ (methodsPackage := method package) ~= containerPackage |
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2074 |
and:[ methodsPackage ~= PackageId noProjectID ]]]] |
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2075 |
]. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2076 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2077 |
onlyInRep := diffSet onlyInArg. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2078 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2079 |
changedClassDefinitions := changed select:[:eachChangePair | eachChangePair first isClassDefinitionChange]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2080 |
changed := changed reject:[:eachChangePair | eachChangePair first isClassDefinitionChange]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2081 |
changed := changed reject:[:eachChangePair | eachChangePair first isClassCommentChange]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2082 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2083 |
labels := #('Cancel' 'Merge' 'Load').
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2084 |
values := #(nil #merge #load). |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2085 |
default := askForRevision |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2086 |
ifTrue:[3. "i.e. load"] |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2087 |
ifFalse:[2. "i.e. merge"]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2088 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2089 |
msg := 'About to load ''%4''.\\'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2090 |
onlyInRep size > 0 ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2091 |
msg := msg , 'The repositories version contains %1 method(s) which are not in your current class.\'. |
|
2064
3e7b6104ce47
When checking out newest sources from a repository,
Stefan Vogel <sv@exept.de>
parents:
2063
diff
changeset
|
2092 |
]. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2093 |
onlyHere size > 0 ifTrue:[ |
|
2794
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2094 |
msg := msg , (onlyInRep size > 0 ifTrue:['And there '] ifFalse:['There ']). |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2095 |
msg := msg , 'are %2 methods in your current class, which are not in the repository.\'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2096 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2097 |
changed size > 0 ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2098 |
changed size == 1 ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2099 |
msg := msg , 'The ''%6''-method is different (present in both).\\'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2100 |
singleChangeSelector := changed first first selector allBold |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2101 |
] ifFalse:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2102 |
msg := msg , '%3 methods are different (present in both).\\'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2103 |
] |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2104 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2105 |
changedClassDefinitions size > 0 ifTrue:[ |
|
2794
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2106 |
msg := msg , (changedClassDefinitions size == 1 |
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2107 |
ifTrue:['The class definition is different.\\'] |
|
77c62d93cc76
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2793
diff
changeset
|
2108 |
ifFalse:['%5 class definitions are different.\\']) |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2109 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2110 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2111 |
onlyHere isEmpty ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2112 |
onlyInRep isEmpty ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2113 |
(changed isEmpty and:[changedClassDefinitions isEmpty]) ifTrue:[ |
|
2605
93f1e7e8aee7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2602
diff
changeset
|
2114 |
versionMethodsRep notEmpty ifTrue:[ |
|
93f1e7e8aee7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2602
diff
changeset
|
2115 |
(self confirm:(resources string:'Only version methods are different in %1.\\Update the version-IDs ?' with:aClass name allBold) withCRs) ifTrue:[ |
|
93f1e7e8aee7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2602
diff
changeset
|
2116 |
versionMethodsRep do:[:each | each apply]. |
|
93f1e7e8aee7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2602
diff
changeset
|
2117 |
] |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2118 |
]. |
| 2193 | 2119 |
"/ make all those methods belong to the classes project |
2120 |
"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package. |
|
2121 |
self setPackageOfAllMethodsInChangeSet:listRep to:aClass package. |
|
|
2605
93f1e7e8aee7
changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation:
Claus Gittinger <cg@exept.de>
parents:
2602
diff
changeset
|
2122 |
self activityNotification:'Only version methods are different in the repository'. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2123 |
^ self |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2124 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2125 |
inChangeSet ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2126 |
msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made).'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2127 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2128 |
labels := #('Cancel' 'Load').
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2129 |
values := #(nil #load). |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2130 |
default := askForRevision |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2131 |
ifTrue:[2. "i.e. load"] |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2132 |
ifFalse:[1. "i.e. cancel"]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2133 |
default := 2. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2134 |
] ifFalse:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2135 |
changed isEmpty ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2136 |
msg := msg , '\Attention:\Load will load methods which are not present in ''%4''.'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2137 |
labels := #('Cancel' 'Load').
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2138 |
values := #(nil #load). |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2139 |
default := askForRevision |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2140 |
ifTrue:[2. "i.e. load"] |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2141 |
ifFalse:[1. "i.e. cancel"]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2142 |
default := 2. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2143 |
] ifFalse:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2144 |
inChangeSet ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2145 |
msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2146 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2147 |
msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2148 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2149 |
] |
| 1006 | 2150 |
] ifFalse:[ |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2151 |
onlyInRep isEmpty ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2152 |
inChangeSet ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2153 |
msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made),'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2154 |
msg := msg , '\and remove added methods which are not present in the repository version.'. |
|
1055
f44b12442c58
version update after load from rep.
Claus Gittinger <cg@exept.de>
parents:
1054
diff
changeset
|
2155 |
]. |
| 1121 | 2156 |
labels := #('Cancel' 'Load').
|
| 987 | 2157 |
values := #(nil #load). |
|
1007
44c0229bcb43
better dialog message text and load/cancel default.
Claus Gittinger <cg@exept.de>
parents:
1006
diff
changeset
|
2158 |
default := askForRevision |
|
44c0229bcb43
better dialog message text and load/cancel default.
Claus Gittinger <cg@exept.de>
parents:
1006
diff
changeset
|
2159 |
ifTrue:[2. "i.e. load"] |
|
44c0229bcb43
better dialog message text and load/cancel default.
Claus Gittinger <cg@exept.de>
parents:
1006
diff
changeset
|
2160 |
ifFalse:[1. "i.e. cancel"]. |
| 1907 | 2161 |
default := 2. |
| 987 | 2162 |
] ifFalse:[ |
| 1339 | 2163 |
inChangeSet ifTrue:[ |
2164 |
msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'. |
|
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2165 |
msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2166 |
] |
| 1339 | 2167 |
] |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2168 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2169 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2170 |
msg := msg bindWith:onlyInRep size printString |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2171 |
with:onlyHere size printString |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2172 |
with:changed size printString |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2173 |
with:aClass name allBold |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2174 |
with:changedClassDefinitions size printString |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2175 |
with:singleChangeSelector. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2176 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2177 |
askForConfirmation ifFalse:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2178 |
answer := #load |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2179 |
] ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2180 |
answer := (Dialog confirmWithCancel:msg withCRs |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2181 |
labels:(resources array:labels) |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2182 |
values:values |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2183 |
default:default). |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2184 |
answer isNil ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2185 |
self activityNotification:'...cancelled'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2186 |
^ self |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2187 |
]. |
|
2013
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
2188 |
]. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2189 |
self activityNotification:'updating...'. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2190 |
changedClasses := IdentitySet new. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2191 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2192 |
answer == #load ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2193 |
"when loading, remove all the methods which are no longer in classes with a changed |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2194 |
class definition. So we avoid possible compile errors of old methods, which will go away" |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2195 |
onlyHere do:[:eachChange | |
|
3272
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2196 |
"remove this change (method not present in repository version)" |
|
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2197 |
|cClass| |
|
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2198 |
eachChange isMethodChange ifTrue:[ |
|
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2199 |
cClass := eachChange changeClass. |
|
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2200 |
cClass notNil ifTrue:[ |
|
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2201 |
cClass basicRemoveSelector:eachChange selector |
|
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2202 |
]. |
|
6ce72ad3d416
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3261
diff
changeset
|
2203 |
] |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2204 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2205 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2206 |
changedClassDefinitions do:[:eachChangeArr | |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2207 |
|cHere eachChangedClass| |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2208 |
cHere := eachChangeArr at:1. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2209 |
eachChangedClass := cHere changeClass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2210 |
eachChangedClass notNil ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2211 |
changedClasses add:eachChangedClass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2212 |
eachChangedClass := eachChangedClass theNonMetaclass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2213 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2214 |
"remove changed methods now, but keep the changes (to be applied later)" |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2215 |
changed do:[:eachChangeArr| |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2216 |
|eachChange eachClass| |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2217 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2218 |
eachChange := eachChangeArr first. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2219 |
eachChange isMethodChange ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2220 |
eachClass := eachChange changeClass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2221 |
eachClass theNonMetaclass == eachChangedClass ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2222 |
eachClass basicRemoveSelector:eachChange selector. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2223 |
]. |
| 1999 | 2224 |
]. |
2225 |
]. |
|
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2226 |
] |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2227 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2228 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2229 |
"apply class definition changes (use the repository version)" |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2230 |
changedClassDefinitions do:[:eachChangeArr | |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2231 |
|cRep| |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2232 |
cRep := eachChangeArr at:2. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2233 |
cRep apply. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2234 |
]. |
|
1057
6903d4d5097d
do not update the changesFile, when checkingOut
Claus Gittinger <cg@exept.de>
parents:
1056
diff
changeset
|
2235 |
]. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2236 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2237 |
onlyInRep do:[:eachChange | |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2238 |
|changeClass| |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2239 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2240 |
"apply this change (method only present in rep-version)" |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2241 |
eachChange apply. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2242 |
eachChange isMethodChange ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2243 |
changeClass := eachChange changeClass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2244 |
changeClass notNil ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2245 |
eachChange changeMethod setPackage:(changeClass package). |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2246 |
changedClasses add:changeClass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2247 |
] |
|
2013
0457926edfdb
allow checkout without popup confirmations
Michael Beyl <mb@exept.de>
parents:
2009
diff
changeset
|
2248 |
] |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2249 |
] |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2250 |
. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2251 |
answer == #load ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2252 |
changed do:[:eachChangeArr | "apply this change (go to rep-version)" |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2253 |
|cHere cRep| |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2254 |
cHere := eachChangeArr at:1. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2255 |
cRep := eachChangeArr at:2. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2256 |
cRep apply. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2257 |
cRep isMethodChange ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2258 |
cRep changeMethod setPackage:(cRep changeClass package). |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2259 |
changedClasses add:cRep changeClass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2260 |
] |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2261 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2262 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2263 |
versionMethodsRep size >= 1 ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2264 |
versionMethodsRep last apply. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2265 |
] ifFalse:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2266 |
self error:'missing version method in repository' mayProceed:true. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2267 |
]. |
| 2193 | 2268 |
"/ make all those methods belong to the classes project |
2269 |
"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package. |
|
2270 |
self setPackageOfAllMethodsInChangeSet:listRep to:aClass package. |
|
|
1055
f44b12442c58
version update after load from rep.
Claus Gittinger <cg@exept.de>
parents:
1054
diff
changeset
|
2271 |
]. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2272 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2273 |
answer == #load ifTrue:[ |
| 2236 | 2274 |
inChangeSet := aClass hasUnsavedChanges. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2275 |
inChangeSet ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2276 |
rev = newestRev ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2277 |
(wasInChangeSetBefore not |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2278 |
or:[ self confirm:(resources |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2279 |
stringWithCRs:'%1 is now up-to-date.\\Remove entries for %1 from changeSet ?' |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2280 |
with:aClass name)]) |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2281 |
ifTrue:[ |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2282 |
ChangeSet current condenseChangesForClass:aClass. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2283 |
]. |
|
1800
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
2284 |
]. |
|
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
2285 |
]. |
|
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
2286 |
]. |
|
2092
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2287 |
|
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2288 |
changedClasses do:[:eachClass | |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2289 |
eachClass changed:#projectOrganization. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2290 |
]. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2291 |
Smalltalk changed:#projectOrganization. |
|
cd9b53d5ca31
allow for fileIn, even if diffset generation failed
Claus Gittinger <cg@exept.de>
parents:
2064
diff
changeset
|
2292 |
self activityNotification:'... done'. |
|
1800
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
2293 |
]. |
|
560e29381f52
ask for condense changeSet when loading the newest revision
Claus Gittinger <cg@exept.de>
parents:
1787
diff
changeset
|
2294 |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
2295 |
"Modified: / 07-02-2001 / 18:18:32 / ps" |
|
3354
d36778f0ff0b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3351
diff
changeset
|
2296 |
"Modified: / 22-07-2013 / 13:17:32 / cg" |
|
986
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
2297 |
! |
|
78d2a098bc81
support to checkout/merge a class from the repository
Claus Gittinger <cg@exept.de>
parents:
984
diff
changeset
|
2298 |
|
| 2691 | 2299 |
checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager |
| 1522 | 2300 |
"check-out a class from the source repository. |
2301 |
If askForRevision is false, check-out the newest version." |
|
2302 |
||
| 3291 | 2303 |
|inChangeSet extensionMethods msg |
| 1704 | 2304 |
listHere listRep diffSet |
| 1522 | 2305 |
changed onlyHere onlyInRep answer labels values singleChangeSelector |
2306 |
changedClasses default | |
|
2307 |
||
| 2691 | 2308 |
listRep := self changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager. |
|
1841
00e5a67d1d9e
refactored & created changeSetForExtensions-utility
Claus Gittinger <cg@exept.de>
parents:
1840
diff
changeset
|
2309 |
listRep isNil ifTrue:[ ^self ]. |
| 1522 | 2310 |
|
2311 |
self activityNotification:'generating diffSet...'. |
|
2312 |
||
2313 |
extensionMethods := OrderedCollection new. |
|
2314 |
Smalltalk allClassesDo:[:aClass | |owner classPackage| |
|
2315 |
"/ individual methods ... |
|
2316 |
aClass isMeta ifFalse:[ |
|
2317 |
(aClass package ~= packageToCheckOut) ifTrue:[ |
|
2318 |
aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | |
|
2319 |
"/ methods in this project ... |
|
2320 |
(mthd package = packageToCheckOut) ifTrue:[ |
|
2321 |
"/ ... whose class is not in the ckechIn-set |
|
2322 |
extensionMethods add:mthd |
|
2323 |
] |
|
2324 |
]. |
|
2325 |
]. |
|
2326 |
]. |
|
2327 |
]. |
|
2328 |
listHere := ChangeSet forExistingMethods:extensionMethods. |
|
2329 |
||
2330 |
inChangeSet := listRep contains:[:someChange | |
|
2331 |
|cClass cSel| |
|
2332 |
||
2333 |
someChange isMethodChange ifTrue:[ |
|
2334 |
cClass := someChange changeClass. |
|
2335 |
cSel := someChange selector. |
|
2336 |
ChangeSet current includesChangeForClass:cClass selector:cSel |
|
2337 |
] |
|
2338 |
]. |
|
2339 |
||
2340 |
diffSet := listHere diffSetsAgainst:listRep. |
|
2341 |
changed := diffSet changed. |
|
2342 |
onlyHere := diffSet onlyInReceiver. |
|
2343 |
onlyInRep := diffSet onlyInArg. |
|
2344 |
||
2345 |
labels := #('Cancel' 'Merge' 'Load').
|
|
2346 |
values := #(nil #merge #load). |
|
2347 |
default := askForRevision |
|
2348 |
ifTrue:[3. "i.e. load"] |
|
2349 |
ifFalse:[2. "i.e. merge"]. |
|
2350 |
||
2351 |
msg := 'About to load extensions for ''%5''.\\'. |
|
2352 |
onlyInRep size > 0 ifTrue:[ |
|
2353 |
msg := msg , 'The repositories version contains %1 extension method(s) which are not in your current image.\'. |
|
2354 |
]. |
|
2355 |
onlyHere size > 0 ifTrue:[ |
|
2356 |
onlyInRep size > 0 ifTrue:[ |
|
2357 |
msg := msg , 'And there '. |
|
2358 |
] ifFalse:[ |
|
2359 |
msg := msg , 'There '. |
|
2360 |
]. |
|
2361 |
msg := msg , 'are %2 extension methods in your current image, which are not in the repository.\'. |
|
2362 |
]. |
|
2363 |
changed size > 0 ifTrue:[ |
|
2364 |
changed size == 1 ifTrue:[ |
|
2365 |
msg := msg , 'The ''%5''-method is different (present in both).\\'. |
|
2366 |
singleChangeSelector := changed first first selector allBold |
|
2367 |
] ifFalse:[ |
|
2368 |
msg := msg , '%3 methods are different (present in both).\\'. |
|
2369 |
] |
|
2370 |
]. |
|
2371 |
||
2372 |
onlyHere isEmpty ifTrue:[ |
|
2373 |
onlyInRep isEmpty ifTrue:[ |
|
2374 |
(changed isEmpty) ifTrue:[ |
|
2375 |
listRep do:[:eachChange | |
|
2376 |
eachChange changeMethod setPackage:packageToCheckOut. |
|
2377 |
]. |
|
2378 |
^ self |
|
2379 |
]. |
|
2380 |
inChangeSet ifTrue:[ |
|
2381 |
msg := msg , '\Attention:\Load may undo any changes made to on of the extension methods (if any were made).'. |
|
2382 |
]. |
|
2383 |
labels := #('Cancel' 'Load').
|
|
2384 |
values := #(nil #load). |
|
2385 |
default := askForRevision |
|
2386 |
ifTrue:[2. "i.e. load"] |
|
2387 |
ifFalse:[1. "i.e. cancel"]. |
|
2388 |
] ifFalse:[ |
|
2389 |
changed isEmpty ifTrue:[ |
|
2390 |
msg := msg , '\Attention:\Load will load methods which are not present in the image.'. |
|
2391 |
labels := #('Cancel' 'Load').
|
|
2392 |
values := #(nil #load). |
|
2393 |
default := askForRevision |
|
2394 |
ifTrue:[2. "i.e. load"] |
|
2395 |
ifFalse:[1. "i.e. cancel"]. |
|
2396 |
] ifFalse:[ |
|
2397 |
inChangeSet ifTrue:[ |
|
2398 |
msg := msg , '\Attention:\Load will undo your changes made to the image (if any were made);'. |
|
2399 |
]. |
|
2400 |
msg := msg , '\Merge will only load methods which are not present in the image (i.e. undo removals but preserve changes).'. |
|
2401 |
]. |
|
2402 |
] |
|
2403 |
] ifFalse:[ |
|
2404 |
onlyInRep isEmpty ifTrue:[ |
|
2405 |
inChangeSet ifTrue:[ |
|
2406 |
msg := msg , '\Attention:\Load will undo your changes made to the image (if any were made),'. |
|
2407 |
msg := msg , '\and remove added methods which are not present in the repository version.'. |
|
2408 |
]. |
|
2409 |
labels := #('Cancel' 'Load').
|
|
2410 |
values := #(nil #load). |
|
2411 |
default := askForRevision |
|
2412 |
ifTrue:[2. "i.e. load"] |
|
2413 |
ifFalse:[1. "i.e. cancel"]. |
|
2414 |
] ifFalse:[ |
|
2415 |
inChangeSet ifTrue:[ |
|
2416 |
msg := msg , '\Attention:\Load will undo your changes made to the image (if any were made);'. |
|
2417 |
msg := msg , '\Merge will only load methods which are not present in the image (i.e. undo removals but preserve changes).'. |
|
2418 |
] |
|
2419 |
] |
|
2420 |
]. |
|
2421 |
||
2422 |
msg := msg bindWith:onlyInRep size printString |
|
2423 |
with:onlyHere size printString |
|
2424 |
with:changed size printString |
|
2425 |
with:singleChangeSelector |
|
2426 |
with:packageToCheckOut allBold. |
|
2427 |
||
2428 |
answer := (Dialog confirmWithCancel:msg withCRs |
|
2429 |
labels:(resources array:labels) |
|
2430 |
values:values |
|
2431 |
default:default). |
|
2432 |
answer isNil ifTrue:[^ self]. |
|
2433 |
||
2434 |
self activityNotification:'updating...'. |
|
2435 |
changedClasses := IdentitySet new. |
|
2436 |
||
2437 |
"/ Class withoutUpdatingChangesDo:[ |
|
2438 |
onlyInRep do:[:eachChange | "apply this change (method only present in rep-version)" |
|
2439 |
Class withoutUpdatingChangeSetDo:[ eachChange apply ]. |
|
2440 |
||
2441 |
eachChange changeMethod setPackage:packageToCheckOut. |
|
2442 |
changedClasses add:eachChange changeClass. |
|
2443 |
]. |
|
2444 |
answer == #load ifTrue:[ |
|
2445 |
onlyHere do:[:eachChange | "remove this change (method not present in rep-version)" |
|
2446 |
|cClass cSel| |
|
2447 |
||
2448 |
cClass := eachChange changeClass. |
|
2449 |
cSel := eachChange selector. |
|
2450 |
Class withoutUpdatingChangeSetDo:[ cClass removeSelector:cSel ]. |
|
2451 |
]. |
|
2452 |
changed do:[:eachChangeArr | "apply this change (go to rep-version)" |
|
2453 |
|cHere cRep| |
|
2454 |
cHere := eachChangeArr at:1. |
|
2455 |
cRep := eachChangeArr at:2. |
|
2456 |
Class withoutUpdatingChangeSetDo:[ cRep apply ]. |
|
2457 |
||
2458 |
cRep changeMethod setPackage:packageToCheckOut. |
|
2459 |
changedClasses add:cRep changeClass. |
|
2460 |
]. |
|
2461 |
]. |
|
2462 |
"/ ]. |
|
2463 |
changedClasses do:[:eachClass | |
|
2464 |
eachClass changed:#projectOrganization. |
|
2465 |
]. |
|
2466 |
Smalltalk changed:#projectOrganization. |
|
2467 |
||
2468 |
"Modified: / 07-02-2001 / 18:18:32 / ps" |
|
| 2691 | 2469 |
"Created: / 29-12-2011 / 14:34:12 / cg" |
| 1522 | 2470 |
! |
2471 |
||
| 957 | 2472 |
compareClassWithRepository:aClass |
2473 |
"open a diff-textView comparing the current (in-image) version |
|
2474 |
against its orgiginal version found in the repository." |
|
2475 |
||
|
1449
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2476 |
self compareClassWithRepository:aClass askForRevision:true |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2477 |
|
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2478 |
" |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2479 |
self compareClassWithRepository:Array |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2480 |
" |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2481 |
! |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2482 |
|
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2483 |
compareClassWithRepository:aClass askForRevision:askForRevision |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2484 |
"open a diff-textView comparing the current (in-image) version |
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2485 |
against the newest or an asked-for version found in the repository." |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2486 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2487 |
|classToCompare brwsr comparedSource currentSource rev revString thisRevString |
| 3953 | 2488 |
scmManager revisionInClass versionsAreTheSame revInfo revAuthor revDate revLabel | |
| 957 | 2489 |
|
|
1449
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2490 |
classToCompare := aClass theNonMetaclass. |
| 957 | 2491 |
|
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2492 |
comparedSource := self |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2493 |
fetchSourceOf:classToCompare askForRevision:askForRevision |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2494 |
into:[:revStringArg :revisionInClassArg :scmManagerArg| |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2495 |
revString := revStringArg. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2496 |
revisionInClass := revisionInClassArg. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2497 |
scmManager := scmManagerArg. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2498 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2499 |
comparedSource isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2500 |
^ self |
| 957 | 2501 |
]. |
2502 |
||
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2503 |
"/ classToCompare := aClass theNonMetaclass. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2504 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2505 |
"/ nm := classToCompare name. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2506 |
"/ (mgr := manager) isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2507 |
"/ mgr := self sourceCodeManagerFor:classToCompare. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2508 |
"/ mgr isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2509 |
"/ self error:'oops - no sourcecode manager' mayProceed:true. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2510 |
"/ ^ self |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2511 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2512 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2513 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2514 |
"/ rev := classToCompare revisionInfoOfManager:mgr. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2515 |
"/"/ rev := classToCompare binaryRevision. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2516 |
"/ revisionInClass := classToCompare revisionOfManager:mgr. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2517 |
"/ rev isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2518 |
"/ rev := revisionInClass |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2519 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2520 |
"/ rev isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2521 |
"/ (Dialog confirm:'Class seems to be not yet in the repository (or classes revision info is missing or corrupted)\\Proceed ?' withCRs) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2522 |
"/ ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2523 |
"/ ^ self |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2524 |
"/ ] |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2525 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2526 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2527 |
"/ "/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2528 |
"/ "/ class in repository - ask for revision |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2529 |
"/ "/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2530 |
"/ SourceCodeManagerError handle:[:ex | |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2531 |
"/ Dialog warn:(resources |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2532 |
"/ stringWithCRs:'Could not fetch revision info of "%1".\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2533 |
"/ with:classToCompare name |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2534 |
"/ with:classToCompare sourceCodeManager managerTypeName |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2535 |
"/ with:classToCompare package). |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2536 |
"/ ^ self. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2537 |
"/ ] do:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2538 |
"/ newestRev := mgr newestRevisionOf:classToCompare. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2539 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2540 |
"/ askForRevision ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2541 |
"/ msg := resources string:'Compare to revision: (empty for newest)'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2542 |
"/ rev notNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2543 |
"/ msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2544 |
"/ with:nm allBold with:rev). |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2545 |
"/ (revisionInClass notNil and:[revisionInClass ~= rev]) ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2546 |
"/ msg := msg , '\' , (resources string:'And has been checked into the repository as %1.' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2547 |
"/ with:revisionInClass) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2548 |
"/ ] |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2549 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2550 |
"/ newestRev notNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2551 |
"/ msg := msg , '\' , (resources string:'Newest in repository is %1.' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2552 |
"/ with:newestRev) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2553 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2554 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2555 |
"/ rev := self |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2556 |
"/ askForExistingRevision:msg |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2557 |
"/ title:'Compare with repository' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2558 |
"/ class:classToCompare. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2559 |
"/ ] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2560 |
"/ rev := newestRev. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2561 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2562 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2563 |
"/ rev isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2564 |
"/ mgr = classToCompare sourceCodeManager ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2565 |
"/ msg := 'Could not figure out the newest revision of "%1".\\Please check if this class is really contained in that repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2566 |
"/ ] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2567 |
"/ msg := 'Could not figure out the newest revision of "%1".\\Notice that the class is actually maintained by %4, not %2.\Please check if this class is really in the %2 repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2568 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2569 |
"/ Dialog warn:(resources |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2570 |
"/ stringWithCRs:msg |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2571 |
"/ with:classToCompare name |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2572 |
"/ with:mgr managerTypeName |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2573 |
"/ with:classToCompare package |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2574 |
"/ with:(classToCompare sourceCodeManager managerTypeName)). |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2575 |
"/ ^ self. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2576 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2577 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2578 |
"/ rev withoutSpaces isEmpty ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2579 |
"/ msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2580 |
"/ "/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2581 |
"/ aStream := mgr getSourceStreamFor:classToCompare revision:newestRev. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2582 |
"/ revString := '(newest: ' , (newestRev ? '???') , ')'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2583 |
"/ ] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2584 |
"/ msg := 'extracting previous %1'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2585 |
"/ aStream := mgr getSourceStreamFor:classToCompare revision:rev. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2586 |
"/ revString := rev |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2587 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2588 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2589 |
"/ aStream isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2590 |
"/ self warn:'Could not extract source from repository (check repository settings / network)'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2591 |
"/ ^ self |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2592 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2593 |
"/ aStream class readErrorSignal handle:[:ex | |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2594 |
"/ self warn:('Read error while reading extracted source\\' , ex description) withCRs.
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2595 |
"/ aStream close. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2596 |
"/ ^ self |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2597 |
"/ ] do:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2598 |
"/ comparedSource := aStream contents asString. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2599 |
"/ ]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2600 |
"/ aStream close. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2601 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2602 |
self activityNotification:'generating current source...'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2603 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2604 |
currentSource := self sourceCodeOfClass:classToCompare. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2605 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2606 |
self activityNotification:'comparing...'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2607 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2608 |
versionsAreTheSame := false. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2609 |
"/ a quick smoke test, if code is exactly the same |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2610 |
comparedSource = currentSource ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2611 |
versionsAreTheSame := true. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2612 |
] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2613 |
"/ this branch generates chunks and compares individual methods. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2614 |
"/ this is a litle more expensive, but will deal with reordered methods in the source, |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2615 |
"/ additional whitespace, empty lines etc. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2616 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2617 |
thisRevString := revisionInClass ? 'no revision'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2618 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2619 |
revString = '(newest)' ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2620 |
|newestRev| |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2621 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2622 |
(newestRev := scmManager newestRevisionOf:classToCompare) notNil ifTrue:[ |
| 3953 | 2623 |
revString := '(newest is ' , newestRev , ')'. |
2624 |
rev := newestRev. |
|
|
1449
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2625 |
] |
| 3953 | 2626 |
] ifFalse:[ |
2627 |
rev := revString |
|
2628 |
]. |
|
2629 |
||
2630 |
revLabel := revString. |
|
2631 |
||
2632 |
rev notNil ifTrue:[ |
|
2633 |
revInfo := scmManager revisionLogOf:classToCompare fromRevision:rev toRevision:rev. |
|
2634 |
revInfo notNil ifTrue:[ |
|
2635 |
revInfo := (revInfo at:#revisions) first. |
|
2636 |
revAuthor := revInfo at:#author ifAbsent:[nil]. |
|
2637 |
revDate := revInfo at:#date ifAbsent:[nil]. |
|
| 3993 | 2638 |
revDate isString ifTrue:[ |
| 3953 | 2639 |
revDate := Timestamp readFrom:revDate onError:nil. |
2640 |
]. |
|
2641 |
revLabel := revString , ' ('.
|
|
2642 |
revDate notNil ifTrue:[ |
|
2643 |
revLabel := revLabel , revDate asDate printString. |
|
2644 |
]. |
|
2645 |
revLabel := revLabel , ' by ', revAuthor. |
|
2646 |
revLabel := revLabel , ')'. |
|
2647 |
]. |
|
|
1449
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2648 |
]. |
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2649 |
|
|
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2650 |
self activityNotification:'comparing...'. |
| 957 | 2651 |
|
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2652 |
ChangeSet invalidChangeChunkError handle:[:ex | |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2653 |
|answer| |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2654 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2655 |
answer := Dialog |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2656 |
confirm:(resources |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2657 |
stringWithCRs:'An invalid change chunk was encountered when reading the source of %1.\This may be due to a currupted source file (or source file was modified/updated in the meantime, without recompilation).\\Proceed in debugger?' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2658 |
with:aClass) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2659 |
yesLabel:(resources string:'Debug') |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2660 |
noLabel:(resources string:'Cancel') |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2661 |
initialAnswer:false. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2662 |
answer ifTrue:[ex reject]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2663 |
AbortOperationRequest raise. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2664 |
] do:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2665 |
brwsr := (UserPreferences versionDiffViewerClass) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2666 |
openOnClass:classToCompare |
| 3953 | 2667 |
labelA:('Repository: ' , revLabel)
|
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2668 |
sourceA:comparedSource |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2669 |
labelB:('Current: (based on: ' , thisRevString , ')')
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2670 |
sourceB:currentSource |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2671 |
title:('Comparing ' , classToCompare name)
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2672 |
ifSame:[versionsAreTheSame := true]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2673 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2674 |
versionsAreTheSame ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2675 |
brwsr classChangeSet |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2676 |
classBeingCompared:classToCompare; |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2677 |
versionA:revString; |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2678 |
versionB:thisRevString , 'mod'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2679 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2680 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2681 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2682 |
versionsAreTheSame ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2683 |
(classToCompare hasUnsavedChanges) ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2684 |
(self confirm:(resources |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2685 |
stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2686 |
with:classToCompare name allBold)) ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2687 |
ChangeSet current condenseChangesForClass:classToCompare. |
|
3579
d175474155c8
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3551
diff
changeset
|
2688 |
]. |
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2689 |
] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2690 |
self information:'Versions are identical.'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2691 |
ChangeSet current unrememberChangedClasses. |
|
1449
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2692 |
]. |
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2693 |
revisionInClass isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2694 |
(Dialog confirm:'Update (Fix) the classes Revision Info ?' withCRs) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2695 |
ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2696 |
|newString root| |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2697 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2698 |
newString := scmManager updatedRevisionStringOf:aClass forRevision:rev with:aClass revisionString. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2699 |
newString isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2700 |
root := scmManager getCVSROOTForModule:(aClass package upTo:$:). |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2701 |
root := scmManager repositoryTopDirectoryFromCVSRoot:root. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2702 |
newString := '$', 'Header: ',(root copyReplaceAll: $: with:$/ ),'/' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2703 |
,(Smalltalk fileNameForClass:aClass),'.st,v ',rev,' ' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2704 |
,(Date today printStringFormat:'%y-%m-%d'),' ' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2705 |
,(Time now printStringFormat:'%h:%m:%s'),' ' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2706 |
,'+0000 ' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2707 |
,(OperatingSystem getLoginName),' Exp $'. |
|
1449
cfb2e98b9259
refactored (code duplication)
Claus Gittinger <cg@exept.de>
parents:
1433
diff
changeset
|
2708 |
]. |
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2709 |
scmManager updateVersionMethodOf:aClass for:newString. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
2710 |
] |
| 957 | 2711 |
]. |
2712 |
]. |
|
2713 |
||
2714 |
" |
|
| 997 | 2715 |
self compareClassWithRepository:Array |
| 957 | 2716 |
" |
| 1497 | 2717 |
|
| 2847 | 2718 |
"Modified: / 24-07-2012 / 18:11:27 / cg" |
| 957 | 2719 |
! |
2720 |
||
| 4201 | 2721 |
comparePackages:packages askForRevision:askForRevision |
|
3536
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2722 |
"Compares code of given packages (loaded in the image) against a specific revision |
|
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2723 |
and opens a diff browser on differences. |
| 4201 | 2724 |
|
2725 |
If `askForRevision` is true, then user is asked to specify to which revision to |
|
2726 |
update. If `askForRevision` is false, then packages are updated to a 'newest' |
|
2727 |
revision. |
|
2728 |
||
2729 |
NOTE: Definition of `newest` revision may vary. For SCMs which allows for multiple |
|
2730 |
heads, it is not clear which one it is. In that case, even if `askForRevision` is |
|
2731 |
false, this method may result in user interaction, asking user to select which of the |
|
2732 |
newest she wants." |
|
2733 |
||
2734 |
self comparePackages:packages askForRevision:askForRevision extensionsOnly:false |
|
2735 |
||
2736 |
"Created: / 04-04-2014 / 15:29:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2737 |
! |
|
2738 |
||
2739 |
comparePackages:packages askForRevision:askForRevision extensionsOnly:extensionsOnly |
|
2740 |
"Compares code of given packages (loaded in the image) against a specific revision |
|
2741 |
and opens a diff browser on differences. |
|
2742 |
||
|
3536
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2743 |
If `askForRevision` is true, then user is asked to specify to which revision to |
|
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2744 |
update. If `askForRevision` is false, then packages are updated to a 'newest' |
| 4201 | 2745 |
revision. |
2746 |
||
|
3536
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2747 |
NOTE: Definition of `newest` revision may vary. For SCMs which allows for multiple |
|
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2748 |
heads, it is not clear which one it is. In that case, even if `askForRevision` is |
| 4201 | 2749 |
false, this method may result in user interaction, asking user to select which of the |
|
3536
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2750 |
newest she wants." |
|
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2751 |
|
| 4201 | 2752 |
|string dateOrNil symbolicNameOrNil knownTags includeSubProjectsHolder |
2753 |
packagesIn packagesCompared| |
|
2754 |
||
2755 |
packagesIn := packages value. |
|
2756 |
||
2757 |
knownTags := self knownTagsInPackages:packagesIn. |
|
2758 |
||
2759 |
includeSubProjectsHolder := true asValue. |
|
2760 |
string := self |
|
2761 |
askForPackageVersion:'Compare with version from date (%1) or tag (any other format) (empty for newest):' |
|
2762 |
with:includeSubProjectsHolder |
|
2763 |
knownTags:knownTags |
|
2764 |
into:[:dateOrNilArg :symbolicNameOrNilArg | |
|
2765 |
dateOrNil := dateOrNilArg. |
|
2766 |
symbolicNameOrNil := symbolicNameOrNilArg. |
|
2767 |
||
2768 |
LastComparedTag := symbolicNameOrNil. |
|
2769 |
]. |
|
2770 |
||
2771 |
string isNil ifTrue:[^ self]. |
|
2772 |
||
2773 |
packagesCompared := packagesIn. |
|
2774 |
includeSubProjectsHolder value ifTrue:[ |
|
2775 |
packagesCompared := Smalltalk allPackageIDs |
|
2776 |
select:[:eachPackage | |
|
2777 |
packagesIn contains:[:p | |
|
2778 |
eachPackage = p |
|
2779 |
or:[ (eachPackage startsWith:(p,'-')) |
|
2780 |
or:[ (eachPackage startsWith:(p,':')) ]] |
|
2781 |
] |
|
2782 |
] |
|
2783 |
]. |
|
2784 |
||
2785 |
packagesCompared value do:[:eachProject | |
|
2786 |
dateOrNil notNil ifTrue:[ |
|
2787 |
self compareProject:eachProject withRepositoryVersionFrom:dateOrNil extensionsOnly:extensionsOnly |
|
2788 |
] ifFalse:[ |
|
2789 |
self compareProject:eachProject withRepositoryVersionTaggedAs:symbolicNameOrNil extensionsOnly:extensionsOnly |
|
2790 |
] |
|
2791 |
]. |
|
2792 |
||
2793 |
"Created: / 04-04-2014 / 15:29:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2794 |
"Modified: / 05-02-2017 / 04:24:39 / cg" |
|
2795 |
! |
|
2796 |
||
2797 |
compareProject:aProject |
|
2798 |
repositoryVersionFrom:dateOrNilV1 orTag:symbolicNameOrNilV1 |
|
2799 |
againstRepositoryVersionFrom:dateOrNilV2 orTag:symbolicNameOrNilV2 |
|
2800 |
extensionsOnly:extensionsOnly |
|
2801 |
||
2802 |
|diffSet| |
|
2803 |
||
2804 |
diffSet := self |
|
2805 |
diffSetOfProject:aProject |
|
2806 |
repositoryVersionFrom:dateOrNilV1 orTag:symbolicNameOrNilV1 |
|
2807 |
againstRepositoryVersionFrom:dateOrNilV2 orTag:symbolicNameOrNilV2 |
|
2808 |
extensionsOnly:extensionsOnly. |
|
2809 |
VersionDiffBrowser |
|
2810 |
openOnDiffSet:diffSet |
|
2811 |
labelA:(dateOrNilV1 ? symbolicNameOrNilV1) |
|
2812 |
labelB:(dateOrNilV2 ? symbolicNameOrNilV2) |
|
2813 |
title:('Differences of %1' bindWith:aProject)
|
|
2814 |
ignoreExtensions:true |
|
2815 |
ignoreVersionMethods:true. |
|
2816 |
||
2817 |
"Created: / 05-02-2017 / 04:21:15 / cg" |
|
|
3536
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2818 |
! |
|
cb8679184d3b
Compare packages functionality moved from browser to SourceCoeManagerUtilities
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3534
diff
changeset
|
2819 |
|
| 2189 | 2820 |
compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
| 3926 | 2821 |
^ self compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
2822 |
! |
|
2823 |
||
2824 |
compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
|
| 2189 | 2825 |
|diffSet| |
2826 |
||
| 3926 | 2827 |
diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly. |
|
1875
f00eb53229ae
first attempt with compare-project functionality
Claus Gittinger <cg@exept.de>
parents:
1864
diff
changeset
|
2828 |
VersionDiffBrowser |
|
f00eb53229ae
first attempt with compare-project functionality
Claus Gittinger <cg@exept.de>
parents:
1864
diff
changeset
|
2829 |
openOnDiffSet:diffSet |
|
f00eb53229ae
first attempt with compare-project functionality
Claus Gittinger <cg@exept.de>
parents:
1864
diff
changeset
|
2830 |
labelA:'Repository' |
|
f00eb53229ae
first attempt with compare-project functionality
Claus Gittinger <cg@exept.de>
parents:
1864
diff
changeset
|
2831 |
labelB:'Image' |
|
2522
d32ade066c3f
changed: #compareProject:withRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2487
diff
changeset
|
2832 |
title:('Differences of %1' bindWith:aProject)
|
| 2949 | 2833 |
ignoreExtensions:true |
2834 |
ignoreVersionMethods:true. |
|
|
2522
d32ade066c3f
changed: #compareProject:withRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2487
diff
changeset
|
2835 |
|
|
d32ade066c3f
changed: #compareProject:withRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2487
diff
changeset
|
2836 |
"Modified: / 12-09-2011 / 11:56:01 / cg" |
| 2189 | 2837 |
! |
2838 |
||
| 2939 | 2839 |
compareProject:aProject withRepositoryVersionTaggedAs:aSymbolicName |
2840 |
|diffSet| |
|
2841 |
||
2842 |
diffSet := self diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aSymbolicName. |
|
2843 |
VersionDiffBrowser |
|
2844 |
openOnDiffSet:diffSet |
|
| 3926 | 2845 |
labelA:'Repository ("',(aSymbolicName?'newest'),'")'
|
| 2939 | 2846 |
labelB:'Image' |
2847 |
title:('Differences of %1' bindWith:aProject)
|
|
| 2949 | 2848 |
ignoreExtensions:true |
2849 |
ignoreVersionMethods:true. |
|
| 2939 | 2850 |
|
2851 |
"Modified: / 12-09-2011 / 11:56:01 / cg" |
|
| 4201 | 2852 |
"Modified (format): / 04-02-2017 / 18:54:02 / cg" |
| 2939 | 2853 |
! |
2854 |
||
| 4201 | 2855 |
compareProject:aProject withRepositoryVersionTaggedAs:aTagOrNil extensionsOnly:extensionsOnly |
2856 |
"if aTagOrNil is nil, compare against the newest version in the repositry" |
|
2857 |
||
| 4132 | 2858 |
|diffSet| |
2859 |
||
| 4201 | 2860 |
diffSet := self diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aTagOrNil extensionsOnly:extensionsOnly. |
| 4132 | 2861 |
VersionDiffBrowser |
2862 |
openOnDiffSet:diffSet |
|
2863 |
labelA:'Repository' |
|
2864 |
labelB:'Image' |
|
2865 |
title:('Differences of %1' bindWith:aProject)
|
|
2866 |
ignoreExtensions:true |
|
2867 |
ignoreVersionMethods:true. |
|
2868 |
||
| 4201 | 2869 |
|
2870 |
" |
|
2871 |
CVSSourceCodeManager utilities |
|
2872 |
compareProject:'stx:libbasic2' |
|
2873 |
withRepositoryVersionTaggedAs:nil |
|
2874 |
extensionsOnly:false. |
|
2875 |
||
2876 |
CVSSourceCodeManager utilities |
|
2877 |
compareProject:'stx:libbasic2' |
|
2878 |
withRepositoryVersionTaggedAs:'expecco_2_10_0' |
|
2879 |
extensionsOnly:false. |
|
2880 |
" |
|
2881 |
||
| 4132 | 2882 |
"Created: / 12-11-2016 / 03:39:48 / cg" |
| 4201 | 2883 |
"Modified (comment): / 04-02-2017 / 18:46:49 / cg" |
| 4132 | 2884 |
! |
2885 |
||
| 2189 | 2886 |
compareProjectWithRepository:aProject |
2887 |
^ self compareProject:aProject withRepositoryVersionFrom:nil |
|
|
1875
f00eb53229ae
first attempt with compare-project functionality
Claus Gittinger <cg@exept.de>
parents:
1864
diff
changeset
|
2888 |
! |
|
f00eb53229ae
first attempt with compare-project functionality
Claus Gittinger <cg@exept.de>
parents:
1864
diff
changeset
|
2889 |
|
| 4201 | 2890 |
compareTwoPackageVersions:packages |
2891 |
"Compares two versions of given packages." |
|
2892 |
||
2893 |
self compareTwoPackageVersions:packages extensionsOnly:false |
|
2894 |
||
2895 |
"Created: / 04-02-2017 / 17:33:02 / cg" |
|
2896 |
! |
|
2897 |
||
2898 |
compareTwoPackageVersions:packagesIn extensionsOnly:extensionsOnly |
|
2899 |
"Compares two versions of given packages |
|
2900 |
and opens a diff browser on differences." |
|
2901 |
||
2902 |
|string includeSubProjectsHolder knownTags |
|
2903 |
dateOrNilV1 dateOrNilV2 |
|
2904 |
symbolicNameOrNilV1 symbolicNameOrNilV2 |
|
2905 |
packagesCompared| |
|
2906 |
||
2907 |
knownTags := self knownTagsInPackages:packagesIn first. |
|
2908 |
includeSubProjectsHolder := true asValue. |
|
2909 |
||
2910 |
string := self |
|
2911 |
askForPackageVersion:'First version''s date (%1) or tag (any other format):' |
|
2912 |
with:includeSubProjectsHolder |
|
2913 |
knownTags:knownTags |
|
2914 |
into:[:dateOrNilArg :symbolicNameOrNilArg | |
|
2915 |
dateOrNilV1 := dateOrNilArg. |
|
2916 |
symbolicNameOrNilV1 := symbolicNameOrNilArg. |
|
2917 |
]. |
|
2918 |
string isNil ifTrue:[^ self]. |
|
2919 |
||
2920 |
string := self |
|
2921 |
askForPackageVersion:'Second version''s date (%1) or tag (any other format):' |
|
2922 |
with:nil |
|
2923 |
knownTags:knownTags |
|
2924 |
into:[:dateOrNilArg :symbolicNameOrNilArg | |
|
2925 |
dateOrNilV2 := dateOrNilArg. |
|
2926 |
symbolicNameOrNilV2 := symbolicNameOrNilArg. |
|
2927 |
]. |
|
2928 |
string isNil ifTrue:[^ self]. |
|
2929 |
||
2930 |
LastComparedTag := symbolicNameOrNilV1. |
|
2931 |
||
2932 |
packagesCompared := packagesIn. |
|
2933 |
includeSubProjectsHolder value ifTrue:[ |
|
2934 |
packagesCompared := |
|
2935 |
Smalltalk allPackageIDs |
|
2936 |
select:[:eachPackage | |
|
2937 |
packagesIn contains:[:p | |
|
2938 |
eachPackage = p |
|
2939 |
or:[ (eachPackage startsWith:(p,'-')) |
|
2940 |
or:[ (eachPackage startsWith:(p,':')) ]] |
|
2941 |
] |
|
2942 |
] |
|
2943 |
]. |
|
2944 |
||
2945 |
packagesCompared value do:[:eachProject | |
|
2946 |
self |
|
2947 |
compareProject:eachProject |
|
2948 |
repositoryVersionFrom:dateOrNilV1 orTag:symbolicNameOrNilV1 |
|
2949 |
againstRepositoryVersionFrom:dateOrNilV2 orTag:symbolicNameOrNilV2 |
|
2950 |
extensionsOnly:extensionsOnly |
|
2951 |
]. |
|
2952 |
||
2953 |
" |
|
2954 |
CVSSourceCodeManager utilities |
|
2955 |
compareTwoPackageVersions:#('stx:libbasic') extensionsOnly:true
|
|
2956 |
" |
|
2957 |
||
2958 |
"Created: / 04-02-2017 / 17:51:09 / cg" |
|
2959 |
"Modified: / 05-02-2017 / 04:23:07 / cg" |
|
2960 |
! |
|
2961 |
||
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
2962 |
createSourceContainerForClass:aClass |
| 2651 | 2963 |
"let user specify the source-repository values for aClass. |
2964 |
Return false, if failed." |
|
2965 |
||
2966 |
^ self |
|
2967 |
createSourceContainerForClass:aClass |
|
2968 |
usingManager:(self sourceCodeManagerFor:aClass). |
|
2969 |
||
2970 |
"Modified: / 21-12-2011 / 18:31:49 / cg" |
|
2971 |
! |
|
2972 |
||
2973 |
createSourceContainerForClass:aClass usingManager:aManager |
|
2974 |
"let user specify the source-repository values for aClass. |
|
2975 |
Return false, if failed." |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
2976 |
|
| 3992 | 2977 |
^ self |
2978 |
createSourceContainerForClass:aClass usingManager:aManager |
|
2979 |
confirmNewContainer:confirmNewFiles |
|
2980 |
! |
|
2981 |
||
2982 |
createSourceContainerForClass:aClass usingManager:aManager confirmNewContainer:confirmNewContainer |
|
2983 |
"let user specify the source-repository values for aClass. |
|
2984 |
Return false, if failed." |
|
2985 |
||
| 2651 | 2986 |
aManager isNil ifTrue:[^ false]. |
2987 |
||
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
2988 |
^ self |
| 2651 | 2989 |
defineSourceContainerForClass:aClass |
2990 |
usingManager:aManager |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
2991 |
title:(resources string:'Repository information for %1' with:aClass name) |
| 2651 | 2992 |
text:(resources string:'Create new %1-repository container for ''%2''' |
2993 |
with:aManager managerTypeName |
|
2994 |
with:aClass name allBold) |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
2995 |
createDirectories:true |
| 3992 | 2996 |
createContainer:true |
2997 |
confirmNewContainer:confirmNewContainer. |
|
| 2651 | 2998 |
|
2999 |
"Created: / 21-12-2011 / 18:31:23 / cg" |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3000 |
! |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3001 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3002 |
defineSourceContainerForClass:aClass title:title text:boxText createDirectories:createDirs createContainer:createContainer |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3003 |
"let user specify the source-repository values for aClass" |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3004 |
|
| 2651 | 3005 |
^ self |
3006 |
defineSourceContainerForClass:aClass |
|
3007 |
usingManager:(self sourceCodeManagerFor:aClass) |
|
3008 |
title:title |
|
3009 |
text:boxText |
|
3010 |
createDirectories:createDirs |
|
3011 |
createContainer:createContainer |
|
3012 |
||
3013 |
"Modified: / 21-12-2011 / 18:34:44 / cg" |
|
3014 |
! |
|
3015 |
||
3016 |
defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText createDirectories:createDirs createContainer:createContainer |
|
3017 |
"let user specify the source-repository values for aClass" |
|
3018 |
||
| 3992 | 3019 |
^ self |
3020 |
defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText |
|
3021 |
createDirectories:createDirs createContainer:createContainer |
|
3022 |
confirmNewContainer:confirmNewFiles |
|
3023 |
! |
|
3024 |
||
3025 |
defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText |
|
3026 |
createDirectories:createDirs createContainer:createContainer |
|
3027 |
confirmNewContainer:confirmNewContainer |
|
3028 |
"let user specify the source-repository values for aClass" |
|
3029 |
||
| 2651 | 3030 |
|className |
| 2063 | 3031 |
"oldModule oldPackage" oldFileName |
| 1533 | 3032 |
module directory fileName nameSpace nameSpacePrefix |
| 2651 | 3033 |
info project nm creatingNew msg |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3034 |
answer doCheckinWithoutAsking forceCheckIn rslt note |
|
3276
e6902cec8b2f
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3272
diff
changeset
|
3035 |
requiredPackage classPackage| |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3036 |
|
| 2651 | 3037 |
mgr isNil ifTrue:[^ false]. |
3038 |
||
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3039 |
aClass isLoaded ifFalse:[ |
| 1076 | 3040 |
self warn:(resources string:'Please load the %1-class first' with:aClass name). |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3041 |
^ false. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3042 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3043 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3044 |
className := aClass name. |
|
3276
e6902cec8b2f
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3272
diff
changeset
|
3045 |
classPackage := aClass package. |
|
e6902cec8b2f
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3272
diff
changeset
|
3046 |
classPackage ~= PackageId noProjectID ifTrue:[ |
|
e6902cec8b2f
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3272
diff
changeset
|
3047 |
module := classPackage asPackageId module. |
|
e6902cec8b2f
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3272
diff
changeset
|
3048 |
directory := classPackage asPackageId directory. |
| 1533 | 3049 |
] ifFalse:[ |
3050 |
"/ |
|
3051 |
"/ defaults, if nothing at all is known |
|
3052 |
"/ |
|
3053 |
(module := LastModule) isNil ifTrue:[ |
|
| 3919 | 3054 |
module := (UserPreferences current usersModuleName "OperatingSystem getLoginName"). |
| 1533 | 3055 |
]. |
3056 |
(directory := LastPackage) isNil ifTrue:[ |
|
3057 |
directory := 'private'. |
|
|
3153
c2bca6dbe3a7
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3146
diff
changeset
|
3058 |
]. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3059 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3060 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3061 |
"/ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3062 |
"/ try to extract some useful defaults from the current project |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3063 |
"/ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3064 |
(Project notNil and:[(project := Project current) notNil]) ifTrue:[ |
| 1533 | 3065 |
directory isNil ifTrue:[ |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3066 |
(nm := project repositoryDirectory) isNil ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3067 |
nm := project name |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3068 |
]. |
| 1533 | 3069 |
directory := nm. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3070 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3071 |
module isNil ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3072 |
(nm := project repositoryModule) notNil ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3073 |
module := nm |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3074 |
] |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3075 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3076 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3077 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3078 |
"/ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3079 |
"/ ask the sourceCodeManager if it knows anything about that class |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3080 |
"/ if so, take that as a default. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3081 |
"/ |
|
1189
fdc5e747c184
refactored check for a valid sourceCodeManager into one place
Claus Gittinger <cg@exept.de>
parents:
1185
diff
changeset
|
3082 |
info := mgr sourceInfoOfClass:aClass. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3083 |
info notNil ifTrue:[ |
| 1368 | 3084 |
true "module ~= LastModule" ifTrue:[ |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3085 |
(info includesKey:#module) ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3086 |
module := (info at:#module). |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3087 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3088 |
]. |
| 1401 | 3089 |
"/ true "package ~= LastPackage" ifTrue:[ |
3090 |
"/ (info includesKey:#directory) ifTrue:[ |
|
3091 |
"/ package := (info at:#directory). |
|
3092 |
"/ ]. |
|
3093 |
"/ ]. |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3094 |
fileName := mgr containerFromSourceInfo:info. |
| 4007 | 3095 |
fileName isNil ifTrue:[ fileName := aClass classFilename ]. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3096 |
(nameSpace := aClass nameSpace) ~~ Smalltalk ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3097 |
nameSpacePrefix := nameSpace name , '::'. |
| 3259 | 3098 |
fileName := fileName withoutPrefix:nameSpacePrefix. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3099 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3100 |
"/ (info includesKey:#fileName) ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3101 |
"/ fileName := (info at:#fileName). |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3102 |
"/ ] ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3103 |
"/ (info includesKey:#expectedFileName) ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3104 |
"/ fileName := (info at:#expectedFileName). |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3105 |
"/ ] ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3106 |
"/ (info includesKey:#classFileNameBase) ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3107 |
"/ fileName := (info at:#classFileNameBase) , '.st'. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3108 |
"/ ] |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3109 |
"/ ] |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3110 |
"/ ] |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3111 |
]. |
| 4058 | 3112 |
directory isNil ifTrue:[ |
3113 |
Dialog information:('Using %1 as last package-folder' bindWith:LastPackage).
|
|
|
3514
a35b833ed992
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3433
diff
changeset
|
3114 |
directory := LastPackage. |
|
a35b833ed992
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3433
diff
changeset
|
3115 |
]. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3116 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3117 |
fileName isNil ifTrue:[ |
| 1338 | 3118 |
fileName := (Smalltalk fileNameForClass:aClass) , '.st'. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3119 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3120 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3121 |
OperatingSystem isMSDOSlike ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3122 |
module replaceAll:$\ with:$/. |
| 1533 | 3123 |
directory replaceAll:$\ with:$/. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3124 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3125 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3126 |
"/ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3127 |
"/ check for conflicts (i.e. if such a container already exists) ... |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3128 |
"/ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3129 |
doCheckinWithoutAsking := false. |
|
1831
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3130 |
"/false ifTrue:[ |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3131 |
"/ (mgr checkForExistingContainer:fileName inModule:module directory:directory) ifTrue:[ |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3132 |
"/ answer := Dialog confirmWithCancel:(resources |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3133 |
"/ string:'About to change the source container. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3134 |
"/ |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3135 |
"/Notice: there is a container for %1 in: |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3136 |
"/ |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3137 |
"/ %2 / %3 / %4 |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3138 |
"/ |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3139 |
"/Do you want to change it or check right into that container ?' |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3140 |
"/ with:className |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3141 |
"/ with:module |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3142 |
"/ with:directory |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3143 |
"/ with:fileName) |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3144 |
"/ labels:(resources array:#('Cancel' 'Check in' 'Change')).
|
|
3433
eee3079d18d3
AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents:
3425
diff
changeset
|
3145 |
"/ answer isNil ifTrue:[AbortOperationRequest raise]. |
|
1831
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3146 |
"/ answer ifTrue:[ |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3147 |
"/ doCheckinWithoutAsking := false. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3148 |
"/ oldModule := module. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3149 |
"/ oldPackage := directory. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3150 |
"/ oldFileName := fileName |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3151 |
"/ ] ifFalse:[ |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3152 |
"/ doCheckinWithoutAsking := true. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3153 |
"/ creatingNew := false. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3154 |
"/ ]. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3155 |
"/ ]. |
|
cda120c93659
do not ask for changed source-container based on the default
sr
parents:
1828
diff
changeset
|
3156 |
"/]. |
|
2688
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3157 |
mgr isContainerBased ifTrue:[ |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3158 |
doCheckinWithoutAsking ifFalse:[ |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3159 |
"/ |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3160 |
"/ open a dialog for this |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3161 |
"/ |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3162 |
(mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[ |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3163 |
note := 'Notice: class seems to have no container yet.'. |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3164 |
creatingNew := true. |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3165 |
] ifTrue:[ |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3166 |
creatingNew := false. |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3167 |
]. |
| 3992 | 3168 |
confirmNewContainer ifTrue:[ |
| 2847 | 3169 |
rslt := self |
3170 |
askForContainer:boxText title:title note:note |
|
3171 |
initialModule:module initialPackage:directory initialFileName:fileName |
|
3172 |
forNewContainer:true. |
|
3173 |
||
3174 |
rslt isNil ifTrue:[ |
|
3175 |
^ false |
|
3176 |
]. |
|
3177 |
||
3178 |
module := rslt at:#module. |
|
3179 |
directory := rslt at:#package. |
|
3180 |
fileName := rslt at:#fileName. |
|
| 4058 | 3181 |
(module isEmptyOrNil or:[fileName isEmptyOrNil]) ifTrue:[ |
|
3514
a35b833ed992
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3433
diff
changeset
|
3182 |
^ false |
|
a35b833ed992
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3433
diff
changeset
|
3183 |
]. |
| 4058 | 3184 |
(directory isEmptyOrNil) ifTrue:[ |
3185 |
"/ only one special case allowed - the module-folder description itself. |
|
3186 |
aClass name = module ifFalse:[^ false]. |
|
3187 |
] |
|
| 2847 | 3188 |
] |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3189 |
]. |
|
2688
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3190 |
(fileName endsWith:',v') ifTrue:[ |
|
3227
bcaec3eb2d97
Changed usage of deprecated #copyWithoutLast: to #copyButLast:
Stefan Vogel <sv@exept.de>
parents:
3202
diff
changeset
|
3191 |
fileName := fileName copyButLast:2 |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3192 |
]. |
|
2688
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3193 |
(fileName endsWith:'.st') ifFalse:[ |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3194 |
fileName := fileName , '.st' |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3195 |
]. |
|
fa8075458983
changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer:
Claus Gittinger <cg@exept.de>
parents:
2673
diff
changeset
|
3196 |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3197 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3198 |
|
|
952
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3199 |
"/ we require the packageID to be <module>:<container-dir> |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3200 |
"/ check for this ... |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3201 |
|
| 1533 | 3202 |
requiredPackage := ((module ? '') , ':' , (directory ? '')) asSymbol. |
|
952
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3203 |
requiredPackage ~= aClass package ifTrue:[ |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3204 |
"/ doCheckinWithoutAsking ifFalse:[ |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3205 |
"/ (self confirm:'Change the classes packageID to: ''', requiredPackage , ''' ?') |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3206 |
"/ ifFalse:[ |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3207 |
"/ ^ false |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3208 |
"/ ] |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3209 |
"/ ]. |
|
1077
6b1bcfd27521
renamed: #allSelectorsAndMethodsDo: into: #instAndClassSelectorsAndMethodsDo:
Claus Gittinger <cg@exept.de>
parents:
1076
diff
changeset
|
3210 |
aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | mthd setPackage:requiredPackage]. |
|
952
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3211 |
aClass package:requiredPackage. |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3212 |
]. |
|
c75976ac7b7f
when checking in initially, change packageID of class
Claus Gittinger <cg@exept.de>
parents:
937
diff
changeset
|
3213 |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3214 |
info := aClass revisionInfo. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3215 |
info notNil ifTrue:[ |
| 2063 | 3216 |
(info repositoryPathName isNil) ifTrue:[ |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3217 |
info := nil |
| 2063 | 3218 |
]. |
3219 |
"/ (info includesKey:#repositoryPathName) ifFalse:[ |
|
3220 |
"/ info := nil |
|
3221 |
"/ ] |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3222 |
]. |
| 2175 | 3223 |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3224 |
info isNil ifTrue:[ |
|
1004
1bd564960810
dont ask if a version method should be created - just do it.
Claus Gittinger <cg@exept.de>
parents:
1000
diff
changeset
|
3225 |
true "doCheckinWithoutAsking" ifFalse:[ |
| 979 | 3226 |
answer := Dialog |
3227 |
confirmWithCancel:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:className) withCRs |
|
| 1076 | 3228 |
labels:(resources array:#( 'Cancel' 'No' 'Yes')). |
| 979 | 3229 |
answer isNil ifTrue:[^ false]. |
3230 |
] ifTrue:[ |
|
3231 |
answer := true. |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3232 |
]. |
| 979 | 3233 |
answer ifTrue:[ |
| 2637 | 3234 |
mgr |
| 2651 | 3235 |
updateVersionMethodOf:aClass |
3236 |
for:(mgr initialRevisionStringFor:aClass |
|
3237 |
inModule:module |
|
3238 |
directory:directory |
|
3239 |
container:fileName). |
|
| 979 | 3240 |
]. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3241 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3242 |
|
| 2691 | 3243 |
(self checkForExistingModule:module usingManager:mgr allowCreate:(createDirs or:[creatingNew])) |
| 2651 | 3244 |
ifFalse:[^ false]. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3245 |
LastModule := module. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3246 |
|
| 2691 | 3247 |
(self checkForExistingModule:module directory:directory usingManager:mgr allowCreate:(createDirs or:[creatingNew])) |
| 2651 | 3248 |
ifFalse:[^ false]. |
| 1533 | 3249 |
LastPackage := directory. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3250 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3251 |
"/ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3252 |
"/ check for the container itself |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3253 |
"/ |
| 2651 | 3254 |
(mgr isContainerBased not |
3255 |
or:[ mgr checkForExistingContainer:fileName inModule:module directory:directory ]) ifTrue:[ |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3256 |
"/ (oldModule notNil |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3257 |
"/ and:[(oldModule ~= module) |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3258 |
"/ or:[oldPackage ~= package |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3259 |
"/ or:[oldFileName ~= fileName]]]) |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3260 |
"/ ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3261 |
"/ self warn:(resources string:'no change'). |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3262 |
"/ ^ false. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3263 |
"/ ]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3264 |
|
| 2651 | 3265 |
mgr isContainerBased ifTrue:[ |
3266 |
creatingNew ifTrue:[ |
|
3267 |
self warn:(resources string:'Container for %1 already exists in %2/%3.' with:fileName with:module with:directory) withCRs. |
|
3268 |
]. |
|
3269 |
||
3270 |
doCheckinWithoutAsking ifFalse:[ |
|
3271 |
(Dialog |
|
3272 |
confirm:(resources string:'check %1 into the existing container |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3273 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3274 |
%2 / %3 / %4 ?' |
| 2651 | 3275 |
with:className |
3276 |
with:module |
|
3277 |
with:directory |
|
3278 |
with:fileName) withCRs |
|
3279 |
noLabel:'Cancel') |
|
3280 |
ifFalse:[ |
|
3281 |
^ false. |
|
3282 |
]. |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3283 |
]. |
| 2651 | 3284 |
]. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3285 |
|
| 2637 | 3286 |
mgr |
| 2651 | 3287 |
updateVersionMethodOf:aClass |
3288 |
for:('$' , 'Header' , '$'). "/ concatenated to avoid RCS-expansion
|
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3289 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3290 |
oldFileName notNil ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3291 |
msg := ('forced checkin / source container change from ' , oldFileName).
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3292 |
] ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3293 |
msg := 'defined source container' |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3294 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3295 |
|
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3296 |
(forceCheckIn := doCheckinWithoutAsking) ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3297 |
(mgr |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3298 |
checkinClass:aClass |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3299 |
fileName:fileName |
| 1533 | 3300 |
directory:directory |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3301 |
module:module |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3302 |
logMessage:msg) |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3303 |
ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3304 |
doCheckinWithoutAsking ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3305 |
(Dialog |
| 1076 | 3306 |
confirm:'No easy merge seems possible; force checkin (no merge) ?' |
3307 |
noLabel:'Cancel') |
|
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3308 |
ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3309 |
^ false. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3310 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3311 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3312 |
forceCheckIn := true. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3313 |
] |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3314 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3315 |
forceCheckIn ifTrue:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3316 |
(mgr |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3317 |
checkinClass:aClass |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3318 |
fileName:fileName |
| 1533 | 3319 |
directory:directory |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3320 |
module:module |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3321 |
logMessage:msg |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3322 |
force:true) |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3323 |
ifFalse:[ |
| 1076 | 3324 |
self warn:(resources string:'Failed to check into existing container.'). |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3325 |
^ false. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3326 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3327 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3328 |
^ true |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3329 |
] ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3330 |
(createContainer or:[creatingNew]) ifFalse:[ |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3331 |
(Dialog |
| 1076 | 3332 |
confirm:(resources string:'No container exists for %1 in %2/%3\\create ?' |
| 1533 | 3333 |
with:fileName with:module with:directory) withCRs |
| 1076 | 3334 |
noLabel:'Cancel') ifFalse:[ |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3335 |
^ false |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3336 |
] |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3337 |
] |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3338 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3339 |
|
|
1882
8b3a4c2a2c2a
when creating a new container, set the package of all methods.
Claus Gittinger <cg@exept.de>
parents:
1879
diff
changeset
|
3340 |
aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | mthd setPackage:requiredPackage]. |
|
8b3a4c2a2c2a
when creating a new container, set the package of all methods.
Claus Gittinger <cg@exept.de>
parents:
1879
diff
changeset
|
3341 |
aClass package:requiredPackage. |
| 1913 | 3342 |
|
|
3155
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
3343 |
[ mgr |
| 2651 | 3344 |
createContainerFor:aClass |
3345 |
inModule:module |
|
3346 |
package:directory |
|
3347 |
container:fileName |
|
|
3155
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
3348 |
] whileFalse:[ |
|
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
3349 |
(Dialog confirm:(resources stringWithCRs:'Failed to create container.\(fix your setup then retry, or cancel)\\Retry?') yesLabel:'Retry') ifFalse:[ |
|
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
3350 |
^ false. |
|
9c22d8b4315b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3153
diff
changeset
|
3351 |
]. |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3352 |
]. |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3353 |
^ true |
| 1533 | 3354 |
|
| 2651 | 3355 |
"Created: / 21-12-2011 / 18:34:02 / cg" |
| 4007 | 3356 |
"Modified: / 30-04-2016 / 11:58:11 / cg" |
|
876
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3357 |
! |
|
461b86272f48
more functionality moved to SCMUtility
Claus Gittinger <cg@exept.de>
parents:
875
diff
changeset
|
3358 |
|
| 2189 | 3359 |
diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest |
| 3926 | 3360 |
^ self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
3361 |
! |
|
3362 |
||
3363 |
diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
|
| 2939 | 3364 |
^ self |
3365 |
diffSetOfProject:aProject |
|
3366 |
againstRepositoryVersionFrom:aDateOrNilForNewest |
|
3367 |
orTag:nil |
|
| 3926 | 3368 |
extensionsOnly:extensionsOnly |
| 2939 | 3369 |
! |
3370 |
||
3371 |
diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest orTag:aTagOrNil |
|
|
2950
cd6dc0f1d994
comment/format in: #diffSetOfProject:againstRepositoryVersionFrom:orTag:
Claus Gittinger <cg@exept.de>
parents:
2949
diff
changeset
|
3372 |
"return a diffset against either the newest (head), or the version at a particular date, |
|
cd6dc0f1d994
comment/format in: #diffSetOfProject:againstRepositoryVersionFrom:orTag:
Claus Gittinger <cg@exept.de>
parents:
2949
diff
changeset
|
3373 |
or a the version with a particular tag." |
| 2939 | 3374 |
|
| 3926 | 3375 |
^ self |
3376 |
diffSetOfProject:aProject |
|
3377 |
againstRepositoryVersionFrom:aDateOrNilForNewest |
|
3378 |
orTag:aTagOrNil |
|
3379 |
extensionsOnly:false |
|
3380 |
||
3381 |
"Modified: / 01-11-2010 / 21:02:52 / cg" |
|
3382 |
! |
|
3383 |
||
3384 |
diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest orTag:aTagOrNil extensionsOnly:extensionsOnly |
|
| 4201 | 3385 |
"return a diffset against the version at a particular date (if not nil), |
3386 |
or a the version with a particular tag (if not nil), |
|
3387 |
or the newest (head) (if both are nil)." |
|
| 3926 | 3388 |
|
| 2189 | 3389 |
|classesInImage filesInImage module directory perProjectInfo |
3390 |
classesNotInRepository filesNotInImage classesDeletedInRepository |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3391 |
classesModifiedInImage classesNotReallyModified classesReallyModified classesNewerInRepository |
| 2189 | 3392 |
classesAddedInImage extensionMethods extensionsInImage extensionsInRepository extensionDiffs |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3393 |
box doCleanup diffSet def autoloadedFilesNotInImage |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3394 |
autoloadedClassesInImage autoloadedFilesInImage versionMethodsAndDoitsRejected| |
| 2189 | 3395 |
|
3396 |
module := aProject asPackageId module. |
|
3397 |
directory := aProject asPackageId directory. |
|
3398 |
||
| 2939 | 3399 |
(aDateOrNilForNewest isNil and:[ aTagOrNil notNil ]) ifTrue:[ |
3400 |
perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory taggedAs:aTagOrNil. |
|
3401 |
] ifFalse:[ |
|
3402 |
perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory fromDate:aDateOrNilForNewest. |
|
3403 |
]. |
|
| 2189 | 3404 |
perProjectInfo := perProjectInfo ? #(). |
3405 |
perProjectInfo := perProjectInfo select:[:info | info key asFilename hasSuffix:'st']. |
|
3406 |
perProjectInfo := Dictionary withAssociations:perProjectInfo. |
|
3407 |
||
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3408 |
"/ to ignore version_xxx methods |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3409 |
versionMethodsAndDoitsRejected := |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3410 |
[:aChangeSet | |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3411 |
aChangeSet reject:[:chg | |
| 2949 | 3412 |
false "chg isMethodChangeForVersionMethod" |
3413 |
or:[false "chg isMethodChangeForExtensionsVersionMethod" |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3414 |
or:[chg isDoIt]]] |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3415 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3416 |
|
| 2189 | 3417 |
classesInImage := Smalltalk allClassesInPackage:aProject. |
3418 |
autoloadedClassesInImage := classesInImage reject:[:cls | cls isLoaded]. |
|
|
2903
482f5086773d
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Stefan Vogel <sv@exept.de>
parents:
2864
diff
changeset
|
3419 |
classesInImage := classesInImage select:[:cls | cls isLoaded and:[cls isPrivate not]]. |
|
482f5086773d
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Stefan Vogel <sv@exept.de>
parents:
2864
diff
changeset
|
3420 |
filesInImage := classesInImage collect:[:cls | cls classBaseFilename] as:Set. |
|
482f5086773d
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Stefan Vogel <sv@exept.de>
parents:
2864
diff
changeset
|
3421 |
autoloadedFilesInImage := autoloadedClassesInImage collect:[:cls | cls classBaseFilename] as:Set. |
| 2189 | 3422 |
"/ any differences ? |
3423 |
classesNotInRepository := classesInImage reject:[:cls | (perProjectInfo includesKey:cls classBaseFilename)]. |
|
3424 |
classesDeletedInRepository := classesInImage select:[:cls | (perProjectInfo at:cls classBaseFilename ifAbsent:nil) == #deleted]. |
|
3425 |
perProjectInfo := perProjectInfo reject:[:v | v == #deleted]. |
|
3426 |
filesNotInImage := perProjectInfo keys reject:[:file | (filesInImage includes:file)]. |
|
3427 |
filesNotInImage := filesNotInImage reject:[:file | (autoloadedFilesInImage includes:file)]. |
|
3428 |
filesNotInImage remove:'extensions.st' ifAbsent:[]. |
|
3429 |
||
3430 |
"/ if comparing against the newest, only look for chaged stuff |
|
3431 |
classesModifiedInImage := classesInImage select:[:cls | ChangeSet current includesChangeForClassOrMetaclass:cls]. |
|
3432 |
classesModifiedInImage := classesModifiedInImage \ classesNotInRepository. |
|
3433 |
||
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3434 |
classesNewerInRepository := classesInImage |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3435 |
select:[:cls | |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3436 |
|v clsRevision| |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3437 |
|
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3438 |
v := (perProjectInfo at:cls classBaseFilename ifAbsent:nil). |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3439 |
v notNil |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3440 |
and:[ cls isLoaded |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3441 |
and:[ (clsRevision := cls revision) notNil |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3442 |
and:[ v > clsRevision ]]] |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3443 |
]. |
| 2189 | 3444 |
|
3445 |
"/ stupid: as we do not have any revision information for extensions (sigh); |
|
3446 |
"/ we must checkout and look at the extension.st contents, to see if it has changed. |
|
3447 |
||
3448 |
extensionMethods := Smalltalk allExtensionsForPackage:aProject. |
|
3449 |
extensionsInImage := ChangeSet forExistingMethods:extensionMethods. |
|
3450 |
||
3451 |
[ |
|
3452 |
|s extensionsRevision| |
|
3453 |
||
3454 |
extensionsRevision := perProjectInfo at:'extensions.st' ifAbsent:#newest. |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3455 |
[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3456 |
s := SourceCodeManager |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3457 |
streamForClass:nil fileName:'extensions.st' revision:extensionsRevision |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3458 |
directory:directory module:module cache:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3459 |
s notNil ifTrue:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3460 |
extensionsInRepository := ChangeSet fromStream:s. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3461 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3462 |
] ensure:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3463 |
s notNil ifTrue:[s close] |
| 2189 | 3464 |
]. |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3465 |
extensionsInRepository isNil ifTrue:[extensionsInRepository := ChangeSet new]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3466 |
|
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3467 |
"/ ignore package doIts and all extensionVersion_xxx methods |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3468 |
extensionsInRepository := versionMethodsAndDoitsRejected value:extensionsInRepository. |
| 2189 | 3469 |
] value. |
3470 |
extensionDiffs := extensionsInRepository diffSetsAgainst:extensionsInImage. |
|
| 3926 | 3471 |
extensionsOnly ifTrue:[ |
3472 |
^ extensionDiffs |
|
3473 |
]. |
|
3474 |
||
| 2189 | 3475 |
diffSet := extensionDiffs copy. |
3476 |
||
| 2939 | 3477 |
(aDateOrNilForNewest isNil and:[aTagOrNil isNil]) ifTrue:[ |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3478 |
"/ we could do the same as below for each class. |
| 2189 | 3479 |
"/ however - as we do have change-info and revision info, we can avoid checking out |
3480 |
"/ for all classes which are not changed and which have the same version info. |
|
3481 |
classesModifiedInImage notEmpty ifTrue:[ |
|
3482 |
classesReallyModified := |
|
3483 |
classesModifiedInImage select:[:eachChangedClass | |
|
3484 |
|currentVersion repositoryVersion s stFile diffs| |
|
3485 |
||
3486 |
stFile := eachChangedClass classBaseFilename. |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3487 |
[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3488 |
s := SourceCodeManager |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3489 |
streamForClass:nil fileName:stFile revision:#newest |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3490 |
directory:directory module:module cache:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3491 |
s notNil ifTrue:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3492 |
repositoryVersion := ChangeSet fromStream:s. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3493 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3494 |
] ensure:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3495 |
s notNil ifTrue:[s close]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3496 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3497 |
repositoryVersion isNil ifTrue:[ repositoryVersion := ChangeSet new ]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3498 |
repositoryVersion := versionMethodsAndDoitsRejected value:repositoryVersion. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3499 |
|
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3500 |
currentVersion := ChangeSet forExistingClass:eachChangedClass withExtensions:false withLooseMethods:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3501 |
currentVersion := versionMethodsAndDoitsRejected value:currentVersion. |
| 2189 | 3502 |
diffs := repositoryVersion diffSetsAgainst:currentVersion . |
3503 |
diffSet addDiffSet:diffs. |
|
3504 |
diffs notEmpty |
|
3505 |
]. |
|
3506 |
||
3507 |
classesNotReallyModified := classesModifiedInImage \ classesReallyModified. |
|
3508 |
]. |
|
3509 |
] ifFalse:[ |
|
3510 |
classesReallyModified := |
|
3511 |
classesInImage select:[:eachClass | |
|
3512 |
|currentVersion repositoryVersion s stFile stRevision diffs| |
|
3513 |
||
3514 |
stFile := eachClass classBaseFilename. |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3515 |
stRevision := perProjectInfo at:stFile ifAbsent:nil. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3516 |
stRevision notNil ifTrue:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3517 |
[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3518 |
s := SourceCodeManager |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3519 |
streamForClass:nil fileName:stFile revision:stRevision |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3520 |
directory:directory module:module cache:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3521 |
s notNil ifTrue:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3522 |
repositoryVersion := ChangeSet fromStream:s. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3523 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3524 |
] ensure:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3525 |
s notNil ifTrue:[s close]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3526 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3527 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3528 |
repositoryVersion isNil ifTrue:[ |
|
2295
505293d1cfbd
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3529 |
repositoryVersion := ChangeSet new. |
|
505293d1cfbd
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3530 |
]. |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3531 |
repositoryVersion := versionMethodsAndDoitsRejected value:repositoryVersion. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3532 |
|
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3533 |
currentVersion := ChangeSet forExistingClass:eachClass withExtensions:false withLooseMethods:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3534 |
currentVersion := versionMethodsAndDoitsRejected value:currentVersion. |
| 2189 | 3535 |
diffs := repositoryVersion diffSetsAgainst:currentVersion . |
3536 |
diffSet addDiffSet:diffs. |
|
3537 |
diffs notEmpty |
|
3538 |
]. |
|
3539 |
]. |
|
3540 |
||
3541 |
filesNotInImage notEmpty ifTrue:[ |
|
3542 |
"/ first, check if these are autoloaded classes which have NOT been installed |
|
3543 |
"/ (for example, due to a --quick argument during startup) |
|
3544 |
autoloadedFilesNotInImage := OrderedCollection new. |
|
3545 |
||
3546 |
def := ProjectDefinition definitionClassForPackage:aProject createIfAbsent:false projectType:nil. |
|
3547 |
def notNil ifTrue:[ |
|
3548 |
def classNamesAndAttributesDo:[:eachClassname :eachAttributes | |
|
3549 |
|cls eachFileName isAutoload| |
|
3550 |
||
3551 |
cls := Smalltalk classNamed:eachClassname. |
|
3552 |
cls isNil ifTrue:[ |
|
3553 |
isAutoload := eachAttributes includes:#autoload. |
|
3554 |
isAutoload ifTrue:[ |
|
3555 |
eachFileName := Smalltalk fileNameForClass:eachClassname. |
|
3556 |
autoloadedFilesNotInImage add:(eachFileName , '.st') |
|
3557 |
] |
|
3558 |
] |
|
3559 |
]. |
|
3560 |
]. |
|
3561 |
||
3562 |
(filesNotInImage \ autoloadedFilesNotInImage) do:[:eachSTFile | |
|
3563 |
|s chgSet classDefinitions| |
|
3564 |
||
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3565 |
[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3566 |
s := SourceCodeManager |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3567 |
streamForClass:nil fileName:eachSTFile revision:#newest directory:directory module:module cache:true. |
|
3594
407ae2f32318
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3591
diff
changeset
|
3568 |
s isNil ifTrue:[ |
|
407ae2f32318
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3591
diff
changeset
|
3569 |
chgSet := ChangeSet new |
|
407ae2f32318
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3591
diff
changeset
|
3570 |
] ifFalse:[ |
|
407ae2f32318
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3591
diff
changeset
|
3571 |
chgSet := ChangeSet fromStream:s. |
|
407ae2f32318
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3591
diff
changeset
|
3572 |
] |
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3573 |
] ensure:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3574 |
s notNil ifTrue:[s close]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3575 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3576 |
chgSet := versionMethodsAndDoitsRejected value:chgSet. |
| 2189 | 3577 |
diffSet onlyInReceiver addAll:chgSet |
3578 |
]. |
|
3579 |
]. |
|
3580 |
||
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3581 |
classesNewerInRepository notEmpty ifTrue:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3582 |
classesNewerInRepository do:[:eachClass| |
| 2189 | 3583 |
|s diffs repositoryVersion currentVersion| |
3584 |
||
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3585 |
[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3586 |
s := SourceCodeManager |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3587 |
streamForClass:eachClass fileName:nil revision:#newest directory:directory module:module cache:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3588 |
repositoryVersion := ChangeSet fromStream:s. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3589 |
] ensure:[ |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3590 |
s notNil ifTrue:[s close]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3591 |
]. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3592 |
|
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3593 |
currentVersion := ChangeSet forExistingClass:eachClass withExtensions:false withLooseMethods:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3594 |
currentVersion := versionMethodsAndDoitsRejected value:currentVersion. |
| 2189 | 3595 |
diffs := repositoryVersion diffSetsAgainst:currentVersion . |
3596 |
diffSet addDiffSet:diffs. |
|
3597 |
]. |
|
3598 |
]. |
|
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3599 |
|
| 2189 | 3600 |
classesDeletedInRepository notEmpty ifTrue:[ |
3601 |
"/ self halt. |
|
3602 |
]. |
|
3603 |
classesNotInRepository notEmpty ifTrue:[ |
|
3604 |
"/ if there are no changeSet entries for those classes, they seem to be |
|
3605 |
"/ no longer in the repository (possibly moved ?) |
|
3606 |
"/ If there are entries, these might have been added in the image and need a check-in |
|
3607 |
||
3608 |
classesAddedInImage := classesNotInRepository \ classesDeletedInRepository. |
|
3609 |
classesAddedInImage do:[:eachAddedClass | |
|
3610 |
|currentVersion| |
|
3611 |
||
|
2948
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3612 |
currentVersion := ChangeSet forExistingClass:eachAddedClass withExtensions:false withLooseMethods:true. |
|
548a75a5a3b5
project diff fixed (care for version and loos methods)
Claus Gittinger <cg@exept.de>
parents:
2939
diff
changeset
|
3613 |
currentVersion := versionMethodsAndDoitsRejected value:currentVersion. |
| 2189 | 3614 |
diffSet onlyInArg addAll:currentVersion. |
3615 |
]. |
|
3616 |
]. |
|
3617 |
||
3618 |
diffSet isEmpty ifTrue:[ |
|
3619 |
"/ Dialog information:(resources string:'%1 is up-to-date.' with:eachProject allBold). |
|
3620 |
Transcript showCR:('%1 is up-to-date.' bindWith:aProject allBold).
|
|
3621 |
(ChangeSet current includesChangeForPackage:aProject) ifTrue:[ |
|
3622 |
(Dialog confirm:('%1 is up-to-date.\\Cleanup ChangeSet ?' bindWith:aProject allBold) withCRs) ifTrue:[
|
|
3623 |
ChangeSet current condenseChangesForPackage:aProject. |
|
3624 |
]. |
|
3625 |
]. |
|
|
2286
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3626 |
^ diffSet. |
| 2189 | 3627 |
]. |
3628 |
||
| 3906 | 3629 |
diffSet sortByClassName. |
3630 |
||
| 2189 | 3631 |
"/ as a side-effect, if we find that some classes are modified but the same as in the repository, |
3632 |
"/ give user a chance to cleanup the changeSet here. |
|
3633 |
aDateOrNilForNewest isNil ifTrue:[ |
|
3634 |
classesNotReallyModified notEmptyOrNil ifTrue:[ |
|
3635 |
doCleanup := false. |
|
3636 |
box := Dialog |
|
3637 |
forRequestText:(resources |
|
| 2939 | 3638 |
stringWithCRs:'The following classes from %1 are equal to the repository version.\\Remove entries from the changeSet?' |
| 2189 | 3639 |
with:aProject allBold) |
3640 |
editViewClass:ListView |
|
3641 |
lines:10 columns:20 |
|
|
3199
830195868b71
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3155
diff
changeset
|
3642 |
initialAnswer:nil |
| 2189 | 3643 |
setupWith: |
3644 |
[:v :d | |
|
3645 |
|removeButton| |
|
3646 |
||
3647 |
v list:classesNotReallyModified. |
|
3648 |
removeButton := Button label:(resources string:'Cleanup ChangeSet'). |
|
3649 |
removeButton action:[ doCleanup := true. box okPressed. ]. |
|
3650 |
d addButton:removeButton after:(d okButton). |
|
3651 |
d okButton label:(resources string:'Continue'). |
|
3652 |
d okButton isReturnButton:false. |
|
3653 |
removeButton isReturnButton:true. |
|
3654 |
]. |
|
3655 |
box open. |
|
|
2286
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3656 |
box accepted ifTrue:[ |
|
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3657 |
doCleanup ifTrue:[ |
|
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3658 |
classesNotReallyModified do:[:class | |
|
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3659 |
ChangeSet current condenseChangesForClass:class. |
|
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3660 |
] |
|
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3661 |
]. |
|
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3662 |
] |
| 2189 | 3663 |
]. |
3664 |
]. |
|
3665 |
^ diffSet |
|
|
2286
ad425b1c40ab
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2284
diff
changeset
|
3666 |
|
|
2295
505293d1cfbd
changed: #diffSetOfProject:againstRepositoryVersionFrom:
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3667 |
"Modified: / 01-11-2010 / 21:02:52 / cg" |
| 4201 | 3668 |
"Modified (comment): / 04-02-2017 / 18:49:12 / cg" |
| 2189 | 3669 |
! |
3670 |
||
| 2939 | 3671 |
diffSetOfProject:aProject againstRepositoryVersionTaggedAs:symbolicName |
3672 |
^ self |
|
3673 |
diffSetOfProject:aProject |
|
3674 |
againstRepositoryVersionFrom:nil |
|
3675 |
orTag:symbolicName |
|
3676 |
! |
|
3677 |
||
| 4132 | 3678 |
diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aTag extensionsOnly:extensionsOnly |
3679 |
^ self |
|
3680 |
diffSetOfProject:aProject |
|
3681 |
againstRepositoryVersionFrom:nil |
|
3682 |
orTag:aTag |
|
3683 |
extensionsOnly:extensionsOnly |
|
3684 |
||
3685 |
"Created: / 12-11-2016 / 03:41:23 / cg" |
|
3686 |
! |
|
3687 |
||
| 4201 | 3688 |
diffSetOfProject:aProject |
3689 |
repositoryVersionFrom:aDateOrNilV1 orTag:aTagOrNilV1 |
|
3690 |
againstRepositoryVersionFrom:aDateOrNilV2 orTag:aTagOrNilV2 extensionsOnly:extensionsOnly |
|
3691 |
"return a diffset of two repository versions, |
|
3692 |
each specified by either a version at a particular date, |
|
3693 |
or a the version with a particular tag." |
|
3694 |
||
3695 |
|"classesInImage filesInImage" module directory |
|
3696 |
perProjectInfoV1 perProjectInfoV2 |
|
3697 |
filesInRepositoryV1 filesInRepositoryV2 |
|
3698 |
filesAddedInV2 filesDeletedInV2 filesModified filesReallyModified |
|
| 4204 | 3699 |
unchanged "filesNotInImage" "classesAddedInImage extensionMethods" |
3700 |
extensionsInRepositoryV1 extensionsInRepositoryV2 extensionDiffs diffSet "autoloadedClassesInImage autoloadedFilesInImage" versionMethodsAndDoitsRejected| |
|
| 4201 | 3701 |
|
3702 |
module := aProject asPackageId module. |
|
3703 |
directory := aProject asPackageId directory. |
|
3704 |
||
3705 |
(aDateOrNilV1 isNil and:[ aTagOrNilV1 isNil ]) ifTrue:[ self error:'must specify either date or tag']. |
|
3706 |
(aDateOrNilV2 isNil and:[ aTagOrNilV2 isNil ]) ifTrue:[ self error:'must specify either date or tag']. |
|
3707 |
||
3708 |
aDateOrNilV1 isNil ifTrue:[ |
|
3709 |
perProjectInfoV1 := SourceCodeManager revisionsInModule:module directory:directory taggedAs:aTagOrNilV1. |
|
3710 |
] ifFalse:[ |
|
3711 |
perProjectInfoV1 := SourceCodeManager revisionsInModule:module directory:directory fromDate:aDateOrNilV1. |
|
3712 |
]. |
|
3713 |
perProjectInfoV1 := perProjectInfoV1 ? #(). |
|
3714 |
perProjectInfoV1 := perProjectInfoV1 select:[:info | info key asFilename hasSuffix:'st']. |
|
3715 |
perProjectInfoV1 := Dictionary withAssociations:perProjectInfoV1. |
|
3716 |
||
3717 |
aDateOrNilV2 isNil ifTrue:[ |
|
3718 |
perProjectInfoV2 := SourceCodeManager revisionsInModule:module directory:directory taggedAs:aTagOrNilV2. |
|
3719 |
] ifFalse:[ |
|
3720 |
perProjectInfoV2 := SourceCodeManager revisionsInModule:module directory:directory fromDate:aDateOrNilV2. |
|
3721 |
]. |
|
3722 |
perProjectInfoV2 := perProjectInfoV2 ? #(). |
|
3723 |
perProjectInfoV2 := perProjectInfoV2 select:[:info | info key asFilename hasSuffix:'st']. |
|
3724 |
perProjectInfoV2 := Dictionary withAssociations:perProjectInfoV2. |
|
3725 |
||
3726 |
filesInRepositoryV1 := perProjectInfoV1 keys. |
|
3727 |
filesInRepositoryV2 := perProjectInfoV2 keys. |
|
3728 |
filesInRepositoryV1 := filesInRepositoryV1 reject:[:fileName | (perProjectInfoV1 at:fileName) == #deleted]. |
|
3729 |
filesInRepositoryV2 := filesInRepositoryV2 reject:[:fileName | (perProjectInfoV2 at:fileName) == #deleted]. |
|
3730 |
||
3731 |
"/ first remove classes which have the same version |
|
3732 |
unchanged := filesInRepositoryV1 select:[:fileName | |
|
3733 |
(filesInRepositoryV2 includes:fileName) |
|
3734 |
and:[ (perProjectInfoV1 at:fileName) = (perProjectInfoV2 at:fileName) ] |
|
3735 |
]. |
|
3736 |
filesInRepositoryV1 removeAll:unchanged. |
|
3737 |
filesInRepositoryV2 removeAll:unchanged. |
|
3738 |
||
3739 |
filesAddedInV2 := filesInRepositoryV2 select:[:fileName | (filesInRepositoryV1 includes:fileName) not]. |
|
3740 |
filesDeletedInV2 := filesInRepositoryV1 select:[:fileName | (filesInRepositoryV2 includes:fileName) not]. |
|
3741 |
||
3742 |
filesModified := filesInRepositoryV1 select:[:fileName | filesInRepositoryV2 includes:fileName]. |
|
3743 |
||
3744 |
"/ to ignore version_xxx methods |
|
3745 |
versionMethodsAndDoitsRejected := |
|
3746 |
[:aChangeSet | |
|
3747 |
aChangeSet reject:[:chg | |
|
3748 |
false "chg isMethodChangeForVersionMethod" |
|
3749 |
or:[false "chg isMethodChangeForExtensionsVersionMethod" |
|
3750 |
or:[chg isDoIt]]] |
|
3751 |
]. |
|
3752 |
||
3753 |
"/ stupid: as we do not have any revision information for extensions (sigh); |
|
3754 |
"/ we must checkout and look at the extension.st contents, to see if it has changed. |
|
3755 |
||
3756 |
[ |
|
3757 |
|s extensionsRevisionV1 extensionsRevisionV2| |
|
3758 |
||
3759 |
extensionsRevisionV1 := perProjectInfoV1 at:'extensions.st' ifAbsent:nil. |
|
3760 |
extensionsRevisionV1 notNil ifTrue:[ |
|
3761 |
[ |
|
3762 |
s := SourceCodeManager |
|
3763 |
streamForClass:nil fileName:'extensions.st' revision:extensionsRevisionV1 |
|
3764 |
directory:directory module:module cache:true. |
|
3765 |
s notNil ifTrue:[ |
|
3766 |
extensionsInRepositoryV1 := ChangeSet fromStream:s. |
|
3767 |
]. |
|
3768 |
] ensure:[ |
|
3769 |
s notNil ifTrue:[s close] |
|
3770 |
]. |
|
3771 |
]. |
|
3772 |
extensionsInRepositoryV1 isNil ifTrue:[ |
|
3773 |
extensionsInRepositoryV1 := ChangeSet new |
|
3774 |
] ifFalse:[ |
|
3775 |
"/ ignore package doIts and all extensionVersion_xxx methods |
|
3776 |
extensionsInRepositoryV1 := versionMethodsAndDoitsRejected value:extensionsInRepositoryV1. |
|
3777 |
]. |
|
3778 |
||
3779 |
"/ ------ |
|
3780 |
extensionsRevisionV2 := perProjectInfoV2 at:'extensions.st' ifAbsent:nil. |
|
3781 |
extensionsRevisionV2 notNil ifTrue:[ |
|
3782 |
[ |
|
3783 |
s := SourceCodeManager |
|
3784 |
streamForClass:nil fileName:'extensions.st' revision:extensionsRevisionV2 |
|
3785 |
directory:directory module:module cache:true. |
|
3786 |
s notNil ifTrue:[ |
|
3787 |
extensionsInRepositoryV1 := ChangeSet fromStream:s. |
|
3788 |
]. |
|
3789 |
] ensure:[ |
|
3790 |
s notNil ifTrue:[s close] |
|
3791 |
]. |
|
3792 |
]. |
|
3793 |
extensionsInRepositoryV2 isNil ifTrue:[ |
|
3794 |
extensionsInRepositoryV2 := ChangeSet new |
|
3795 |
] ifFalse:[ |
|
3796 |
"/ ignore package doIts and all extensionVersion_xxx methods |
|
3797 |
extensionsInRepositoryV2 := versionMethodsAndDoitsRejected value:extensionsInRepositoryV2. |
|
3798 |
]. |
|
3799 |
] value. |
|
3800 |
||
3801 |
extensionDiffs := extensionsInRepositoryV1 diffSetsAgainst:extensionsInRepositoryV2. |
|
3802 |
extensionsOnly ifTrue:[ |
|
3803 |
^ extensionDiffs |
|
3804 |
]. |
|
3805 |
||
3806 |
diffSet := extensionDiffs copy. |
|
3807 |
||
3808 |
filesReallyModified := |
|
3809 |
filesInRepositoryV2 select:[:eachFile | |
|
3810 |
|repositoryVersion1 repositoryVersion2 s stRevision diffs| |
|
3811 |
||
3812 |
stRevision := perProjectInfoV1 at:eachFile ifAbsent:nil. |
|
3813 |
stRevision notNil ifTrue:[ |
|
3814 |
[ |
|
3815 |
s := SourceCodeManager |
|
3816 |
streamForClass:nil fileName:eachFile revision:stRevision |
|
3817 |
directory:directory module:module cache:true. |
|
3818 |
s notNil ifTrue:[ |
|
3819 |
repositoryVersion1 := ChangeSet fromStream:s. |
|
3820 |
]. |
|
3821 |
] ensure:[ |
|
3822 |
s notNil ifTrue:[s close]. |
|
3823 |
]. |
|
3824 |
]. |
|
3825 |
repositoryVersion1 isNil ifTrue:[ |
|
3826 |
repositoryVersion1 := ChangeSet new. |
|
3827 |
]. |
|
3828 |
repositoryVersion1 := versionMethodsAndDoitsRejected value:repositoryVersion1. |
|
3829 |
||
3830 |
stRevision := perProjectInfoV2 at:eachFile ifAbsent:nil. |
|
3831 |
stRevision notNil ifTrue:[ |
|
3832 |
[ |
|
3833 |
s := SourceCodeManager |
|
3834 |
streamForClass:nil fileName:eachFile revision:stRevision |
|
3835 |
directory:directory module:module cache:true. |
|
3836 |
s notNil ifTrue:[ |
|
3837 |
repositoryVersion2 := ChangeSet fromStream:s. |
|
3838 |
]. |
|
3839 |
] ensure:[ |
|
3840 |
s notNil ifTrue:[s close]. |
|
3841 |
]. |
|
3842 |
]. |
|
3843 |
repositoryVersion2 isNil ifTrue:[ |
|
3844 |
repositoryVersion2 := ChangeSet new. |
|
3845 |
]. |
|
3846 |
repositoryVersion2 := versionMethodsAndDoitsRejected value:repositoryVersion2. |
|
3847 |
||
3848 |
diffs := repositoryVersion1 diffSetsAgainst:repositoryVersion2 . |
|
3849 |
diffSet addDiffSet:diffs. |
|
3850 |
diffs notEmpty |
|
3851 |
]. |
|
3852 |
||
3853 |
diffSet isEmpty ifTrue:[ |
|
3854 |
"/ Dialog information:(resources string:'%1 is up-to-date.' with:eachProject allBold). |
|
3855 |
Transcript showCR:('%1 not changed between %2 and %3.'
|
|
3856 |
bindWith:aProject allBold |
|
3857 |
with:(aDateOrNilV1 ? aTagOrNilV1) |
|
3858 |
with:(aDateOrNilV2 ? aTagOrNilV2)). |
|
3859 |
^ diffSet. |
|
3860 |
]. |
|
3861 |
||
3862 |
diffSet sortByClassName. |
|
3863 |
^ diffSet |
|
3864 |
||
3865 |
"Created: / 04-02-2017 / 17:27:47 / cg" |
|
| 4204 | 3866 |
"Modified: / 05-02-2017 / 10:04:50 / cg" |
| 4201 | 3867 |
! |
3868 |
||
| 2691 | 3869 |
ensureCorrectVersionMethodsInClass:aClass usingManager:aManager |
|
3674
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3870 |
|theMetaclass versionMthd src newSrc versionMethodName oldVersionMethodName| |
| 2383 | 3871 |
|
3872 |
theMetaclass := aClass theMetaclass. |
|
3873 |
versionMethodName := aManager nameOfVersionMethodInClasses. |
|
|
2442
7ecd9a4248bb
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2426
diff
changeset
|
3874 |
oldVersionMethodName := aClass nameOfOldVersionMethod. |
| 2383 | 3875 |
|
3876 |
(theMetaclass includesSelector:versionMethodName) ifTrue:[ |
|
|
2442
7ecd9a4248bb
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2426
diff
changeset
|
3877 |
"/ (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[ |
|
7ecd9a4248bb
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2426
diff
changeset
|
3878 |
"/ theMetaclass removeSelector:oldVersionMethodName. |
|
7ecd9a4248bb
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2426
diff
changeset
|
3879 |
"/ ]. |
| 2383 | 3880 |
"/ ensure that my version method is parsable (contains $'s) |
|
3674
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3881 |
versionMthd := theMetaclass compiledMethodAt:versionMethodName. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3882 |
versionMthd notNil ifTrue:[ |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3883 |
src := versionMthd source. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3884 |
src notNil ifTrue:[ |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3885 |
newSrc := aManager ensureDollarsInVersionMethod:src. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3886 |
newSrc ~= src ifTrue:[ |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3887 |
theMetaclass compile:newSrc categorized:#documentation. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3888 |
] |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3889 |
]. |
| 2383 | 3890 |
]. |
3891 |
] ifFalse:[ |
|
3892 |
(theMetaclass includesSelector:oldVersionMethodName) ifTrue:[ |
|
|
2487
c8f4417b9edc
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2484
diff
changeset
|
3893 |
"/ but make sure, it is a version method for this sourcecodemanager... |
|
c8f4417b9edc
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2484
diff
changeset
|
3894 |
(theMetaclass methodDictionary keys count:[:sel | sel startsWith:'version']) size == 1 ifTrue:[ |
|
3674
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3895 |
versionMthd := theMetaclass compiledMethodAt:oldVersionMethodName. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3896 |
versionMthd notNil ifTrue:[ |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3897 |
src := versionMthd source. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3898 |
(src startsWith:oldVersionMethodName) ifTrue:[ |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3899 |
newSrc := versionMethodName , (src copyFrom:(oldVersionMethodName size + 1)) |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3900 |
]. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3901 |
theMetaclass compile:newSrc categorized:#documentation. |
|
d9b94d8afb2c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3657
diff
changeset
|
3902 |
] |
|
2487
c8f4417b9edc
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2484
diff
changeset
|
3903 |
] |
| 2383 | 3904 |
]. |
3905 |
]. |
|
|
2442
7ecd9a4248bb
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2426
diff
changeset
|
3906 |
|
|
2487
c8f4417b9edc
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2484
diff
changeset
|
3907 |
"Modified: / 20-08-2011 / 14:40:27 / cg" |
| 2691 | 3908 |
"Created: / 29-12-2011 / 14:33:46 / cg" |
| 2383 | 3909 |
! |
3910 |
||
|
3896
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3911 |
fetchSourceOf:aClass askForRevision:askForRevision into:aBlockToReturnMultipleValues |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3912 |
"fetch the source of either the newest version or the revision being asked for, |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3913 |
or nil, if there are any problems. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3914 |
Helper method" |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3915 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3916 |
|classToCompare aStream comparedSource rev revString mgr |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3917 |
nm msg revisionInClass newestRev| |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3918 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3919 |
classToCompare := aClass theNonMetaclass. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3920 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3921 |
nm := classToCompare name. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3922 |
(mgr := manager) isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3923 |
mgr := self sourceCodeManagerFor:classToCompare. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3924 |
mgr isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3925 |
self error:'oops - no sourcecode manager' mayProceed:true. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3926 |
^ nil |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3927 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3928 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3929 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3930 |
rev := classToCompare revisionInfoOfManager:mgr. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3931 |
"/ rev := classToCompare binaryRevision. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3932 |
revisionInClass := classToCompare revisionOfManager:mgr. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3933 |
rev isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3934 |
rev := revisionInClass |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3935 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3936 |
rev isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3937 |
(Dialog confirm:'Class seems to be not yet in the repository (or classes revision info is missing or corrupted)\\Proceed ?' withCRs) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3938 |
ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3939 |
^ nil |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3940 |
] |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3941 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3942 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3943 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3944 |
"/ class in repository - ask for revision |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3945 |
"/ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3946 |
SourceCodeManagerError handle:[:ex | |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3947 |
Dialog warn:(resources |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3948 |
stringWithCRs:'Could not fetch revision info of "%1".\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3949 |
with:classToCompare name |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3950 |
with:classToCompare sourceCodeManager managerTypeName |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3951 |
with:classToCompare package). |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3952 |
^ nil. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3953 |
] do:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3954 |
newestRev := mgr newestRevisionOf:classToCompare. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3955 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3956 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3957 |
askForRevision ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3958 |
msg := resources string:'Compare to revision: (empty for newest)'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3959 |
rev notNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3960 |
msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3961 |
with:nm allBold with:rev). |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3962 |
(revisionInClass notNil and:[revisionInClass ~= rev]) ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3963 |
msg := msg , '\' , (resources string:'And has been checked into the repository as %1.' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3964 |
with:revisionInClass) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3965 |
] |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3966 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3967 |
newestRev notNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3968 |
msg := msg , '\' , (resources string:'Newest in repository is %1.' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3969 |
with:newestRev) |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3970 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3971 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3972 |
rev := self |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3973 |
askForExistingRevision:msg |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3974 |
title:'Compare with repository' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3975 |
class:classToCompare. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3976 |
] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3977 |
rev := newestRev. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3978 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3979 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3980 |
rev isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3981 |
mgr = classToCompare sourceCodeManager ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3982 |
msg := 'Could not figure out the newest revision of "%1".\\Please check if this class is really contained in that repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3983 |
] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3984 |
msg := 'Could not figure out the newest revision of "%1".\\Notice that the class is actually maintained by %4, not %2.\Please check if this class is really in the %2 repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)' |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3985 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3986 |
Dialog warn:(resources |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3987 |
stringWithCRs:msg |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3988 |
with:classToCompare name |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3989 |
with:mgr managerTypeName |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3990 |
with:classToCompare package |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3991 |
with:(classToCompare sourceCodeManager managerTypeName)). |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3992 |
^ nil. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3993 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3994 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3995 |
rev withoutSpaces isEmpty ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3996 |
msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3997 |
"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3998 |
aStream := mgr getSourceStreamFor:classToCompare revision:newestRev. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
3999 |
revString := '(newest: ' , (newestRev ? '???') , ')'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4000 |
] ifFalse:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4001 |
msg := 'extracting previous %1'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4002 |
aStream := mgr getSourceStreamFor:classToCompare revision:rev. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4003 |
revString := rev |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4004 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4005 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4006 |
aStream isNil ifTrue:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4007 |
self warn:'Could not extract source from repository (check repository settings / network)'. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4008 |
^ nil |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4009 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4010 |
aStream class readErrorSignal handle:[:ex | |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4011 |
self warn:('Read error while reading extracted source\\' , ex description) withCRs.
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4012 |
aStream close. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4013 |
^ nil |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4014 |
] do:[ |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4015 |
comparedSource := aStream contents asString. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4016 |
]. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4017 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4018 |
aStream close. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4019 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4020 |
aBlockToReturnMultipleValues |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4021 |
value:revString |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4022 |
value:revisionInClass |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4023 |
value:mgr. |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4024 |
^ comparedSource |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4025 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4026 |
" |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4027 |
self compareClassWithRepository:Array |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4028 |
" |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4029 |
|
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4030 |
"Modified: / 24-07-2012 / 18:11:27 / cg" |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4031 |
! |
|
41784f108832
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3892
diff
changeset
|
4032 |
|
| 2383 | 4033 |
getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock |
|
3325
944f6a6e66ff
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3313
diff
changeset
|
4034 |
"open a dialog, asking for commit/checkin log info. |
|
944f6a6e66ff
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3313
diff
changeset
|
4035 |
Returns 2 values: a log message and additional checkinInfo (containing things like |
|
944f6a6e66ff
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3313
diff
changeset
|
4036 |
markAsStable, etc,)" |
| 2383 | 4037 |
|
| 3900 | 4038 |
|initialLogMessage checkinInfo reasonLine logMessage| |
| 2383 | 4039 |
|
4040 |
"/ heuristics for a useful initial log message... |
|
4041 |
aLogInfoOrNil isNil ifTrue:[ |
|
| 4230 | 4042 |
initialLogMessage := (self class goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''. |
| 2383 | 4043 |
"/ initial checkin ? |
|
3657
2de3a610d07c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3642
diff
changeset
|
4044 |
(aClass package isNil or:[(aClass revisionOfManager:manager) "revision" isNil]) ifTrue:[ |
| 2383 | 4045 |
initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage |
4046 |
]. |
|
| 4079 | 4047 |
aClass isProjectDefinition ifTrue:[ |
4048 |
checkinInfo := self |
|
4049 |
getCheckinInfoFor:aClass name |
|
4050 |
initialAnswer:initialLogMessage |
|
4051 |
withQuickOption:false |
|
4052 |
withValidateConsistencyOption:true |
|
4053 |
] ifFalse:[ |
|
4054 |
checkinInfo := self |
|
4055 |
getCheckinInfoFor:aClass name |
|
4056 |
initialAnswer:initialLogMessage. |
|
4057 |
]. |
|
| 2383 | 4058 |
checkinInfo isNil ifTrue:[^ false]. |
| 4079 | 4059 |
|
| 4080 | 4060 |
(aClass isProjectDefinition and:[checkinInfo validateConsistency]) ifTrue:[ |
| 4079 | 4061 |
self validateConsistencyOfPackage:aClass package doClasses:false doExtensions:false. |
4062 |
]. |
|
4063 |
||
| 2383 | 4064 |
logMessage := checkinInfo logMessage. |
| 3900 | 4065 |
|
4066 |
reasonLine := '#OTHER'. |
|
4067 |
checkinInfo checkinReason == Tools::CheckinInfoDialog reasonBugfix ifTrue:[ |
|
4068 |
reasonLine := '#BUGFIX' |
|
4069 |
] ifFalse:[ |
|
4070 |
checkinInfo checkinReason == Tools::CheckinInfoDialog reasonFeature ifTrue:[ |
|
4071 |
reasonLine := '#FEATURE' |
|
4072 |
] ifFalse:[ |
|
4073 |
checkinInfo checkinReason == Tools::CheckinInfoDialog reasonRefactoring ifTrue:[ |
|
4074 |
reasonLine := '#REFACTORING' |
|
| 3906 | 4075 |
] ifFalse:[ |
4076 |
checkinInfo checkinReason == Tools::CheckinInfoDialog reasonDocumentation ifTrue:[ |
|
4077 |
reasonLine := '#DOCUMENTATION' |
|
4078 |
] ifFalse:[ |
|
4079 |
checkinInfo checkinReason == Tools::CheckinInfoDialog reasonUIEnhancement ifTrue:[ |
|
4080 |
reasonLine := '#UI_ENHANCEMENT' |
|
| 3971 | 4081 |
] ifFalse:[ |
4082 |
checkinInfo checkinReason == Tools::CheckinInfoDialog reasonQuality ifTrue:[ |
|
4083 |
reasonLine := '#QUALITY' |
|
4084 |
] ifFalse:[ |
|
4085 |
checkinInfo checkinReason == Tools::CheckinInfoDialog reasonTuning ifTrue:[ |
|
4086 |
reasonLine := '#TUNING' |
|
4087 |
] |
|
4088 |
] |
|
| 3906 | 4089 |
] |
4090 |
] |
|
| 3900 | 4091 |
] |
4092 |
] |
|
4093 |
] |
|
| 2383 | 4094 |
] ifFalse:[ |
4095 |
aLogInfoOrNil isString ifTrue:[ |
|
4096 |
"soon obsolete..." |
|
4097 |
logMessage := aLogInfoOrNil |
|
4098 |
] ifFalse:[ |
|
4099 |
checkinInfo := aLogInfoOrNil. |
|
4100 |
logMessage := checkinInfo logMessage. |
|
4101 |
]. |
|
4102 |
]. |
|
4103 |
logMessage notNil ifTrue:[ |
|
4104 |
logMessage := logMessage asSingleByteStringReplaceInvalidWith:$? |
|
4105 |
]. |
|
| 3974 | 4106 |
reasonLine isNil ifTrue:[ |
4107 |
reasonLine := '#OTHER'. |
|
| 3900 | 4108 |
]. |
| 3974 | 4109 |
logMessage := reasonLine , ' by ',OperatingSystem getLoginName,'\' withCRs |
4110 |
, (logMessage ? ''). |
|
| 2383 | 4111 |
aBlock value:logMessage value:checkinInfo. |
4112 |
^ true |
|
| 3971 | 4113 |
|
4114 |
"Modified: / 31-03-2016 / 17:58:11 / cg" |
|
| 4230 | 4115 |
"Modified: / 17-03-2017 / 18:00:12 / stefan" |
| 2383 | 4116 |
! |
4117 |
||
| 4201 | 4118 |
knownTagsInPackages:packages |
4119 |
"return the symbolic names given to any version in packages. |
|
4120 |
Being lazy, assume tags are persistent across packages (which they are not required to be...) |
|
4121 |
and only fetch the tag names from the first given package. |
|
4122 |
May raise an error, if the repository cannot be accessed" |
|
4123 |
||
4124 |
|someDfnClass| |
|
4125 |
||
4126 |
someDfnClass := ProjectDefinition definitionClassForPackage:packages first. |
|
4127 |
someDfnClass isNil ifTrue:[ someDfnClass := Object projectDefinitionClass ]. |
|
4128 |
||
4129 |
^ (manager knownTagsFor:someDfnClass) asOrderedCollection sort. |
|
4130 |
||
4131 |
" |
|
4132 |
CVSSourceCodeManager utilities knownTagsInPackages:#( 'stx:libbasic' 'stc:libbasic2' ) |
|
4133 |
" |
|
4134 |
||
4135 |
"Created: / 04-02-2017 / 18:55:16 / cg" |
|
4136 |
! |
|
4137 |
||
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4138 |
removeSourceContainerForClass:aClass |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4139 |
"show container & let user confirm twice." |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4140 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4141 |
^ self removeSourceContainerForClass:aClass confirm:true warn:true |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4142 |
! |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4143 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4144 |
removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4145 |
"show container & optionally let user confirm twice." |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4146 |
|
|
3814
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4147 |
|info mgr| |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4148 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4149 |
aClass isLoaded ifFalse:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4150 |
doWarn ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4151 |
self warn:(resources string:'Please load the class first.'). |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4152 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4153 |
^ false. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4154 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4155 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4156 |
"/ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4157 |
"/ ask the sourceCodeManager if it knows anything about that class |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4158 |
"/ if so, take that as a default. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4159 |
"/ |
| 1782 | 4160 |
mgr := self sourceCodeManagerFor:aClass. |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4161 |
mgr isNil ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4162 |
^ false |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4163 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4164 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4165 |
info := mgr sourceInfoOfClass:aClass. |
|
3814
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4166 |
^ self removeSourceContainerForClass:aClass usingSourceInfo:info confirm:doConfirm warn:doWarn |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4167 |
|
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4168 |
"Modified: / 16-07-2013 / 19:46:50 / cg" |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4169 |
! |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4170 |
|
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4171 |
removeSourceContainerForClass:aClass usingSourceInfo:info confirm:doConfirm warn:doWarn |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4172 |
"show container & optionally let user confirm twice." |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4173 |
|
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4174 |
|module directory fileName mgr| |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4175 |
|
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4176 |
aClass isLoaded ifFalse:[ |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4177 |
doWarn ifTrue:[ |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4178 |
self warn:(resources string:'Please load the class first.'). |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4179 |
]. |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4180 |
^ false. |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4181 |
]. |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4182 |
|
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4183 |
"/ |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4184 |
"/ ask the sourceCodeManager if it knows anything about that class |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4185 |
"/ if so, take that as a default. |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4186 |
"/ |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4187 |
mgr := self sourceCodeManagerFor:aClass. |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4188 |
mgr isNil ifTrue:[ |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4189 |
^ false |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4190 |
]. |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4191 |
|
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4192 |
info notNil ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4193 |
(info includesKey:#module) ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4194 |
module := (info at:#module). |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4195 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4196 |
(info includesKey:#directory) ifTrue:[ |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4197 |
directory := (info at:#directory). |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4198 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4199 |
fileName := mgr containerFromSourceInfo:info. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4200 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4201 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4202 |
module isNil ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4203 |
doWarn ifTrue:[ |
| 1423 | 4204 |
self warn:(resources stringWithCRs:'classes module is unknown.\\It seems to not have a container.') . |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4205 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4206 |
^ false. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4207 |
]. |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4208 |
directory isNil ifTrue:[ |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4209 |
doWarn ifTrue:[ |
| 1423 | 4210 |
self warn:(resources stringWithCRs:'classes package is unknown.\\It seems to not have a container.') . |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4211 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4212 |
^ false. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4213 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4214 |
fileName isNil ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4215 |
doWarn ifTrue:[ |
| 1423 | 4216 |
self warn:(resources stringWithCRs:'classes container fileName is unknown.\\It seems to not have a container.') . |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4217 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4218 |
^ false. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4219 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4220 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4221 |
OperatingSystem isMSDOSlike ifTrue:[ |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4222 |
"cvs expects unix-filenames" |
|
3591
d86841bb0d5c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3579
diff
changeset
|
4223 |
module := module asUnixFilenameString. |
|
d86841bb0d5c
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3579
diff
changeset
|
4224 |
directory := directory asUnixFilenameString. |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4225 |
]. |
| 1787 | 4226 |
(mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[ |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4227 |
doWarn ifTrue:[ |
|
2830
f5204449764a
changed: #removeSourceContainerForClass:confirm:warn:
Claus Gittinger <cg@exept.de>
parents:
2818
diff
changeset
|
4228 |
self warn:(resources stringWithCRs:'Class had no source container (or SCM access is broken).') . |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4229 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4230 |
^ false. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4231 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4232 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4233 |
doConfirm ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4234 |
(Dialog |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4235 |
choose:(resources |
| 1423 | 4236 |
stringWithCRs:'Please confirm removal of the container for %1: |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4237 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4238 |
container: %2 / %3 / %4 |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4239 |
|
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4240 |
Really remove ?' |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4241 |
with:aClass name |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4242 |
with:module |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4243 |
with:directory |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4244 |
with:fileName) |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4245 |
labels:(Array |
| 1129 | 4246 |
with:(resources string:'No') |
4247 |
with:(resources string:'Remove')) |
|
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4248 |
values:#(false true) |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4249 |
default:false) ifFalse:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4250 |
^ false. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4251 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4252 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4253 |
|
|
3814
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4254 |
(mgr removeContainer:fileName inModule:module directory:directory) |
|
466fa886aa65
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3812
diff
changeset
|
4255 |
ifFalse:[ |
|
976
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4256 |
doWarn ifTrue:[ |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4257 |
self warn:(resources string:'failed to remove container.'). |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4258 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4259 |
^ true. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4260 |
]. |
|
cedcdc7e405c
utitity to remove a container
Claus Gittinger <cg@exept.de>
parents:
973
diff
changeset
|
4261 |
^ false |
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4262 |
|
|
3351
68989ed1137f
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3344
diff
changeset
|
4263 |
"Modified: / 16-07-2013 / 19:46:50 / cg" |
| 1000 | 4264 |
! |
4265 |
||
|
1026
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4266 |
repositoryLogOf:aClass onto:aStream |
|
2050
037e794f5857
+option to show a short revision log
Claus Gittinger <cg@exept.de>
parents:
2042
diff
changeset
|
4267 |
self repositoryLogOf:aClass short:false onto:aStream |
|
037e794f5857
+option to show a short revision log
Claus Gittinger <cg@exept.de>
parents:
2042
diff
changeset
|
4268 |
! |
|
037e794f5857
+option to show a short revision log
Claus Gittinger <cg@exept.de>
parents:
2042
diff
changeset
|
4269 |
|
|
037e794f5857
+option to show a short revision log
Claus Gittinger <cg@exept.de>
parents:
2042
diff
changeset
|
4270 |
repositoryLogOf:aClass short:shortOrNot onto:aStream |
|
1026
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4271 |
|info rv mgr info2 module fn msg s| |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4272 |
|
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4273 |
info := aClass revisionInfo. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4274 |
|
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4275 |
rv := aClass binaryRevision. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4276 |
rv notNil ifTrue:[ |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4277 |
aStream nextPutLine:'**** Loaded classes binary information ****'; cr. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4278 |
aStream nextPutLine:' Binary based upon : ' , rv. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4279 |
aStream cr. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4280 |
]. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4281 |
|
|
3344
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4282 |
"/ old |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4283 |
"/ info isNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4284 |
"/ aStream nextPutLine:'No revision info found'. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4285 |
"/ aClass isLoaded ifFalse:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4286 |
"/ aStream cr; nextPutAll:'This is an autoloaded class - you may see more after it is loaded.' |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4287 |
"/ ] ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4288 |
"/ fn := aClass classFilename. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4289 |
"/ aClass wasAutoloaded ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4290 |
"/ msg := 'This class was autoloaded.'. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4291 |
"/ msg := msg , ' (from ''' , fn , ''')'. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4292 |
"/ ] ifFalse:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4293 |
"/ msg := 'This class was loaded from ''' , fn , '''.' |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4294 |
"/ ]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4295 |
"/ msg notNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4296 |
"/ aStream cr; nextPutAll:msg. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4297 |
"/ ] |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4298 |
"/ ]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4299 |
"/ ^ self |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4300 |
"/ ] |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4301 |
|
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4302 |
info isNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4303 |
aClass isLoaded ifFalse:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4304 |
aStream nextPutLine:'This is an autoloaded class - you may see more after it is loaded.' |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4305 |
] ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4306 |
fn := aClass classFilename. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4307 |
aClass wasAutoloaded ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4308 |
msg := 'This class was autoloaded.'. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4309 |
msg := msg , ' (from ''' , fn , ''')'. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4310 |
] ifFalse:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4311 |
msg := 'This class was loaded from ''' , fn , '''.' |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4312 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4313 |
msg notNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4314 |
aStream nextPutLine:msg. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4315 |
] |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4316 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4317 |
aStream cr. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4318 |
] ifFalse:[ |
| 2041 | 4319 |
(info revision notNil) ifFalse:[ |
|
1026
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4320 |
aStream nextPutLine:'WARNING:'; cr. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4321 |
aStream nextPutLine:' The class seems not to be loaded from the repository.'. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4322 |
aStream nextPutLine:' Check carefully before checking anything in.'. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4323 |
aStream nextPutLine:' (i.e. compare with repository for renamed class(es), same-name but unrelated etc.)'. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4324 |
aStream cr. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4325 |
]. |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4326 |
|
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4327 |
aStream nextPutLine:'**** Classes source information ****'; cr. |
| 2042 | 4328 |
s := info repositoryPathName. |
|
1026
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4329 |
s notNil ifTrue:[ |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4330 |
aStream nextPutLine:' Source repository : ' , s |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4331 |
]. |
|
3676
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4332 |
aStream nextPutLine:(' Filename ........ : %1' bindWith: (info fileName ? '?')).
|
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4333 |
info symbolicVersionName ~= info revision ifTrue:[ |
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4334 |
aStream nextPutLine:(' Symbolic Version : %1' bindWith: (info symbolicVersionName ? '?')).
|
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4335 |
]. |
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4336 |
aStream nextPutLine:(' Revision ........ : %1' bindWith: (info revision ? '?')).
|
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4337 |
aStream nextPutLine:(' Checkin date .... : %1 %2 %3' bindWith: (info date ? '?')
|
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4338 |
with:(info time ? '?') |
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4339 |
with:(info timezone ? '')). |
|
51859e5df3b5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3674
diff
changeset
|
4340 |
aStream nextPutLine:(' Checkin user .... : %1' bindWith: (info user ? '?')).
|
|
3344
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4341 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4342 |
|
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4343 |
(info2 := aClass packageSourceCodeInfo) notNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4344 |
aStream nextPutLine:' Repository: ..... : ' , (info2 at:#module ifAbsent:'?'). |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4345 |
aStream nextPutLine:' Directory: ...... : ' , (info2 at:#directory ifAbsent:'?'). |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4346 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4347 |
info notNil ifTrue:[ |
| 2042 | 4348 |
aStream nextPutLine:' Container ....... : ' , (info repositoryPathName ? '?'). |
|
3344
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4349 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4350 |
aStream cr. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4351 |
mgr := self sourceCodeManagerFor:aClass. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4352 |
mgr notNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4353 |
aStream nextPutLine:'**** Repository information ****'; cr. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4354 |
|
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4355 |
module := nil. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4356 |
info2 notNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4357 |
module := info2 at:#module ifAbsent:nil. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4358 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4359 |
module notNil ifTrue:[ |
|
3632
c39f5d147a8b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3602
diff
changeset
|
4360 |
aStream nextPutLine:(' Repository URL ......: %1' bindWith:
|
|
3633
abe27fb2c473
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3632
diff
changeset
|
4361 |
((mgr repositoryNameForPackage:aClass package) ifNil:[mgr repositoryName , ' (default)']) asString). |
|
3344
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4362 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
4363 |
mgr writeRevisionLogOf:aClass short:shortOrNot to:aStream. |
|
1026
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4364 |
] |
| 1782 | 4365 |
|
|
2836
91e9be94d80b
changed: #repositoryLogOf:short:onto:
Claus Gittinger <cg@exept.de>
parents:
2835
diff
changeset
|
4366 |
"Modified: / 12-10-2011 / 18:06:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
91e9be94d80b
changed: #repositoryLogOf:short:onto:
Claus Gittinger <cg@exept.de>
parents:
2835
diff
changeset
|
4367 |
"Modified: / 11-07-2012 / 13:50:59 / cg" |
| 1726 | 4368 |
! |
4369 |
||
4370 |
tagClass:aClass as:tag |
|
4371 |
|mgr| |
|
4372 |
||
4373 |
mgr := self sourceCodeManagerFor:aClass. |
|
| 1782 | 4374 |
mgr |
4375 |
setSymbolicName:tag |
|
4376 |
revision:nil |
|
4377 |
overWrite:true |
|
4378 |
class:aClass. |
|
4379 |
||
4380 |
"Modified: / 12-09-2006 / 13:03:59 / cg" |
|
4381 |
! |
|
4382 |
||
4383 |
tagClasses:aCollectionOfClasses as:tag |
|
|
3847
94661e33541c
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3818
diff
changeset
|
4384 |
^ self tagClasses:aCollectionOfClasses as:tag revision:nil |
|
94661e33541c
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3818
diff
changeset
|
4385 |
|
|
94661e33541c
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3818
diff
changeset
|
4386 |
"Created: / 12-09-2006 / 13:04:29 / cg" |
|
94661e33541c
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3818
diff
changeset
|
4387 |
! |
|
94661e33541c
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3818
diff
changeset
|
4388 |
|
|
94661e33541c
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3818
diff
changeset
|
4389 |
tagClasses:aCollectionOfClasses as:tag revision:revision |
| 1782 | 4390 |
|classesPerManager| |
4391 |
||
4392 |
classesPerManager := Dictionary new. |
|
4393 |
aCollectionOfClasses |
|
4394 |
do:[:eachClass | |
|
4395 |
|manager| |
|
4396 |
||
4397 |
manager := self sourceCodeManagerFor:eachClass. |
|
4398 |
(classesPerManager at:manager ifAbsentPut:[Set new]) add:eachClass |
|
4399 |
]. |
|
4400 |
||
4401 |
classesPerManager keysAndValuesDo:[:manager :classesPerManager| |
|
4402 |
manager |
|
4403 |
setSymbolicName:tag |
|
|
3847
94661e33541c
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3818
diff
changeset
|
4404 |
revision:revision |
| 1782 | 4405 |
overWrite:true |
4406 |
classes:classesPerManager. |
|
4407 |
]. |
|
| 1726 | 4408 |
^ true |
4409 |
! |
|
4410 |
||
| 2602 | 4411 |
tagPackage: package as:tag |
4412 |
||
4413 |
self tagClasses:(Smalltalk allClassesInPackage:package) as:tag. |
|
4414 |
||
4415 |
"Created: / 12-09-2006 / 13:04:29 / cg" |
|
4416 |
"Created: / 15-10-2011 / 22:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
4417 |
! |
|
4418 |
||
| 2691 | 4419 |
tagPath:aPath as:tag usingManager:aManager |
| 1782 | 4420 |
aManager |
4421 |
setSymbolicName:tag |
|
| 1726 | 4422 |
revision:nil |
4423 |
overWrite:true |
|
4424 |
path:aPath. |
|
| 1782 | 4425 |
|
4426 |
"Modified: / 12-09-2006 / 12:04:44 / cg" |
|
| 2691 | 4427 |
"Created: / 29-12-2011 / 14:32:38 / cg" |
| 1375 | 4428 |
! ! |
4429 |
||
| 4226 | 4430 |
!SourceCodeManagerUtilities methodsFor:'utilities-scm-helpers'! |
| 1375 | 4431 |
|
4432 |
getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil |
|
4433 |
"check-out all previous versions of aClass and retrieve the history of selector. |
|
4434 |
Return a dictionary associating revision with a changeList entries for that method. |
|
4435 |
Unfinished - need a GUI for that." |
|
4436 |
||
4437 |
|mgr theClass revisionLog revisions items s entriesPerRevision previousVersion| |
|
4438 |
||
4439 |
theClass := aClass theNonMetaclass. |
|
4440 |
||
4441 |
mgr := self sourceCodeManagerFor:theClass. |
|
4442 |
mgr isNil ifTrue:[ |
|
4443 |
self error:'no sourceCodeManager'. |
|
4444 |
]. |
|
4445 |
||
4446 |
revisionLog := mgr |
|
4447 |
revisionLogOf:theClass |
|
4448 |
numberOfRevisions:numberOfRevisionsOrNil. |
|
4449 |
||
4450 |
revisions := revisionLog at:#revisions. |
|
4451 |
items := revisions collect:[:each | |rev date who| |
|
4452 |
rev := each at:#revision. |
|
4453 |
date := each at:#date. |
|
4454 |
who := each at:#author. |
|
4455 |
rev allBold , ' [' , date , ' by ' , who , ']' |
|
4456 |
]. |
|
4457 |
||
4458 |
revisions := revisions collect:[:each | each at:#revision]. |
|
4459 |
revisions addFirst:#current. |
|
4460 |
entriesPerRevision := Dictionary new. |
|
4461 |
||
4462 |
previousVersion := nil. |
|
4463 |
revisions reverseDo:[:eachRevision | |
|
4464 |
|srcStream entries thisVersion| |
|
4465 |
||
4466 |
eachRevision == #current ifTrue:[ |
|
4467 |
s := '' writeStream. |
|
4468 |
theClass fileOutOn:s withTimeStamp:false. |
|
4469 |
srcStream := s contents readStream. |
|
4470 |
] ifFalse:[ |
|
4471 |
self activityNotification:('checking out revision ' , eachRevision , '...').
|
|
4472 |
srcStream := mgr getSourceStreamFor:theClass revision:eachRevision. |
|
4473 |
]. |
|
4474 |
||
4475 |
entries := ChangeSet fromStream:srcStream. |
|
4476 |
srcStream close. |
|
4477 |
||
4478 |
"/ remove all definitions |
|
4479 |
entries := entries select:[:each | each isMethodChange]. |
|
4480 |
"/ remove all methods which are for other selectors |
|
4481 |
entries := entries select:[:each | each selector == selector]. |
|
4482 |
"/ remove all methods which are for private subclasses |
|
4483 |
entries := entries select:[:each | each className = aClass name]. |
|
4484 |
||
4485 |
entries size == 1 ifTrue:[ |
|
4486 |
"/ the method is there |
|
4487 |
thisVersion := entries first. |
|
4488 |
(previousVersion notNil and:[previousVersion sameAs:thisVersion]) ifTrue:[ |
|
4489 |
"/ no change |
|
4490 |
] ifFalse:[ |
|
4491 |
entriesPerRevision at:eachRevision put:thisVersion. |
|
4492 |
]. |
|
4493 |
] ifFalse:[ |
|
4494 |
"/ the method is not there |
|
4495 |
]. |
|
4496 |
previousVersion := thisVersion. |
|
4497 |
]. |
|
4498 |
self error:'unfinished code'. |
|
4499 |
||
4500 |
" |
|
4501 |
self getMethodVersionsOfClass:MenuPanel selector:#'helpTextForItem:' numberOfRevisions:20 |
|
4502 |
self getMethodVersionsOfClass:NewLauncher class selector:#'menu' numberOfRevisions:20 |
|
4503 |
" |
|
4504 |
! ! |
|
4505 |
||
| 4226 | 4506 |
!SourceCodeManagerUtilities methodsFor:'utilities-scm-user interaction'! |
| 1375 | 4507 |
|
4508 |
askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName |
|
4509 |
"open a dialog asking for a source container; |
|
4510 |
return a dictionary containing module, package and filename, |
|
4511 |
or nil if canceled." |
|
4512 |
||
4513 |
^ self |
|
4514 |
askForContainer:boxText title:title note:notice |
|
4515 |
initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName |
|
4516 |
forNewContainer:true |
|
|
1026
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4517 |
! |
|
1f193eb5f877
common code (in Browser, NewBrowser) for revisionLogOf
Claus Gittinger <cg@exept.de>
parents:
1022
diff
changeset
|
4518 |
|
| 1375 | 4519 |
askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer |
4520 |
"open a dialog asking for a source container; |
|
4521 |
return a dictionary containing module, package and filename, |
|
4522 |
or nil if canceled." |
|
4523 |
||
|
3551
e8feddd829f9
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3546
diff
changeset
|
4524 |
|box y component answer |
| 1375 | 4525 |
moduleHolder packageHolder fileNameHolder |
4526 |
module package fileName |
|
|
3202
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4527 |
allPackageIDs knownContainers knownPackages packageUpdater |
| 1375 | 4528 |
packageBoxComponent fileNameBoxComponent fileNameUpdater| |
4529 |
||
| 3967 | 4530 |
allPackageIDs := Smalltalk allPackageIDs. |
|
3202
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4531 |
|
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4532 |
knownContainers := allPackageIDs collect:[:package | (package upTo:$:)] as:Set. |
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4533 |
|
|
3394
8e7ee24c6e7b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3384
diff
changeset
|
4534 |
knownContainers := knownContainers asOrderedCollection reject:[:module | module isBlank]. |
| 1375 | 4535 |
knownContainers sort. |
4536 |
||
4537 |
packageUpdater := [ |
|
4538 |
|theModulePrefix| |
|
4539 |
||
4540 |
theModulePrefix := moduleHolder value , ':'. |
|
4541 |
||
4542 |
Cursor wait showWhile:[ |
|
|
3202
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4543 |
knownPackages := |
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4544 |
allPackageIDs |
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4545 |
select:[:package | (package startsWith:theModulePrefix)] |
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4546 |
thenCollect:[:package | |idx| |
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4547 |
idx := package indexOf:$:. |
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4548 |
(package copyFrom:idx + 1)]. |
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4549 |
|
|
b58b19cac708
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3201
diff
changeset
|
4550 |
knownPackages := knownPackages asSet asOrderedCollection. |
| 3291 | 4551 |
knownPackages := knownPackages reject:[:package | package isBlank]. |
| 1375 | 4552 |
knownPackages sort. |
4553 |
packageBoxComponent list:knownPackages. |
|
4554 |
]. |
|
4555 |
]. |
|
4556 |
||
4557 |
fileNameUpdater := [ |
|
4558 |
|module package files| |
|
4559 |
||
4560 |
Cursor read showWhile:[ |
|
|
2209
e3a4510c45f2
Project noProjectID -> PackageId noProjectID
Claus Gittinger <cg@exept.de>
parents:
2200
diff
changeset
|
4561 |
module := moduleHolder value ? (PackageId noProjectID). |
|
e3a4510c45f2
Project noProjectID -> PackageId noProjectID
Claus Gittinger <cg@exept.de>
parents:
2200
diff
changeset
|
4562 |
package := packageHolder value ? (PackageId noProjectID). |
| 1375 | 4563 |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4564 |
files := SourceCodeManager getExistingContainersInModule:module directory:package. |
| 1375 | 4565 |
files := files asOrderedCollection. |
4566 |
files := files select:[:eachFile | eachFile asFilename hasSuffix:'st']. |
|
4567 |
files sort. |
|
4568 |
fileNameBoxComponent list:files. |
|
4569 |
]. |
|
4570 |
]. |
|
4571 |
||
4572 |
moduleHolder := initialModule asValue. |
|
4573 |
packageHolder := initialPackage asValue. |
|
4574 |
fileNameHolder := initialFileName asValue. |
|
4575 |
||
4576 |
"/ |
|
4577 |
"/ open a dialog for this |
|
4578 |
"/ |
|
4579 |
box := DialogBox new. |
|
4580 |
box label:title. |
|
4581 |
||
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4582 |
component := box addTextLabel:boxText withCRs adjust:#left. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4583 |
component borderWidth:0. |
| 1375 | 4584 |
box addVerticalSpace. |
4585 |
box addVerticalSpace. |
|
| 1000 | 4586 |
|
| 1375 | 4587 |
y := box yPosition. |
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4588 |
component := box addTextLabel:(resources string:'Module:') adjust:#right. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4589 |
component width:0.4. |
| 1375 | 4590 |
box yPosition:y. |
4591 |
component := box addComboBoxOn:moduleHolder tabable:true. |
|
4592 |
component list:knownContainers. |
|
4593 |
||
4594 |
"/ component := box addInputFieldOn:moduleHolder tabable:true. |
|
4595 |
component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine. |
|
4596 |
||
4597 |
box addVerticalSpace. |
|
4598 |
y := box yPosition. |
|
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4599 |
component := box addTextLabel:(resources string:'Package:') adjust:#right. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4600 |
component width:0.4. |
| 1375 | 4601 |
box yPosition:y. |
4602 |
packageBoxComponent := component := box addComboBoxOn:packageHolder tabable:true. |
|
4603 |
"/ component := box addInputFieldOn:packageHolder tabable:true. |
|
4604 |
component width:0.6; left:0.4; "immediateAccept:true; "acceptOnLeave:true; cursorMovementWhenUpdating:#beginOfLine. |
|
4605 |
packageUpdater value. |
|
4606 |
moduleHolder onChangeEvaluate:packageUpdater. |
|
4607 |
||
4608 |
box addVerticalSpace. |
|
4609 |
y := box yPosition. |
|
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4610 |
component := box addTextLabel:(resources string:'Filename:') adjust:#right. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4611 |
component width:0.4. |
| 1375 | 4612 |
box yPosition:y. |
4613 |
||
4614 |
forNewContainer ifTrue:[ |
|
4615 |
component := box addInputFieldOn:fileNameHolder tabable:true. |
|
4616 |
component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine. |
|
4617 |
] ifFalse:[ |
|
4618 |
fileNameBoxComponent := component := box addComboBoxOn:fileNameHolder tabable:true. |
|
4619 |
component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine. |
|
4620 |
fileNameUpdater value. |
|
4621 |
packageHolder onChangeEvaluate:fileNameUpdater. |
|
4622 |
]. |
|
4623 |
||
4624 |
box addVerticalSpace. |
|
4625 |
||
4626 |
notice notNil ifTrue:[ |
|
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4627 |
component := box addTextLabel:notice adjust:#left. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4628 |
component borderWidth:0. |
| 1375 | 4629 |
]. |
4630 |
||
4631 |
box addVerticalSpace. |
|
4632 |
box addAbortAndOkButtons. |
|
4633 |
||
4634 |
(YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[ |
|
|
3683
fb6ad154b94d
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3679
diff
changeset
|
4635 |
component := Button label:(resources string:'Yes to All'). |
| 1375 | 4636 |
component action:[ |
4637 |
YesToAllNotification queryWith:true. |
|
4638 |
box doAccept. |
|
|
2253
7d7b0d2d1fe7
changed: #askForContainer:title:note:initialModule:initialPackage:initialFileName:forNewContainer:
Claus Gittinger <cg@exept.de>
parents:
2242
diff
changeset
|
4639 |
box okPressed. |
| 1375 | 4640 |
]. |
|
3394
8e7ee24c6e7b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3384
diff
changeset
|
4641 |
box addButton:component. |
| 1375 | 4642 |
]. |
4643 |
(AbortAllSignal isHandled) ifTrue:[ |
|
|
3683
fb6ad154b94d
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3679
diff
changeset
|
4644 |
component := Button label:(resources string:'Cancel All'). |
| 1375 | 4645 |
component action:[ |
4646 |
box hide. |
|
4647 |
AbortAllSignal raiseSignal. |
|
4648 |
]. |
|
|
3394
8e7ee24c6e7b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3384
diff
changeset
|
4649 |
box addButton:component before:nil. |
| 1375 | 4650 |
]. |
4651 |
||
4652 |
(YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[ |
|
4653 |
answer := YesToAllQuery query. |
|
4654 |
]. |
|
4655 |
||
4656 |
answer isNil ifTrue:[ |
|
4657 |
box showAtPointer. |
|
4658 |
answer := box accepted |
|
4659 |
]. |
|
4660 |
||
4661 |
box destroy. |
|
4662 |
answer ifFalse:[ |
|
4663 |
^ nil |
|
4664 |
]. |
|
| 1000 | 4665 |
|
| 1375 | 4666 |
module := moduleHolder value withoutSpaces. |
4667 |
package := packageHolder value withoutSpaces. |
|
4668 |
fileName := fileNameHolder value withoutSpaces. |
|
4669 |
^ Dictionary new |
|
4670 |
at:#module put:module; |
|
4671 |
at:#package put:package; |
|
4672 |
at:#fileName put:fileName; |
|
4673 |
yourself |
|
4674 |
||
4675 |
" |
|
4676 |
self |
|
4677 |
askForContainer:'enter container' title:'container' note:'some note' |
|
4678 |
initialModule:'foo' initialPackage:'bar' initialFileName:'baz' |
|
4679 |
" |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4680 |
|
|
3394
8e7ee24c6e7b
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3384
diff
changeset
|
4681 |
"Modified: / 29-08-2013 / 12:26:04 / cg" |
| 1375 | 4682 |
! |
4683 |
||
| 2570 | 4684 |
askForExistingRevision:boxText title:title class:aClass |
4685 |
"open a dialog asking for a containers revision; |
|
4686 |
return a revision number, or nil if canceled." |
|
4687 |
||
4688 |
|mgr sourceInfo module package fileName| |
|
4689 |
||
4690 |
mgr := self sourceCodeManagerFor:aClass. |
|
4691 |
sourceInfo := mgr sourceInfoOfClass:aClass. |
|
4692 |
sourceInfo isNil ifTrue:[^ nil]. |
|
4693 |
||
4694 |
package := mgr directoryFromSourceInfo:sourceInfo. |
|
4695 |
module := mgr moduleFromSourceInfo:sourceInfo. |
|
4696 |
fileName := mgr containerFromSourceInfo:sourceInfo. |
|
4697 |
^ self |
|
4698 |
askForExistingRevision:boxText |
|
4699 |
title:title |
|
4700 |
class:aClass |
|
4701 |
manager:mgr |
|
4702 |
module:module package:package |
|
4703 |
fileName:fileName |
|
4704 |
||
4705 |
" |
|
4706 |
SourceCodeManagerUtilities |
|
4707 |
askForRevisionToCompare:'enter revision' |
|
4708 |
title:'revision' |
|
4709 |
class:Array |
|
4710 |
" |
|
4711 |
||
4712 |
"Modified: / 12-09-2006 / 14:17:04 / cg" |
|
4713 |
! |
|
4714 |
||
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4715 |
askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName |
| 1375 | 4716 |
"open a dialog asking for a containers revision; |
4717 |
return a revision number, or nil if canceled." |
|
4718 |
||
4719 |
|partialLog revisions items newestRev |
|
|
3551
e8feddd829f9
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3546
diff
changeset
|
4720 |
box y component revisionHolder symbolicNames stableRevision releasedRevision |
| 2325 | 4721 |
tagHolder tagList lockChange| |
4722 |
||
| 1375 | 4723 |
partialLog := aSourceCodeManager |
4724 |
revisionLogOf:clsOrNil |
|
4725 |
numberOfRevisions:20 |
|
4726 |
fileName:fileName |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4727 |
directory:directory |
| 1375 | 4728 |
module:module. |
| 1522 | 4729 |
|
| 1375 | 4730 |
partialLog notNil ifTrue:[ |
4731 |
newestRev := partialLog at:#newestRevision. |
|
4732 |
revisions := partialLog at:#revisions. |
|
|
1456
673e4fc61c36
Tell about stable and released revisions
Stefan Vogel <sv@exept.de>
parents:
1449
diff
changeset
|
4733 |
symbolicNames := partialLog at:#symbolicNames ifAbsent:[]. |
|
673e4fc61c36
Tell about stable and released revisions
Stefan Vogel <sv@exept.de>
parents:
1449
diff
changeset
|
4734 |
symbolicNames notNil ifTrue:[ |
|
673e4fc61c36
Tell about stable and released revisions
Stefan Vogel <sv@exept.de>
parents:
1449
diff
changeset
|
4735 |
stableRevision := symbolicNames at:'stable' ifAbsent:[]. |
|
673e4fc61c36
Tell about stable and released revisions
Stefan Vogel <sv@exept.de>
parents:
1449
diff
changeset
|
4736 |
releasedRevision := symbolicNames at:'released' ifAbsent:[]. |
|
3332
bc7ab41bb5bb
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3327
diff
changeset
|
4737 |
tagList := ((symbolicNames associations sort:[:a :b | a key < b key "self versionString:(a value) isLessThan:(b value)"]) |
| 2325 | 4738 |
collect:[:assoc | assoc key]) reverse. |
|
3332
bc7ab41bb5bb
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3327
diff
changeset
|
4739 |
tagList remove:'stable' ifAbsent:[]. |
|
bc7ab41bb5bb
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3327
diff
changeset
|
4740 |
tagList notEmpty ifTrue:[tagList addFirst:'-']. |
|
bc7ab41bb5bb
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3327
diff
changeset
|
4741 |
tagList addFirst:'stable'. |
| 4174 | 4742 |
LastTag notNil ifTrue:[ |
4743 |
tagList addFirst:LastTag. |
|
4744 |
]. |
|
|
1456
673e4fc61c36
Tell about stable and released revisions
Stefan Vogel <sv@exept.de>
parents:
1449
diff
changeset
|
4745 |
]. |
| 4007 | 4746 |
|
4747 |
"/ fill in timestamps |
|
4748 |
revisions do:[:each | |
|
| 4160 | 4749 |
|dateOrDateString timeOrTimeString timestampString timestamp| |
4750 |
||
4751 |
dateOrDateString := each at:#date ifAbsent:nil. |
|
4752 |
timeOrTimeString := each at:#time ifAbsent:nil. |
|
4753 |
dateOrDateString notNil ifTrue:[ |
|
4754 |
dateOrDateString isString ifTrue:[ |
|
4755 |
timestamp := Timestamp readFrom:dateOrDateString onError:nil. |
|
4756 |
timestamp notNil ifTrue:[ |
|
4757 |
each at:#timestamp put:timestamp. |
|
4758 |
each at:#day put:timestamp asDate. |
|
4759 |
]. |
|
4760 |
] ifFalse:[ |
|
4761 |
timeOrTimeString isString ifTrue:[ |
|
4762 |
self halt. |
|
4763 |
||
4764 |
] ifFalse:[ |
|
4765 |
(dateOrDateString notNil and:[timeOrTimeString notNil]) ifTrue:[ |
|
4766 |
timestamp := Timestamp fromDate:dateOrDateString andTime:timeOrTimeString. |
|
4767 |
each at:#timestamp put:timestamp. |
|
4768 |
] ifFalse:[ |
|
4769 |
self halt |
|
4770 |
] |
|
4771 |
] |
|
4772 |
]. |
|
| 4007 | 4773 |
]. |
4774 |
]. |
|
4775 |
||
4776 |
items := revisions |
|
4777 |
collectWithIndex:[:each :idx| |
|
4778 |
|rev timestamp date time dateAndTimeString who flag |
|
4779 |
prevInfo prevDate nextInfo nextDate dateDifferentToPrev dateDifferentToNext| |
|
4780 |
||
4781 |
rev := each at:#revision. |
|
4782 |
||
4783 |
timestamp := each at:#timestamp. |
|
4784 |
timestamp notNil ifTrue:[ |
|
4785 |
date := each at:#day. |
|
4786 |
date = Date today ifTrue:[ |
|
4787 |
dateAndTimeString := timestamp asTime printString. |
|
4788 |
] ifFalse:[ |
|
4789 |
"/ if date is different to both previous AND next, |
|
4790 |
"/ only show the date |
|
4791 |
dateDifferentToPrev := dateDifferentToNext := false. |
|
4792 |
(idx > 1) ifTrue:[ |
|
4793 |
prevInfo := revisions at:idx-1. |
|
4794 |
prevDate := prevInfo at:#day ifAbsent:nil. |
|
4795 |
dateDifferentToPrev := (prevDate notNil and:[prevDate ~= date]). |
|
4796 |
]. |
|
4797 |
(idx < revisions size) ifTrue:[ |
|
4798 |
nextInfo := revisions at:idx+1. |
|
4799 |
nextDate := nextInfo at:#day ifAbsent:nil. |
|
4800 |
dateDifferentToNext := (nextDate notNil and:[nextDate ~= date]). |
|
4801 |
]. |
|
4802 |
(dateDifferentToPrev and:[dateDifferentToPrev]) ifTrue:[ |
|
4803 |
dateAndTimeString := date printString. |
|
4804 |
] ifFalse:[ |
|
4805 |
dateAndTimeString := date printString,' ',(timestamp asTime printString). |
|
4806 |
] |
|
4807 |
]. |
|
4808 |
] ifFalse:[ |
|
4809 |
dateAndTimeString := (each at:#date ifAbsent:nil) ? '(unknown time)'. |
|
4810 |
]. |
|
4811 |
who := (each at:#author ifAbsent:nil) ? '?'. |
|
4812 |
rev = stableRevision ifTrue:[ |
|
4813 |
flag := ' Stable' allBold. |
|
4814 |
] ifFalse:[rev = releasedRevision ifTrue:[ |
|
4815 |
flag := ' Released' allBold. |
|
4816 |
] ifFalse:[ |
|
4817 |
flag := '' |
|
4818 |
]]. |
|
4819 |
'%1%2 [%3 by %4]' bindWith:rev allBold with:flag with:dateAndTimeString with:who |
|
4820 |
]. |
|
4821 |
||
| 1375 | 4822 |
revisions := revisions collect:[:each | each at:#revision]. |
4823 |
] ifFalse:[ |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4824 |
newestRev := aSourceCodeManager newestRevisionInFile:fileName directory:directory module:module. |
| 1375 | 4825 |
revisions := items := nil. |
4826 |
||
4827 |
newestRev isNil ifTrue:[ |
|
| 4226 | 4828 |
(aSourceCodeManager checkForExistingContainer:fileName inModule:module directory:directory warn:true) |
| 1375 | 4829 |
ifFalse:[ |
4830 |
^ nil |
|
4831 |
] |
|
4832 |
] |
|
4833 |
]. |
|
| 2325 | 4834 |
|
4835 |
lockChange := false. |
|
4836 |
revisionHolder := newestRev asValue. |
|
| 1375 | 4837 |
revisionHolder onChangeEvaluate:[ |
4838 |
"/ cut off everything after revision |
|
| 2325 | 4839 |
|s first words tag| |
| 1375 | 4840 |
|
4841 |
s := revisionHolder value. |
|
4842 |
words := s asCollectionOfWords. |
|
4843 |
words size > 0 ifTrue:[ |
|
4844 |
first := words first string. |
|
4845 |
first ~= s ifTrue:[ |
|
4846 |
revisionHolder value:first |
|
4847 |
] |
|
| 2325 | 4848 |
]. |
4849 |
lockChange ifFalse:[ |
|
4850 |
tagHolder value:'' |
|
4851 |
]. |
|
| 1375 | 4852 |
]. |
4853 |
||
| 2325 | 4854 |
tagHolder := '' asValue. |
4855 |
tagHolder |
|
4856 |
onChangeEvaluate:[ |
|
4857 |
|tag rev| |
|
4858 |
||
4859 |
(tag := tagHolder value) notEmptyOrNil ifTrue:[ |
|
| 4192 | 4860 |
"/ LastTag := tag. |
| 2325 | 4861 |
rev := symbolicNames at:tag. |
4862 |
rev ~= revisionHolder value ifTrue:[ |
|
4863 |
lockChange := true. |
|
4864 |
revisionHolder value:rev. |
|
4865 |
lockChange := false. |
|
4866 |
]. |
|
4867 |
] |
|
4868 |
]. |
|
4869 |
||
| 1375 | 4870 |
"/ |
4871 |
"/ open a dialog for this |
|
4872 |
"/ |
|
4873 |
box := DialogBox new. |
|
4874 |
box label:title. |
|
4875 |
||
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4876 |
component := box addTextLabel:boxText withCRs adjust:#left. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4877 |
component borderWidth:0. |
| 1375 | 4878 |
box addVerticalSpace. |
4879 |
box addVerticalSpace. |
|
4880 |
||
4881 |
y := box yPosition. |
|
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4882 |
component := box addTextLabel:(resources string:'Revision:') adjust:#right. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4883 |
component width:0.4. |
| 1375 | 4884 |
box yPosition:y. |
4885 |
component := box addComboBoxOn:revisionHolder tabable:true. |
|
4886 |
component list:items. |
|
4887 |
component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine. |
|
4888 |
||
| 2325 | 4889 |
y := box yPosition. |
|
3425
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4890 |
component := box addTextLabel:(resources string:'or Tag:') adjust:#right. |
|
05be11d262e2
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3394
diff
changeset
|
4891 |
component width:0.4. |
| 2325 | 4892 |
box yPosition:y. |
4893 |
component := box addComboListOn:tagHolder tabable:true. |
|
4894 |
component list:tagList. |
|
4895 |
component width:0.6; left:0.4. |
|
4896 |
tagList isNil ifTrue:[ |
|
4897 |
component disable |
|
4898 |
]. |
|
4899 |
||
| 1375 | 4900 |
box addVerticalSpace. |
4901 |
||
4902 |
box addAbortAndOkButtons. |
|
4903 |
||
| 2325 | 4904 |
AbortAllOperationWantedQuery query ifTrue:[ |
| 1375 | 4905 |
(box addAbortButtonLabelled:'Cancel all') action:[AbortAllSignal raise]. |
4906 |
]. |
|
| 4192 | 4907 |
LastTag notEmptyOrNil ifTrue:[ |
| 4193 | 4908 |
(symbolicNames notNil and:[symbolicNames includesKey:LastTag]) ifTrue:[ |
4909 |
tagHolder value:LastTag. |
|
4910 |
]. |
|
| 4192 | 4911 |
]. |
4912 |
||
| 1375 | 4913 |
box showAtPointer. |
4914 |
||
4915 |
box accepted ifFalse:[ |
|
4916 |
box destroy. |
|
4917 |
^ nil |
|
4918 |
]. |
|
4919 |
box destroy. |
|
4920 |
||
| 4192 | 4921 |
LastTag := tagHolder value. |
4922 |
||
|
3865
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4923 |
"/ it is not a good idea to return the tag-name here, |
|
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4924 |
"/ because it may get cached later when the source is fetched, |
|
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4925 |
"/ and the tag could move to another version (making the cached file invalid) |
|
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4926 |
"/ without me knowing about that fact. |
|
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4927 |
"/ Therefore, we should return the real revision number. |
|
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4928 |
|
|
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4929 |
"/ ouch: however, checkout of a branch seems to not work the same way |
|
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4930 |
"/ so we DO return the tag, but suppress caching it. sigh. |
|
3551
e8feddd829f9
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3546
diff
changeset
|
4931 |
^ (tagHolder value notEmptyOrNil ifTrue:[tagHolder] ifFalse:[revisionHolder]) value withoutSpaces. |
|
3865
b76ba0a9cf83
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3847
diff
changeset
|
4932 |
"/ ^ revisionHolder value withoutSpaces. |
| 1375 | 4933 |
|
4934 |
" |
|
4935 |
SourceCodeManagerUtilities |
|
4936 |
askForRevisionToCompare:'enter revision' |
|
4937 |
title:'revision' |
|
4938 |
class:nil |
|
4939 |
manager:SourceCodeManager |
|
4940 |
module:'stx' |
|
|
1666
40429b90ebb6
renamed *package* to *directory* to avoid confusion.
Claus Gittinger <cg@exept.de>
parents:
1533
diff
changeset
|
4941 |
directory:'libbasic' |
| 1375 | 4942 |
fileName:'Array.st' |
4943 |
" |
|
| 1522 | 4944 |
|
| 4226 | 4945 |
"Modified: / 24-02-2017 / 11:38:39 / cg" |
| 1375 | 4946 |
! |
4947 |
||
| 1426 | 4948 |
checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder |
| 1375 | 4949 |
"check if a class contains message-sends to: |
|
2237
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4950 |
#halt , #halt: |
| 1375 | 4951 |
#error |
|
2237
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4952 |
#todo , #todo: |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4953 |
(and maybe more in the future) |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4954 |
|
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4955 |
Only checks in non-extension methods - as this is only called when checking " |
| 1375 | 4956 |
|
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4957 |
|badStuff whatIsBad msg answer labels values defaultAnswer dontShowAgain |
|
3551
e8feddd829f9
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3546
diff
changeset
|
4958 |
methodsWithBadStuff| |
| 1375 | 4959 |
|
4960 |
badStuff := #( |
|
|
2237
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4961 |
( halt 'send of #halt (use for debugging only) - better use #error:''some message'' or #breakPoint:') |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4962 |
( halt: 'send of #halt: (use for debugging only) - better use #error: or #breakPoint:') |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4963 |
( error 'send of #error without descriptive message - better use #error:''some message''' ) |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4964 |
( todo 'send of #todo - unfinished code present?' ) |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4965 |
( todo: 'send of #todo:- unfinished code present?' ) |
| 1375 | 4966 |
). |
4967 |
||
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4968 |
methodsWithBadStuff := Set new. |
| 1375 | 4969 |
whatIsBad := Set new. |
4970 |
aClass theNonMetaclass instAndClassSelectorsAndMethodsDo:[:sel :mthd | |
|
|
2237
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4971 |
|setOfLiterals setOfSentMessages| |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4972 |
|
|
2977
e5bfe652373f
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2974
diff
changeset
|
4973 |
mthd isExtension ifFalse:[ |
|
2237
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4974 |
setOfLiterals := mthd literals. "/ try without parsing first. |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4975 |
(badStuff contains:[:eachEntry | setOfLiterals includes:eachEntry first]) ifTrue:[ |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4976 |
setOfSentMessages := mthd messagesSent. |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4977 |
badStuff do:[:eachEntry | |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4978 |
(setOfSentMessages includes:eachEntry first) ifTrue:[ |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4979 |
whatIsBad add:eachEntry second. |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4980 |
methodsWithBadStuff add:mthd. |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4981 |
] |
|
96105b41c6a6
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2236
diff
changeset
|
4982 |
]. |
| 1000 | 4983 |
]. |
4984 |
]. |
|
| 1375 | 4985 |
]. |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4986 |
whatIsBad isEmpty ifTrue:[^ true]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4987 |
|
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4988 |
(YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4989 |
answer := YesToAllQuery query. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4990 |
answer notNil ifTrue:[ ^ answer ]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4991 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4992 |
|
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4993 |
msg := resources string:'%1 contains the following (considered bad style) message sends:' with:aClass name. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4994 |
msg := msg , '\\'. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4995 |
whatIsBad do:[:each | |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4996 |
msg := msg , ' ' , each , '\' |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4997 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4998 |
msg := msg , '\'. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
4999 |
methodsWithBadStuff size == 1 ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5000 |
msg := msg , (resources string:'In %1.' |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5001 |
with:methodsWithBadStuff anElement whoString allBold). |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5002 |
] ifFalse:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5003 |
msg := msg , (resources string:'In %1 and %2 other methods.' |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5004 |
with:methodsWithBadStuff anElement whoString allBold |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5005 |
with:methodsWithBadStuff size-1). |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5006 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5007 |
msg := msg , '\\' , (resources string:'Do you really want to checkIn the %1 class ?' with:aClass name). |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5008 |
|
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5009 |
(YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5010 |
labels := #('Cancel All' 'Cancel' 'No to All' 'No' 'No, Browse' 'Yes to All' 'Yes') "#('Yes' 'Yes to All' 'No' 'No to All' 'Cancel')".
|
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5011 |
values := #(#cancelAll nil #noToAll #noBrowse false #yesToAll true) "#(true #yesToAll false #noToAll nil)". |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5012 |
defaultAnswer := #yesToAll. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5013 |
] ifFalse:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5014 |
labels := #('No' 'No, Browse' 'Yes').
|
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5015 |
values := #(false #noBrowse true). |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5016 |
defaultAnswer := true. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5017 |
]. |
| 1426 | 5018 |
|
|
1456
673e4fc61c36
Tell about stable and released revisions
Stefan Vogel <sv@exept.de>
parents:
1449
diff
changeset
|
5019 |
"/ AbortAllOperationRequest isHandled ifTrue:[ |
| 1426 | 5020 |
"/ labels := #('Cancel All') , labels.
|
5021 |
"/ values := #(#cancelAll) , values. |
|
5022 |
"/ ]. |
|
5023 |
||
|
3812
173678af0074
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3692
diff
changeset
|
5024 |
Dialog modifyingBoxWith:[:box | |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5025 |
checkAgainHolder isValueModel ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5026 |
dontShowAgain := checkAgainHolder value not asValue. |
|
3812
173678af0074
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3692
diff
changeset
|
5027 |
box addCheckBoxAtBottom:(resources string:'Do not show this Dialog again (reenable in Launcher).') |
|
2129
9d5c146df780
goodInitialLogMessageForCheckinClassOfClass:
Claus Gittinger <cg@exept.de>
parents:
2106
diff
changeset
|
5028 |
on:dontShowAgain. |
| 1426 | 5029 |
]. |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5030 |
] do:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5031 |
answer := OptionBox |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5032 |
request:msg withCRs |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5033 |
label:(resources string:'Really CheckIn ?') |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5034 |
image:(InfoBox iconBitmap) |
|
3551
e8feddd829f9
class: SourceCodeManagerUtilities
Stefan Vogel <sv@exept.de>
parents:
3546
diff
changeset
|
5035 |
buttonLabels:(Dialog classResources array:labels) |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5036 |
values:values |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5037 |
default:defaultAnswer |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5038 |
onCancel:nil. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5039 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5040 |
answer isNil ifTrue:[ |
|
3433
eee3079d18d3
AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents:
3425
diff
changeset
|
5041 |
AbortOperationRequest raise. |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5042 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5043 |
|
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5044 |
dontShowAgain notNil ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5045 |
checkAgainHolder value:dontShowAgain value not |
| 1000 | 5046 |
]. |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5047 |
|
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5048 |
answer == #noBrowse ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5049 |
UserPreferences browserClass browseMethods:methodsWithBadStuff title:'Methods with Bad Stuff'. |
|
1995
f832f7ec6ccf
Don't use possibly uninitialized class variable
Stefan Vogel <sv@exept.de>
parents:
1994
diff
changeset
|
5050 |
self yesToAllNotification queryWith:false. |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5051 |
^ false |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5052 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5053 |
answer == #cancelAll ifTrue:[ |
|
3433
eee3079d18d3
AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents:
3425
diff
changeset
|
5054 |
AbortOperationRequest raise. |
|
1994
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5055 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5056 |
answer == #yesToAll ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5057 |
YesToAllNotification queryWith:true. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5058 |
^ true |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5059 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5060 |
answer == #noToAll ifTrue:[ |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5061 |
YesToAllNotification queryWith:false. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5062 |
^ false |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5063 |
]. |
|
eccaf18ff7a1
which method is bad - offer chance to browse them.
Claus Gittinger <cg@exept.de>
parents:
1988
diff
changeset
|
5064 |
^ answer |
| 1375 | 5065 |
|
5066 |
" |
|
5067 |
self checkAndWarnAboutBadMessagesInClass:(SourceCodeManagerUtilities) |
|
5068 |
" |
|
|
2775
d1908ae4aed8
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2774
diff
changeset
|
5069 |
|
|
d1908ae4aed8
changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder:
Claus Gittinger <cg@exept.de>
parents:
2774
diff
changeset
|
5070 |
"Modified: / 28-02-2012 / 10:41:38 / cg" |
|
1460
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5071 |
! |
|
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5072 |
|
|
2129
9d5c146df780
goodInitialLogMessageForCheckinClassOfClass:
Claus Gittinger <cg@exept.de>
parents:
2106
diff
changeset
|
5073 |
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil |
| 2283 | 5074 |
"ask for a log message for checking in a class (plus checkinQuick state info), |
5075 |
and other info (mark as stable, for example). |
|
5076 |
Return the info-object (actually: the dialog) or nil if aborted." |
|
|
1460
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5077 |
|
| 1704 | 5078 |
^ self |
|
2129
9d5c146df780
goodInitialLogMessageForCheckinClassOfClass:
Claus Gittinger <cg@exept.de>
parents:
2106
diff
changeset
|
5079 |
getCheckinInfoFor:aClassNameOrPackageNameString |
| 1704 | 5080 |
initialAnswer:initialAnswerOrNil |
5081 |
withQuickOption:false |
|
5082 |
||
5083 |
" |
|
5084 |
SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla' |
|
5085 |
" |
|
|
1460
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5086 |
|
| 2283 | 5087 |
"Modified: / 06-07-2010 / 11:22:15 / cg" |
| 1704 | 5088 |
! |
5089 |
||
|
2129
9d5c146df780
goodInitialLogMessageForCheckinClassOfClass:
Claus Gittinger <cg@exept.de>
parents:
2106
diff
changeset
|
5090 |
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption |
| 2283 | 5091 |
"ask for a log message for checking in a class (plus checkinQuick state info), |
5092 |
and other info (mark as stable, for example). |
|
| 2106 | 5093 |
Return the info-object (actually: the dialog) or nil if aborted." |
5094 |
||
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5095 |
^ self |
| 4079 | 5096 |
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil |
5097 |
withQuickOption:withQuickOption |
|
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5098 |
withValidateConsistencyOption:false |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5099 |
|
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5100 |
" |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5101 |
SourceCodeManagerUtilities default getCheckinInfoFor:'hello' initialAnswer:'bla' |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5102 |
" |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5103 |
|
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5104 |
"Modified: / 12-03-2012 / 13:12:40 / cg" |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5105 |
! |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5106 |
|
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5107 |
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption withValidateConsistencyOption:withValidateConsistencyOption |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5108 |
"ask for a log message for checking in a class (plus checkinQuick state info), |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5109 |
and other info (mark as stable, for example). |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5110 |
Return the info-object (actually: the dialog) or nil if aborted." |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5111 |
|
| 2106 | 5112 |
|logMsg infoDialog| |
5113 |
||
5114 |
infoDialog := Tools::CheckinInfoDialog |
|
| 2795 | 5115 |
getCheckinInfoFor:aClassNameOrPackageNameString |
5116 |
initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage) |
|
5117 |
withQuickOption:withQuickOption |
|
|
3140
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5118 |
logHistory:(LastSourceLogMessages ? #()) |
|
25a1a02ce3d9
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3134
diff
changeset
|
5119 |
withValidateConsistencyOption:withValidateConsistencyOption. |
| 2795 | 5120 |
|
| 2106 | 5121 |
infoDialog notNil ifTrue:[ |
5122 |
logMsg := infoDialog logMessage. |
|
| 2284 | 5123 |
logMsg notEmptyOrNil ifTrue:[ |
| 2795 | 5124 |
LastSourceLogMessage := logMsg. |
5125 |
LastSourceLogMessages isNil ifTrue:[ |
|
5126 |
LastSourceLogMessages := OrderedCollection new. |
|
5127 |
]. |
|
|
2796
78401b160a28
changed: #getCheckinInfoFor:initialAnswer:withQuickOption:
Claus Gittinger <cg@exept.de>
parents:
2795
diff
changeset
|
5128 |
LastSourceLogMessages remove:logMsg ifAbsent:[]. |
| 2795 | 5129 |
LastSourceLogMessages addFirst:logMsg. |
5130 |
LastSourceLogMessages size > 10 ifTrue:[ |
|
5131 |
LastSourceLogMessages removeLast |
|
5132 |
]. |
|
|
1460
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5133 |
]. |
|
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5134 |
]. |
| 2106 | 5135 |
^ infoDialog |
|
1460
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5136 |
|
|
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5137 |
" |
| 2795 | 5138 |
SourceCodeManagerUtilities default getCheckinInfoFor:'hello' initialAnswer:'bla' |
|
1460
2e1c304e5b52
Setting/deleting symbolic names
Stefan Vogel <sv@exept.de>
parents:
1456
diff
changeset
|
5139 |
" |
| 1501 | 5140 |
|
|
2796
78401b160a28
changed: #getCheckinInfoFor:initialAnswer:withQuickOption:
Claus Gittinger <cg@exept.de>
parents:
2795
diff
changeset
|
5141 |
"Modified: / 12-03-2012 / 13:12:40 / cg" |
|
2129
9d5c146df780
goodInitialLogMessageForCheckinClassOfClass:
Claus Gittinger <cg@exept.de>
parents:
2106
diff
changeset
|
5142 |
! |
|
9d5c146df780
goodInitialLogMessageForCheckinClassOfClass:
Claus Gittinger <cg@exept.de>
parents:
2106
diff
changeset
|
5143 |
|
|
3344
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5144 |
revisionForSymbolicName:tag class:cls fileName:classFileName directory:packageDir module:moduleDir manager:aSourceCodeManager |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5145 |
"given a tag, return the corresponding revision" |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5146 |
|
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5147 |
|partialLog symbolicNames| |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5148 |
|
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5149 |
partialLog := aSourceCodeManager |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5150 |
revisionLogOf:cls |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5151 |
numberOfRevisions:20 |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5152 |
fileName:classFileName |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5153 |
directory:packageDir |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5154 |
module:moduleDir. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5155 |
|
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5156 |
partialLog notNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5157 |
symbolicNames := partialLog at:#symbolicNames ifAbsent:[]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5158 |
symbolicNames notNil ifTrue:[ |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5159 |
^ symbolicNames at:tag ifAbsent:nil |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5160 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5161 |
]. |
|
4e577aa5b998
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3343
diff
changeset
|
5162 |
^ nil |
| 1375 | 5163 |
! ! |
5164 |
||
| 873 | 5165 |
!SourceCodeManagerUtilities class methodsFor:'documentation'! |
5166 |
||
|
2487
c8f4417b9edc
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2484
diff
changeset
|
5167 |
version |
|
3892
3e7000585011
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3865
diff
changeset
|
5168 |
^ '$Header$' |
|
2487
c8f4417b9edc
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2484
diff
changeset
|
5169 |
! |
|
c8f4417b9edc
changed: #ensureCorrectVersionMethodsInClass:using:
Claus Gittinger <cg@exept.de>
parents:
2484
diff
changeset
|
5170 |
|
| 2175 | 5171 |
version_CVS |
|
3892
3e7000585011
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
3865
diff
changeset
|
5172 |
^ '$Header$' |
| 873 | 5173 |
! ! |
|
3134
93b8f75424c5
class: SourceCodeManagerUtilities
Claus Gittinger <cg@exept.de>
parents:
2977
diff
changeset
|
5174 |