SVN__CreateRepositoryCommand.st
author fm
Thu, 08 Oct 2009 13:58:12 +0200
changeset 298 30f2cff79ca7
parent 174 48fd0bc09710
child 471 b0a3517e2a98
permissions -rw-r--r--
update #version_SVN with § as keyword expansion character
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
53
a7875586d7ac initial checkin
fm
parents:
diff changeset
     1
"{ Package: 'cvut:stx/goodies/libsvn' }"
a7875586d7ac initial checkin
fm
parents:
diff changeset
     2
a7875586d7ac initial checkin
fm
parents:
diff changeset
     3
"{ NameSpace: SVN }"
a7875586d7ac initial checkin
fm
parents:
diff changeset
     4
a7875586d7ac initial checkin
fm
parents:
diff changeset
     5
Command subclass:#CreateRepositoryCommand
a7875586d7ac initial checkin
fm
parents:
diff changeset
     6
	instanceVariableNames:'repositoryPath'
a7875586d7ac initial checkin
fm
parents:
diff changeset
     7
	classVariableNames:''
a7875586d7ac initial checkin
fm
parents:
diff changeset
     8
	poolDictionaries:''
a7875586d7ac initial checkin
fm
parents:
diff changeset
     9
	category:'SVN-Private-Commands'
a7875586d7ac initial checkin
fm
parents:
diff changeset
    10
!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    11
a7875586d7ac initial checkin
fm
parents:
diff changeset
    12
a7875586d7ac initial checkin
fm
parents:
diff changeset
    13
!CreateRepositoryCommand methodsFor:'accessing'!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    14
a7875586d7ac initial checkin
fm
parents:
diff changeset
    15
repositoryPath
a7875586d7ac initial checkin
fm
parents:
diff changeset
    16
    ^ repositoryPath
a7875586d7ac initial checkin
fm
parents:
diff changeset
    17
!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    18
a7875586d7ac initial checkin
fm
parents:
diff changeset
    19
repositoryPath:aString
a7875586d7ac initial checkin
fm
parents:
diff changeset
    20
    repositoryPath := aString.
a7875586d7ac initial checkin
fm
parents:
diff changeset
    21
! !
a7875586d7ac initial checkin
fm
parents:
diff changeset
    22
a7875586d7ac initial checkin
fm
parents:
diff changeset
    23
!CreateRepositoryCommand methodsFor:'executing - private'!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    24
a7875586d7ac initial checkin
fm
parents:
diff changeset
    25
svnCmd
a7875586d7ac initial checkin
fm
parents:
diff changeset
    26
    "raise an error: must be redefined in concrete subclass(es)"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    27
a7875586d7ac initial checkin
fm
parents:
diff changeset
    28
    ^'create'
a7875586d7ac initial checkin
fm
parents:
diff changeset
    29
a7875586d7ac initial checkin
fm
parents:
diff changeset
    30
    "Modified: / 08-04-2009 / 20:36:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    31
!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    32
a7875586d7ac initial checkin
fm
parents:
diff changeset
    33
svnCmdArgumentsOn:argStream
a7875586d7ac initial checkin
fm
parents:
diff changeset
    34
    "raise an error: must be redefined in concrete subclass(es)"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    35
a7875586d7ac initial checkin
fm
parents:
diff changeset
    36
    argStream nextPut: repositoryPath
a7875586d7ac initial checkin
fm
parents:
diff changeset
    37
a7875586d7ac initial checkin
fm
parents:
diff changeset
    38
    "Modified: / 08-04-2009 / 21:36:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    39
!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    40
a7875586d7ac initial checkin
fm
parents:
diff changeset
    41
svnGlobalArgumentsOn: argStream
a7875586d7ac initial checkin
fm
parents:
diff changeset
    42
a7875586d7ac initial checkin
fm
parents:
diff changeset
    43
    "No global arguments"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    44
a7875586d7ac initial checkin
fm
parents:
diff changeset
    45
    "Created: / 08-04-2009 / 20:38:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    46
!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    47
a7875586d7ac initial checkin
fm
parents:
diff changeset
    48
svnProcessCommandOutput:svnStdoutStream err:svnStderrStream
a7875586d7ac initial checkin
fm
parents:
diff changeset
    49
a7875586d7ac initial checkin
fm
parents:
diff changeset
    50
    "Nothing to do"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    51
a7875586d7ac initial checkin
fm
parents:
diff changeset
    52
    "Modified: / 08-04-2009 / 20:38:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    53
!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    54
a7875586d7ac initial checkin
fm
parents:
diff changeset
    55
svnProgram
a7875586d7ac initial checkin
fm
parents:
diff changeset
    56
a7875586d7ac initial checkin
fm
parents:
diff changeset
    57
    ^'svnadmin'
a7875586d7ac initial checkin
fm
parents:
diff changeset
    58
a7875586d7ac initial checkin
fm
parents:
diff changeset
    59
    "Created: / 08-04-2009 / 20:36:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
a7875586d7ac initial checkin
fm
parents:
diff changeset
    60
! !
a7875586d7ac initial checkin
fm
parents:
diff changeset
    61
a7875586d7ac initial checkin
fm
parents:
diff changeset
    62
!CreateRepositoryCommand class methodsFor:'documentation'!
a7875586d7ac initial checkin
fm
parents:
diff changeset
    63
a7875586d7ac initial checkin
fm
parents:
diff changeset
    64
version
a7875586d7ac initial checkin
fm
parents:
diff changeset
    65
    ^ '$Header$'
174
48fd0bc09710 changed: #version_SVN
fm
parents: 53
diff changeset
    66
!
48fd0bc09710 changed: #version_SVN
fm
parents: 53
diff changeset
    67
48fd0bc09710 changed: #version_SVN
fm
parents: 53
diff changeset
    68
version_CVS
48fd0bc09710 changed: #version_SVN
fm
parents: 53
diff changeset
    69
    ^ '$Header$'
48fd0bc09710 changed: #version_SVN
fm
parents: 53
diff changeset
    70
!
48fd0bc09710 changed: #version_SVN
fm
parents: 53
diff changeset
    71
48fd0bc09710 changed: #version_SVN
fm
parents: 53
diff changeset
    72
version_SVN
298
30f2cff79ca7 update #version_SVN with § as keyword expansion character
fm
parents: 174
diff changeset
    73
    ^'§Id: SVN__CreateRepositoryCommand.st 68 2009-04-16 11:35:57Z vranyj1 §'
53
a7875586d7ac initial checkin
fm
parents:
diff changeset
    74
! !