equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2009 by eXept Software AG |
2 COPYRIGHT (c) 2009 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
392 objDirSource := alternativeObjDirSource. |
390 objDirSource := alternativeObjDirSource. |
393 stdErr nextPutLine:(('Warning: using alternative %1 from %2 (%3 version)...' |
391 stdErr nextPutLine:(('Warning: using alternative %1 from %2 (%3 version)...' |
394 bindWith:libraryName |
392 bindWith:libraryName |
395 with:alternativeObjDirSource |
393 with:alternativeObjDirSource |
396 with:(self class suiteNameOfCompiler:'vc')) |
394 with:(self class suiteNameOfCompiler:'vc')) |
397 emphasizeAllWith:(#color -> Color red darkened)). |
395 emphasizeAllWith:(#color -> Color darkRed)). |
398 ] ifFalse:[ |
396 ] ifFalse:[ |
399 alternativeObjDirSource := self objDirForUsedCompiler:'bcc'. |
397 alternativeObjDirSource := self objDirForUsedCompiler:'bcc'. |
400 (dllSourceDir / alternativeObjDirSource / (libraryName, '.dll')) exists ifTrue:[ |
398 (dllSourceDir / alternativeObjDirSource / (libraryName, '.dll')) exists ifTrue:[ |
401 objDirSource := alternativeObjDirSource. |
399 objDirSource := alternativeObjDirSource. |
402 stdErr nextPutLine:('Warning: using alternative %1 from %2 (%3 version)...' |
400 stdErr nextPutLine:('Warning: using alternative %1 from %2 (%3 version)...' |
444 ] |
442 ] |
445 ]. |
443 ]. |
446 ]. |
444 ]. |
447 |
445 |
448 "Modified: / 06-09-2012 / 16:19:29 / cg" |
446 "Modified: / 06-09-2012 / 16:19:29 / cg" |
|
447 "Modified: / 13-03-2019 / 21:19:01 / Claus Gittinger" |
449 ! |
448 ! |
450 |
449 |
451 copyDirectory:relativepath |
450 copyDirectory:relativepath |
452 "/ need rules in stx |
451 "/ need rules in stx |
453 ((Smalltalk projectDirectoryForPackage:'stx') asFilename construct:relativepath) |
452 ((Smalltalk projectDirectoryForPackage:'stx') asFilename construct:relativepath) |