|
13872
|
1 |
"
|
|
|
2 |
Copyright (c) 2007-2012 Tony Garnock-Jones
|
|
|
3 |
|
|
|
4 |
This code is based on Squeak's DiffMerge package
|
|
|
5 |
written by Tony Garnock-Jones. Original project's web site:
|
|
|
6 |
|
|
|
7 |
http://www.squeaksource.com/DiffMerge
|
|
|
8 |
|
|
|
9 |
Permission is hereby granted, free of charge, to any person
|
|
|
10 |
obtaining a copy of this software and associated documentation
|
|
|
11 |
files (the 'Software'), to deal in the Software without
|
|
|
12 |
restriction, including without limitation the rights to use,
|
|
|
13 |
copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
14 |
copies of the Software, and to permit persons to whom the
|
|
|
15 |
Software is furnished to do so, subject to the following
|
|
|
16 |
conditions:
|
|
|
17 |
|
|
|
18 |
The above copyright notice and this permission notice shall be
|
|
|
19 |
included in all copies or substantial portions of the Software.
|
|
|
20 |
|
|
|
21 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
|
|
|
22 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
|
|
|
23 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
|
24 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
|
|
25 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
|
|
26 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
|
27 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
|
|
28 |
OTHER DEALINGS IN THE SOFTWARE.
|
|
|
29 |
"
|
|
|
30 |
"{ Package: 'stx:libtool' }"
|
|
|
31 |
|
|
16950
|
32 |
"{ NameSpace: Smalltalk }"
|
|
|
33 |
|
|
13872
|
34 |
Object subclass:#Diff3
|
|
|
35 |
instanceVariableNames:'file1 file0 file2 diffClass'
|
|
|
36 |
classVariableNames:''
|
|
|
37 |
poolDictionaries:''
|
|
14006
|
38 |
category:'Collections-Sequenceable-Diff'
|
|
13872
|
39 |
!
|
|
|
40 |
|
|
|
41 |
Object subclass:#Chunk
|
|
|
42 |
instanceVariableNames:'offset length side'
|
|
|
43 |
classVariableNames:''
|
|
|
44 |
poolDictionaries:''
|
|
|
45 |
privateIn:Diff3
|
|
|
46 |
!
|
|
|
47 |
|
|
|
48 |
Object subclass:#Conflict
|
|
|
49 |
instanceVariableNames:'left original right'
|
|
|
50 |
classVariableNames:''
|
|
|
51 |
poolDictionaries:''
|
|
|
52 |
privateIn:Diff3
|
|
|
53 |
!
|
|
|
54 |
|
|
|
55 |
Diff3 comment:'Diff3 provides a three-way-merge algorithm suitable for performing textual merges, such as are often required as part of source-code version control systems.
|
|
|
56 |
Instance Variables
|
|
|
57 |
diffClass: <Class> Should be a subclass of GenericDiff. Used to resolve changes.
|
|
|
58 |
file0: <SequenceableCollection> The ancestral file.
|
|
|
59 |
file1: <SequenceableCollection> The left branch.
|
|
|
60 |
file2: <SequenceableCollection> The right branch.
|
|
|
61 |
--
|
|
|
62 |
Copyright (c) 2008 Tony Garnock-Jones <tonyg@lshift.net>
|
|
|
63 |
Copyright (c) 2008 LShift Ltd. <query@lshift.net>
|
|
|
64 |
Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction,including without limitation the rights to use, copy, modify, merge,publish, distribute, sublicense, and/or sell copies of the Software,and to permit persons to whom the Software is furnished to do so,subject to the following conditions:
|
|
|
65 |
The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
|
|
|
66 |
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|
67 |
'
|
|
|
68 |
!
|
|
|
69 |
|
|
|
70 |
!Diff3 class methodsFor:'documentation'!
|
|
|
71 |
|
|
|
72 |
copyright
|
|
|
73 |
"
|
|
|
74 |
Copyright (c) 2007-2012 Tony Garnock-Jones
|
|
|
75 |
|
|
|
76 |
This code is based on Squeak's DiffMerge package
|
|
|
77 |
written by Tony Garnock-Jones. Original project's web site:
|
|
|
78 |
|
|
|
79 |
http://www.squeaksource.com/DiffMerge
|
|
|
80 |
|
|
|
81 |
Permission is hereby granted, free of charge, to any person
|
|
|
82 |
obtaining a copy of this software and associated documentation
|
|
|
83 |
files (the 'Software'), to deal in the Software without
|
|
|
84 |
restriction, including without limitation the rights to use,
|
|
|
85 |
copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
86 |
copies of the Software, and to permit persons to whom the
|
|
|
87 |
Software is furnished to do so, subject to the following
|
|
|
88 |
conditions:
|
|
|
89 |
|
|
|
90 |
The above copyright notice and this permission notice shall be
|
|
|
91 |
included in all copies or substantial portions of the Software.
|
|
|
92 |
|
|
|
93 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
|
|
|
94 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
|
|
|
95 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
|
96 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
|
|
97 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
|
|
98 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
|
99 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
|
|
100 |
OTHER DEALINGS IN THE SOFTWARE.
|
|
|
101 |
|
|
|
102 |
"
|
|
|
103 |
!
|
|
|
104 |
|
|
|
105 |
documentation
|
|
|
106 |
"
|
|
16950
|
107 |
Diff3 provides a three-way-merge algorithm suitable for performing textual merges,
|
|
|
108 |
such as are often required as part of source-code version control systems.
|
|
13872
|
109 |
|
|
14006
|
110 |
Instance Variables
|
|
13872
|
111 |
diffClass: <Class> Should be a subclass of GenericDiff. Used to resolve changes.
|
|
|
112 |
file0: <SequenceableCollection> The ancestral file.
|
|
|
113 |
file1: <SequenceableCollection> The left branch.
|
|
|
114 |
file2: <SequenceableCollection> The right branch.
|
|
|
115 |
|
|
|
116 |
[author:]
|
|
|
117 |
Tony Garnock-Jones <tonyg@lshift.com>
|
|
|
118 |
|
|
|
119 |
[instance variables:]
|
|
|
120 |
|
|
|
121 |
[class variables:]
|
|
|
122 |
|
|
|
123 |
[see also:]
|
|
|
124 |
|
|
|
125 |
"
|
|
|
126 |
! !
|
|
|
127 |
|
|
|
128 |
!Diff3 methodsFor:'accessing'!
|
|
|
129 |
|
|
|
130 |
diffClass
|
|
|
131 |
^ diffClass ? Diff2::HuntMcilroy
|
|
|
132 |
|
|
|
133 |
"Modified (format): / 16-03-2012 / 20:27:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
134 |
!
|
|
|
135 |
|
|
|
136 |
diffClass: anObject
|
|
|
137 |
diffClass := anObject
|
|
|
138 |
!
|
|
|
139 |
|
|
|
140 |
file0
|
|
|
141 |
^ file0
|
|
|
142 |
!
|
|
|
143 |
|
|
|
144 |
file0: anObject
|
|
|
145 |
file0 := anObject
|
|
|
146 |
!
|
|
|
147 |
|
|
|
148 |
file1
|
|
|
149 |
^ file1
|
|
|
150 |
!
|
|
|
151 |
|
|
|
152 |
file1: anObject
|
|
|
153 |
file1 := anObject
|
|
|
154 |
!
|
|
|
155 |
|
|
|
156 |
file2
|
|
|
157 |
^ file2
|
|
|
158 |
!
|
|
|
159 |
|
|
|
160 |
file2: anObject
|
|
|
161 |
file2 := anObject
|
|
|
162 |
!
|
|
|
163 |
|
|
|
164 |
fileAt: side
|
|
|
165 |
"Given a side (#left, #original or #right), returns the
|
|
|
166 |
corresponding file"
|
|
|
167 |
|
|
|
168 |
side == #left ifTrue:[ ^ file1 ].
|
|
|
169 |
side == #original ifTrue:[ ^ file0 ].
|
|
|
170 |
side == #right ifTrue:[ ^ file2 ].
|
|
|
171 |
|
|
|
172 |
self error:'Invalid parameter, must be one of #left, #original or #right'.
|
|
|
173 |
|
|
|
174 |
"Created: / 03-04-2012 / 23:30:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
175 |
! !
|
|
|
176 |
|
|
|
177 |
!Diff3 methodsFor:'merging'!
|
|
|
178 |
|
|
|
179 |
diffIndices
|
|
|
180 |
"Returns an Array of Diff3Chunks (representing clean merges) or Diff3Conflicts
|
|
|
181 |
(containing DiffChunks, representing conflicts), together representing the
|
|
|
182 |
results of a three-way merge between file1/file0/file2. Does not detect
|
|
|
183 |
'false conflicts', and can return two Diff3Chunks next to each other in
|
|
|
184 |
the result."
|
|
|
185 |
|
|
|
186 |
| result commonOffset hunks lastOverlapHunkIndex hunk firstHunkIndex |
|
|
|
187 |
|
|
|
188 |
hunks := self computeHunks.
|
|
|
189 |
result := OrderedCollection new.
|
|
|
190 |
commonOffset := 1.
|
|
|
191 |
firstHunkIndex := 1.
|
|
|
192 |
[firstHunkIndex <= hunks size] whileTrue: [
|
|
|
193 |
| conflict |
|
|
|
194 |
|
|
|
195 |
hunk := hunks at: firstHunkIndex.
|
|
|
196 |
self addCommonChunkTo: result between: commonOffset and: hunk oldChunk offset.
|
|
|
197 |
lastOverlapHunkIndex := self findOverlapStartingAt: firstHunkIndex in: hunks.
|
|
|
198 |
|
|
|
199 |
(firstHunkIndex = lastOverlapHunkIndex)"false" ifTrue: [
|
|
|
200 |
conflict := self computeConflictFromCleanMerge: hunk.
|
|
|
201 |
result add: conflict.
|
|
|
202 |
commonOffset := (hunks at: lastOverlapHunkIndex) oldChunk lastIndex + 1.
|
|
|
203 |
] ifFalse: [
|
|
|
204 |
|
|
|
205 |
conflict := self computeConflictFrom: firstHunkIndex
|
|
|
206 |
to: lastOverlapHunkIndex
|
|
|
207 |
hunks: hunks.
|
|
|
208 |
result add: conflict.
|
|
|
209 |
commonOffset := conflict original lastIndex + 1.
|
|
|
210 |
].
|
|
|
211 |
|
|
|
212 |
firstHunkIndex := lastOverlapHunkIndex + 1
|
|
|
213 |
].
|
|
|
214 |
self addCommonChunkTo: result between: commonOffset and: file0 size + 1.
|
|
|
215 |
^ result asArray
|
|
|
216 |
|
|
|
217 |
"Created: / 20-03-2012 / 18:27:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
218 |
!
|
|
|
219 |
|
|
|
220 |
merge
|
|
|
221 |
"Returns an Array of (#ok -> {...}) or (#conflict -> Diff3Conflict
|
|
|
222 |
of collections) instances representing the results of a three-way
|
|
|
223 |
merge between file1/file0/file2. Does not optimistically treat
|
|
|
224 |
'false conflicts' as clean merges (see the class comment for
|
|
|
225 |
Diff3InclusiveVisitor)."
|
|
|
226 |
|
|
|
227 |
^ self merge: false
|
|
|
228 |
|
|
|
229 |
"Modified (comment): / 16-03-2012 / 20:26:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
230 |
!
|
|
|
231 |
|
|
|
232 |
mergeClean
|
|
|
233 |
"Returns an Array of (#ok -> {...}) or (#conflict -> Diff3Conflict of
|
|
|
234 |
collections) instances representing the results of a three-way merge
|
|
|
235 |
between file1/file0/file2. Optimistically treats 'false conflicts'
|
|
|
236 |
as clean merges (see the class comment for Diff3ExclusiveVisitor)."
|
|
|
237 |
|
|
|
238 |
^ self merge: true
|
|
|
239 |
|
|
|
240 |
"Modified (format): / 16-03-2012 / 20:26:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
241 |
!
|
|
|
242 |
|
|
|
243 |
mergeIndices
|
|
|
244 |
"Returns an Array of Diff3Chunks (representing clean merges) or Diff3Conflicts
|
|
|
245 |
(containing DiffChunks, representing conflicts), together representing the
|
|
|
246 |
results of a three-way merge between file1/file0/file2. Does not detect
|
|
|
247 |
'false conflicts', and can return two Diff3Chunks next to each other in
|
|
|
248 |
the result."
|
|
|
249 |
|
|
|
250 |
^self mergeIndicesDiscardEmpty: true
|
|
|
251 |
|
|
|
252 |
"Modified: / 09-04-2012 / 16:26:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
253 |
!
|
|
|
254 |
|
|
|
255 |
mergeIndicesDiscardEmpty: discardEmpty
|
|
|
256 |
"Returns an Array of Diff3Chunks (representing clean merges) or Diff3Conflicts
|
|
|
257 |
(containing DiffChunks, representing conflicts), together representing the
|
|
|
258 |
results of a three-way merge between file1/file0/file2. Does not detect
|
|
|
259 |
'false conflicts', and can return two Diff3Chunks next to each other in
|
|
|
260 |
the result.
|
|
|
261 |
|
|
|
262 |
If discard empty is true, empty clean merge chunks are not included
|
|
|
263 |
"
|
|
|
264 |
|
|
|
265 |
| result commonOffset hunks lastOverlapHunkIndex hunk firstHunkIndex |
|
|
|
266 |
|
|
|
267 |
hunks := self computeHunks.
|
|
|
268 |
result := OrderedCollection new.
|
|
|
269 |
commonOffset := 1.
|
|
|
270 |
firstHunkIndex := 1.
|
|
|
271 |
[firstHunkIndex <= hunks size] whileTrue: [
|
|
|
272 |
|
|
|
273 |
hunk := hunks at: firstHunkIndex.
|
|
|
274 |
self addCommonChunkTo: result between: commonOffset and: hunk oldChunk offset.
|
|
|
275 |
lastOverlapHunkIndex := self findOverlapStartingAt: firstHunkIndex in: hunks.
|
|
|
276 |
|
|
|
277 |
(firstHunkIndex = lastOverlapHunkIndex) ifTrue: [
|
|
|
278 |
(discardEmpty and:[hunk newChunk length == 0]) ifTrue:[
|
|
|
279 |
"/Empty chunk...
|
|
|
280 |
] ifFalse:[
|
|
|
281 |
result add: (Diff3::Chunk side: hunk side chunk: hunk newChunk)
|
|
|
282 |
].
|
|
|
283 |
commonOffset := (hunks at: lastOverlapHunkIndex) oldChunk lastIndex + 1.
|
|
|
284 |
] ifFalse: [
|
|
|
285 |
| conflict |
|
|
|
286 |
conflict := self computeConflictFrom: firstHunkIndex
|
|
|
287 |
to: lastOverlapHunkIndex
|
|
|
288 |
hunks: hunks.
|
|
|
289 |
result add: conflict.
|
|
|
290 |
commonOffset := conflict original lastIndex + 1.
|
|
|
291 |
].
|
|
|
292 |
|
|
|
293 |
firstHunkIndex := lastOverlapHunkIndex + 1
|
|
|
294 |
].
|
|
|
295 |
self addCommonChunkTo: result between: commonOffset and: file0 size + 1.
|
|
|
296 |
^ result asArray
|
|
|
297 |
|
|
|
298 |
"Created: / 09-04-2012 / 16:25:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
299 |
! !
|
|
|
300 |
|
|
|
301 |
!Diff3 methodsFor:'private'!
|
|
|
302 |
|
|
|
303 |
addCommonChunkTo: result between: commonOffset and: targetOffset
|
|
|
304 |
targetOffset > commonOffset ifTrue: [
|
|
|
305 |
result add: (Diff3::Chunk new
|
|
|
306 |
side: #original;
|
|
|
307 |
offset: commonOffset;
|
|
|
308 |
length: targetOffset - commonOffset)].
|
|
|
309 |
^ targetOffset
|
|
|
310 |
|
|
|
311 |
"Modified: / 16-03-2012 / 19:20:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
312 |
!
|
|
|
313 |
|
|
|
314 |
computeConflictChunk: side fromCleanMerge: hunk old: old new: new into: conflict
|
|
|
315 |
|
|
|
316 |
side == hunk side ifTrue:[
|
|
|
317 |
conflict at: side put: hunk newChunk.
|
|
|
318 |
^self
|
|
|
319 |
].
|
|
|
320 |
"Hmm....we have to compare"
|
|
|
321 |
|
|
|
322 |
|
|
|
323 |
(hunk newChunk extractSafeFrom: (self fileAt: side)) = new ifTrue:[
|
|
|
324 |
conflict at: side put: hunk newChunk.
|
|
|
325 |
] ifFalse:[
|
|
|
326 |
conflict at: side put: hunk oldChunk.
|
|
|
327 |
]
|
|
|
328 |
|
|
|
329 |
"Created: / 06-04-2012 / 12:31:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
330 |
!
|
|
|
331 |
|
|
|
332 |
computeConflictFrom: i1 to: i2 hunks: hunks
|
|
|
333 |
| hunk conflict l o r lo ro chunk chunkOrig |
|
|
|
334 |
conflict := Diff3::Conflict new.
|
|
|
335 |
conflict left: (l := Diff2::Chunk negativeSize: file1 size).
|
|
|
336 |
conflict original: (o := Diff2::Chunk negativeSize: file0 size).
|
|
|
337 |
conflict right: (r := Diff2::Chunk negativeSize: file2 size).
|
|
|
338 |
lo := o copy.
|
|
|
339 |
ro := o copy.
|
|
|
340 |
|
|
|
341 |
i1 to: i2 do: [:index |
|
|
|
342 |
hunk := hunks at: index.
|
|
|
343 |
(hunk side = #left)
|
|
|
344 |
ifTrue: [chunk := l. chunkOrig := lo.]
|
|
|
345 |
ifFalse: [chunk := r. chunkOrig := ro.].
|
|
|
346 |
o destructiveMergeWith: hunk oldChunk.
|
|
|
347 |
chunk destructiveMergeWith: hunk newChunk.
|
|
|
348 |
chunkOrig destructiveMergeWith: hunk oldChunk].
|
|
|
349 |
|
|
|
350 |
l correctForSkewFrom: lo to: o.
|
|
|
351 |
r correctForSkewFrom: ro to: o.
|
|
|
352 |
|
|
|
353 |
^ conflict
|
|
|
354 |
|
|
|
355 |
"Modified: / 16-03-2012 / 19:20:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
356 |
!
|
|
|
357 |
|
|
|
358 |
computeConflictFromCleanMerge: hunk
|
|
|
359 |
| conflict old new |
|
|
|
360 |
|
|
|
361 |
conflict := Conflict new.
|
|
|
362 |
|
|
|
363 |
old := hunk oldChunk extractFrom: file0.
|
|
|
364 |
new := hunk newChunk extractFrom: (self fileAt: hunk side).
|
|
|
365 |
|
|
|
366 |
conflict left: old.
|
|
|
367 |
conflict original: old.
|
|
|
368 |
conflict right: old.
|
|
|
369 |
conflict instVarNamed:hunk side put: hunk newChunk.
|
|
|
370 |
|
|
|
371 |
^conflict.
|
|
|
372 |
|
|
|
373 |
"Created: / 06-04-2012 / 12:13:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
374 |
!
|
|
|
375 |
|
|
|
376 |
computeHunks
|
|
|
377 |
| diff2 diff1 hunks |
|
|
|
378 |
diff1 := self diffClass new file1: file0; file2: file1; diffIndices.
|
|
|
379 |
diff2 := self diffClass new file1: file0; file2: file2; diffIndices.
|
|
|
380 |
hunks := OrderedCollection new.
|
|
|
381 |
diff1 do: [ :entry | hunks add: (Diff3Hunk side: #left entry: entry) ].
|
|
|
382 |
diff2 do: [ :entry | hunks add: (Diff3Hunk side: #right entry: entry) ].
|
|
|
383 |
^ hunks asSortedCollection:[:a :b|a <= b].
|
|
|
384 |
|
|
|
385 |
"Modified: / 16-03-2012 / 20:29:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
386 |
!
|
|
|
387 |
|
|
|
388 |
fileMap
|
|
|
389 |
| files |
|
|
|
390 |
files := Dictionary new.
|
|
|
391 |
files at: #left put: file1.
|
|
|
392 |
files at: #original put: file0.
|
|
|
393 |
files at: #right put: file2.
|
|
|
394 |
^ files
|
|
|
395 |
!
|
|
|
396 |
|
|
|
397 |
findOverlapStartingAt: startIndex in: hunks
|
|
|
398 |
| nextRegionLhs hunk |
|
|
|
399 |
nextRegionLhs := (hunks at: startIndex) oldChunk lastIndex + 1.
|
|
|
400 |
startIndex + 1 to: hunks size do: [:index |
|
|
|
401 |
hunk := hunks at: index.
|
|
|
402 |
hunk oldChunk offset > nextRegionLhs ifTrue: [
|
|
|
403 |
^ index - 1
|
|
|
404 |
].
|
|
|
405 |
nextRegionLhs := nextRegionLhs max: hunk oldChunk lastIndex + 1
|
|
|
406 |
].
|
|
|
407 |
^ hunks size.
|
|
|
408 |
|
|
|
409 |
"Modified (format): / 20-03-2012 / 18:04:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
410 |
!
|
|
|
411 |
|
|
|
412 |
merge: excludeFalseConflicts
|
|
|
413 |
| visitor |
|
|
|
414 |
visitor := excludeFalseConflicts
|
|
|
415 |
ifTrue: [Diff3ExclusiveVisitor new]
|
|
|
416 |
ifFalse: [Diff3InclusiveVisitor new].
|
|
|
417 |
visitor files: self fileMap.
|
|
|
418 |
self mergeIndices do: [:each | each accept: visitor].
|
|
|
419 |
^ visitor result
|
|
|
420 |
! !
|
|
|
421 |
|
|
|
422 |
!Diff3::Chunk class methodsFor:'as yet unclassified'!
|
|
|
423 |
|
|
|
424 |
negativeSize: s
|
|
|
425 |
"Returns a pseudo-chunk with *negative* length, useful as a kind of zero for destructiveMergeWith: operations intended to build up coverage over some set of chunks."
|
|
|
426 |
^ self new offset: s + 1; length: s negated
|
|
|
427 |
!
|
|
|
428 |
|
|
|
429 |
offset: o length: l
|
|
|
430 |
^ self new offset: o; length: l
|
|
|
431 |
!
|
|
|
432 |
|
|
|
433 |
side: aSelector chunk: aChunk
|
|
|
434 |
^ self new side: aSelector; offset: aChunk offset; length: aChunk length
|
|
|
435 |
! !
|
|
|
436 |
|
|
|
437 |
!Diff3::Chunk class methodsFor:'documentation'!
|
|
|
438 |
|
|
|
439 |
copyright
|
|
|
440 |
"
|
|
|
441 |
Copyright (c) 2007-2012 Tony Garnock-Jones
|
|
|
442 |
|
|
|
443 |
This code is based on Squeak's DiffMerge package
|
|
|
444 |
written by Tony Garnock-Jones. Original project's web site:
|
|
|
445 |
|
|
|
446 |
http://www.squeaksource.com/DiffMerge
|
|
|
447 |
|
|
|
448 |
Permission is hereby granted, free of charge, to any person
|
|
|
449 |
obtaining a copy of this software and associated documentation
|
|
|
450 |
files (the 'Software'), to deal in the Software without
|
|
|
451 |
restriction, including without limitation the rights to use,
|
|
|
452 |
copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
453 |
copies of the Software, and to permit persons to whom the
|
|
|
454 |
Software is furnished to do so, subject to the following
|
|
|
455 |
conditions:
|
|
|
456 |
|
|
|
457 |
The above copyright notice and this permission notice shall be
|
|
|
458 |
included in all copies or substantial portions of the Software.
|
|
|
459 |
|
|
|
460 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
|
|
|
461 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
|
|
|
462 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
|
463 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
|
|
464 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
|
|
465 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
|
466 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
|
|
467 |
OTHER DEALINGS IN THE SOFTWARE.
|
|
|
468 |
|
|
|
469 |
"
|
|
|
470 |
!
|
|
|
471 |
|
|
|
472 |
documentation
|
|
|
473 |
"
|
|
14006
|
474 |
A Diff3Chunk is a subclass of DiffChunk that also knows which side of a three-way merge it represents.
|
|
13872
|
475 |
|
|
14006
|
476 |
Instance Variables
|
|
13872
|
477 |
side: <Symbol> One of #left, #original or #right
|
|
|
478 |
|
|
|
479 |
[author:]
|
|
|
480 |
Tony Garnock-Jones <tonyg@lshift.com>
|
|
|
481 |
|
|
|
482 |
[instance variables:]
|
|
|
483 |
|
|
|
484 |
[class variables:]
|
|
|
485 |
|
|
|
486 |
[see also:]
|
|
|
487 |
|
|
|
488 |
"
|
|
|
489 |
! !
|
|
|
490 |
|
|
|
491 |
!Diff3::Chunk methodsFor:'accessing'!
|
|
|
492 |
|
|
|
493 |
correctForSkewFrom: smallerChunk to: biggerChunk
|
|
|
494 |
"Given a biggerChunk that definitely contains smallerChunk but might have an extra head or tail, updates the receiver to include such an extra head or tail."
|
|
|
495 |
| headSize tailSize |
|
|
|
496 |
headSize := smallerChunk offset - biggerChunk offset.
|
|
|
497 |
tailSize := biggerChunk lastIndex - smallerChunk lastIndex.
|
|
|
498 |
offset := offset - headSize.
|
|
|
499 |
length := length + headSize + tailSize.
|
|
|
500 |
!
|
|
|
501 |
|
|
|
502 |
destructiveMergeWith: aChunk
|
|
|
503 |
| newLastIndex |
|
|
|
504 |
newLastIndex := self lastIndex max: aChunk lastIndex.
|
|
|
505 |
offset := offset min: aChunk offset.
|
|
|
506 |
length := newLastIndex - offset + 1.
|
|
|
507 |
!
|
|
|
508 |
|
|
|
509 |
lastIndex
|
|
|
510 |
"Returns the rightmost index contained in my range. (Offset is the leftmost index.) If my length is zero, will return an index lower than my offset."
|
|
|
511 |
^ offset + length - 1
|
|
|
512 |
!
|
|
|
513 |
|
|
|
514 |
length
|
|
|
515 |
^ length
|
|
|
516 |
!
|
|
|
517 |
|
|
|
518 |
length: anObject
|
|
|
519 |
length := anObject
|
|
|
520 |
!
|
|
|
521 |
|
|
|
522 |
offset
|
|
|
523 |
^ offset
|
|
|
524 |
!
|
|
|
525 |
|
|
|
526 |
offset: anObject
|
|
|
527 |
offset := anObject
|
|
|
528 |
!
|
|
|
529 |
|
|
|
530 |
side
|
|
|
531 |
^ side
|
|
|
532 |
!
|
|
|
533 |
|
|
|
534 |
side: anObject
|
|
|
535 |
side := anObject
|
|
|
536 |
! !
|
|
|
537 |
|
|
|
538 |
!Diff3::Chunk methodsFor:'as yet unclassified'!
|
|
|
539 |
|
|
|
540 |
= otherChunk
|
|
|
541 |
|
|
|
542 |
^ (otherChunk isKindOf: self class) and:
|
|
|
543 |
[(self offset = otherChunk offset) and:
|
|
|
544 |
[(self length = otherChunk length)]]
|
|
|
545 |
|
|
|
546 |
"Modified: / 16-03-2012 / 19:25:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
547 |
!
|
|
|
548 |
|
|
|
549 |
accept: aVisitor
|
|
|
550 |
^ aVisitor side: side chunk: self
|
|
|
551 |
!
|
|
|
552 |
|
|
|
553 |
extractFrom: aCollection
|
|
|
554 |
"Extracts a subcollection from aCollection corresponding to my offset and length."
|
|
|
555 |
^ aCollection copyFrom: offset to: offset + length - 1.
|
|
|
556 |
!
|
|
|
557 |
|
|
|
558 |
extractFrom: aCollection offset: lineOffset
|
|
|
559 |
"Given a text and lineOffset withing a chunk, return the line"
|
|
|
560 |
^ aCollection at: offset + lineOffset - 1
|
|
|
561 |
|
|
|
562 |
"Created: / 04-04-2012 / 00:46:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
563 |
!
|
|
|
564 |
|
|
|
565 |
extractFromDiff: diff
|
|
|
566 |
|
|
|
567 |
^self extractFrom: (diff fileAt: side)
|
|
|
568 |
|
|
|
569 |
"Created: / 03-04-2012 / 23:33:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
570 |
!
|
|
|
571 |
|
|
|
572 |
extractResolution
|
|
|
573 |
|
|
|
574 |
side == #left ifTrue:[ ^ #MergedUsingA ].
|
|
|
575 |
side == #original ifTrue:[ ^ #MergedUsingBase ].
|
|
|
576 |
side == #right ifTrue:[ ^ #MergedUsingB ].
|
|
|
577 |
|
|
|
578 |
self error:'Should not be reached'
|
|
|
579 |
|
|
|
580 |
"Created: / 04-04-2012 / 00:26:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
581 |
!
|
|
|
582 |
|
|
|
583 |
printOn: aStream
|
|
|
584 |
aStream nextPut: $(.
|
|
|
585 |
super printOn: aStream.
|
|
|
586 |
aStream
|
|
|
587 |
nextPutAll: ' side: ';
|
|
|
588 |
nextPutAll: side printString;
|
|
|
589 |
nextPutAll: ' off: ';
|
|
|
590 |
nextPutAll: offset printString;
|
|
|
591 |
nextPutAll: ' len: ';
|
|
|
592 |
nextPutAll: length printString;
|
|
|
593 |
|
|
|
594 |
|
|
|
595 |
nextPut: $).
|
|
|
596 |
|
|
|
597 |
"Modified: / 20-03-2012 / 17:08:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
598 |
! !
|
|
|
599 |
|
|
|
600 |
!Diff3::Chunk methodsFor:'comparing'!
|
|
|
601 |
|
|
|
602 |
< aDiffChunk
|
|
|
603 |
"Used to sort changed chunks during three-way merge; see Diff3"
|
|
|
604 |
^ self offset < aDiffChunk offset
|
|
|
605 |
! !
|
|
|
606 |
|
|
|
607 |
!Diff3::Chunk methodsFor:'testing'!
|
|
|
608 |
|
|
|
609 |
isChunk
|
|
|
610 |
^true
|
|
|
611 |
|
|
|
612 |
"Created: / 16-03-2012 / 22:02:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
613 |
!
|
|
|
614 |
|
|
|
615 |
isConflict
|
|
|
616 |
^false
|
|
|
617 |
|
|
|
618 |
"Created: / 16-03-2012 / 22:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
619 |
! !
|
|
|
620 |
|
|
|
621 |
!Diff3::Conflict class methodsFor:'documentation'!
|
|
|
622 |
|
|
|
623 |
copyright
|
|
|
624 |
"
|
|
|
625 |
Copyright (c) 2007-2012 Tony Garnock-Jones
|
|
|
626 |
|
|
|
627 |
This code is based on Squeak's DiffMerge package
|
|
|
628 |
written by Tony Garnock-Jones. Original project's web site:
|
|
|
629 |
|
|
|
630 |
http://www.squeaksource.com/DiffMerge
|
|
|
631 |
|
|
|
632 |
Permission is hereby granted, free of charge, to any person
|
|
|
633 |
obtaining a copy of this software and associated documentation
|
|
|
634 |
files (the 'Software'), to deal in the Software without
|
|
|
635 |
restriction, including without limitation the rights to use,
|
|
|
636 |
copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
637 |
copies of the Software, and to permit persons to whom the
|
|
|
638 |
Software is furnished to do so, subject to the following
|
|
|
639 |
conditions:
|
|
|
640 |
|
|
|
641 |
The above copyright notice and this permission notice shall be
|
|
|
642 |
included in all copies or substantial portions of the Software.
|
|
|
643 |
|
|
|
644 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
|
|
|
645 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
|
|
|
646 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
|
647 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
|
|
648 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
|
|
649 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
|
650 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
|
|
651 |
OTHER DEALINGS IN THE SOFTWARE.
|
|
|
652 |
|
|
|
653 |
"
|
|
|
654 |
!
|
|
|
655 |
|
|
|
656 |
documentation
|
|
|
657 |
"
|
|
14006
|
658 |
A Diff3Conflict represents a merge conflict.
|
|
13872
|
659 |
|
|
14006
|
660 |
Instance Variables
|
|
13872
|
661 |
left: Either a SequenceableCollection or a Diff3Chunk representing the left variant.
|
|
|
662 |
original: Either a SequenceableCollection or a Diff3Chunk representing the original variant.
|
|
|
663 |
right: Either a SequenceableCollection or a Diff3Chunk representing the right variant.
|
|
|
664 |
|
|
|
665 |
[author:]
|
|
|
666 |
Tony Garnock-Jones <tonyg@lshift.com>
|
|
|
667 |
|
|
|
668 |
[instance variables:]
|
|
|
669 |
|
|
|
670 |
[class variables:]
|
|
|
671 |
|
|
|
672 |
[see also:]
|
|
|
673 |
|
|
|
674 |
"
|
|
|
675 |
! !
|
|
|
676 |
|
|
|
677 |
!Diff3::Conflict methodsFor:'accessing'!
|
|
|
678 |
|
|
|
679 |
at: side
|
|
|
680 |
|
|
|
681 |
"Given a side (#left, #original or #right), returns the
|
|
|
682 |
corresponding chunk"
|
|
|
683 |
|
|
|
684 |
side == #left ifTrue:[ ^ left ].
|
|
|
685 |
side == #original ifTrue:[ ^ original ].
|
|
|
686 |
side == #right ifTrue:[ ^ right ].
|
|
|
687 |
|
|
|
688 |
self error:'Invalid parameter, must be one of #left, #original or #right'.
|
|
|
689 |
|
|
|
690 |
"Created: / 06-04-2012 / 12:26:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
691 |
!
|
|
|
692 |
|
|
|
693 |
at: side put: chunk
|
|
|
694 |
|
|
|
695 |
"Given a side (#left, #original or #right), sets the
|
|
|
696 |
corresponding chunk"
|
|
|
697 |
|
|
|
698 |
side == #left ifTrue:[ left := chunk. ^ self].
|
|
|
699 |
side == #original ifTrue:[ original := chunk. ^ self ].
|
|
|
700 |
side == #right ifTrue:[ right := chunk. ^ self ].
|
|
|
701 |
|
|
|
702 |
self error:'Invalid parameter, must be one of #left, #original or #right'.
|
|
|
703 |
|
|
|
704 |
"Created: / 06-04-2012 / 12:26:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
705 |
!
|
|
|
706 |
|
|
|
707 |
left
|
|
|
708 |
^ left
|
|
|
709 |
!
|
|
|
710 |
|
|
|
711 |
left: anObject
|
|
|
712 |
left := anObject
|
|
|
713 |
!
|
|
|
714 |
|
|
|
715 |
leftAt: index
|
|
|
716 |
|
|
|
717 |
^(index between: 1 and: left size) ifTrue:[
|
|
|
718 |
left at: index
|
|
|
719 |
] ifFalse:[
|
|
|
720 |
nil
|
|
|
721 |
]
|
|
|
722 |
|
|
|
723 |
"Created: / 20-03-2012 / 20:48:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
724 |
!
|
|
|
725 |
|
|
|
726 |
length
|
|
|
727 |
|
|
|
728 |
^left length max: (original length max: right length)
|
|
|
729 |
|
|
|
730 |
"Created: / 16-03-2012 / 22:02:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
731 |
!
|
|
|
732 |
|
|
|
733 |
original
|
|
|
734 |
^ original
|
|
|
735 |
!
|
|
|
736 |
|
|
|
737 |
original: anObject
|
|
|
738 |
original := anObject
|
|
|
739 |
!
|
|
|
740 |
|
|
|
741 |
originalAt: index
|
|
|
742 |
|
|
|
743 |
^(index between: 1 and: original size) ifTrue:[
|
|
|
744 |
original at: index
|
|
|
745 |
] ifFalse:[
|
|
|
746 |
nil
|
|
|
747 |
]
|
|
|
748 |
|
|
|
749 |
"Created: / 20-03-2012 / 20:49:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
750 |
!
|
|
|
751 |
|
|
|
752 |
right
|
|
|
753 |
^ right
|
|
|
754 |
!
|
|
|
755 |
|
|
|
756 |
right: anObject
|
|
|
757 |
right := anObject
|
|
|
758 |
!
|
|
|
759 |
|
|
|
760 |
rightAt: index
|
|
|
761 |
|
|
|
762 |
^(index between: 1 and: right size) ifTrue:[
|
|
|
763 |
right at: index
|
|
|
764 |
] ifFalse:[
|
|
|
765 |
nil
|
|
|
766 |
]
|
|
|
767 |
|
|
|
768 |
"Created: / 20-03-2012 / 20:48:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
769 |
! !
|
|
|
770 |
|
|
|
771 |
!Diff3::Conflict methodsFor:'as yet unclassified'!
|
|
|
772 |
|
|
|
773 |
= otherConflict
|
|
|
774 |
^ (otherConflict isKindOf: Diff3::Conflict) and:
|
|
|
775 |
[(left = otherConflict left) and:
|
|
|
776 |
[(original = otherConflict original) and:
|
|
|
777 |
[(right = otherConflict right)]]]
|
|
|
778 |
|
|
|
779 |
"Modified: / 16-03-2012 / 19:20:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
780 |
!
|
|
|
781 |
|
|
|
782 |
accept: aVisitor
|
|
|
783 |
^ aVisitor left: left original: original right: right.
|
|
|
784 |
!
|
|
|
785 |
|
|
|
786 |
printOn: aStream
|
|
|
787 |
aStream
|
|
|
788 |
nextPut: $(;
|
|
|
789 |
nextPutAll: self class name;
|
|
|
790 |
nextPutAll: ' new left: '.
|
|
|
791 |
left printOn: aStream.
|
|
|
792 |
aStream nextPutAll: '; original: '.
|
|
|
793 |
original printOn: aStream.
|
|
|
794 |
aStream nextPutAll: '; right: '.
|
|
|
795 |
right printOn: aStream.
|
|
|
796 |
aStream nextPut: $).
|
|
|
797 |
! !
|
|
|
798 |
|
|
|
799 |
!Diff3::Conflict methodsFor:'testing'!
|
|
|
800 |
|
|
|
801 |
isChunk
|
|
|
802 |
^false
|
|
|
803 |
|
|
|
804 |
"Created: / 16-03-2012 / 22:03:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
805 |
!
|
|
|
806 |
|
|
|
807 |
isConflict
|
|
|
808 |
^true
|
|
|
809 |
|
|
|
810 |
"Created: / 16-03-2012 / 22:03:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
811 |
!
|
|
|
812 |
|
|
|
813 |
isInsertionInLeft
|
|
|
814 |
^left length > 0
|
|
|
815 |
and:[original length <= 0
|
|
|
816 |
and:[right length <= 0]]
|
|
|
817 |
|
|
|
818 |
"Created: / 20-03-2012 / 18:37:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
819 |
!
|
|
|
820 |
|
|
|
821 |
isInsertionInOriginal
|
|
|
822 |
^original length > 0
|
|
|
823 |
and:[left length <= 0
|
|
|
824 |
and:[right length <= 0]]
|
|
|
825 |
|
|
|
826 |
"Created: / 20-03-2012 / 18:36:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
827 |
!
|
|
|
828 |
|
|
|
829 |
isInsertionInRight
|
|
|
830 |
^right length > 0
|
|
|
831 |
and:[original length <= 0
|
|
|
832 |
and:[left length <= 0]]
|
|
|
833 |
|
|
|
834 |
"Created: / 20-03-2012 / 18:37:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
|
835 |
! !
|
|
|
836 |
|
|
|
837 |
!Diff3 class methodsFor:'documentation'!
|
|
|
838 |
|
|
|
839 |
version
|
|
16950
|
840 |
^ '$Header$'
|
|
13872
|
841 |
!
|
|
|
842 |
|
|
|
843 |
version_CVS
|
|
16950
|
844 |
^ '$Header$'
|
|
13872
|
845 |
! !
|
|
|
846 |
|