author | Merge Script |
Fri, 08 Apr 2016 07:05:48 +0200 | |
branch | jv |
changeset 1167 | 18d0e8994a34 |
parent 1164 | 08f37a1c41f7 |
parent 1165 | d4d3563f8b06 |
child 1185 | a92f18c040fb |
permissions | -rw-r--r-- |
678 | 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 |
" |
|
384 | 26 |
"{ Package: 'stx:libsvn' }" |
57 | 27 |
|
28 |
"{ NameSpace: SVN }" |
|
29 |
||
30 |
Object subclass:#WorkingCopy |
|
31 |
instanceVariableNames:'path repository branch packageClassesChanged |
|
32 |
packageExtensionsChanged' |
|
33 |
classVariableNames:'' |
|
34 |
poolDictionaries:'' |
|
35 |
category:'SVN-Core' |
|
36 |
! |
|
37 |
||
678 | 38 |
!WorkingCopy class methodsFor:'documentation'! |
39 |
||
40 |
copyright |
|
41 |
" |
|
42 |
Copyright (c) 2007-2010 Jan Vrany |
|
43 |
Copyright (c) 2009-2010 eXept Software AG |
|
44 |
||
45 |
Permission is hereby granted, free of charge, to any person |
|
46 |
obtaining a copy of this software and associated documentation |
|
47 |
files (the 'Software'), to deal in the Software without |
|
48 |
restriction, including without limitation the rights to use, |
|
49 |
copy, modify, merge, publish, distribute, sublicense, and/or sell |
|
50 |
copies of the Software, and to permit persons to whom the |
|
51 |
Software is furnished to do so, subject to the following |
|
52 |
conditions: |
|
53 |
||
54 |
The above copyright notice and this permission notice shall be |
|
55 |
included in all copies or substantial portions of the Software. |
|
56 |
||
57 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, |
|
58 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES |
|
59 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
|
60 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
|
61 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
|
62 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
|
63 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
|
64 |
OTHER DEALINGS IN THE SOFTWARE. |
|
65 |
||
66 |
" |
|
67 |
! ! |
|
57 | 68 |
|
69 |
!WorkingCopy class methodsFor:'instance creation'! |
|
70 |
||
71 |
branch: aBranch path: aStringOrFilename |
|
72 |
||
73 |
^self new |
|
74 |
branch: aBranch; |
|
75 |
path: aStringOrFilename; |
|
76 |
yourself |
|
77 |
||
78 |
"Created: / 19-08-2009 / 11:25:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
998 | 79 |
! |
80 |
||
81 |
path: aStringOrFilename |
|
82 |
||
83 |
^self new |
|
84 |
path: aStringOrFilename; |
|
85 |
yourself |
|
86 |
||
87 |
"Created: / 19-08-2009 / 11:25:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
88 |
"Created: / 07-02-2012 / 22:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 | 89 |
! ! |
90 |
||
91 |
!WorkingCopy methodsFor:'accessing'! |
|
92 |
||
93 |
branch |
|
94 |
branch ifNil:[ |
|
678 | 95 |
branch := self isValid |
96 |
ifTrue:[self branchFromWorkingCopy] |
|
97 |
ifFalse:[self branchFromQuery]. |
|
57 | 98 |
branch ifNil:[branch := self defaultBranch]]. |
678 | 99 |
^ branch value |
57 | 100 |
|
101 |
"Created: / 31-03-2008 / 12:50:17 / janfrog" |
|
102 |
"Modified: / 14-04-2008 / 12:44:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 103 |
"Modified: / 09-01-2010 / 12:10:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 104 |
! |
105 |
||
106 |
branch: branchOrString |
|
107 |
||
108 |
branch := branchOrString isString |
|
109 |
ifFalse: |
|
110 |
[repository := branchOrString repository. |
|
111 |
branchOrString] |
|
112 |
ifTrue: |
|
678 | 113 |
["Do it in separate thread to speedup things" |
114 |
Promise value: |
|
115 |
[branch := |
|
116 |
repository branches |
|
117 |
detect:[:branch|branch path = branchOrString] |
|
118 |
ifNone:[self error:'No such branch: ', branchOrString]]]. |
|
57 | 119 |
|
120 |
"Created: / 31-03-2008 / 13:29:13 / janfrog" |
|
121 |
"Modified: / 19-08-2009 / 11:22:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 122 |
"Modified: / 09-01-2010 / 12:12:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
123 |
! |
|
124 |
||
125 |
branchOrNil |
|
126 |
||
127 |
| branches | |
|
128 |
||
129 |
branch ifNil: |
|
130 |
[branches := repository branches. |
|
131 |
branches size = 1 ifTrue:[^branch := branches anyOne]. |
|
132 |
repository preferredBranch |
|
133 |
ifNotNil: |
|
134 |
[branch := branches |
|
135 |
detect:[:branch|branch asString = repository preferredBranch] |
|
136 |
ifNone:[nil]]]. |
|
137 |
^branch |
|
138 |
||
139 |
"Created: / 31-03-2008 / 12:50:17 / janfrog" |
|
140 |
"Modified: / 14-04-2008 / 12:44:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
141 |
"Modified: / 29-03-2010 / 13:58:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 | 142 |
! |
143 |
||
144 |
commitMode |
|
145 |
||
146 |
"UI Helper" |
|
147 |
||
148 |
^self packageClassesChanged ifTrue:[#full] ifFalse:[#fast] |
|
149 |
||
150 |
"Created: / 13-08-2009 / 15:12:41 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
151 |
! |
|
152 |
||
153 |
commitMode: mode |
|
154 |
||
155 |
mode == #full ifTrue:[packageClassesChanged := true]. |
|
156 |
||
157 |
"Created: / 13-08-2009 / 15:13:08 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
158 |
! |
|
159 |
||
160 |
defaultBranch |
|
161 |
||
162 |
^repository branches |
|
163 |
detect:[:branch | branch isTrunk ] |
|
164 |
ifNone:[self error: 'No branch!!']. |
|
165 |
||
166 |
"Created: / 11-04-2008 / 13:15:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
167 |
"Modified: / 14-04-2008 / 11:53:04 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
168 |
! |
|
169 |
||
170 |
manager |
|
171 |
||
172 |
^repository manager |
|
173 |
||
174 |
"Created: / 11-06-2009 / 13:33:17 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
175 |
! |
|
176 |
||
177 |
package |
|
178 |
||
1006
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
179 |
^self branch package |
57 | 180 |
|
181 |
"Created: / 31-03-2008 / 13:04:52 / janfrog" |
|
1006
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
182 |
"Modified: / 08-02-2012 / 18:25:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 183 |
! |
184 |
||
185 |
packageClasses |
|
186 |
||
187 |
^self packageClassesWithPrivate reject:[:cls|cls owningClass notNil] |
|
188 |
||
189 |
"Created: / 31-03-2008 / 13:06:13 / janfrog" |
|
190 |
"Modified: / 23-03-2009 / 12:16:51 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
191 |
! |
|
192 |
||
193 |
packageClassesChanged |
|
194 |
packageClassesChanged := |
|
678 | 195 |
(packageClassesChanged == true) |
57 | 196 |
or:[self computePackageClassesChanged]. |
197 |
||
198 |
^ packageClassesChanged |
|
199 |
||
200 |
"Modified: / 13-08-2009 / 10:21:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 201 |
"Modified: / 21-04-2010 / 23:29:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 202 |
! |
203 |
||
204 |
packageClassesFiltered: classFilter |
|
205 |
||
206 |
^self packageClasses select: [:class|classFilter value: class]. |
|
207 |
||
208 |
"Created: / 23-03-2009 / 12:04:18 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
209 |
! |
|
210 |
||
211 |
packageClassesWithPrivate |
|
212 |
||
213 |
^ProjectDefinition searchForClassesWithProject: self package |
|
214 |
||
215 |
"Created: / 23-03-2009 / 12:06:58 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
216 |
! |
|
217 |
||
218 |
packageClassesWithPrivateFiltered: classFilter |
|
219 |
||
220 |
^self packageClassesWithPrivate select: [:class|classFilter value: class]. |
|
221 |
||
222 |
"Created: / 23-03-2009 / 12:07:58 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
223 |
! |
|
224 |
||
225 |
packageDefinition |
|
1101
ffc2b5e1104f
comment/format in: #computePackageExtensionsChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1065
diff
changeset
|
226 |
^LibraryDefinition definitionClassForPackage:self package createIfAbsent:true |
57 | 227 |
|
228 |
"Created: / 15-06-2009 / 12:41:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1101
ffc2b5e1104f
comment/format in: #computePackageExtensionsChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1065
diff
changeset
|
229 |
"Modified: / 04-05-2012 / 17:15:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 230 |
! |
231 |
||
232 |
packageExtensions |
|
233 |
||
234 |
^ProjectDefinition searchForExtensionsWithProject: self package |
|
235 |
||
236 |
"Created: / 31-03-2008 / 13:06:13 / janfrog" |
|
237 |
"Modified: / 11-04-2008 / 08:25:00 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
238 |
! |
|
239 |
||
240 |
packageExtensionsChanged |
|
241 |
packageExtensionsChanged := |
|
678 | 242 |
(packageExtensionsChanged == true) |
57 | 243 |
or:[self computePackageExtensionsChanged]. |
244 |
||
245 |
^ packageExtensionsChanged |
|
246 |
||
247 |
"Modified: / 13-08-2009 / 10:22:23 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 248 |
"Modified: / 21-04-2010 / 23:30:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 249 |
! |
250 |
||
251 |
packageExtensionsFiltered:aBlock |
|
252 |
||
253 |
^self packageExtensions select:aBlock |
|
254 |
||
255 |
"Created: / 11-06-2009 / 13:37:27 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
256 |
! |
|
257 |
||
258 |
path |
|
259 |
||
260 |
^ path |
|
261 |
||
262 |
"Created: / 31-03-2008 / 12:42:42 / janfrog" |
|
263 |
"Modified: / 21-08-2009 / 17:47:30 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
264 |
! |
|
265 |
||
266 |
path:aStringOrFilename |
|
267 |
path := aStringOrFilename asFilename. |
|
268 |
||
269 |
"Created: / 31-03-2008 / 12:42:42 / janfrog" |
|
270 |
! |
|
271 |
||
272 |
pathBase |
|
273 |
||
274 |
^self manager workingCopyBase. |
|
275 |
||
276 |
"Created: / 11-06-2009 / 13:32:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
277 |
! |
|
278 |
||
279 |
repository |
|
280 |
^ repository |
|
281 |
||
282 |
"Created: / 31-03-2008 / 12:42:22 / janfrog" |
|
283 |
! |
|
284 |
||
285 |
repository:aRepository |
|
286 |
repository := aRepository. |
|
287 |
||
288 |
"Created: / 31-03-2008 / 12:42:22 / janfrog" |
|
289 |
! |
|
290 |
||
291 |
url |
|
292 |
||
293 |
^branch url |
|
294 |
||
295 |
"Created: / 31-03-2008 / 13:05:01 / janfrog" |
|
296 |
! ! |
|
297 |
||
298 |
!WorkingCopy methodsFor:'accessing - change sets'! |
|
299 |
||
300 |
changeSet |
|
301 |
||
302 |
^self changeSetIgnoreAutoloaded: false |
|
303 |
||
304 |
"Created: / 23-03-2009 / 18:57:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
305 |
"Modified: / 12-08-2009 / 14:26:55 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
306 |
! |
|
307 |
||
308 |
changeSetForContainer: containerName |
|
309 |
||
678 | 310 |
^(ChangeSet fromStream: |
311 |
(self containerReadStreamFor: containerName)) |
|
312 |
name: containerName; |
|
313 |
yourself |
|
57 | 314 |
|
315 |
"Created: / 09-10-2008 / 20:21:56 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 316 |
"Modified: / 07-07-2011 / 21:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 317 |
! |
318 |
||
1027
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
319 |
changeSetForContainer: containerName revision: rev |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
320 |
| containerContents | |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
321 |
|
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
322 |
containerContents := self cat: containerName revision: rev. |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
323 |
^(ChangeSet fromStream: containerContents readStream) |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
324 |
name: containerName , ' (' , rev printString , ')'; |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
325 |
yourself |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
326 |
|
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
327 |
"Created: / 10-02-2012 / 09:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
328 |
! |
1f9bcfa5013b
- added compare against HEAD & compare against BASE
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1006
diff
changeset
|
329 |
|
57 | 330 |
changeSetForUpdate |
331 |
|diffSet classesToRemove| |
|
332 |
||
333 |
diffSet := self diffSetBetweenImageAndWorkingCopy. |
|
334 |
classesToRemove := Set new. |
|
678 | 335 |
ActivityNotification notify:'Computing update change set'. |
336 |
"self = image, arg = revision" |
|
337 |
^ (diffSet onlyInArg) |
|
338 |
, (diffSet changed collect:[:changePair | changePair second ]) |
|
57 | 339 |
, (diffSet onlyInReceiver |
678 | 340 |
select:[:change | change isClassDefinitionChange ] |
341 |
thenCollect:[:change | |
|
342 |
classesToRemove add:change className. |
|
343 |
ClassRemoveChange className:change className |
|
344 |
]) |
|
345 |
, (diffSet onlyInReceiver |
|
346 |
select:[:change | |
|
347 |
change isMethodDefinitionChange |
|
348 |
and:[ (classesToRemove includes:change className) not ] |
|
349 |
] |
|
350 |
thenCollect:[:change | |
|
351 |
MethodRemoveChange className:change className selector:change selector |
|
352 |
]) |
|
353 |
"Created: / 24-03-2009 / 08:17:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
57 | 354 |
! |
355 |
||
356 |
changeSetIgnoreAutoloaded: ignoreAutoloaded |
|
357 |
||
358 |
| containersToIgnore changeSet | |
|
359 |
||
360 |
containersToIgnore := |
|
361 |
(self packageClassesFiltered:[:cls|cls isLoaded not]) |
|
362 |
collect:[:cls|repository containerNameForClass: cls]. |
|
363 |
||
364 |
changeSet := ChangeSet new. |
|
365 |
self containers do: |
|
366 |
[:container | |
|
367 |
(containersToIgnore includes: container) |
|
368 |
ifFalse: |
|
369 |
[changeSet addAll: |
|
370 |
(self changeSetForContainer: container)]]. |
|
371 |
^changeSet |
|
372 |
||
373 |
"Created: / 12-08-2009 / 14:26:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
374 |
! ! |
|
375 |
||
376 |
!WorkingCopy methodsFor:'accessing - containers'! |
|
377 |
||
378 |
containerFilenameFor: containerName |
|
379 |
||
380 |
^self path construct: containerName |
|
381 |
||
382 |
"Created: / 09-10-2008 / 20:25:02 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
383 |
! |
|
384 |
||
385 |
containerReadStreamFor: containerName |
|
386 |
||
387 |
| containerFile containerStream | |
|
388 |
containerFile := self containerFilenameFor: containerName. |
|
389 |
OperatingSystem isMSWINDOWSlike |
|
390 |
ifTrue: |
|
391 |
[" |
|
392 |
Dirty hack for MS Windows: |
|
393 |
Windows do not allow me to open some files for the first |
|
394 |
time (OpenError is raised). Second try after some time is usually OK. |
|
395 |
I don't know why this happens. Claus, do you have any idea? |
|
396 |
" |
|
397 |
[ containerStream := containerFile readStream ] |
|
398 |
on: OpenError do: |
|
399 |
[Delay waitForMilliseconds: 100. "A magic constant here :-(" |
|
400 |
containerStream := containerFile readStream]] |
|
401 |
ifFalse: |
|
402 |
[" |
|
403 |
Unix behaves pretty fine :-) |
|
404 |
" |
|
405 |
containerStream := containerFile readStream]. |
|
406 |
||
407 |
^containerStream |
|
408 |
||
409 |
"Created: / 09-10-2008 / 20:26:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
410 |
! |
|
411 |
||
412 |
containerSuffixes |
|
413 |
||
678 | 414 |
^ProgrammingLanguage all collect:[:each|each sourceFileSuffix] |
57 | 415 |
|
416 |
"Created: / 23-03-2009 / 18:53:56 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 417 |
"Modified: / 30-12-2009 / 18:15:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 418 |
! |
419 |
||
420 |
containerWriteStreamFor: containerName |
|
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
421 |
| filename directory | |
57 | 422 |
|
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
423 |
filename := self containerFilenameFor: containerName. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
424 |
(directory := filename directory) exists ifFalse:[ |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
425 |
directory recursiveMakeDirectory |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
426 |
]. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
427 |
^filename writeStream |
57 | 428 |
eolMode: #nl; |
429 |
yourself |
|
430 |
||
431 |
"Created: / 09-10-2008 / 20:24:44 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
432 |
"Modified: / 04-09-2012 / 23:44:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 433 |
! |
434 |
||
678 | 435 |
containerWriteStreamForExtensions: aProgrammingLanguage |
436 |
||
57 | 437 |
|
678 | 438 |
^self containerWriteStreamFor: |
439 |
(Repository containerNameForExtensions: aProgrammingLanguage) |
|
57 | 440 |
|
678 | 441 |
"Created: / 30-12-2009 / 18:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
442 |
"Modified: / 30-12-2009 / 22:00:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 | 443 |
! |
444 |
||
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
445 |
containerWriteStreamForExtensions: aProgrammingLanguage javaClass: aJavaClass |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
446 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
447 |
^self containerWriteStreamFor: |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
448 |
('java' , Filename separator , 'extensions' , Filename separator , |
1133 | 449 |
((aJavaClass theNonMetaclass name copyReplaceAll: $/ with: (Filename separator)) , '.' ,aProgrammingLanguage sourceFileSuffix)) |
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
450 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
451 |
"Created: / 04-09-2012 / 23:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1133 | 452 |
"Modified: / 07-11-2012 / 23:40:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
453 |
! |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
454 |
|
57 | 455 |
containers |
456 |
||
457 |
^(self path directoryContents |
|
458 |
select: |
|
459 |
[:container|self containerSuffixes anySatisfy: |
|
460 |
[:suffix|container endsWith:suffix]]) asSet |
|
461 |
||
462 |
"Created: / 23-03-2009 / 18:52:27 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
463 |
"Modified: / 12-06-2009 / 21:44:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
464 |
! |
|
465 |
||
466 |
containersToKeep |
|
467 |
||
678 | 468 |
| containers extensions | |
57 | 469 |
|
470 |
containers := self packageClasses |
|
471 |
collect:[:cls|self repository containerNameForClass: cls]. |
|
678 | 472 |
(extensions := self packageExtensions) notEmpty ifTrue: |
473 |
[| languages | |
|
474 |
languages := (extensions collect:[:each|each programmingLanguage]) asSet. |
|
475 |
languages do: |
|
476 |
[:lang|containers add: (Repository containerNameForExtensions: lang)]]. |
|
477 |
"Keep all directories" |
|
478 |
path directoryContents do: |
|
479 |
[:f| |
|
480 |
(f ~= '.svn' and: [(path / f) isDirectory]) ifTrue: |
|
481 |
[containers add: f]]. |
|
905
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
482 |
"Keep all .st files that are for with other operating systems" |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
483 |
|
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
484 |
self packageDefinition classNamesAndAttributesDo: [:nm :attributes| |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
485 |
attributes do:[:attr| |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
486 |
(#(win32 unix vms autoload) includes: attr) ifTrue:[ |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
487 |
containers add: ((SVN::Repository containerNameWithoutSuffixForClassNamed: nm) , '.st') |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
488 |
] |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
489 |
] |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
490 |
]. |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
491 |
|
678 | 492 |
|
57 | 493 |
^containers asSet. |
494 |
||
495 |
"Created: / 12-06-2009 / 21:27:12 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
905
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
496 |
"Modified: / 28-09-2011 / 17:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 497 |
! |
498 |
||
499 |
containersWriteStreamForClass:cls |
|
500 |
||
501 |
^self containerWriteStreamFor: (repository containerNameForClass:cls) |
|
502 |
||
503 |
"Created: / 09-10-2008 / 20:23:59 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
504 |
! ! |
|
505 |
||
506 |
!WorkingCopy methodsFor:'accessing - diff sets'! |
|
507 |
||
508 |
diffSetBetweenImageAndWorkingCopy |
|
509 |
||
510 |
| imageChangeSet revisionChangeSet | |
|
511 |
imageChangeSet := ChangeSet forPackage: self package ignoreAutoloaded: true. |
|
512 |
revisionChangeSet := self changeSetIgnoreAutoloaded: true. |
|
513 |
^imageChangeSet diffSetsAgainst: revisionChangeSet |
|
514 |
||
515 |
"Created: / 24-03-2009 / 08:17:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
516 |
"Modified: / 12-08-2009 / 14:32:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
517 |
! ! |
|
518 |
||
519 |
!WorkingCopy methodsFor:'accessing - tasks'! |
|
520 |
||
521 |
commitTask |
|
522 |
||
523 |
^CommitTask new workingCopy: self |
|
524 |
||
525 |
"Created: / 23-03-2009 / 11:47:27 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
526 |
! |
|
527 |
||
678 | 528 |
mergeTask |
529 |
||
530 |
^MergeTask new workingCopy: self |
|
531 |
||
532 |
"Created: / 25-11-2009 / 17:16:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
533 |
! |
|
534 |
||
57 | 535 |
updateTask |
536 |
||
537 |
^UpdateTask new workingCopy: self |
|
538 |
||
539 |
"Created: / 24-03-2009 / 15:13:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
540 |
! ! |
|
541 |
||
542 |
!WorkingCopy methodsFor:'commands'! |
|
543 |
||
544 |
cat: file |
|
545 |
||
678 | 546 |
^self cat: file revision: SVN::Revision head |
57 | 547 |
|
548 |
"Created: / 19-04-2008 / 10:52:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
549 |
"Modified: / 09-10-2008 / 20:16:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
550 |
! |
|
551 |
||
552 |
cat: file revision: revision |
|
553 |
||
678 | 554 |
^CatCommand new |
555 |
workingCopy: self; |
|
556 |
path: file; |
|
557 |
revision: revision; |
|
558 |
execute. |
|
57 | 559 |
|
678 | 560 |
"Created: / 19-04-2008 / 10:51:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
561 |
"Modified: / 19-08-2009 / 10:00:59 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
562 |
"Modified: / 02-01-2010 / 13:20:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 | 563 |
! |
564 |
||
565 |
checkout |
|
566 |
|pkgDef| |
|
567 |
||
568 |
pkgDef := self packageDefinition. |
|
569 |
self |
|
678 | 570 |
checkout:(pkgDef ifNotNil:[ pkgDef svnRevision ] ifNil:[ SVN::Revision head ]) |
57 | 571 |
! |
572 |
||
678 | 573 |
checkout:revision |
57 | 574 |
|
678 | 575 |
"Checkout a working copy. If full is true, then |
576 |
full checkout is performed, i.e., whole subtree |
|
577 |
is checked out. If not, only project files and |
|
578 |
common subdirectories are check out" |
|
579 |
||
580 |
||
581 |
^self checkout: revision full: false |
|
57 | 582 |
|
583 |
"Created: / 31-03-2008 / 12:57:58 / janfrog" |
|
584 |
"Modified: / 21-08-2009 / 17:45:43 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 585 |
"Modified: / 25-04-2011 / 15:19:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
586 |
! |
|
587 |
||
588 |
checkout:revision full: full |
|
589 |
||
590 |
"Checkout a working copy. If full is true, then |
|
591 |
full checkout is performed, i.e., whole subtree |
|
592 |
is checked out. If not, only project files and |
|
593 |
common subdirectories are check out" |
|
594 |
||
595 |
|checkoutInfo pkg | |
|
596 |
||
597 |
pkg := self package. |
|
598 |
self |
|
599 |
synchronized:[ |
|
600 |
self ensurePathExists. |
|
601 |
ActivityNotification notify:'Checking out ' , pkg. |
|
602 |
full ifTrue:[ |
|
603 |
checkoutInfo := (CheckoutCommand new) |
|
604 |
revision:revision; |
|
605 |
depth: 'infinity'; |
|
606 |
workingCopy:self; |
|
607 |
execute |
|
608 |
] ifFalse:[ |
|
609 |
"JV@2011-06-13: TODO: rewrite it so it does not set |
|
610 |
inifinite depth on subpackages. This requires to |
|
611 |
split this method..." |
|
612 |
||
613 |
| subdirs | |
|
614 |
checkoutInfo := (CheckoutCommand new) |
|
615 |
revision:revision; |
|
616 |
depth: 'immediates'; |
|
617 |
workingCopy:self; |
|
618 |
execute. |
|
619 |
"Checkout common subdirs" |
|
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
620 |
subdirs := #('resources' 'bitmaps' 'autopackage' 'builder' 'java') |
678 | 621 |
select:[:e| (path / e) isDirectory]. |
622 |
checkoutInfo addAll: |
|
623 |
(UpdateCommand new |
|
624 |
workingCopy: self; |
|
625 |
setDepth: 'infinity'; |
|
626 |
paths: subdirs; |
|
627 |
execute |
|
628 |
). |
|
629 |
"Checkout nested packages" |
|
630 |
subdirs := OrderedCollection new. |
|
1165 | 631 |
Smalltalk allPackageIDs do: |
678 | 632 |
[:each | |
633 |
(each size > pkg size and:[(each at: pkg size + 1) == $/ and:[each startsWith: pkg]]) ifTrue: |
|
634 |
[subdirs add: ((each copyFrom: self package size + 2) replaceAll:$/ with: Filename separator)]]. |
|
635 |
subdirs notEmpty ifTrue:[ |
|
636 |
subdirs := subdirs asSortedCollection:[:a :b| a size < b size]. |
|
637 |
checkoutInfo addAll: |
|
638 |
(UpdateCommand new |
|
639 |
workingCopy: self; |
|
970 | 640 |
setDepth: 'empty'; |
678 | 641 |
paths: subdirs; |
642 |
execute |
|
643 |
). |
|
644 |
] |
|
645 |
] |
|
646 |
]. |
|
647 |
^ checkoutInfo |
|
648 |
||
649 |
"Modified: / 21-08-2009 / 17:45:43 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
650 |
"Created: / 25-04-2011 / 15:19:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
651 |
"Modified: / 04-09-2012 / 23:25:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 652 |
! |
653 |
||
654 |
cleanup |
|
655 |
||
656 |
self ensurePathExists. |
|
657 |
self isValid ifFalse:[^self]. |
|
658 |
^CleanupCommand new |
|
659 |
workingCopy: self path; |
|
660 |
execute. |
|
661 |
||
662 |
"Created: / 08-11-2008 / 08:12:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
663 |
! |
|
664 |
||
665 |
commit:message |
|
666 |
||
667 |
^self commitTask |
|
668 |
message: message; |
|
669 |
do |
|
670 |
||
671 |
"Created: / 31-03-2008 / 13:11:15 / janfrog" |
|
672 |
"Modified: / 07-04-2008 / 08:52:13 / janfrog" |
|
673 |
"Modified: / 23-03-2009 / 11:48:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
674 |
! |
|
675 |
||
1065 | 676 |
commit:message files: files |
677 |
||
678 |
^self commitTask |
|
679 |
message: message; |
|
680 |
paths: files; |
|
681 |
do |
|
682 |
||
683 |
"Created: / 31-03-2008 / 13:11:15 / janfrog" |
|
684 |
"Modified: / 07-04-2008 / 08:52:13 / janfrog" |
|
685 |
"Modified: / 23-03-2009 / 11:48:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
686 |
"Created: / 14-03-2012 / 17:15:25 / jv" |
|
687 |
! |
|
688 |
||
678 | 689 |
info: paths |
690 |
||
691 |
^SVN::InfoCommand new |
|
692 |
workingCopy: self; |
|
693 |
paths: paths; |
|
694 |
execute |
|
695 |
! |
|
696 |
||
57 | 697 |
log |
698 |
||
699 |
^self branch log |
|
700 |
||
701 |
"Created: / 19-04-2008 / 10:52:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
702 |
! |
|
703 |
||
704 |
log: aString |
|
705 |
||
706 |
^self branch log: aString |
|
707 |
||
708 |
"Created: / 19-04-2008 / 10:53:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
709 |
! |
|
710 |
||
711 |
revert |
|
712 |
||
713 |
self ensurePathExists. |
|
714 |
self isValid ifFalse:[^self checkout]. |
|
715 |
^RevertCommand new |
|
716 |
workingCopy: self path; |
|
717 |
execute. |
|
718 |
||
719 |
"Created: / 22-10-2008 / 16:46:18 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
720 |
! |
|
721 |
||
722 |
revert: containers |
|
723 |
||
724 |
| revertInfo | |
|
725 |
||
726 |
self ensurePathExists. |
|
727 |
self isValid ifFalse:[^self checkout]. |
|
728 |
self synchronized: |
|
729 |
[revertInfo := RevertCommand new |
|
678 | 730 |
workingCopy: self; |
57 | 731 |
paths: containers; |
732 |
execute]. |
|
733 |
^revertInfo |
|
734 |
||
735 |
"Created: / 03-11-2008 / 21:20:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
736 |
"Modified: / 07-11-2008 / 08:54:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 737 |
"Modified: / 05-12-2009 / 20:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 738 |
! |
739 |
||
740 |
status |
|
741 |
||
742 |
| status | |
|
743 |
self ensureIsValid. |
|
744 |
self synchronized: |
|
745 |
[status := StatusCommand new |
|
746 |
workingCopy: self; |
|
747 |
execute]. |
|
748 |
^status |
|
749 |
||
750 |
"Created: / 11-04-2008 / 09:22:13 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
751 |
"Modified: / 19-08-2009 / 14:35:49 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
752 |
! |
|
753 |
||
754 |
update |
|
755 |
||
756 |
| updateInfo | |
|
757 |
||
758 |
self ensurePathExists. |
|
759 |
self isValid ifFalse:[^self checkout]. |
|
760 |
self synchronized: |
|
761 |
[updateInfo := UpdateCommand new |
|
762 |
workingCopy: self path; |
|
763 |
execute]. |
|
764 |
^updateInfo |
|
765 |
||
766 |
"Created: / 21-05-2008 / 09:44:56 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
767 |
"Modified: / 19-08-2009 / 12:25:15 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
768 |
! ! |
|
769 |
||
770 |
!WorkingCopy methodsFor:'error reporting'! |
|
771 |
||
772 |
error |
|
773 |
||
774 |
self error:'Unknown error' |
|
775 |
||
776 |
"Created: / 31-03-2008 / 12:44:06 / janfrog" |
|
777 |
! |
|
778 |
||
779 |
error: aString |
|
780 |
||
781 |
WCError raiseWith:#error: errorString:aString |
|
782 |
||
783 |
"Created: / 31-03-2008 / 12:43:51 / janfrog" |
|
784 |
! ! |
|
785 |
||
795
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
786 |
!WorkingCopy methodsFor:'inspecting'! |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
787 |
|
1043 | 788 |
browse |
789 |
"Opens a file browser on the working copy" |
|
790 |
||
791 |
UserPreferences current fileBrowserClass |
|
792 |
openOnDirectory: path asFilename |
|
793 |
||
794 |
"Created: / 04-02-2012 / 17:14:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
795 |
! |
|
796 |
||
795
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
797 |
inspector2TabBrowser |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
798 |
|
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
799 |
self exists ifTrue:[ |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
800 |
^self newInspector2Tab |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
801 |
label: 'Working copy'; |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
802 |
priority: 35; |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
803 |
application: (SVN::WorkingCopyBrowser on: self) |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
804 |
] ifFalse:[ |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
805 |
^self newInspector2Tab |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
806 |
label: 'Working copy'; |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
807 |
priority: 35; |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
808 |
view: (Label new label:'Not yet checked out'; yourself) |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
809 |
] |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
810 |
|
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
811 |
"Modified: / 14-04-2011 / 17:42:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
812 |
"Modified: / 13-09-2011 / 11:56:28 / cg" |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
813 |
! ! |
79b13f902c1b
changed: #inspector2TabBrowser
Claus Gittinger <cg@exept.de>
parents:
678
diff
changeset
|
814 |
|
57 | 815 |
!WorkingCopy methodsFor:'private'! |
816 |
||
678 | 817 |
branchFromQuery |
818 |
||
819 |
^BranchQuery new |
|
820 |
repository: repository; |
|
821 |
raiseRequest. |
|
822 |
! |
|
823 |
||
824 |
branchFromWorkingCopy |
|
825 |
||
826 |
| info bpath | |
|
827 |
info := (self info:#('.')) anyOne. |
|
828 |
bpath := info url copyFrom: info root size + 1. |
|
1006
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
829 |
repository isNil ifTrue:[ |
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
830 |
repository := Repository package: nil url: info root. |
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
831 |
]. |
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
832 |
^path isEmptyOrNil |
678 | 833 |
ifTrue:[nil] |
834 |
ifFalse:[Branch repository: repository path: bpath]. |
|
1006
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
835 |
|
f318a4c6a09d
Improvements for CommitDialog2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
998
diff
changeset
|
836 |
"Modified: / 08-02-2012 / 18:20:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
678 | 837 |
! |
838 |
||
57 | 839 |
commited |
840 |
||
841 |
packageExtensionsChanged := false. |
|
842 |
packageClassesChanged := false. |
|
843 |
||
844 |
"Created: / 13-08-2009 / 10:23:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
845 |
! |
|
846 |
||
847 |
computePackageClassesChanged |
|
848 |
" |
|
849 |
Answers true iff package classes differs from |
|
850 |
those listed in ProjectDefinition>>classNamesAndAttributes" |
|
1123
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
851 |
|
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
852 |
|listedClasses realClasses pkgDef | |
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
853 |
|
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
854 |
(pkgDef := self packageDefinition) isNil ifTrue:[^true]. |
57 | 855 |
|
1123
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
856 |
listedClasses := pkgDef compiled_classNames_common , |
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
857 |
pkgDef compiled_classNamesForPlatform , |
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
858 |
pkgDef autoloaded_classNames. |
57 | 859 |
|
860 |
realClasses := self packageClasses collect:[:cls | cls fullName ]. |
|
861 |
listedClasses size ~= realClasses size |
|
862 |
ifTrue:[^ true]. |
|
863 |
(realClasses allSatisfy:[:realClass | listedClasses includes:realClass ]) |
|
864 |
ifFalse:[^true]. |
|
865 |
^false |
|
866 |
||
867 |
||
868 |
||
869 |
||
870 |
" |
|
678 | 871 |
(CommitTask new package: 'stx:libsvn') |
57 | 872 |
computePackageClassesChanged |
873 |
(CommitTask new package: 'cvut:fel/smallruby') |
|
874 |
computePackageClassesChanged |
|
1123
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
875 |
(SVN::RepositoryManager workingCopyForPackage: #'stx:libbasic') |
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
876 |
computePackageClassesChanged |
57 | 877 |
" |
878 |
||
879 |
"Created: / 16-06-2009 / 10:08:28 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
880 |
"Modified: / 18-08-2009 / 10:47:10 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1123
68bc201d0f7e
changed: #computePackageClassesChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1121
diff
changeset
|
881 |
"Modified (comment): / 07-09-2012 / 11:43:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 882 |
! |
883 |
||
884 |
computePackageExtensionsChanged |
|
885 |
" |
|
886 |
Answers true iff package extension method differs from |
|
887 |
those listed in ProjectDefinition>>extensionMethodNames" |
|
888 |
||
889 |
|listedExtensions listedExtensionsDictionary realExtensions| |
|
890 |
||
891 |
realExtensions := self packageExtensions. |
|
1101
ffc2b5e1104f
comment/format in: #computePackageExtensionsChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1065
diff
changeset
|
892 |
listedExtensions := self packageDefinition |
57 | 893 |
extensionMethodNames. |
894 |
(listedExtensions size / 2) ~= realExtensions size ifTrue:[ |
|
895 |
^ true |
|
896 |
]. |
|
897 |
listedExtensionsDictionary := Dictionary new. |
|
898 |
listedExtensions |
|
899 |
pairWiseDo:[:className :selector | |
|
900 |
(listedExtensionsDictionary at:className |
|
901 |
ifAbsentPut:[ OrderedCollection new ]) add:selector |
|
902 |
]. |
|
903 |
^ (realExtensions |
|
904 |
allSatisfy:[:mth | |
|
905 |
(listedExtensionsDictionary includesKey:mth mclass name) |
|
906 |
and:[ (listedExtensionsDictionary at:mth mclass name) includes:mth selector ] |
|
907 |
]) |
|
908 |
not |
|
909 |
||
910 |
" |
|
678 | 911 |
(CommitTask new package: 'stx:libsvn') |
57 | 912 |
packageExtensionsHasChanged" |
913 |
||
914 |
"Created: / 16-06-2009 / 10:11:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
915 |
"Modified: / 13-08-2009 / 10:27:27 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1101
ffc2b5e1104f
comment/format in: #computePackageExtensionsChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1065
diff
changeset
|
916 |
"Modified (format): / 04-05-2012 / 17:12:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 917 |
! |
918 |
||
919 |
ensureIsValid |
|
920 |
||
921 |
self isValid ifFalse: |
|
922 |
[self checkout]. |
|
923 |
self isValid ifFalse:[self error:'Cannot create working copy'] |
|
924 |
||
925 |
"Created: / 08-04-2008 / 14:19:28 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
926 |
! |
|
927 |
||
928 |
ensureMethodsHasAbsoluteSourceFiles |
|
929 |
||
930 |
Smalltalk allClassesDo: |
|
678 | 931 |
[:cls| | tryLocalSourceFirst makeLocalSource | |
57 | 932 |
makeLocalSource := |
933 |
[:mth| |
|
934 |
mth package = self package ifTrue: |
|
935 |
[mth makeSourceFileAbsolute]]. |
|
678 | 936 |
tryLocalSourceFirst := Class tryLocalSourceFirst. |
937 |
Class tryLocalSourceFirst: true. |
|
57 | 938 |
cls methodsDo: makeLocalSource. |
678 | 939 |
cls class methodsDo: makeLocalSource. |
940 |
Class tryLocalSourceFirst: tryLocalSourceFirst.]. |
|
57 | 941 |
|
942 |
"Created: / 21-08-2009 / 17:33:00 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 943 |
"Modified: / 09-01-2010 / 16:07:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 944 |
! |
945 |
||
946 |
ensurePathExists |
|
947 |
||
948 |
[path exists ifFalse: |
|
1063
75f4338d821a
changed: #ensurePathExists
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1043
diff
changeset
|
949 |
["/self ensureMethodsHasAbsoluteSourceFiles. |
57 | 950 |
path recursiveMakeDirectory |
951 |
]] |
|
952 |
on: Smalltalk::Error do:[:ex|self error:'Cannot create working copy']. |
|
953 |
||
954 |
"Created: / 08-04-2008 / 14:26:56 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
955 |
"Modified: / 21-08-2009 / 17:46:05 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 956 |
"Modified: / 09-01-2010 / 16:07:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1063
75f4338d821a
changed: #ensurePathExists
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1043
diff
changeset
|
957 |
"Modified: / 14-03-2012 / 11:17:21 / jv" |
57 | 958 |
! ! |
959 |
||
960 |
!WorkingCopy methodsFor:'private - file out'! |
|
961 |
||
678 | 962 |
fileOutClass:cls |
963 |
||
964 |
|stream| |
|
965 |
||
966 |
[stream := self containersWriteStreamForClass:cls. |
|
967 |
self fileOutClass:cls on:stream] |
|
968 |
ensure:[ stream ifNotNil:[ stream close ]] |
|
969 |
||
970 |
"Modified: / 11-06-2009 / 16:18:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
971 |
"Created: / 30-12-2009 / 19:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
972 |
! |
|
973 |
||
57 | 974 |
fileOutClass:cls on:clsStream |
975 |
||
678 | 976 |
"/ cls methodDictionary do: |
977 |
"/ [:each|each makeLocalStringSource]. |
|
978 |
"/ |
|
979 |
"/ cls class methodDictionary do: |
|
980 |
"/ [:each|each makeLocalStringSource]. |
|
981 |
||
982 |
SVNSourceCodeManager |
|
983 |
fileOutSourceCodeOf:cls |
|
984 |
on:clsStream |
|
985 |
withTimeStamp:false |
|
986 |
withInitialize:true |
|
987 |
withDefinition:true |
|
988 |
methodFilter:[:mth | mth package = self package ] |
|
989 |
||
990 |
" |
|
991 |
String streamContents:[:s| |
|
992 |
(SVN::RepositoryManager repositoryForPackage: Setup::ML package) |
|
993 |
workingCopy |
|
994 |
fileOutClass: Setup::ML on: s |
|
995 |
] |
|
996 |
||
997 |
" |
|
57 | 998 |
|
999 |
"Created: / 19-04-2008 / 09:58:11 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1000 |
"Modified: / 11-06-2009 / 16:18:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
678 | 1001 |
"Modified: / 07-07-2011 / 20:21:59 / jv" |
1002 |
"Modified (format): / 07-07-2011 / 20:29:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1003 |
! |
|
1004 |
||
1005 |
fileOutExtensions: extensionMethods |
|
1006 |
||
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1007 |
^self fileOutExtensions: extensionMethods in: self path |
678 | 1008 |
|
1009 |
"Created: / 30-12-2009 / 19:01:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 | 1010 |
! |
1011 |
||
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1012 |
fileOutExtensions: extensionMethods in: directory |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1013 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1014 |
ProgrammingLanguage all do:[:lang| |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1015 |
| stream methods | |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1016 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1017 |
methods := extensionMethods select:[:mth|mth programmingLanguage = lang]. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1018 |
methods notEmpty ifTrue: [ |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1019 |
ActivityNotification notify:'Filing out extension methods (', lang name , ')'. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1020 |
self fileOutExtensions: methods in: directory language: lang |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1021 |
] |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1022 |
] |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1023 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1024 |
"Created: / 04-09-2012 / 22:56:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1025 |
! |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1026 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1027 |
fileOutExtensions: extensionMethods in: directory language: lang |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1028 |
"Given a directory, files out extensions methods in given language. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1029 |
Takes care about Java extensions, as they are filed out separately |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1030 |
in per-classe .st file in <package dir>/java/extensions/<package>/<java classname>.st" |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1031 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1032 |
| stream nonJavaExtensionsMethod javaExtensionsMethods | |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1033 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1034 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1035 |
stream := self containerWriteStreamForExtensions: lang. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1036 |
[ |
1132
00958c45023c
fixed #fileOutExtensions:in:language: (filing out of Java extensions)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1123
diff
changeset
|
1037 |
nonJavaExtensionsMethod := extensionMethods reject:[:each|each mclass theNonMetaclass isJavaClass]. |
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1038 |
self fileOutExtensions: nonJavaExtensionsMethod on: stream language: lang. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1039 |
] ensure:[ |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1040 |
stream close |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1041 |
]. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1042 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1043 |
javaExtensionsMethods := Dictionary new. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1044 |
extensionMethods do:[:mthd| |
1132
00958c45023c
fixed #fileOutExtensions:in:language: (filing out of Java extensions)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1123
diff
changeset
|
1045 |
mthd mclass theNonMetaclass isJavaClass ifTrue:[ |
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1046 |
(javaExtensionsMethods at: mthd mclass ifAbsentPut:[OrderedCollection new]) add: mthd. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1047 |
]. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1048 |
]. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1049 |
javaExtensionsMethods keysAndValuesDo:[:cls :methods| |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1050 |
[ |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1051 |
stream := self containerWriteStreamForExtensions: lang javaClass: cls. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1052 |
self fileOutExtensions: methods on: stream language: lang. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1053 |
] ensure:[ |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1054 |
stream close. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1055 |
] |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1056 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1057 |
] |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1058 |
|
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1059 |
"Created: / 04-09-2012 / 23:05:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1132
00958c45023c
fixed #fileOutExtensions:in:language: (filing out of Java extensions)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1123
diff
changeset
|
1060 |
"Modified: / 05-11-2012 / 00:09:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1061 |
! |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1062 |
|
678 | 1063 |
fileOutExtensions: extensionMethods on:stream language: language |
1064 |
||
1065 |
extensionMethods do:[:each|each makeLocalStringSource]. |
|
1066 |
||
973
3cbefbe6ddc2
changed: #fileOutExtensions:on:language:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
970
diff
changeset
|
1067 |
"Special hack for Smalltalk - use SourceCodeManager routine" |
1133 | 1068 |
(language isSmalltalk and:[extensionMethods anyOne mclass theNonMetaclass isJavaClass not]) ifTrue:[ |
1121
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1069 |
SVNSourceCodeManager fileOutSourceCodeExtensions: extensionMethods package: self package on: stream. |
58f2f87dd37e
Support for Java extension methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1101
diff
changeset
|
1070 |
^self. |
973
3cbefbe6ddc2
changed: #fileOutExtensions:on:language:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
970
diff
changeset
|
1071 |
]. |
3cbefbe6ddc2
changed: #fileOutExtensions:on:language:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
970
diff
changeset
|
1072 |
|
3cbefbe6ddc2
changed: #fileOutExtensions:on:language:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
970
diff
changeset
|
1073 |
"/ Generic fileout " |
3cbefbe6ddc2
changed: #fileOutExtensions:on:language:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
970
diff
changeset
|
1074 |
|
678 | 1075 |
language sourceFileWriterClass new |
1076 |
fileOutPackageDefinition: self package on: stream; |
|
1077 |
fileOutMethods: extensionMethods on: stream |
|
1078 |
||
1079 |
"Modified: / 15-06-2009 / 11:55:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1080 |
"Created: / 30-12-2009 / 19:01:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1133 | 1081 |
"Modified: / 07-11-2012 / 23:54:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
678 | 1082 |
! ! |
1083 |
||
1084 |
!WorkingCopy methodsFor:'queries'! |
|
57 | 1085 |
|
678 | 1086 |
exists |
1087 |
||
1088 |
^self isValid |
|
1089 |
||
1090 |
"Created: / 09-12-2010 / 23:36:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1091 |
! |
|
1092 |
||
1093 |
hasBranch |
|
1094 |
||
1095 |
branch ifNotNil:[^true]. |
|
1096 |
^repository preferredBranch |
|
1097 |
ifNotNil:[self branchOrNil notNil] |
|
1098 |
ifNil:[repository branches size == 1] |
|
1099 |
||
1100 |
"Modified: / 29-03-2010 / 13:57:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 | 1101 |
! ! |
1102 |
||
1103 |
!WorkingCopy methodsFor:'testing'! |
|
1104 |
||
1105 |
isValid |
|
1106 |
||
1101
ffc2b5e1104f
comment/format in: #computePackageExtensionsChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1065
diff
changeset
|
1107 |
| svnMetadataDir contents | |
57 | 1108 |
|
970 | 1109 |
svnMetadataDir := self path / '.svn'. |
1110 |
svnMetadataDir exists ifFalse:[ ^false ]. |
|
1162
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1133
diff
changeset
|
1111 |
(svnMetadataDir / 'wc.db') exists ifTrue:[ ^ true ]. |
970 | 1112 |
(svnMetadataDir / 'entries') exists ifFalse:[ ^false ]. |
1113 |
(svnMetadataDir / 'text-base') exists ifFalse:[ ^false ]. |
|
1114 |
||
1101
ffc2b5e1104f
comment/format in: #computePackageExtensionsChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1065
diff
changeset
|
1115 |
((contents := self path directoryContents) size = 1 |
ffc2b5e1104f
comment/format in: #computePackageExtensionsChanged
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1065
diff
changeset
|
1116 |
and:[contents anElement ~= '.svn']) ifTrue:[ ^ false ]. |
57 | 1117 |
|
1118 |
^true |
|
1119 |
||
1120 |
"Created: / 08-04-2008 / 14:17:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1121 |
"Modified: / 16-07-2009 / 13:57:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1162
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1133
diff
changeset
|
1122 |
"Modified: / 15-01-2016 / 23:14:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 | 1123 |
! ! |
1124 |
||
1125 |
!WorkingCopy class methodsFor:'documentation'! |
|
1126 |
||
905
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
1127 |
version |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
1128 |
^ '$Header$' |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
1129 |
! |
58dc08c9d3b4
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
795
diff
changeset
|
1130 |
|
1133 | 1131 |
version_CVS |
1132 |
^ '$Header$' |
|
1133 |
! |
|
1134 |
||
137 | 1135 |
version_SVN |
1165 | 1136 |
^ '$Id$' |
57 | 1137 |
! ! |
1165 | 1138 |