| author | fm |
| Mon, 19 Oct 2009 14:52:48 +0200 | |
| changeset 492 | 74ff0960961c |
| parent 383 | 014a38aee2e8 |
| child 675 | cdbc7651a0a0 |
| permissions | -rw-r--r-- |
| 383 | 1 |
"{ Package: 'stx:libsvn' }"
|
| 49 | 2 |
|
3 |
"{ NameSpace: SVN }"
|
|
4 |
||
| 492 | 5 |
FileoutLikeTask subclass:#CommitTask |
| 249 | 6 |
instanceVariableNames:'message' |
| 49 | 7 |
classVariableNames:'' |
8 |
poolDictionaries:'' |
|
9 |
category:'SVN-Tasks' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!CommitTask methodsFor:'accessing'! |
|
14 |
||
15 |
buildSupportFilesFor: pkgDef |
|
16 |
||
17 |
| common | |
|
| 492 | 18 |
common := #('abbrev.stc' 'Make.proto' 'Make.spec').
|
| 49 | 19 |
^pkgDef isApplicationDefinition |
| 492 | 20 |
ifTrue:[common] |
21 |
ifFalse:[common copyWith: 'libInit.cc'] |
|
22 |
||
| 49 | 23 |
" |
| 492 | 24 |
SVN::CommitTask basicNew buildSupportFilesFor: stx_goodies_libsvn |
| 49 | 25 |
" |
26 |
||
27 |
"Created: / 20-06-2009 / 12:03:51 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
28 |
! |
|
29 |
||
30 |
message |
|
31 |
^ message |
|
32 |
! |
|
33 |
||
34 |
message:aString |
|
35 |
message := aString. |
|
36 |
! ! |
|
37 |
||
38 |
!CommitTask methodsFor:'executing'! |
|
39 |
||
40 |
do |
|
41 |
||
42 |
self |
|
| 492 | 43 |
doUpdateWorkingCopy; |
44 |
doCommit |
|
| 49 | 45 |
|
46 |
"Created: / 23-03-2009 / 11:15:37 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
47 |
"Modified: / 17-06-2009 / 10:16:37 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
48 |
! |
|
49 |
||
50 |
doCommit |
|
51 |
| containers commitInfo | |
|
52 |
||
| 492 | 53 |
self do: |
54 |
[ SVN::ActivityNotification notify: 'Commiting ' , self package. |
|
55 |
containers := self isSelectiveFileoutTask |
|
56 |
ifTrue: [ self containersToFileOut ] |
|
57 |
ifFalse: [ #() ]. |
|
58 |
self synchronized: |
|
59 |
[ commitInfo := (CommitCommand new) |
|
60 |
workingCopy: self workingCopy; |
|
61 |
message: message ? '<no message>'; |
|
62 |
paths: containers; |
|
63 |
execute. |
|
64 |
"Update the working copy. We need svn info |
|
65 |
to report commited revision" |
|
66 |
(UpdateCommand new) |
|
67 |
workingCopy: self workingCopy; |
|
68 |
execute ]. |
|
69 |
self doCompileSvnRevisionNrMethod: true. |
|
70 |
SVN::ActivityNotification notify: 'Shrinking changes'. |
|
71 |
(ChangeSet current) |
|
72 |
condenseChangesForPackage2: self package; |
|
73 |
condenseChangesForExtensionsInPackage: self package; |
|
74 |
flushChangedClassesCache; |
|
75 |
yourself. ]. |
|
| 49 | 76 |
self workingCopy commited. |
77 |
^ commitInfo |
|
78 |
||
79 |
"Created: / 11-04-2008 / 09:20:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
80 |
"Modified: / 19-08-2009 / 12:27:44 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
81 |
! |
|
82 |
||
83 |
doUpdateWorkingCopy |
|
84 |
||
85 |
self do:[ |
|
| 492 | 86 |
self workingCopy ensureIsValid. |
87 |
self doFileOutAll |
|
| 49 | 88 |
] |
89 |
||
90 |
"Created: / 11-04-2008 / 09:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
91 |
"Modified: / 17-08-2009 / 18:28:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
92 |
! ! |
|
93 |
||
94 |
!CommitTask class methodsFor:'documentation'! |
|
95 |
||
96 |
version |
|
97 |
^ '$Header$' |
|
| 198 | 98 |
! |
99 |
||
100 |
version_CVS |
|
101 |
^ '$Header$' |
|
102 |
! |
|
103 |
||
104 |
version_SVN |
|
|
282
6ebdeeee7c53
update #version_SVN with § as keyword expansion character
fm
parents:
249
diff
changeset
|
105 |
^'§Id: SVN__CommitTask.st 110 2009-08-19 13:21:10Z vranyj1 §' |
| 49 | 106 |
! ! |