SVN__LogCommand.st
author Claus Gittinger <cg@exept.de>
Fri, 18 Nov 2016 16:14:26 +0100
changeset 1180 92753f6cc822
parent 939 1c253f2e5e3c
permissions -rw-r--r--
#REFACTORING by cg class: SVNSourceCodeManager SVNVersionInfo is private
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
696
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     1
"
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     4
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     6
 obtaining a copy of this software and associated documentation
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     7
 files (the 'Software'), to deal in the Software without
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     8
 restriction, including without limitation the rights to use,
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    10
 copies of the Software, and to permit persons to whom the
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    11
 Software is furnished to do so, subject to the following
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    12
 conditions:
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    13
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    14
 The above copyright notice and this permission notice shall be
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    15
 included in all copies or substantial portions of the Software.
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    16
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    25
"
423
a31a9534d665 *** empty log message ***
fm
parents: 363
diff changeset
    26
"{ Package: 'stx:libsvn' }"
22
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    27
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    28
"{ NameSpace: SVN }"
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    29
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    30
BranchCommand subclass:#LogCommand
939
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    31
        instanceVariableNames:'path limit'
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    32
        classVariableNames:''
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    33
        poolDictionaries:''
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    34
        category:'SVN-Private-Commands'
22
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    35
!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    36
696
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    37
!LogCommand class methodsFor:'documentation'!
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    38
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    39
copyright
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    40
"
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    41
 Copyright (c) 2007-2010 Jan Vrany
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    42
 Copyright (c) 2009-2010 eXept Software AG
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    43
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    45
 obtaining a copy of this software and associated documentation
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    46
 files (the 'Software'), to deal in the Software without
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    47
 restriction, including without limitation the rights to use,
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    49
 copies of the Software, and to permit persons to whom the
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    50
 Software is furnished to do so, subject to the following
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    51
 conditions:
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    52
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    53
 The above copyright notice and this permission notice shall be
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    54
 included in all copies or substantial portions of the Software.
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    55
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    64
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    65
"
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    66
! !
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    67
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    68
!LogCommand class methodsFor:'others'!
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    69
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    70
version_CVS
837
2220ce094dae checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 696
diff changeset
    71
    ^ '$Header$'
696
89679bd4d87a Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 423
diff changeset
    72
! !
22
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    73
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    74
!LogCommand methodsFor:'accessing'!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    75
939
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    76
limit
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    77
    ^ limit
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    78
!
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    79
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    80
limit:something
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    81
    limit := something.
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    82
!
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
    83
22
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    84
path
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    85
    ^ path
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    86
!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    87
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    88
path:aString
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    89
    path := aString.
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    90
! !
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    91
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    92
!LogCommand methodsFor:'executing - private'!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    93
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    94
svnCmd
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    95
    "raise an error: must be redefined in concrete subclass(es)"
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    96
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    97
    ^'log'
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    98
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
    99
    "Created: / 11-04-2008 / 13:25:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   100
!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   101
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   102
svnCmdArgumentsOn: args 
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   103
    args
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   104
        nextPut: '--verbose';
939
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   105
        nextPut: '--xml'.
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   106
    limit notNil ifTrue:[
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   107
        args nextPut: '--limit'.
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   108
        args nextPut: limit printString.
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   109
    ].
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   110
    revision notNil ifTrue:[
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   111
        args nextPut: '--revision'.
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   112
        args nextPut: revision printString.        
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   113
    ].
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   114
    args
22
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   115
        nextPut: self url , '/' , path
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   116
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   117
    "Created: / 11-04-2008 / 13:25:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   118
    "Modified: / 19-08-2009 / 10:02:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
939
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   119
    "Modified (format): / 15-10-2011 / 16:58:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
22
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   120
!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   121
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   122
svnParseXML: doc 
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   123
    ^ (doc root / 'logentry') asCollection 
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   124
        collect: [:entryNode | RevisionLogEntry readFromXml: entryNode ]
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   125
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   126
    "Created: / 11-04-2008 / 13:26:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   127
    "Modified: / 19-04-2008 / 18:48:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   128
!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   129
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   130
svnProcessCommandOutput:out err:err 
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   131
    ^ self svnParseXML:((XML::XMLParser on:out)
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   132
                validate:false;
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   133
                scanDocument)
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   134
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   135
    "Created: / 03-10-2008 / 16:31:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   136
! !
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   137
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   138
!LogCommand class methodsFor:'documentation'!
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   139
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   140
version
837
2220ce094dae checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 696
diff changeset
   141
    ^ '$Header$'
141
86e50704eb20 changed: #version_SVN
fm
parents: 22
diff changeset
   142
!
86e50704eb20 changed: #version_SVN
fm
parents: 22
diff changeset
   143
86e50704eb20 changed: #version_SVN
fm
parents: 22
diff changeset
   144
version_SVN
939
1c253f2e5e3c Synchronized with SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 837
diff changeset
   145
    ^ '§Id: SVN__LogCommand.st 392 2011-10-15 15:23:37Z vranyj1 §'
22
0b9e57a9cb99 initial checkin
fm
parents:
diff changeset
   146
! !