--- a/LibraryDefinition.st Tue Sep 19 22:01:53 2006 +0200
+++ b/LibraryDefinition.st Tue Sep 19 22:55:20 2006 +0200
@@ -103,18 +103,17 @@
!
generate_libInit_dot_cc
-
- ^self replaceMappings: self libInit_dot_cc_mappings
+ ^ self replaceMappings: self libInit_dot_cc_mappings
in: self libInit_dot_cc
-"
- DapasXProject generate_libInit_dot_cc
- DapasX_Datenbasis generate_libInit_dot_cc
-
-"
+ "
+ bosch_dapasx_datenbasis generate_libInit_dot_cc
+ bosch_dapasx_application generate_libInit_dot_cc
+ "
"Created: / 08-08-2006 / 12:47:16 / fm"
"Modified: / 09-08-2006 / 11:30:52 / fm"
+ "Modified: / 19-09-2006 / 22:41:40 / cg"
! !
!LibraryDefinition class methodsFor:'file templates'!
@@ -137,14 +136,6 @@
"Modified: / 18-08-2006 / 17:13:45 / cg"
!
-classLine_libInit_dot_cc
-
-^'_%(CLASS)_Init(pass,__pRT__,snd);'
-
- "Created: / 08-08-2006 / 12:51:44 / fm"
- "Modified: / 08-08-2006 / 15:46:05 / fm"
-!
-
extensionLine_libInit_dot_cc
^'_%(LIBRARY_NAME)_extensions_Init(pass,__pRT__,snd);'
@@ -447,17 +438,6 @@
"Modified: / 14-09-2006 / 18:56:11 / cg"
!
-classLine_libInit_dot_cc_mappings: aClassName
-
-^Dictionary new
- at: 'CLASS' put: ( self st2c:aClassName );
- yourself
-
- "Created: / 08-08-2006 / 14:04:00 / fm"
- "Modified: / 09-08-2006 / 18:27:07 / fm"
- "Modified: / 14-09-2006 / 18:56:18 / cg"
-!
-
extensionLine_libInit_dot_cc_mappings
^Dictionary new
@@ -539,12 +519,6 @@
"Created: / 09-08-2006 / 11:44:36 / fm"
"Modified: / 09-08-2006 / 20:00:01 / fm"
"Modified: / 14-09-2006 / 18:58:15 / cg"
-!
-
-st2c:aString
- ^ (aString asString
- copyReplaceString:'_' withString:('_',($_ codePoint printStringRadix:8)))
- replaceAny:':' with:$_
! !
!LibraryDefinition class methodsFor:'mappings support'!
@@ -574,68 +548,6 @@
"Modified: / 23-08-2006 / 09:48:11 / cg"
!
-generateClassLines_libInit_dot_cc
- ^ String streamContents:[:s |
- |classNames classesLoaded classNamesUnloaded classNamesSorted putLineForClassName|
-
- putLineForClassName := [:className |
- |newClassLine mappings|
-
- mappings := self classLine_libInit_dot_cc_mappings: className.
- newClassLine := self replaceMappings:mappings in:self classLine_libInit_dot_cc.
- s nextPutLine: newClassLine
- ].
-
- classNames := self common_compiled_classNames.
- classesLoaded := classNames
- collect:[:nm | |cls| cls := Smalltalk classNamed:nm]
- thenSelect:[:cls | cls notNil and:[cls isLoaded] ].
- classNamesUnloaded := classNames
- select:[:nm | |cls| cls := Smalltalk classNamed:nm. cls isNil or:[cls isLoaded not]].
-
- 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 :id|
- |archClassNames archClassesLoaded|
-
- archClassNames := self compiled_classNamesForArchitecture:id.
- archClassesLoaded := archClassNames
- collect:[:nm | |cls| cls := Smalltalk classNamed:nm]
- thenSelect:[:cls | cls notNil and:[cls isLoaded] ].
-
- archClassesLoaded notEmpty ifTrue:[
- s nextPutLine: '#ifdef ',ifdef.
- (Class classesSortedByLoadOrder:archClassesLoaded) do:[:cls | putLineForClassName value:cls name].
- s nextPutLine: '#endif /* ',ifdef,' */'.
- ].
- ].
- ]
-
- "
- bosch_dapasx_datenbasis generateClassLines_libInit_dot_cc
- bosch_dapasx_kernel generateClassLines_libInit_dot_cc
- stx_libbasic3 generateClassLines_libInit_dot_cc
- "
-
- "Created: / 09-08-2006 / 11:21:48 / fm"
- "Modified: / 16-08-2006 / 18:52:10 / User"
- "Modified: / 14-09-2006 / 13:11:57 / cg"
-!
-
generateExtensionLine_libInit_dot_cc
|mappings|
@@ -775,5 +687,5 @@
!LibraryDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.68 2006-09-19 19:00:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.69 2006-09-19 20:55:20 cg Exp $'
! !