equal
deleted
inserted
replaced
62 |
62 |
63 directory := aStringOrFilename asFilename. |
63 directory := aStringOrFilename asFilename. |
64 self initialize |
64 self initialize |
65 |
65 |
66 "Modified: / 17-09-2012 / 22:29:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
66 "Modified: / 17-09-2012 / 22:29:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
67 ! |
|
68 |
|
69 reader |
|
70 ^readerClass onRepository: self |
|
71 |
|
72 "Created: / 18-09-2012 / 09:21:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
73 ! |
|
74 |
|
75 readerClass |
|
76 ^ readerClass |
|
77 ! |
|
78 |
|
79 readerClass:something |
|
80 readerClass := something. |
|
81 ! |
|
82 |
|
83 writer |
|
84 ^writerClass onRepository: self |
|
85 |
|
86 "Created: / 17-09-2012 / 22:22:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
87 ! |
|
88 |
|
89 writerClass |
|
90 ^ writerClass |
|
91 ! |
|
92 |
|
93 writerClass:something |
|
94 writerClass := something. |
|
95 ! ! |
|
96 |
|
97 !CypressRepository methodsFor:'converting'! |
|
98 |
|
99 asChange |
|
100 "superclass CypressModel says that I am responsible to implement this method" |
|
101 |
|
102 ^ self shouldNotImplement |
|
103 |
|
104 "Modified: / 18-09-2012 / 10:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
67 ! ! |
105 ! ! |
68 |
106 |
69 !CypressRepository methodsFor:'initialization'! |
107 !CypressRepository methodsFor:'initialization'! |
70 |
108 |
71 initialize |
109 initialize |
87 ]. |
125 ]. |
88 |
126 |
89 "Created: / 17-09-2012 / 22:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
127 "Created: / 17-09-2012 / 22:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
90 ! ! |
128 ! ! |
91 |
129 |
|
130 !CypressRepository methodsFor:'private'! |
|
131 |
|
132 changesInto:aChangeSet |
|
133 "superclass CypressModel says that I am responsible to implement this method" |
|
134 |
|
135 ^ self shouldNotImplement |
|
136 |
|
137 "Modified: / 18-09-2012 / 10:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
138 ! ! |
|
139 |
92 !CypressRepository methodsFor:'writing'! |
140 !CypressRepository methodsFor:'writing'! |
|
141 |
|
142 read: packageName |
|
143 |
|
144 ^self reader readPackage: packageName from: directory |
|
145 |
|
146 "Created: / 18-09-2012 / 09:34:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
147 ! |
93 |
148 |
94 write: packageIdOrProjectDefinition |
149 write: packageIdOrProjectDefinition |
95 |
150 |
96 self writer writePackage: packageIdOrProjectDefinition asCypressPackage to: directory |
151 self writer writePackage: packageIdOrProjectDefinition asCypressPackage to: directory |
97 |
152 |
101 write: packageIdOrProjectDefinition as: nm |
156 write: packageIdOrProjectDefinition as: nm |
102 |
157 |
103 self writer writePackage: packageIdOrProjectDefinition as: nm to: directory |
158 self writer writePackage: packageIdOrProjectDefinition as: nm to: directory |
104 |
159 |
105 "Created: / 17-09-2012 / 22:23:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
160 "Created: / 17-09-2012 / 22:23:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
106 ! |
|
107 |
|
108 writer |
|
109 ^writerClass onRepository: self |
|
110 |
|
111 "Created: / 17-09-2012 / 22:22:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
112 ! ! |
161 ! ! |
113 |
162 |
114 !CypressRepository class methodsFor:'documentation'! |
163 !CypressRepository class methodsFor:'documentation'! |
115 |
164 |
116 version_SVN |
165 version_SVN |