changed: #copySupportFilesForLinkage
authorsr
Fri, 23 Oct 2009 16:11:15 +0200
changeset 2684 80fe0f753fd8
parent 2683 ff39502be3a2
child 2685 9e5b81943c7f
changed: #copySupportFilesForLinkage
ProjectBuilder.st
--- a/ProjectBuilder.st	Fri Oct 23 15:38:38 2009 +0200
+++ b/ProjectBuilder.st	Fri Oct 23 16:11:15 2009 +0200
@@ -369,14 +369,18 @@
     ].
 
     files do:[:dllRelativePath |
-        ((buildDirectory / 'stx' / dllRelativePath) exists
-        and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize
-        and:[ (mySTXTopDirectory / dllRelativePath) modificationTime < (buildDirectory / 'stx' / dllRelativePath) modificationTime
-        "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ]
-        ]]) ifFalse:[
-            (buildDirectory / 'stx' / dllRelativePath) directory recursiveMakeDirectory.
-            (mySTXTopDirectory / dllRelativePath) copyTo:(buildDirectory / 'stx' / dllRelativePath).    
-        ]
+        (mySTXTopDirectory / dllRelativePath) exists ifTrue:[
+            ((buildDirectory / 'stx' / dllRelativePath) exists
+            and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize
+            and:[ (mySTXTopDirectory / dllRelativePath) modificationTime < (buildDirectory / 'stx' / dllRelativePath) modificationTime
+            "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ]
+            ]]) ifFalse:[
+                (buildDirectory / 'stx' / dllRelativePath) directory recursiveMakeDirectory.
+                (mySTXTopDirectory / dllRelativePath) copyTo:(buildDirectory / 'stx' / dllRelativePath).    
+            ]
+        ] ifFalse:[
+            self error:'Missing file: ',dllRelativePath printString mayProceed:true.
+        ].
     ].
 !