Diff2.st
changeset 14840 6cc4674bfd18
parent 14009 27022a1ba8f6
child 14903 f0d17117b5e9
equal deleted inserted replaced
14839:2be01fe4903c 14840:6cc4674bfd18
   520 			ifAbsentPut: [ OrderedCollection new ]) add: index ].
   520 			ifAbsentPut: [ OrderedCollection new ]) add: index ].
   521 	^ result
   521 	^ result
   522 !
   522 !
   523 
   523 
   524 findCandidateFrom: candidates forLine: file2index startingAt: lowIndex
   524 findCandidateFrom: candidates forLine: file2index startingAt: lowIndex
   525 	"Find the index k in the given subrange of candidates where file2index falls strictly between the file2indexes of the kth and k+1th candidates. If no such k exists, return 0."
   525         "Find the index k in the given subrange of candidates where file2index falls strictly between the file2indexes of the kth and k+1th candidates. If no such k exists, return 0."
   526 	(lowIndex to: candidates size) do: [ :k |
   526         lowIndex to: candidates size do: [ :k |
   527 		(candidates at: k) file2index >= file2index ifTrue: [^ 0].
   527                 (candidates at: k) file2index >= file2index ifTrue: [^ 0].
   528 		(k = candidates size or: [ (candidates at: k + 1) file2index > file2index ])
   528                 (k = candidates size or: [ (candidates at: k + 1) file2index > file2index ])
   529 			ifTrue: [^ k] ].
   529                         ifTrue: [^ k] ].
   530 	^ 0
   530         ^ 0
   531 !
   531 !
   532 
   532 
   533 mergeCandidates: candidates file1index: file1index file2indices: file2indices 
   533 mergeCandidates: candidates file1index: file1index file2indices: file2indices 
   534         | r c s newCandidate |
   534         | r c s newCandidate |
   535         r := 1.
   535         r := 1.
   836 ! !
   836 ! !
   837 
   837 
   838 !Diff2 class methodsFor:'documentation'!
   838 !Diff2 class methodsFor:'documentation'!
   839 
   839 
   840 version
   840 version
   841     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.3 2014-02-25 07:00:18 cg Exp $'
   841     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.4 2014-11-18 18:12:59 cg Exp $'
   842 !
   842 !
   843 
   843 
   844 version_CVS
   844 version_CVS
   845     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.3 2014-02-25 07:00:18 cg Exp $'
   845     ^ '$Header: /cvs/stx/stx/libtool/Diff2.st,v 1.4 2014-11-18 18:12:59 cg Exp $'
   846 ! !
   846 ! !
   847 
   847