equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2012 eXept Software AG |
4 COPYRIGHT (c) 2012 eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
50 anyFailure := false. |
52 anyFailure := false. |
51 |
53 |
52 module := packageID asPackageId module. |
54 module := packageID asPackageId module. |
53 directory := packageID asPackageId directory. |
55 directory := packageID asPackageId directory. |
54 |
56 |
55 self activityNotification:(resources string:'checking in build-support files...'). |
57 self activityNotification:(resources string:'Checking in build-support files...'). |
56 (mgr checkForExistingModule:module directory:directory) ifFalse:[ |
58 (mgr checkForExistingModule:module directory:directory) ifFalse:[ |
57 mgr createModule:module directory:directory |
59 mgr createModule:module directory:directory |
58 ]. |
60 ]. |
59 |
61 |
60 defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents | |
62 defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents | |
68 realDirectory := directory. |
70 realDirectory := directory. |
69 realFileName := fileName. |
71 realFileName := fileName. |
70 ]. |
72 ]. |
71 realDirectory := realDirectory replaceAll:$\ with:$/. |
73 realDirectory := realDirectory replaceAll:$\ with:$/. |
72 |
74 |
73 self activityNotification:(resources string:'checking in %1...' with:realFileName). |
75 self activityNotification:(resources string:'Checking in %1...' with:realFileName). |
74 |
76 |
75 UserInformation |
77 UserInformation |
76 handle:[:ex | Transcript showCR:ex description ] |
78 handle:[:ex | Transcript showCR:ex description ] |
77 do:[ |
79 do:[ |
78 (mgr isContainerBased |
80 (mgr isContainerBased |
589 ! ! |
591 ! ! |
590 |
592 |
591 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
593 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
592 |
594 |
593 version |
595 version |
594 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.24 2015-02-06 15:39:14 cg Exp $' |
596 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.25 2015-03-01 13:29:17 cg Exp $' |
595 ! |
597 ! |
596 |
598 |
597 version_CVS |
599 version_CVS |
598 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.24 2015-02-06 15:39:14 cg Exp $' |
600 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.25 2015-03-01 13:29:17 cg Exp $' |
599 ! ! |
601 ! ! |
600 |
602 |