equal
deleted
inserted
replaced
1205 filesSize := fn asFilename fileSize. |
1205 filesSize := fn asFilename fileSize. |
1206 info at:1 put:filesSize. |
1206 info at:1 put:filesSize. |
1207 ]. |
1207 ]. |
1208 filesSize = fileSizeSearchFor ifTrue:[ |
1208 filesSize = fileSizeSearchFor ifTrue:[ |
1209 fileSearchedFor ~= fn ifTrue:[ |
1209 fileSearchedFor ~= fn ifTrue:[ |
1210 filesMD5 := info at:2. |
1210 fn asFilename exists ifFalse:[ |
1211 filesMD5 isNil ifTrue:[ |
1211 info at:1 put:nil. |
1212 filesMD5 := MD5Stream hashValueOfFile:fn asFilename. |
1212 info at:2 put:nil. |
1213 info at:2 put:filesMD5. |
1213 ] ifTrue:[ |
1214 ]. |
1214 filesMD5 := info at:2. |
1215 filesMD5 = fileMD5SearchedFor ifTrue:[ |
1215 filesMD5 isNil ifTrue:[ |
1216 fn asFilename exists ifTrue:[ |
1216 filesMD5 := MD5Stream hashValueOfFile:fn asFilename. |
|
1217 info at:2 put:filesMD5. |
|
1218 ]. |
|
1219 filesMD5 = fileMD5SearchedFor ifTrue:[ |
1217 list add:fn. |
1220 list add:fn. |
1218 ] ifFalse:[ |
|
1219 info at:1 put:nil. |
|
1220 info at:2 put:nil. |
|
1221 ] |
1221 ] |
1222 ] |
1222 ] |
1223 ] |
1223 ] |
1224 ] |
1224 ] |
1225 ]. |
1225 ]. |
1350 ! ! |
1350 ! ! |
1351 |
1351 |
1352 !FindFileApplication class methodsFor:'documentation'! |
1352 !FindFileApplication class methodsFor:'documentation'! |
1353 |
1353 |
1354 version |
1354 version |
1355 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.29 2004-03-16 00:51:16 cg Exp $' |
1355 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.30 2004-03-16 01:46:56 cg Exp $' |
1356 ! ! |
1356 ! ! |