FindFileApplication.st
changeset 18457 cd5d311f8b73
parent 18370 04c5fa4abafc
child 18630 4c8b4840e06b
equal deleted inserted replaced
18456:290717c02899 18457:cd5d311f8b73
  1530 
  1530 
  1531     |theSingleDirectory lines contentsToCompare resultList inStream
  1531     |theSingleDirectory lines contentsToCompare resultList inStream
  1532      doesFileMatch contentsString notContentsString check checkNot 
  1532      doesFileMatch contentsString notContentsString check checkNot 
  1533      grepCommand nameMatch nameExcludedMatch realNameMatch 
  1533      grepCommand nameMatch nameExcludedMatch realNameMatch 
  1534      fileSizesToSearchFor filesToSearchFor fileMD5sToSearchFor 
  1534      fileSizesToSearchFor filesToSearchFor fileMD5sToSearchFor 
  1535      setOfFilesToSearchFor remember cache fn dirSearchedRelative easyCheck
  1535      setOfFilesToSearchFor remember cache fn easyCheck
  1536      searchForBinaryContents|
  1536      searchForBinaryContents|
  1537 
  1537 
  1538     searchForBinaryContents := self searchForBinaryContentsHolder value.
  1538     searchForBinaryContents := self searchForBinaryContentsHolder value.
  1539     
  1539     
  1540     (aDirectoryOrCollectionOfDirectories isFilename
  1540     (aDirectoryOrCollectionOfDirectories isFilename
  1577             
  1577             
  1578             dir := filenameToCompareContentsOrNil asFilename.
  1578             dir := filenameToCompareContentsOrNil asFilename.
  1579             [dir pathName includesMatchCharacters] whileTrue:[
  1579             [dir pathName includesMatchCharacters] whileTrue:[
  1580                 dir := dir directory
  1580                 dir := dir directory
  1581             ].
  1581             ].
  1582             dir recursiveDirectoryContentsDo:[:relName |
  1582             dir recursiveDirectoryContentsAsFilenamesDo:[:fn |
  1583                 |path fn|
       
  1584 
       
  1585                 fn := dir construct:relName.
       
  1586                 (filenameToCompareContentsOrNil match:fn name) ifTrue:[
  1583                 (filenameToCompareContentsOrNil match:fn name) ifTrue:[
  1587                     fn isDirectory ifFalse:[
  1584                     fn isRegularFile ifTrue:[
  1588                         fileSizesToSearchFor add:(self cachedFileSizeOf:fn).
  1585                         fileSizesToSearchFor add:(self cachedFileSizeOf:fn).
  1589                         filesToSearchFor add:(fn name).
  1586                         filesToSearchFor add:(fn name).
  1590                         fileMD5sToSearchFor add:(self cachedHashValueOfFile:fn).
  1587                         fileMD5sToSearchFor add:(self cachedHashValueOfFile:fn).
  1591                     ]
  1588                     ]
  1592                 ]
  1589                 ]