491 files := files , #( |
491 files := files , #( |
492 'librun/objbc/librun.dll' |
492 'librun/objbc/librun.dll' |
493 'support/win32/borland/cs3245.dll' |
493 'support/win32/borland/cs3245.dll' |
494 'support/win32/X11.dll' |
494 'support/win32/X11.dll' |
495 'support/win32/Xext.dll' |
495 'support/win32/Xext.dll' |
496 'libbc/librun.lib' |
496 'lib_bc/librun.lib' |
497 'libbc/cs32i.lib' |
497 'lib_bc/cs32i.lib' |
498 ). |
498 ). |
499 ]. |
499 ]. |
500 usedCompiler = 'vc' ifTrue:[ |
500 usedCompiler = 'vc' ifTrue:[ |
501 files := files , #( |
501 files := files , #( |
502 'librun/objvc/librun.dll' |
502 'librun/objvc/librun.dll' |
503 'libvc/librun.lib' |
503 'lib_vc/librun.lib' |
504 ). |
504 ). |
505 ]. |
505 ]. |
506 usedCompiler = 'tcc' ifTrue:[ |
506 usedCompiler = 'tcc' ifTrue:[ |
507 files := files , #( |
507 files := files , #( |
508 'librun/objvc/librun.dll' |
508 'librun/objvc/librun.dll' |
509 'libvc/librun.lib' |
509 'lib_vc/librun.lib' |
510 ). |
510 ). |
511 ]. |
511 ]. |
512 ] ifFalse:[ |
512 ] ifFalse:[ |
513 files := #( |
513 files := #( |
514 'librun/main.c' |
514 'librun/main.c' |
524 projectDefinitionClass splashFileName notNil ifTrue:[ |
524 projectDefinitionClass splashFileName notNil ifTrue:[ |
525 files add:('projects/smalltalk/',projectDefinitionClass splashFileName,'.bmp') |
525 files add:('projects/smalltalk/',projectDefinitionClass splashFileName,'.bmp') |
526 ]. |
526 ]. |
527 ]. |
527 ]. |
528 |
528 |
529 files do:[:dllRelativePath | |
529 files do:[:relativePath | |
530 (mySTXTopDirectory / dllRelativePath) exists ifTrue:[ |
530 (mySTXTopDirectory / relativePath) exists ifTrue:[ |
531 ((buildDirectory / 'stx' / dllRelativePath) exists |
531 ((buildDirectory / 'stx' / relativePath) exists |
532 and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize |
532 and:[ (mySTXTopDirectory / relativePath) fileSize = (buildDirectory / 'stx' / relativePath) fileSize |
533 and:[ (mySTXTopDirectory / dllRelativePath) modificationTime < (buildDirectory / 'stx' / dllRelativePath) modificationTime |
533 and:[ (mySTXTopDirectory / relativePath) modificationTime < (buildDirectory / 'stx' / relativePath) modificationTime |
534 "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ] |
534 "/ and:[ (mySTXTopDirectory / dllRelativePath) sameContentsAs:(targetBuildDir / dllRelativePath) ] |
535 ]]) ifFalse:[ |
535 ]]) ifFalse:[ |
536 (buildDirectory / 'stx' / dllRelativePath) directory recursiveMakeDirectory. |
536 (buildDirectory / 'stx' / relativePath) directory recursiveMakeDirectory. |
537 (mySTXTopDirectory / dllRelativePath) copyTo:(buildDirectory / 'stx' / dllRelativePath). |
537 (mySTXTopDirectory / relativePath) copyTo:(buildDirectory / 'stx' / relativePath). |
538 ] |
538 ] |
539 ] ifFalse:[ |
539 ] ifFalse:[ |
540 self error:'Missing file: ',dllRelativePath printString mayProceed:true. |
540 self error:'Missing file: ',relativePath printString mayProceed:true. |
541 ]. |
541 ]. |
542 ]. |
542 ]. |
543 |
543 |
544 "Modified (comment): / 04-09-2012 / 00:48:24 / cg" |
544 "Modified: / 04-09-2012 / 11:59:53 / cg" |
545 ! |
545 ! |
546 |
546 |
547 createHeaderFileFor:aClass in:packageTargetDir |
547 createHeaderFileFor:aClass in:packageTargetDir |
548 |instVarList classInstVarList classVarList bindings superclassFilename |
548 |instVarList classInstVarList classVarList bindings superclassFilename |
549 template file newContents oldContents| |
549 template file newContents oldContents| |