SVN__CleanupCommand.st
author fm
Wed, 23 Sep 2009 18:49:50 +0200
changeset 72 877b3f3d2fb1
child 151 20c67b4b2ac4
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
72
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     1
"{ Package: 'cvut:stx/goodies/libsvn' }"
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     2
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     3
"{ NameSpace: SVN }"
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     4
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     5
WCCommand subclass:#CleanupCommand
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     6
	instanceVariableNames:''
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     7
	classVariableNames:''
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     8
	poolDictionaries:''
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
     9
	category:'SVN-Private-Commands'
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    10
!
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    11
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    12
!CleanupCommand class methodsFor:'documentation'!
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    13
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    14
version_SVN
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    15
    ^'$Id$'
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    16
! !
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    17
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    18
!CleanupCommand methodsFor:'executing'!
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    19
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    20
execute
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    21
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    22
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    23
    ^self svnExecute
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    24
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    25
    "Created: / 08-11-2008 / 08:14:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    26
! !
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    27
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    28
!CleanupCommand methodsFor:'executing - private'!
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    29
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    30
svnCmd
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    31
    "raise an error: must be redefined in concrete subclass(es)"
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    32
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    33
    ^'cleanup'
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    34
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    35
    "Created: / 08-11-2008 / 08:12:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    36
! !
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    37
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    38
!CleanupCommand class methodsFor:'documentation'!
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    39
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    40
version
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    41
    ^ '$Header$'
877b3f3d2fb1 initial checkin
fm
parents:
diff changeset
    42
! !