SVN__RepositoryEntry.st
author convert-repo
Tue, 09 Aug 2016 03:35:30 +0000
changeset 1178 3a6dad9479fd
parent 910 610afdff6ef1
permissions -rw-r--r--
update tags
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
765
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     1
"
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     4
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     6
 obtaining a copy of this software and associated documentation
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     7
 files (the 'Software'), to deal in the Software without
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     8
 restriction, including without limitation the rights to use,
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    10
 copies of the Software, and to permit persons to whom the
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    11
 Software is furnished to do so, subject to the following
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    12
 conditions:
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    13
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    14
 The above copyright notice and this permission notice shall be
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    15
 included in all copies or substantial portions of the Software.
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    16
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    25
"
396
fd5b4307f7cc *** empty log message ***
fm
parents: 362
diff changeset
    26
"{ Package: 'stx:libsvn' }"
37
731911a0c402 initial checkin
fm
parents:
diff changeset
    27
731911a0c402 initial checkin
fm
parents:
diff changeset
    28
"{ NameSpace: SVN }"
731911a0c402 initial checkin
fm
parents:
diff changeset
    29
731911a0c402 initial checkin
fm
parents:
diff changeset
    30
Entry subclass:#RepositoryEntry
731911a0c402 initial checkin
fm
parents:
diff changeset
    31
	instanceVariableNames:'size branch'
731911a0c402 initial checkin
fm
parents:
diff changeset
    32
	classVariableNames:''
731911a0c402 initial checkin
fm
parents:
diff changeset
    33
	poolDictionaries:''
731911a0c402 initial checkin
fm
parents:
diff changeset
    34
	category:'SVN-Repository'
731911a0c402 initial checkin
fm
parents:
diff changeset
    35
!
731911a0c402 initial checkin
fm
parents:
diff changeset
    36
765
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    37
!RepositoryEntry class methodsFor:'documentation'!
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    38
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    39
copyright
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    40
"
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    41
 Copyright (c) 2007-2010 Jan Vrany
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    42
 Copyright (c) 2009-2010 eXept Software AG
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    43
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    45
 obtaining a copy of this software and associated documentation
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    46
 files (the 'Software'), to deal in the Software without
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    47
 restriction, including without limitation the rights to use,
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    49
 copies of the Software, and to permit persons to whom the
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    50
 Software is furnished to do so, subject to the following
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    51
 conditions:
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    52
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    53
 The above copyright notice and this permission notice shall be
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    54
 included in all copies or substantial portions of the Software.
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    55
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    64
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    65
"
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    66
! !
37
731911a0c402 initial checkin
fm
parents:
diff changeset
    67
731911a0c402 initial checkin
fm
parents:
diff changeset
    68
!RepositoryEntry class methodsFor:'instance creation'!
731911a0c402 initial checkin
fm
parents:
diff changeset
    69
731911a0c402 initial checkin
fm
parents:
diff changeset
    70
readFromXml: anXMLNode
731911a0c402 initial checkin
fm
parents:
diff changeset
    71
731911a0c402 initial checkin
fm
parents:
diff changeset
    72
    ^self new readFromXml: anXMLNode
731911a0c402 initial checkin
fm
parents:
diff changeset
    73
731911a0c402 initial checkin
fm
parents:
diff changeset
    74
    "Created: / 18-08-2009 / 17:24:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
731911a0c402 initial checkin
fm
parents:
diff changeset
    75
    "Modified: / 19-08-2009 / 08:51:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
731911a0c402 initial checkin
fm
parents:
diff changeset
    76
! !
731911a0c402 initial checkin
fm
parents:
diff changeset
    77
765
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    78
!RepositoryEntry class methodsFor:'others'!
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    79
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    80
version_CVS
910
610afdff6ef1 checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 765
diff changeset
    81
    ^ '$Header$'
765
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    82
! !
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    83
37
731911a0c402 initial checkin
fm
parents:
diff changeset
    84
!RepositoryEntry methodsFor:'accessing'!
731911a0c402 initial checkin
fm
parents:
diff changeset
    85
731911a0c402 initial checkin
fm
parents:
diff changeset
    86
branch
731911a0c402 initial checkin
fm
parents:
diff changeset
    87
    ^ branch
731911a0c402 initial checkin
fm
parents:
diff changeset
    88
! !
731911a0c402 initial checkin
fm
parents:
diff changeset
    89
731911a0c402 initial checkin
fm
parents:
diff changeset
    90
!RepositoryEntry methodsFor:'initialization'!
731911a0c402 initial checkin
fm
parents:
diff changeset
    91
731911a0c402 initial checkin
fm
parents:
diff changeset
    92
readFromXml: anXMLNode
731911a0c402 initial checkin
fm
parents:
diff changeset
    93
731911a0c402 initial checkin
fm
parents:
diff changeset
    94
    kind := (NodeKind withName: anXMLNode @ 'kind').
731911a0c402 initial checkin
fm
parents:
diff changeset
    95
    path := (anXMLNode / 'name') characterData.
765
49ad4ac89904 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 396
diff changeset
    96
    revision := SVN::Revision number: ((anXMLNode / 'commit' ) first @ 'revision').
37
731911a0c402 initial checkin
fm
parents:
diff changeset
    97
    date := Timestamp readISO8601From: (anXMLNode / 'commit' / 'date') characterData.
731911a0c402 initial checkin
fm
parents:
diff changeset
    98
    author := (anXMLNode / 'commit' / 'author') characterData.
731911a0c402 initial checkin
fm
parents:
diff changeset
    99
    size := (anXMLNode / 'size') characterData.
731911a0c402 initial checkin
fm
parents:
diff changeset
   100
    size isNilOrEmptyCollection ifFalse:[size := size asInteger]
731911a0c402 initial checkin
fm
parents:
diff changeset
   101
731911a0c402 initial checkin
fm
parents:
diff changeset
   102
    "Created: / 19-08-2009 / 08:52:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
731911a0c402 initial checkin
fm
parents:
diff changeset
   103
    "Modified: / 19-08-2009 / 15:07:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
731911a0c402 initial checkin
fm
parents:
diff changeset
   104
!
731911a0c402 initial checkin
fm
parents:
diff changeset
   105
731911a0c402 initial checkin
fm
parents:
diff changeset
   106
setBranch: aBranch
731911a0c402 initial checkin
fm
parents:
diff changeset
   107
731911a0c402 initial checkin
fm
parents:
diff changeset
   108
    branch := aBranch
731911a0c402 initial checkin
fm
parents:
diff changeset
   109
731911a0c402 initial checkin
fm
parents:
diff changeset
   110
    "Created: / 18-08-2009 / 13:15:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
731911a0c402 initial checkin
fm
parents:
diff changeset
   111
! !
731911a0c402 initial checkin
fm
parents:
diff changeset
   112
731911a0c402 initial checkin
fm
parents:
diff changeset
   113
!RepositoryEntry class methodsFor:'documentation'!
731911a0c402 initial checkin
fm
parents:
diff changeset
   114
731911a0c402 initial checkin
fm
parents:
diff changeset
   115
version
910
610afdff6ef1 checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 765
diff changeset
   116
    ^ '$Header$'
219
8ac3a68472ee changed: #version_SVN
fm
parents: 37
diff changeset
   117
!
8ac3a68472ee changed: #version_SVN
fm
parents: 37
diff changeset
   118
8ac3a68472ee changed: #version_SVN
fm
parents: 37
diff changeset
   119
version_SVN
910
610afdff6ef1 checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 765
diff changeset
   120
    ^ '§Id: SVN__RepositoryEntry.st 363 2011-08-08 13:49:48Z vranyj1 §'
37
731911a0c402 initial checkin
fm
parents:
diff changeset
   121
! !