author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 02 Jul 2018 08:45:59 +0200 | |
branch | jv |
changeset 1186 | 9e617064233f |
parent 1120 | 9b18f8241b3d |
permissions | -rw-r--r-- |
694 | 1 |
" |
2 |
Copyright (c) 2007-2010 Jan Vrany |
|
3 |
Copyright (c) 2009-2010 eXept Software AG |
|
4 |
||
5 |
Permission is hereby granted, free of charge, to any person |
|
6 |
obtaining a copy of this software and associated documentation |
|
7 |
files (the 'Software'), to deal in the Software without |
|
8 |
restriction, including without limitation the rights to use, |
|
9 |
copy, modify, merge, publish, distribute, sublicense, and/or sell |
|
10 |
copies of the Software, and to permit persons to whom the |
|
11 |
Software is furnished to do so, subject to the following |
|
12 |
conditions: |
|
13 |
||
14 |
The above copyright notice and this permission notice shall be |
|
15 |
included in all copies or substantial portions of the Software. |
|
16 |
||
17 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, |
|
18 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES |
|
19 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
|
20 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
|
21 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
|
22 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
|
23 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
|
24 |
OTHER DEALINGS IN THE SOFTWARE. |
|
25 |
" |
|
399 | 26 |
"{ Package: 'stx:libsvn' }" |
44 | 27 |
|
28 |
"{ NameSpace: SVN }" |
|
29 |
||
30 |
Object subclass:#RepositoryManager |
|
1120
9b18f8241b3d
changed: #basicRepositoryForPackage: (do no check whether repository exists - takes too long, called too often by browser)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
938
diff
changeset
|
31 |
instanceVariableNames:'configurations repositories workingCopyBase' |
9b18f8241b3d
changed: #basicRepositoryForPackage: (do no check whether repository exists - takes too long, called too often by browser)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
938
diff
changeset
|
32 |
classVariableNames:'Current WorkingCopyBase' |
9b18f8241b3d
changed: #basicRepositoryForPackage: (do no check whether repository exists - takes too long, called too often by browser)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
938
diff
changeset
|
33 |
poolDictionaries:'' |
9b18f8241b3d
changed: #basicRepositoryForPackage: (do no check whether repository exists - takes too long, called too often by browser)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
938
diff
changeset
|
34 |
category:'SVN-Core' |
44 | 35 |
! |
36 |
||
694 | 37 |
!RepositoryManager class methodsFor:'documentation'! |
38 |
||
39 |
copyright |
|
40 |
" |
|
41 |
Copyright (c) 2007-2010 Jan Vrany |
|
42 |
Copyright (c) 2009-2010 eXept Software AG |
|
43 |
||
44 |
Permission is hereby granted, free of charge, to any person |
|
45 |
obtaining a copy of this software and associated documentation |
|
46 |
files (the 'Software'), to deal in the Software without |
|
47 |
restriction, including without limitation the rights to use, |
|
48 |
copy, modify, merge, publish, distribute, sublicense, and/or sell |
|
49 |
copies of the Software, and to permit persons to whom the |
|
50 |
Software is furnished to do so, subject to the following |
|
51 |
conditions: |
|
52 |
||
53 |
The above copyright notice and this permission notice shall be |
|
54 |
included in all copies or substantial portions of the Software. |
|
55 |
||
56 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, |
|
57 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES |
|
58 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
|
59 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
|
60 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
|
61 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
|
62 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
|
63 |
OTHER DEALINGS IN THE SOFTWARE. |
|
64 |
||
65 |
" |
|
66 |
! ! |
|
44 | 67 |
|
68 |
!RepositoryManager class methodsFor:'instance creation'! |
|
69 |
||
70 |
new |
|
71 |
^ self basicNew initialize. |
|
72 |
||
73 |
"Created: / 16-03-2008 / 11:53:21 / janfrog" |
|
74 |
! ! |
|
75 |
||
76 |
!RepositoryManager class methodsFor:'accessing'! |
|
77 |
||
78 |
current |
|
79 |
||
80 |
Current ifNil: |
|
81 |
[Current := self new]. |
|
82 |
^Current |
|
83 |
||
84 |
"Created: / 16-03-2008 / 11:52:11 / janfrog" |
|
85 |
"Modified: / 07-06-2008 / 22:23:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
86 |
! |
|
87 |
||
88 |
disable |
|
89 |
||
90 |
self enabled: false |
|
91 |
||
92 |
"Created: / 20-04-2008 / 09:19:00 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
93 |
"Modified: / 07-06-2008 / 22:30:10 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
94 |
! |
|
95 |
||
96 |
enable |
|
97 |
||
98 |
self enabled: true |
|
99 |
||
100 |
"Created: / 20-04-2008 / 09:21:29 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
101 |
"Modified: / 07-06-2008 / 22:30:18 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
102 |
! |
|
103 |
||
104 |
enabled |
|
105 |
||
106 |
^UserPreferences current svnEnabled |
|
107 |
||
108 |
"Created: / 20-04-2008 / 09:27:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
109 |
"Modified: / 03-10-2008 / 11:28:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
110 |
! |
|
111 |
||
112 |
enabled: aBoolean |
|
113 |
||
114 |
UserPreferences current svnEnabled: aBoolean. |
|
115 |
self changed:#enabled |
|
116 |
||
117 |
"Created: / 20-04-2008 / 09:18:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
118 |
"Modified: / 03-10-2008 / 11:28:55 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
119 |
! |
|
120 |
||
121 |
hasRepositoryForPackage: package |
|
122 |
||
123 |
self enabled ifFalse:[^false]. |
|
124 |
^self current hasRepositoryForPackage: package |
|
125 |
||
126 |
"Created: / 19-04-2008 / 10:04:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
127 |
"Modified: / 07-06-2008 / 22:28:15 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
128 |
! |
|
129 |
||
938 | 130 |
repositoryForModule: module directory: dir |
131 |
||
132 |
^self repositoryForPackage: (module , ':' , dir) |
|
133 |
||
134 |
"Created: / 25-05-2009 / 19:48:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
135 |
"Modified: / 16-08-2009 / 18:42:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
136 |
"Created: / 11-10-2011 / 11:12:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
137 |
! |
|
138 |
||
44 | 139 |
repositoryForPackage: package |
140 |
||
141 |
^self repositoryForPackage: package onlyFromCache: false |
|
142 |
||
143 |
"Created: / 25-05-2009 / 19:48:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
144 |
"Modified: / 16-08-2009 / 18:42:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
145 |
! |
|
146 |
||
147 |
repositoryForPackage: package onlyFromCache: aBoolean |
|
148 |
||
149 |
self enabled ifFalse:[^nil]. |
|
150 |
^self current repositoryForPackage: package onlyFromCache: aBoolean |
|
151 |
||
152 |
"Created: / 16-08-2009 / 18:41:47 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
153 |
! |
|
154 |
||
155 |
repositoryUrlForPackage: package |
|
156 |
||
157 |
self enabled ifFalse:[^nil]. |
|
158 |
^self current repositoryUrlForPackage: package |
|
159 |
||
160 |
"Created: / 25-05-2009 / 19:48:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
161 |
! |
|
162 |
||
163 |
reset |
|
164 |
||
165 |
self current reset. |
|
166 |
||
167 |
"Created: / 31-03-2008 / 10:55:10 / janfrog" |
|
168 |
"Modified: / 20-03-2009 / 10:44:31 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
169 |
! |
|
170 |
||
171 |
workingCopyForPackage: package |
|
172 |
||
173 |
| repo | |
|
174 |
^(repo := self repositoryForPackage: package) |
|
175 |
ifNil:[nil] |
|
176 |
ifNotNil:[repo workingCopy] |
|
177 |
||
178 |
"Created: / 13-08-2009 / 15:08:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
179 |
! ! |
|
180 |
||
694 | 181 |
!RepositoryManager class methodsFor:'others'! |
182 |
||
183 |
version_CVS |
|
856
543368db7673
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
793
diff
changeset
|
184 |
^ '$Header$' |
694 | 185 |
! ! |
186 |
||
44 | 187 |
!RepositoryManager methodsFor:'accessing'! |
188 |
||
189 |
configurationForPackage: package |
|
190 |
||
191 |
^self configurations |
|
192 |
detect: [:cfg|cfg matchesPackage: package] |
|
193 |
ifNone: [nil] |
|
194 |
||
195 |
"Created: / 03-10-2008 / 15:38:37 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
196 |
! |
|
197 |
||
198 |
configurations |
|
199 |
configurations ifNil: |
|
200 |
[configurations := UserPreferences current svnConfigurations]. |
|
694 | 201 |
^configurations ? #() |
202 |
||
44 | 203 |
"Created: / 26-05-2008 / 10:47:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
204 |
"Modified: / 03-10-2008 / 13:11:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
205 |
! |
|
206 |
||
207 |
configurations: anObject |
|
694 | 208 |
configurations := anObject |
44 | 209 |
|
210 |
"Created: / 03-10-2008 / 13:10:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
211 |
! |
|
212 |
||
694 | 213 |
repositories |
214 |
||
215 |
^repositories values collect:[:repo|repo value] thenSelect:[:repo|repo notNil]. |
|
216 |
||
217 |
"Created: / 24-03-2010 / 22:24:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
218 |
! |
|
219 |
||
44 | 220 |
repositoryForPackage:package |
221 |
||
222 |
^self repositoryForPackage:package onlyFromCache: false |
|
223 |
||
224 |
"Modified: / 16-08-2009 / 18:44:11 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
225 |
! |
|
226 |
||
227 |
repositoryForPackage:package onlyFromCache: onlyFromCache |
|
694 | 228 |
|
229 |
||
230 |
"There is no repository for no project, by definition" |
|
231 |
package = PackageId noProjectID ifTrue:[ ^nil ]. |
|
44 | 232 |
|
694 | 233 |
^onlyFromCache |
234 |
ifTrue: |
|
235 |
[repositories at:package ifAbsent:[nil]] |
|
236 |
ifFalse: |
|
237 |
[repositories |
|
238 |
at:package |
|
239 |
ifAbsentPut: |
|
240 |
(MessageSend |
|
241 |
receiver: self |
|
242 |
selector: #basicRepositoryForPackage: |
|
243 |
argument: package)] |
|
44 | 244 |
|
245 |
"Modified: / 01-04-2008 / 19:08:35 / janfrog" |
|
246 |
"Created: / 16-08-2009 / 18:43:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
247 |
"Modified: / 19-08-2009 / 13:07:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
694 | 248 |
"Modified: / 06-04-2010 / 11:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
44 | 249 |
! |
250 |
||
251 |
repositoryUrlForPackage:package |
|
694 | 252 |
| repo | |
44 | 253 |
|
254 |
repo := repositories at:package ifAbsent:[ nil ]. |
|
255 |
repo ifNotNil:[ ^ repo url ]. |
|
694 | 256 |
|
257 |
SVN::Configuration isLoaded ifFalse:[^nil]."JV: hack for loading issue" |
|
258 |
repo := SVN::Configuration current repositoryFor: package. |
|
259 |
repo ifNil:[^nil]. |
|
260 |
repo exists ifFalse:[^nil]. |
|
261 |
repo manager: self. |
|
262 |
^ repo url |
|
44 | 263 |
|
264 |
"Modified: / 01-04-2008 / 19:08:35 / janfrog" |
|
265 |
"Created: / 25-05-2009 / 19:48:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
266 |
"Modified: / 16-08-2009 / 16:56:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
694 | 267 |
"Modified: / 25-06-2010 / 17:19:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
44 | 268 |
! |
269 |
||
270 |
urlBase:aString |
|
271 |
|repoConf| |
|
272 |
||
273 |
repoConf := self configurations |
|
274 |
detect:[:conf | conf packagePattern = '*' ] |
|
275 |
ifNone:[ |
|
276 |
self configurations add:(RepositoryConfiguration new packagePattern:'*') |
|
277 |
]. |
|
278 |
repoConf urlPattern:aString , '/%p' |
|
279 |
||
280 |
" |
|
281 |
SVN::RepositoryManager current urlBase: |
|
282 |
'http://smalltalk.felk.cvut.cz/svn'" |
|
283 |
||
284 |
"Created: / 16-03-2008 / 12:09:21 / janfrog" |
|
285 |
"Modified: / 03-10-2008 / 13:10:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
286 |
! |
|
287 |
||
288 |
workingCopyBase |
|
289 |
||
290 |
workingCopyBase ifNil: |
|
694 | 291 |
[WorkingCopyBase ~= nil ifTrue:[ |
292 |
workingCopyBase := WorkingCopyBase |
|
293 |
] ifFalse: [ |
|
294 |
workingCopyBase := (Filename homeDirectory / '.smalltalk' / 'working-copy' |
|
295 |
/ UUID genUUID printString) asString. |
|
296 |
]]. |
|
297 |
(Smalltalk packagePath last = workingCopyBase) |
|
44 | 298 |
ifFalse: |
299 |
[Smalltalk packagePath remove: workingCopyBase ifAbsent:[]. |
|
694 | 300 |
Smalltalk packagePath addLast: workingCopyBase]. |
44 | 301 |
|
302 |
^ workingCopyBase |
|
303 |
||
304 |
"Created: / 16-03-2008 / 12:09:21 / janfrog" |
|
305 |
"Modified: / 10-04-2008 / 13:25:05 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
694 | 306 |
"Modified: / 07-07-2011 / 20:24:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
44 | 307 |
! |
308 |
||
309 |
workingCopyBase:aString |
|
310 |
workingCopyBase := aString. |
|
311 |
self changed:#workingCopyBase |
|
312 |
||
313 |
"Created: / 16-03-2008 / 12:09:21 / janfrog" |
|
314 |
"Modified: / 26-05-2008 / 10:34:27 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
315 |
! ! |
|
316 |
||
317 |
!RepositoryManager methodsFor:'accessing - private'! |
|
318 |
||
319 |
workingCopyForPackage: package |
|
320 |
||
694 | 321 |
^self |
322 |
workingCopyForPackage: package |
|
323 |
in: (self workingCopyBase , '/' , (package asString copy replaceAll:$: with:$/)) |
|
44 | 324 |
|
325 |
"Created: / 16-03-2008 / 12:09:02 / janfrog" |
|
326 |
"Modified: / 31-03-2008 / 12:58:44 / janfrog" |
|
327 |
"Modified: / 11-04-2008 / 10:48:36 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
694 | 328 |
"Modified: / 10-04-2010 / 12:38:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
329 |
! |
|
330 |
||
331 |
workingCopyForPackage: package in: directory |
|
332 |
||
333 |
^WorkingCopy new path: directory |
|
334 |
||
335 |
"Modified: / 31-03-2008 / 12:58:44 / janfrog" |
|
336 |
"Modified: / 11-04-2008 / 10:48:36 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
337 |
"Created: / 10-04-2010 / 12:37:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
44 | 338 |
! ! |
339 |
||
340 |
!RepositoryManager methodsFor:'initialization'! |
|
341 |
||
342 |
initialize |
|
343 |
"Invoked when a new instance is created." |
|
344 |
||
345 |
"/ please change as required (and remove this comment) |
|
346 |
"/ baseUrl := nil. |
|
694 | 347 |
repositories := Cache new. |
44 | 348 |
Smalltalk addDependent: self. |
349 |
Smalltalk addExitBlock:(MessageSend receiver: self selector: #aboutToQuit). |
|
350 |
||
351 |
"/ super initialize. -- commented since inherited method does nothing |
|
352 |
||
353 |
"Created: / 16-03-2008 / 11:53:21 / janfrog" |
|
354 |
"Modified: / 31-03-2008 / 10:54:28 / janfrog" |
|
355 |
"Modified: / 16-06-2009 / 12:39:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
694 | 356 |
"Modified: / 22-12-2009 / 20:20:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
44 | 357 |
! |
358 |
||
359 |
reset |
|
360 |
||
694 | 361 |
repositories := Cache new. |
44 | 362 |
|
363 |
"Created: / 10-04-2008 / 12:41:00 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
694 | 364 |
"Modified: / 22-12-2009 / 20:23:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
44 | 365 |
! |
366 |
||
367 |
resetConfigurations |
|
368 |
||
369 |
configurations := nil |
|
370 |
||
371 |
"Created: / 25-05-2009 / 18:59:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
372 |
! |
|
373 |
||
374 |
resetForPackage: packageId |
|
375 |
||
376 |
repositories removeKey: packageId ifAbsent:[] |
|
377 |
||
378 |
"Created: / 08-04-2009 / 22:37:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
379 |
! ! |
|
380 |
||
694 | 381 |
!RepositoryManager methodsFor:'private'! |
382 |
||
383 |
basicRepositoryForPackage:package |
|
384 |
| repo | |
|
385 |
||
386 |
"There is no repository for no project, by definition" |
|
387 |
package = PackageId noProjectID ifTrue:[ ^nil ]. |
|
388 |
"/Old Config Scheme |
|
389 |
" |
|
390 |
repo ifNotNil:[ ^ repo ]. |
|
391 |
cfg := self configurationForPackage: package. |
|
392 |
cfg ifNotNil: |
|
393 |
[repo := (Repository new) |
|
394 |
manager: self; |
|
395 |
url:(cfg urlForPackage:package); |
|
396 |
package:package]. |
|
397 |
repo ifNil:[ ^ nil ]. |
|
398 |
" |
|
399 |
"/New Config Scheme |
|
400 |
SVN::Configuration isLoaded ifFalse:[^nil]."JV: hack for loading issue" |
|
793 | 401 |
SVN::Configuration current isNil ifTrue:[^ nil]. |
694 | 402 |
repo := SVN::Configuration current repositoryFor: package. |
1120
9b18f8241b3d
changed: #basicRepositoryForPackage: (do no check whether repository exists - takes too long, called too often by browser)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
938
diff
changeset
|
403 |
repo isNil ifTrue:[^nil]. |
9b18f8241b3d
changed: #basicRepositoryForPackage: (do no check whether repository exists - takes too long, called too often by browser)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
938
diff
changeset
|
404 |
"/ repo exists ifFalse:[^nil]. |
694 | 405 |
repo manager: self. |
406 |
^ repo |
|
407 |
||
408 |
"Modified: / 01-04-2008 / 19:08:35 / janfrog" |
|
409 |
"Created: / 16-08-2009 / 18:43:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
410 |
"Modified: / 19-08-2009 / 13:07:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
793 | 411 |
"Modified: / 23-08-2011 / 18:38:53 / cg" |
1120
9b18f8241b3d
changed: #basicRepositoryForPackage: (do no check whether repository exists - takes too long, called too often by browser)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
938
diff
changeset
|
412 |
"Modified: / 17-08-2012 / 11:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
694 | 413 |
! ! |
414 |
||
44 | 415 |
!RepositoryManager methodsFor:'queries'! |
416 |
||
417 |
hasRepositoryForPackage: package |
|
418 |
||
419 |
^(self repositoryForPackage: package) notNil |
|
420 |
||
421 |
"Created: / 31-03-2008 / 15:11:23 / janfrog" |
|
422 |
! ! |
|
423 |
||
424 |
!RepositoryManager methodsFor:'updating'! |
|
425 |
||
426 |
aboutToQuit |
|
427 |
||
428 |
" |
|
429 |
This is send by Smalltalk before the virtual machine |
|
430 |
terminates. If there is no image, removes working copy. |
|
431 |
" |
|
432 |
||
125 | 433 |
workingCopyBase isNil ifTrue: [^self]. |
44 | 434 |
workingCopyBase asFilename exists ifFalse:[^self]. |
435 |
||
436 |
ObjectMemory imageName |
|
437 |
ifNil: |
|
438 |
["Windows hack..." |
|
439 |
[workingCopyBase asFilename recursiveRemove] |
|
123 | 440 |
on:Smalltalk::Error do: |
44 | 441 |
[Delay waitForMilliseconds: 20. |
442 |
[workingCopyBase asFilename recursiveRemove] |
|
123 | 443 |
on:Smalltalk::Error do: |
44 | 444 |
[Delay waitForMilliseconds: 40. |
445 |
[workingCopyBase asFilename recursiveRemove] |
|
123 | 446 |
on:Smalltalk::Error do:["nothing"]]]] |
44 | 447 |
ifNotNil: |
448 |
[| imagesStream | |
|
449 |
[imagesStream := (workingCopyBase asFilename / 'images.txt') appendStream. |
|
450 |
imagesStream nextPutLine: ObjectMemory imageName printString] |
|
451 |
ensure:[imagesStream ifNotNil:[imagesStream close]]] |
|
452 |
||
453 |
"Created: / 16-06-2009 / 13:36:21 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
454 |
"Modified: / 16-07-2009 / 13:54:04 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
123 | 455 |
"Modified: / 22-09-2009 / 15:55:57 / Felix Madrid <fm@exept.de>" |
44 | 456 |
! |
457 |
||
458 |
class: class renamedFrom: oldName to: newName |
|
459 |
||
460 |
"Created: / 31-03-2008 / 11:06:11 / janfrog" |
|
461 |
! |
|
462 |
||
463 |
update: aspect with: param from: sender |
|
464 |
||
465 |
(aspect = #classRename) |
|
466 |
ifTrue:[self class: param first renamedFrom: param second to: param first fullName] |
|
467 |
||
468 |
"Created: / 31-03-2008 / 10:54:55 / janfrog" |
|
469 |
! ! |
|
470 |
||
471 |
!RepositoryManager class methodsFor:'documentation'! |
|
472 |
||
856
543368db7673
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
793
diff
changeset
|
473 |
version |
543368db7673
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
793
diff
changeset
|
474 |
^ '$Header$' |
543368db7673
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
793
diff
changeset
|
475 |
! |
543368db7673
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
793
diff
changeset
|
476 |
|
146 | 477 |
version_SVN |
938 | 478 |
^ '§Id: SVN__RepositoryManager.st 384 2011-10-12 11:01:11Z vranyj1 §' |
44 | 479 |
! ! |