ProjectBuilder.st
changeset 2958 d842f4a91d44
parent 2921 bea9c6bb6a90
child 2961 f28135198d42
     1.1 --- a/ProjectBuilder.st	Tue Feb 19 00:10:33 2013 +0100
     1.2 +++ b/ProjectBuilder.st	Sat Feb 23 14:03:44 2013 +0100
     1.3 @@ -364,24 +364,32 @@
     1.4              dllRelativeDestPathes := Array with:(objDirDest,'\', libraryName, '.dll').
     1.5          ] ifFalse:[
     1.6              dllRelativeSourcePathes := Array with:(libraryName,'.so').
     1.7 +            dllRelativeDestPathes := Array with:(libraryName, '.so').
     1.8              (packageModule = 'stx' and:[packageDirectory = 'libview']) ifTrue:[
     1.9 -                dllRelativeSourcePathes := dllRelativeSourcePathes, #('XWorkstation.so' 'GLXWorkstation.so').
    1.10 +                dllRelativeSourcePathes := dllRelativeSourcePathes copyWith:('XWorkstation.so').
    1.11 +                dllRelativeDestPathes := dllRelativeDestPathes copyWith:'XWorkstation.so'.
    1.12 +                dllRelativeSourcePathes := dllRelativeSourcePathes copyWith:('GLXWorkstation.so').
    1.13 +                dllRelativeDestPathes := dllRelativeDestPathes copyWith:'GLXWorkstation.so'.
    1.14              ].
    1.15          ].
    1.16          dllRelativeSourcePathes with:dllRelativeDestPathes do:[:dllRelativeSourcePath :dllRelativeDestPath|
    1.17              |source dest|
    1.18  
    1.19              source := dllSourceDir / dllRelativeSourcePath.
    1.20 -            dest := packageTargetDir / dllRelativeDestPath.
    1.21 -            (dest exists not
    1.22 -             or:[source fileSize ~= dest fileSize
    1.23 -             or:[source modificationTime >= dest modificationTime
    1.24 -             "/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ]
    1.25 -            ]]) ifTrue:[
    1.26 -                Transcript showCR:'updating ',dllRelativeDestPath.
    1.27 -                dest directory recursiveMakeDirectory.
    1.28 -                source copyTo:dest.    
    1.29 -            ].
    1.30 +            source exists ifFalse:[
    1.31 +                self activityNotification:'   skip missing file: ',source pathName.
    1.32 +            ] ifTrue:[
    1.33 +                dest := packageTargetDir / dllRelativeDestPath.
    1.34 +                (dest exists not
    1.35 +                 or:[source fileSize ~= dest fileSize
    1.36 +                 or:[source modificationTime >= dest modificationTime
    1.37 +                 "/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ]
    1.38 +                ]]) ifTrue:[
    1.39 +                    Transcript showCR:'updating ',dllRelativeDestPath.
    1.40 +                    dest directory recursiveMakeDirectory.
    1.41 +                    source copyTo:dest.    
    1.42 +                ].
    1.43 +            ]
    1.44          ].
    1.45      ].
    1.46  
    1.47 @@ -1001,3 +1009,4 @@
    1.48  version_CVS
    1.49      ^ '$Header$'
    1.50  ! !
    1.51 +