294 (packageModule = 'stx' and:[packageDirectory = 'libview']) ifTrue:[ |
294 (packageModule = 'stx' and:[packageDirectory = 'libview']) ifTrue:[ |
295 dllRelativePaths := dllRelativePaths, #('XWorkstation.so' 'GLXWorkstation.so'). |
295 dllRelativePaths := dllRelativePaths, #('XWorkstation.so' 'GLXWorkstation.so'). |
296 ]. |
296 ]. |
297 ]. |
297 ]. |
298 dllRelativePaths do:[:dllRelativePath| |
298 dllRelativePaths do:[:dllRelativePath| |
299 ((packageTargetDir / dllRelativePath) exists not |
299 |source dest| |
300 or:[(dllSourceDir / dllRelativePath) fileSize ~= (packageTargetDir / dllRelativePath) fileSize |
300 |
301 or:[(dllSourceDir / dllRelativePath) modificationTime >= (packageTargetDir / dllRelativePath) modificationTime |
301 source := dllSourceDir / dllRelativePath. |
|
302 dest := packageTargetDir / dllRelativePath. |
|
303 (dest exists not |
|
304 or:[source fileSize ~= dest fileSize |
|
305 or:[source modificationTime >= dest modificationTime |
302 "/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ] |
306 "/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ] |
303 ]]) ifTrue:[ |
307 ]]) ifTrue:[ |
304 (packageTargetDir / dllRelativePath) directory recursiveMakeDirectory. |
308 Transcript showCR:'updating ',dllRelativePath. |
305 (dllSourceDir / dllRelativePath) copyTo:(packageTargetDir / dllRelativePath). |
309 dest directory recursiveMakeDirectory. |
|
310 source copyTo:dest. |
306 ]. |
311 ]. |
307 ]. |
312 ]. |
308 ]. |
313 ]. |
|
314 |
|
315 "Modified: / 20-07-2012 / 18:30:06 / cg" |
309 ! |
316 ! |
310 |
317 |
311 copyDirectory:relativepath |
318 copyDirectory:relativepath |
312 "/ need rules in stx |
319 "/ need rules in stx |
313 ((Smalltalk projectDirectoryForPackage:'stx') asFilename construct:relativepath) |
320 ((Smalltalk projectDirectoryForPackage:'stx') asFilename construct:relativepath) |