SVN__CopyCommand.st
author fm
Mon, 19 Oct 2009 14:24:58 +0200
changeset 484 6c457a1350bb
parent 304 a3453cbd7532
child 492 74ff0960961c
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
484
6c457a1350bb *** empty log message ***
fm
parents: 304
diff changeset
     1
"{ Package: 'stx:libsvn' }"
32
6a126500f17d initial checkin
fm
parents:
diff changeset
     2
6a126500f17d initial checkin
fm
parents:
diff changeset
     3
"{ NameSpace: SVN }"
6a126500f17d initial checkin
fm
parents:
diff changeset
     4
484
6c457a1350bb *** empty log message ***
fm
parents: 304
diff changeset
     5
nil subclass:#CopyCommand
32
6a126500f17d initial checkin
fm
parents:
diff changeset
     6
	instanceVariableNames:'src dst'
6a126500f17d initial checkin
fm
parents:
diff changeset
     7
	classVariableNames:''
6a126500f17d initial checkin
fm
parents:
diff changeset
     8
	poolDictionaries:''
6a126500f17d initial checkin
fm
parents:
diff changeset
     9
	category:'SVN-Private-Commands'
6a126500f17d initial checkin
fm
parents:
diff changeset
    10
!
6a126500f17d initial checkin
fm
parents:
diff changeset
    11
6a126500f17d initial checkin
fm
parents:
diff changeset
    12
6a126500f17d initial checkin
fm
parents:
diff changeset
    13
!CopyCommand methodsFor:'accessing'!
6a126500f17d initial checkin
fm
parents:
diff changeset
    14
6a126500f17d initial checkin
fm
parents:
diff changeset
    15
dst
6a126500f17d initial checkin
fm
parents:
diff changeset
    16
    ^ dst
6a126500f17d initial checkin
fm
parents:
diff changeset
    17
6a126500f17d initial checkin
fm
parents:
diff changeset
    18
    "Created: / 16-03-2008 / 10:15:13 / janfrog"
6a126500f17d initial checkin
fm
parents:
diff changeset
    19
!
6a126500f17d initial checkin
fm
parents:
diff changeset
    20
6a126500f17d initial checkin
fm
parents:
diff changeset
    21
dst:something
6a126500f17d initial checkin
fm
parents:
diff changeset
    22
    dst := something.
6a126500f17d initial checkin
fm
parents:
diff changeset
    23
6a126500f17d initial checkin
fm
parents:
diff changeset
    24
    "Created: / 16-03-2008 / 10:15:13 / janfrog"
6a126500f17d initial checkin
fm
parents:
diff changeset
    25
!
6a126500f17d initial checkin
fm
parents:
diff changeset
    26
6a126500f17d initial checkin
fm
parents:
diff changeset
    27
src
6a126500f17d initial checkin
fm
parents:
diff changeset
    28
    ^ src
6a126500f17d initial checkin
fm
parents:
diff changeset
    29
6a126500f17d initial checkin
fm
parents:
diff changeset
    30
    "Created: / 16-03-2008 / 10:15:13 / janfrog"
6a126500f17d initial checkin
fm
parents:
diff changeset
    31
!
6a126500f17d initial checkin
fm
parents:
diff changeset
    32
6a126500f17d initial checkin
fm
parents:
diff changeset
    33
src:something
6a126500f17d initial checkin
fm
parents:
diff changeset
    34
    src := something.
6a126500f17d initial checkin
fm
parents:
diff changeset
    35
6a126500f17d initial checkin
fm
parents:
diff changeset
    36
    "Created: / 16-03-2008 / 10:15:13 / janfrog"
6a126500f17d initial checkin
fm
parents:
diff changeset
    37
! !
6a126500f17d initial checkin
fm
parents:
diff changeset
    38
6a126500f17d initial checkin
fm
parents:
diff changeset
    39
!CopyCommand methodsFor:'executing - private'!
6a126500f17d initial checkin
fm
parents:
diff changeset
    40
6a126500f17d initial checkin
fm
parents:
diff changeset
    41
svnCmd
6a126500f17d initial checkin
fm
parents:
diff changeset
    42
    "raise an error: must be redefined in concrete subclass(es)"
6a126500f17d initial checkin
fm
parents:
diff changeset
    43
6a126500f17d initial checkin
fm
parents:
diff changeset
    44
    ^'copy'
6a126500f17d initial checkin
fm
parents:
diff changeset
    45
6a126500f17d initial checkin
fm
parents:
diff changeset
    46
    "Created: / 16-03-2008 / 10:15:18 / janfrog"
6a126500f17d initial checkin
fm
parents:
diff changeset
    47
!
6a126500f17d initial checkin
fm
parents:
diff changeset
    48
6a126500f17d initial checkin
fm
parents:
diff changeset
    49
svnCmdArgumentsOn:arg 
6a126500f17d initial checkin
fm
parents:
diff changeset
    50
    "raise an error: must be redefined in concrete subclass(es)"
6a126500f17d initial checkin
fm
parents:
diff changeset
    51
6a126500f17d initial checkin
fm
parents:
diff changeset
    52
    super svnCmdArgumentsOn:arg.
6a126500f17d initial checkin
fm
parents:
diff changeset
    53
    arg 
6a126500f17d initial checkin
fm
parents:
diff changeset
    54
        nextPut: src;
6a126500f17d initial checkin
fm
parents:
diff changeset
    55
        nextPut: dst
6a126500f17d initial checkin
fm
parents:
diff changeset
    56
6a126500f17d initial checkin
fm
parents:
diff changeset
    57
    "Created: / 16-03-2008 / 10:15:18 / janfrog"
6a126500f17d initial checkin
fm
parents:
diff changeset
    58
! !
6a126500f17d initial checkin
fm
parents:
diff changeset
    59
6a126500f17d initial checkin
fm
parents:
diff changeset
    60
!CopyCommand class methodsFor:'documentation'!
6a126500f17d initial checkin
fm
parents:
diff changeset
    61
6a126500f17d initial checkin
fm
parents:
diff changeset
    62
version
6a126500f17d initial checkin
fm
parents:
diff changeset
    63
    ^ '$Header$'
228
ae68951ec53e changed: #version_SVN
fm
parents: 32
diff changeset
    64
!
ae68951ec53e changed: #version_SVN
fm
parents: 32
diff changeset
    65
ae68951ec53e changed: #version_SVN
fm
parents: 32
diff changeset
    66
version_CVS
ae68951ec53e changed: #version_SVN
fm
parents: 32
diff changeset
    67
    ^ '$Header$'
ae68951ec53e changed: #version_SVN
fm
parents: 32
diff changeset
    68
!
ae68951ec53e changed: #version_SVN
fm
parents: 32
diff changeset
    69
ae68951ec53e changed: #version_SVN
fm
parents: 32
diff changeset
    70
version_SVN
304
a3453cbd7532 update #version_SVN with § as keyword expansion character
fm
parents: 228
diff changeset
    71
    ^'§Id: SVN__CopyCommand.st 70 2009-04-16 12:47:44Z vranyj1 §'
32
6a126500f17d initial checkin
fm
parents:
diff changeset
    72
! !