--- a/SVN__CommitTask.st Mon Oct 19 14:25:27 2009 +0200
+++ b/SVN__CommitTask.st Mon Oct 19 14:52:48 2009 +0200
@@ -2,7 +2,7 @@
"{ NameSpace: SVN }"
-nil subclass:#CommitTask
+FileoutLikeTask subclass:#CommitTask
instanceVariableNames:'message'
classVariableNames:''
poolDictionaries:''
@@ -15,13 +15,13 @@
buildSupportFilesFor: pkgDef
| common |
- common := #('abbrev.stc' 'Make.proto' 'Make.spec').
+ common := #('abbrev.stc' 'Make.proto' 'Make.spec').
^pkgDef isApplicationDefinition
- ifTrue:[common]
- ifFalse:[common copyWith: 'libInit.cc']
-
+ ifTrue:[common]
+ ifFalse:[common copyWith: 'libInit.cc']
+
"
- SVN::CommitTask basicNew buildSupportFilesFor: stx_goodies_libsvn
+ SVN::CommitTask basicNew buildSupportFilesFor: stx_goodies_libsvn
"
"Created: / 20-06-2009 / 12:03:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -40,8 +40,8 @@
do
self
- doUpdateWorkingCopy;
- doCommit
+ doUpdateWorkingCopy;
+ doCommit
"Created: / 23-03-2009 / 11:15:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 17-06-2009 / 10:16:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -50,29 +50,29 @@
doCommit
| containers commitInfo |
- self do:
- [ SVN::ActivityNotification notify: 'Commiting ' , self package.
- containers := self isSelectiveFileoutTask
- ifTrue: [ self containersToFileOut ]
- ifFalse: [ #() ].
- self synchronized:
- [ commitInfo := (CommitCommand new)
- workingCopy: self workingCopy;
- message: message ? '<no message>';
- paths: containers;
- execute.
- "Update the working copy. We need svn info
- to report commited revision"
- (UpdateCommand new)
- workingCopy: self workingCopy;
- execute ].
- self doCompileSvnRevisionNrMethod: true.
- SVN::ActivityNotification notify: 'Shrinking changes'.
- (ChangeSet current)
- condenseChangesForPackage2: self package;
- condenseChangesForExtensionsInPackage: self package;
- flushChangedClassesCache;
- yourself. ].
+ self do:
+ [ SVN::ActivityNotification notify: 'Commiting ' , self package.
+ containers := self isSelectiveFileoutTask
+ ifTrue: [ self containersToFileOut ]
+ ifFalse: [ #() ].
+ self synchronized:
+ [ commitInfo := (CommitCommand new)
+ workingCopy: self workingCopy;
+ message: message ? '<no message>';
+ paths: containers;
+ execute.
+ "Update the working copy. We need svn info
+ to report commited revision"
+ (UpdateCommand new)
+ workingCopy: self workingCopy;
+ execute ].
+ self doCompileSvnRevisionNrMethod: true.
+ SVN::ActivityNotification notify: 'Shrinking changes'.
+ (ChangeSet current)
+ condenseChangesForPackage2: self package;
+ condenseChangesForExtensionsInPackage: self package;
+ flushChangedClassesCache;
+ yourself. ].
self workingCopy commited.
^ commitInfo
@@ -83,8 +83,8 @@
doUpdateWorkingCopy
self do:[
- self workingCopy ensureIsValid.
- self doFileOutAll
+ self workingCopy ensureIsValid.
+ self doFileOutAll
]
"Created: / 11-04-2008 / 09:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>"