--- a/ProjectDefinition.st Sun Mar 21 19:37:43 2010 +0000
+++ b/ProjectDefinition.st Thu Apr 08 18:25:02 2010 +0100
@@ -3109,6 +3109,12 @@
generateClassLines:classLineTemplate forClasses:classNames
"for the init-file: generate class-init-lines for a collection of classes"
+ ^ self generateClassLines:classLineTemplate forClasses:classNames includeAdditionalClasses:true
+!
+
+generateClassLines:classLineTemplate forClasses:classNames includeAdditionalClasses:includeAdditionalClasses
+ "for the init-file: generate class-init-lines for a collection of classes"
+
^ String
streamContents:[:s |
|classesLoaded classNamesUnloaded classNamesSorted putLineForClassName|
@@ -3132,28 +3138,31 @@
classNamesSorted := (Class classesSortedByLoadOrder:classesLoaded) collect:[:cls | cls name].
classNamesSorted do:putLineForClassName.
classNamesUnloaded do:putLineForClassName.
- self namesAndAttributesIn:(self additionalClassNamesAndAttributes)
- do:[:nm :attr |
- (attr isEmptyOrNil or:[ (attr includes:#autoload) not ]) ifTrue:[
- putLineForClassName value:nm.
- ].
- ].
- #( ('UNIX' unix)
- ('WIN32' win32)
- ('VMS' vms)
- ('BEOS' beos) )
- pairsDo:[:ifdef :platformName |
- |archClassNames archClassesLoaded|
-
- archClassNames := self compiled_classNamesForPlatform:platformName.
- archClassNames notEmpty ifTrue:[
- s nextPutLine:'#ifdef ' , ifdef.
- archClassNames do:[:clsName |
- putLineForClassName value:clsName
- ].
- s nextPutLine:'#endif /* ' , ifdef , ' */'.
+
+ includeAdditionalClasses ifTrue:[
+ self namesAndAttributesIn:(self additionalClassNamesAndAttributes)
+ do:[:nm :attr |
+ (attr isEmptyOrNil or:[ (attr includes:#autoload) not ]) ifTrue:[
+ putLineForClassName value:nm.
].
].
+ #( ('UNIX' unix)
+ ('WIN32' win32)
+ ('VMS' vms)
+ ('BEOS' beos) )
+ pairsDo:[:ifdef :platformName |
+ |archClassNames archClassesLoaded|
+
+ archClassNames := self compiled_classNamesForPlatform:platformName.
+ archClassNames notEmpty ifTrue:[
+ s nextPutLine:'#ifdef ' , ifdef.
+ archClassNames do:[:clsName |
+ putLineForClassName value:clsName
+ ].
+ s nextPutLine:'#endif /* ' , ifdef , ' */'.
+ ].
+ ].
+ ]
]
"
@@ -3525,9 +3534,10 @@
^ self
generateClassLines:(self classLine_libInit_dot_cc)
forClasses:(Array with:self name)
-
- "
- stx_libbasic3 generate_definitionClassNameLines_libInit_dot_cc
+ includeAdditionalClasses:false
+
+ "
+ stx_libbasic generate_definitionClassLine_libInit_dot_cc
"
!
@@ -5366,17 +5376,18 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Id: ProjectDefinition.st 10505 2010-03-08 21:39:02Z vranyj1 $'
+ ^ '$Id: ProjectDefinition.st 10510 2010-04-08 17:25:02Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.310 2010/03/08 11:06:20 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.311 2010/03/24 11:21:23 sr Exp §'
!
version_SVN
- ^ '$Id: ProjectDefinition.st 10505 2010-03-08 21:39:02Z vranyj1 $'
+ ^ '$Id: ProjectDefinition.st 10510 2010-04-08 17:25:02Z vranyj1 $'
! !
ProjectDefinition initialize!
+