367 files add:('projects/smalltalk/',projectDefinitionClass splashFileName,'.bmp') |
367 files add:('projects/smalltalk/',projectDefinitionClass splashFileName,'.bmp') |
368 ]. |
368 ]. |
369 ]. |
369 ]. |
370 |
370 |
371 files do:[:dllRelativePath | |
371 files do:[:dllRelativePath | |
372 ((buildDirectory / 'stx' / dllRelativePath) exists |
372 (mySTXTopDirectory / dllRelativePath) exists ifTrue:[ |
373 and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize |
373 ((buildDirectory / 'stx' / dllRelativePath) exists |
374 and:[ (mySTXTopDirectory / dllRelativePath) modificationTime < (buildDirectory / 'stx' / dllRelativePath) modificationTime |
374 and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize |
375 "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ] |
375 and:[ (mySTXTopDirectory / dllRelativePath) modificationTime < (buildDirectory / 'stx' / dllRelativePath) modificationTime |
376 ]]) ifFalse:[ |
376 "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ] |
377 (buildDirectory / 'stx' / dllRelativePath) directory recursiveMakeDirectory. |
377 ]]) ifFalse:[ |
378 (mySTXTopDirectory / dllRelativePath) copyTo:(buildDirectory / 'stx' / dllRelativePath). |
378 (buildDirectory / 'stx' / dllRelativePath) directory recursiveMakeDirectory. |
379 ] |
379 (mySTXTopDirectory / dllRelativePath) copyTo:(buildDirectory / 'stx' / dllRelativePath). |
|
380 ] |
|
381 ] ifFalse:[ |
|
382 self error:'Missing file: ',dllRelativePath printString mayProceed:true. |
|
383 ]. |
380 ]. |
384 ]. |
381 ! |
385 ! |
382 |
386 |
383 createHeaderFileFor:aClass in:packageTargetDir |
387 createHeaderFileFor:aClass in:packageTargetDir |
384 |instVarList classInstVarList classVarList bindings superclassFilename |
388 |instVarList classInstVarList classVarList bindings superclassFilename |