--- a/SVN__InfoCommand.st Mon Oct 19 14:25:27 2009 +0200
+++ b/SVN__InfoCommand.st Mon Oct 19 14:52:48 2009 +0200
@@ -2,7 +2,7 @@
"{ NameSpace: SVN }"
-nil subclass:#InfoCommand
+WCPathCommand subclass:#InfoCommand
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -21,30 +21,30 @@
"Modified: / 15-06-2009 / 12:06:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
-svnCmdArgumentsOn:arg
+svnCmdArgumentsOn:arg
"raise an error: must be redefined in concrete subclass(es)"
- arg
- nextPut:'--xml'
+ arg
+ nextPut:'--xml'
"Created: / 15-03-2008 / 21:56:01 / janfrog"
"Modified: / 15-06-2009 / 12:18:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
-svnParseXML: doc
- ^ ((doc root childNodes
- collect: [:entryNode | WCEntryInfo readFromXml: entryNode ])
- asSortedCollection: [:a :b | a path < b path ]) asOrderedCollection
+svnParseXML: doc
+ ^ ((doc root childNodes
+ collect: [:entryNode | WCEntryInfo readFromXml: entryNode ])
+ asSortedCollection: [:a :b | a path < b path ]) asOrderedCollection
"Created: / 15-03-2008 / 22:05:01 / janfrog"
"Modified: / 16-03-2008 / 08:44:49 / janfrog"
"Modified: / 15-06-2009 / 12:23:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
-svnProcessCommandOutput:out err:err
+svnProcessCommandOutput:out err:err
^ self svnParseXML:((XML::XMLParser on:out)
- validate:false;
- scanDocument)
+ validate:false;
+ scanDocument)
"Created: / 03-10-2008 / 16:31:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !