|
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 " |
1 "{ Package: 'stx:libsvn' }" |
26 "{ Package: 'stx:libsvn' }" |
2 |
27 |
3 "{ NameSpace: SVN }" |
28 "{ NameSpace: SVN }" |
4 |
29 |
5 Object subclass:#Task |
30 Object subclass:#Task |
7 classVariableNames:'' |
32 classVariableNames:'' |
8 poolDictionaries:'' |
33 poolDictionaries:'' |
9 category:'SVN-Tasks' |
34 category:'SVN-Tasks' |
10 ! |
35 ! |
11 |
36 |
|
37 !Task 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 ! ! |
|
67 |
|
68 !Task class methodsFor:'others'! |
|
69 |
|
70 version_CVS |
|
71 ^ '$ÂHeader: /cvs/stx/stx/libsvn/SVN__Task.st,v 1.4 2009/10/19 12:24:50 fm Exp Â$' |
|
72 ! ! |
12 |
73 |
13 !Task methodsFor:'accessing'! |
74 !Task methodsFor:'accessing'! |
14 |
75 |
15 branch |
76 branch |
16 |
77 |
92 do: aBlock |
153 do: aBlock |
93 |
154 |
94 "Created: / 15-07-2009 / 20:07:14 / Jan Vrany <vranyj1@fel.cvut.cz>" |
155 "Created: / 15-07-2009 / 20:07:14 / Jan Vrany <vranyj1@fel.cvut.cz>" |
95 ! |
156 ! |
96 |
157 |
97 doCompileSvnRevisionNrMethod: compileRevision |
158 doCompileSvnRepositoryUrlStringMethod |
98 | pkgDef revNr | |
159 |pkgDef revNr| |
99 |
160 |
100 SVN::ActivityNotification notify:'Compiling #svnRevisionNr method'. |
161 ActivityNotification notify:'Compiling #svnRepositoryUrlString method'. |
101 pkgDef := self workingCopy packageDefinition. |
162 pkgDef := self workingCopy packageDefinition. |
102 revNr := compileRevision |
163 (pkgDef theMetaclass includesSelector:#svnRepositoryUrlString) not |
103 ifTrue:[pkgDef svnRevision number] |
164 ifTrue:[ |
104 ifFalse:[nil]. |
165 pkgDef theMetaclass compile:(pkgDef svnRepositoryUrlString_code) |
105 |
166 classified:'description - svn'. |
106 (revNr notNil or:[(pkgDef theMetaclass includesSelector:#svnRevisionNr) not]) ifTrue: |
167 (pkgDef theMetaclass compiledMethodAt:#svnRepositoryUrlString) |
107 [pkgDef theMetaclass |
168 setPackage:self package asSymbol |
108 compile: (pkgDef svnRevisionNr_code: revNr) |
169 ]. |
109 classified:'description - svn'. |
170 |
110 (pkgDef theMetaclass compiledMethodAt:#svnRevisionNr) |
171 "Created: / 08-04-2011 / 15:58:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
111 setPackage:self package asSymbol]. |
172 ! |
|
173 |
|
174 doCompileSvnRevisionNrMethod:compileRevision |
|
175 |pkgDef revNr| |
|
176 |
|
177 ActivityNotification notify:'Compiling #svnRevisionNr method'. |
|
178 pkgDef := self workingCopy packageDefinition. |
|
179 revNr := compileRevision ifTrue:[ |
|
180 pkgDef svnRevision number |
|
181 ] ifFalse:[ nil ]. |
|
182 (revNr notNil |
|
183 or:[ (pkgDef theMetaclass includesSelector:#svnRevisionNr) not ]) |
|
184 ifTrue:[ |
|
185 pkgDef theMetaclass compile:(pkgDef svnRevisionNr_code:revNr) |
|
186 classified:'description - svn'. |
|
187 (pkgDef theMetaclass compiledMethodAt:#svnRevisionNr) |
|
188 setPackage:self package asSymbol |
|
189 ]. |
112 |
190 |
113 "Created: / 16-06-2009 / 12:16:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
191 "Created: / 16-06-2009 / 12:16:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
114 ! ! |
192 ! ! |
115 |
193 |
116 !Task methodsFor:'notification'! |
194 !Task methodsFor:'notification'! |