|
1 "{ Package: 'cvut:stx/goodies/libsvn' }" |
|
2 |
|
3 "{ NameSpace: SVN }" |
|
4 |
|
5 XMLObject subclass:#RevisionLogEntry |
|
6 instanceVariableNames:'revision author date message changedPaths' |
|
7 classVariableNames:'' |
|
8 poolDictionaries:'' |
|
9 category:'SVN-Repository' |
|
10 ! |
|
11 |
|
12 !RevisionLogEntry class methodsFor:'documentation'! |
|
13 |
|
14 version_SVN |
|
15 ^'$Id$' |
|
16 ! ! |
|
17 |
|
18 !RevisionLogEntry methodsFor:'accessing'! |
|
19 |
|
20 author |
|
21 ^ author |
|
22 |
|
23 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
24 ! |
|
25 |
|
26 author:something |
|
27 author := something. |
|
28 |
|
29 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
30 ! |
|
31 |
|
32 changedPaths |
|
33 ^ changedPaths ? #() |
|
34 |
|
35 "Modified: / 24-06-2009 / 15:10:48 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
36 ! |
|
37 |
|
38 date |
|
39 ^ date |
|
40 |
|
41 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
42 ! |
|
43 |
|
44 date:something |
|
45 date := something. |
|
46 |
|
47 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
48 ! |
|
49 |
|
50 message |
|
51 ^ message |
|
52 |
|
53 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
54 ! |
|
55 |
|
56 message:something |
|
57 message := something. |
|
58 |
|
59 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
60 ! |
|
61 |
|
62 revision |
|
63 ^ revision |
|
64 |
|
65 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
66 ! |
|
67 |
|
68 revision:something |
|
69 revision := something. |
|
70 |
|
71 "Created: / 19-04-2008 / 12:26:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
72 ! ! |
|
73 |
|
74 !RevisionLogEntry methodsFor:'instance creation'! |
|
75 |
|
76 readFromXml: xml |
|
77 revision := Revision number: xml @ 'revision'. |
|
78 author := (xml / 'author') characterData. |
|
79 date := Timestamp readISO8601From: (xml / 'date') characterData. |
|
80 message := (xml / 'msg') characterData. |
|
81 changedPaths := (xml / 'paths' / 'path') |
|
82 collect: [:e | WCActionNotification readFromXml: e ]. |
|
83 |
|
84 "Created: / 11-04-2008 / 13:27:47 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
85 "Modified: / 18-08-2009 / 14:38:48 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
86 "Modified: / 27-08-2009 / 09:30:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
87 ! ! |
|
88 |
|
89 !RevisionLogEntry class methodsFor:'documentation'! |
|
90 |
|
91 version |
|
92 ^ '$Header$' |
|
93 ! ! |