"{ Package: 'cvut:stx/goodies/libsvn' }"

"{ NameSpace: SVN }"

BranchCommand subclass:#ListCommand
	instanceVariableNames:'url recursive'
	classVariableNames:''
	poolDictionaries:''
	category:'SVN-Private-Commands'
!

!ListCommand class methodsFor:'documentation'!

version_SVN
    ^'$Id$'
! !

!ListCommand class methodsFor:'executing'!

list: url 
    ^ (self new)
        url: url;
        execute

    "Created: / 19-03-2008 / 08:27:10 / janfrog"
    "Modified: / 19-08-2009 / 13:28:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!ListCommand methodsFor:'accessing'!

recursive
    ^ recursive ? false

    "Created: / 15-03-2008 / 20:56:05 / janfrog"
!

recursive:aBoolean
    recursive := aBoolean.

    "Created: / 15-03-2008 / 20:56:05 / janfrog"
!

url
    ^ url ifNil:[ branch url]

    "Modified: / 19-08-2009 / 13:28:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

url:aString
    url := aString.
! !

!ListCommand methodsFor:'executing - private'!

svnCmd
    "raise an error: must be redefined in concrete subclass(es)"

    ^'list'

    "Created: / 15-03-2008 / 21:03:32 / janfrog"
!

svnCmdArgumentsOn: argStream 
    self recursive ifTrue: [ argStream nextPut: '--recursive' ].
    argStream
        nextPut: '-r';
        nextPut: self revision printString;
        nextPut: '--xml';
        nextPut: self url asString

    "Created: / 15-03-2008 / 21:21:11 / janfrog"
    "Modified: / 16-03-2008 / 07:38:11 / janfrog"
    "Modified: / 19-04-2008 / 13:57:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

svnParseXML: doc 
    ^ (doc root / 'list' / 'entry') asCollection 
        collect: [:entryNode | RepositoryEntry readFromXml: entryNode ]

    "Created: / 19-04-2008 / 13:56:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
    "Modified: / 19-08-2009 / 09:05:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

svnProcessCommandOutput:out err:err 
    ^ self svnParseXML:((XML::XMLParser on:out)
                validate:false;
                scanDocument)

    "Created: / 03-10-2008 / 16:31:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!ListCommand class methodsFor:'documentation'!

version
    ^ '$Header$'
! !