ProjectBuilder.st
changeset 2684 80fe0f753fd8
parent 2683 ff39502be3a2
child 2723 d03a850ebc29
     1.1 --- a/ProjectBuilder.st	Fri Oct 23 15:38:38 2009 +0200
     1.2 +++ b/ProjectBuilder.st	Fri Oct 23 16:11:15 2009 +0200
     1.3 @@ -369,14 +369,18 @@
     1.4      ].
     1.5  
     1.6      files do:[:dllRelativePath |
     1.7 -        ((buildDirectory / 'stx' / dllRelativePath) exists
     1.8 -        and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize
     1.9 -        and:[ (mySTXTopDirectory / dllRelativePath) modificationTime < (buildDirectory / 'stx' / dllRelativePath) modificationTime
    1.10 -        "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ]
    1.11 -        ]]) ifFalse:[
    1.12 -            (buildDirectory / 'stx' / dllRelativePath) directory recursiveMakeDirectory.
    1.13 -            (mySTXTopDirectory / dllRelativePath) copyTo:(buildDirectory / 'stx' / dllRelativePath).    
    1.14 -        ]
    1.15 +        (mySTXTopDirectory / dllRelativePath) exists ifTrue:[
    1.16 +            ((buildDirectory / 'stx' / dllRelativePath) exists
    1.17 +            and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize
    1.18 +            and:[ (mySTXTopDirectory / dllRelativePath) modificationTime < (buildDirectory / 'stx' / dllRelativePath) modificationTime
    1.19 +            "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ]
    1.20 +            ]]) ifFalse:[
    1.21 +                (buildDirectory / 'stx' / dllRelativePath) directory recursiveMakeDirectory.
    1.22 +                (mySTXTopDirectory / dllRelativePath) copyTo:(buildDirectory / 'stx' / dllRelativePath).    
    1.23 +            ]
    1.24 +        ] ifFalse:[
    1.25 +            self error:'Missing file: ',dllRelativePath printString mayProceed:true.
    1.26 +        ].
    1.27      ].
    1.28  !
    1.29