LibraryDefinition.st
author fm
Wed, 09 Aug 2006 21:33:26 +0200
changeset 9495 36b012644f9d
parent 9493 b17358de5730
child 9500 88f80bbddaed
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
     1
"{ Package: 'stx:libbasic3' }"
b17358de5730 initial checkin
fm
parents:
diff changeset
     2
b17358de5730 initial checkin
fm
parents:
diff changeset
     3
Object subclass:#ProjectDefinition
b17358de5730 initial checkin
fm
parents:
diff changeset
     4
	instanceVariableNames:''
b17358de5730 initial checkin
fm
parents:
diff changeset
     5
	classVariableNames:''
b17358de5730 initial checkin
fm
parents:
diff changeset
     6
	poolDictionaries:''
b17358de5730 initial checkin
fm
parents:
diff changeset
     7
	category:'System-Support-Projects'
b17358de5730 initial checkin
fm
parents:
diff changeset
     8
!
b17358de5730 initial checkin
fm
parents:
diff changeset
     9
b17358de5730 initial checkin
fm
parents:
diff changeset
    10
b17358de5730 initial checkin
fm
parents:
diff changeset
    11
!ProjectDefinition class methodsFor:'instance creation'!
b17358de5730 initial checkin
fm
parents:
diff changeset
    12
b17358de5730 initial checkin
fm
parents:
diff changeset
    13
definitionClassForPackage:aPackageID
b17358de5730 initial checkin
fm
parents:
diff changeset
    14
    |classes|
b17358de5730 initial checkin
fm
parents:
diff changeset
    15
b17358de5730 initial checkin
fm
parents:
diff changeset
    16
    classes := OrderedCollection new.
b17358de5730 initial checkin
fm
parents:
diff changeset
    17
    Smalltalk allClassesInPackage:aPackageID 
b17358de5730 initial checkin
fm
parents:
diff changeset
    18
                do:[:eachClass |
b17358de5730 initial checkin
fm
parents:
diff changeset
    19
                    (eachClass isSubclassOf:ProjectDefinition) ifTrue:[
b17358de5730 initial checkin
fm
parents:
diff changeset
    20
                        classes add:eachClass    
b17358de5730 initial checkin
fm
parents:
diff changeset
    21
                    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
    22
                ].
b17358de5730 initial checkin
fm
parents:
diff changeset
    23
b17358de5730 initial checkin
fm
parents:
diff changeset
    24
    classes isEmpty ifTrue:[
b17358de5730 initial checkin
fm
parents:
diff changeset
    25
        ^ nil
b17358de5730 initial checkin
fm
parents:
diff changeset
    26
    ].
b17358de5730 initial checkin
fm
parents:
diff changeset
    27
    classes size > 1 ifTrue:[
b17358de5730 initial checkin
fm
parents:
diff changeset
    28
        self error:'OOPS - multiple projectDefinitions' mayProceed:true.
b17358de5730 initial checkin
fm
parents:
diff changeset
    29
        ^ classes first.
b17358de5730 initial checkin
fm
parents:
diff changeset
    30
    ].
b17358de5730 initial checkin
fm
parents:
diff changeset
    31
    ^ classes first
b17358de5730 initial checkin
fm
parents:
diff changeset
    32
b17358de5730 initial checkin
fm
parents:
diff changeset
    33
    "Created: / 09-08-2006 / 17:27:32 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
    34
!
b17358de5730 initial checkin
fm
parents:
diff changeset
    35
b17358de5730 initial checkin
fm
parents:
diff changeset
    36
newNamed:newName package:packageID
b17358de5730 initial checkin
fm
parents:
diff changeset
    37
    |newClass|
b17358de5730 initial checkin
fm
parents:
diff changeset
    38
b17358de5730 initial checkin
fm
parents:
diff changeset
    39
    newClass := self
b17358de5730 initial checkin
fm
parents:
diff changeset
    40
                    subclass:(newName asSymbol)
b17358de5730 initial checkin
fm
parents:
diff changeset
    41
                    instanceVariableNames:''
b17358de5730 initial checkin
fm
parents:
diff changeset
    42
                    classVariableNames:''
b17358de5730 initial checkin
fm
parents:
diff changeset
    43
                    poolDictionaries:''
b17358de5730 initial checkin
fm
parents:
diff changeset
    44
                    category:'* Projects *'.
b17358de5730 initial checkin
fm
parents:
diff changeset
    45
b17358de5730 initial checkin
fm
parents:
diff changeset
    46
    newClass package:packageID asSymbol.
b17358de5730 initial checkin
fm
parents:
diff changeset
    47
    ^ newClass
b17358de5730 initial checkin
fm
parents:
diff changeset
    48
b17358de5730 initial checkin
fm
parents:
diff changeset
    49
    "Created: / 09-08-2006 / 17:57:37 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
    50
    "Modified: / 09-08-2006 / 19:27:53 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
    51
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
    52
b17358de5730 initial checkin
fm
parents:
diff changeset
    53
!ProjectDefinition class methodsFor:'accessing'!
b17358de5730 initial checkin
fm
parents:
diff changeset
    54
b17358de5730 initial checkin
fm
parents:
diff changeset
    55
initialClassNameForDefinitionOf:aPackageId
b17358de5730 initial checkin
fm
parents:
diff changeset
    56
       ^ (aPackageId asString copy replaceAny:':/' by:$_ ) , '_Definition'
b17358de5730 initial checkin
fm
parents:
diff changeset
    57
b17358de5730 initial checkin
fm
parents:
diff changeset
    58
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    59
   DapasXProject initialClassNameForDefinitionOf:'bosch:dapasx/interactiver_editor' 
b17358de5730 initial checkin
fm
parents:
diff changeset
    60
   DapasXProject initialClassNameForDefinitionOf:'stx:libbasic' 
b17358de5730 initial checkin
fm
parents:
diff changeset
    61
   DapasXProject initialClassNameForDefinitionOf:'stx:goodies/xml' 
b17358de5730 initial checkin
fm
parents:
diff changeset
    62
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    63
b17358de5730 initial checkin
fm
parents:
diff changeset
    64
    "Created: / 09-08-2006 / 17:44:47 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
    65
!
b17358de5730 initial checkin
fm
parents:
diff changeset
    66
b17358de5730 initial checkin
fm
parents:
diff changeset
    67
libraryName
b17358de5730 initial checkin
fm
parents:
diff changeset
    68
       ^ self package asString copy replaceAny:':/' by:$_
b17358de5730 initial checkin
fm
parents:
diff changeset
    69
b17358de5730 initial checkin
fm
parents:
diff changeset
    70
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    71
   DapasXProject libraryName
b17358de5730 initial checkin
fm
parents:
diff changeset
    72
   DapasX_Datenbasis libraryName
b17358de5730 initial checkin
fm
parents:
diff changeset
    73
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    74
b17358de5730 initial checkin
fm
parents:
diff changeset
    75
    "Modified: / 09-08-2006 / 18:20:29 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
    76
!
b17358de5730 initial checkin
fm
parents:
diff changeset
    77
b17358de5730 initial checkin
fm
parents:
diff changeset
    78
module
b17358de5730 initial checkin
fm
parents:
diff changeset
    79
b17358de5730 initial checkin
fm
parents:
diff changeset
    80
^self moduleOfClass: self
b17358de5730 initial checkin
fm
parents:
diff changeset
    81
b17358de5730 initial checkin
fm
parents:
diff changeset
    82
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    83
   DapasXProject module
b17358de5730 initial checkin
fm
parents:
diff changeset
    84
   DapasX_Datenbasis module
b17358de5730 initial checkin
fm
parents:
diff changeset
    85
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    86
b17358de5730 initial checkin
fm
parents:
diff changeset
    87
    "Created: / 08-08-2006 / 20:24:53 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
    88
    "Modified: / 09-08-2006 / 16:16:37 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
    89
!
b17358de5730 initial checkin
fm
parents:
diff changeset
    90
b17358de5730 initial checkin
fm
parents:
diff changeset
    91
moduleDirectory
b17358de5730 initial checkin
fm
parents:
diff changeset
    92
b17358de5730 initial checkin
fm
parents:
diff changeset
    93
^(self package subStrings: $:) last
b17358de5730 initial checkin
fm
parents:
diff changeset
    94
b17358de5730 initial checkin
fm
parents:
diff changeset
    95
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    96
   DapasXProject moduleDirectory
b17358de5730 initial checkin
fm
parents:
diff changeset
    97
   DapasX_Datenbasis moduleDirectory
b17358de5730 initial checkin
fm
parents:
diff changeset
    98
"
b17358de5730 initial checkin
fm
parents:
diff changeset
    99
b17358de5730 initial checkin
fm
parents:
diff changeset
   100
    "Created: / 08-08-2006 / 20:25:39 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   101
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   102
b17358de5730 initial checkin
fm
parents:
diff changeset
   103
moduleOfClass: aClass
b17358de5730 initial checkin
fm
parents:
diff changeset
   104
b17358de5730 initial checkin
fm
parents:
diff changeset
   105
^(aClass package subStrings: $:) first
b17358de5730 initial checkin
fm
parents:
diff changeset
   106
b17358de5730 initial checkin
fm
parents:
diff changeset
   107
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   108
   DapasXProject module
b17358de5730 initial checkin
fm
parents:
diff changeset
   109
   DapasX_Datenbasis module
b17358de5730 initial checkin
fm
parents:
diff changeset
   110
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   111
b17358de5730 initial checkin
fm
parents:
diff changeset
   112
    "Created: / 09-08-2006 / 16:16:16 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   113
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   114
b17358de5730 initial checkin
fm
parents:
diff changeset
   115
parentProject
b17358de5730 initial checkin
fm
parents:
diff changeset
   116
b17358de5730 initial checkin
fm
parents:
diff changeset
   117
    ^(self package asString subStrings: $/) first
b17358de5730 initial checkin
fm
parents:
diff changeset
   118
b17358de5730 initial checkin
fm
parents:
diff changeset
   119
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   120
    DapasXProject parentProject
b17358de5730 initial checkin
fm
parents:
diff changeset
   121
    DapasX_Datenbasis parentProject
b17358de5730 initial checkin
fm
parents:
diff changeset
   122
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   123
b17358de5730 initial checkin
fm
parents:
diff changeset
   124
    "Created: / 07-08-2006 / 20:18:27 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   125
    "Modified: / 08-08-2006 / 10:47:37 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   126
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   127
b17358de5730 initial checkin
fm
parents:
diff changeset
   128
pathToPackage:aPackageID
b17358de5730 initial checkin
fm
parents:
diff changeset
   129
"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
b17358de5730 initial checkin
fm
parents:
diff changeset
   130
b17358de5730 initial checkin
fm
parents:
diff changeset
   131
        ^ self pathToTop , '/../' , (aPackageID asString copy replaceAll:$: by:$/)
b17358de5730 initial checkin
fm
parents:
diff changeset
   132
b17358de5730 initial checkin
fm
parents:
diff changeset
   133
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   134
   DapasX_Datenbasis pathToPackage:'bosch:dapasx/kernel'
b17358de5730 initial checkin
fm
parents:
diff changeset
   135
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   136
b17358de5730 initial checkin
fm
parents:
diff changeset
   137
    "Created: / 09-08-2006 / 16:35:22 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   138
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   139
b17358de5730 initial checkin
fm
parents:
diff changeset
   140
pathToTop
b17358de5730 initial checkin
fm
parents:
diff changeset
   141
"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
b17358de5730 initial checkin
fm
parents:
diff changeset
   142
b17358de5730 initial checkin
fm
parents:
diff changeset
   143
       ^ (((1 to:(self package asCollectionOfSubstringsSeparatedByAny:':/') size)
b17358de5730 initial checkin
fm
parents:
diff changeset
   144
            collect:[:n | '../']) asStringWith:'') , 'stx'    
b17358de5730 initial checkin
fm
parents:
diff changeset
   145
b17358de5730 initial checkin
fm
parents:
diff changeset
   146
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   147
   DapasXProject pathToTop    
b17358de5730 initial checkin
fm
parents:
diff changeset
   148
   DapasX_Datenbasis pathToTop  
b17358de5730 initial checkin
fm
parents:
diff changeset
   149
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   150
b17358de5730 initial checkin
fm
parents:
diff changeset
   151
    "Created: / 09-08-2006 / 15:45:54 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   152
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   153
b17358de5730 initial checkin
fm
parents:
diff changeset
   154
!ProjectDefinition class methodsFor:'file generation'!
b17358de5730 initial checkin
fm
parents:
diff changeset
   155
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   156
allClassNames
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   157
    ^ (self compiled_classNames , self autoloaded_classNames , self excluded_classNames)
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   158
!
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   159
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   160
generateAbbrev_dot_stc
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   161
    ^ String 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   162
        streamContents:[:s | 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   163
            self allClassNames do:[:eachClassName | 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   164
                |cls|
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   165
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   166
                cls := Smalltalk classNamed:eachClassName.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   167
                cls autoload.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   168
                s nextPutAll:eachClassName.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   169
                s nextPutAll:' '.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   170
                s nextPutAll:cls classFilename asFilename withoutSuffix name.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   171
                s nextPutAll:' '.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   172
                s nextPutAll:cls package.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   173
                s nextPutAll:' '.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   174
                s nextPutAll:cls category storeString.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   175
                s nextPutAll:' '.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   176
                s nextPutAll:(cls theMetaclass instVarNames size).
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   177
                s cr.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   178
            ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   179
        ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   180
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   181
    "
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   182
        DapasXProject generateAbbrev_dot_stc
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   183
        DapasX_Datenbasis generateAbbrev_dot_stc
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   184
        bosch_dapasx_interactiver_editor_Definition generateAbbrev_dot_stc
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   185
    "
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   186
    "Created: / 09-08-2006 / 11:24:39 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   187
!
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   188
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   189
generate_bc_dot_def                         
b17358de5730 initial checkin
fm
parents:
diff changeset
   190
b17358de5730 initial checkin
fm
parents:
diff changeset
   191
    ^self replaceMappings: self bc_dot_def_mappings 
b17358de5730 initial checkin
fm
parents:
diff changeset
   192
            in: self bc_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   193
b17358de5730 initial checkin
fm
parents:
diff changeset
   194
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   195
  DapasXProject generate_bc_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   196
  DapasX_Datenbasis generate_bc_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   197
b17358de5730 initial checkin
fm
parents:
diff changeset
   198
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   199
b17358de5730 initial checkin
fm
parents:
diff changeset
   200
    "Modified: / 09-08-2006 / 11:30:42 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   201
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   202
b17358de5730 initial checkin
fm
parents:
diff changeset
   203
generate_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   204
b17358de5730 initial checkin
fm
parents:
diff changeset
   205
    ^self replaceMappings: self libInit_dot_cc_mappings 
b17358de5730 initial checkin
fm
parents:
diff changeset
   206
            in: self libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   207
b17358de5730 initial checkin
fm
parents:
diff changeset
   208
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   209
  DapasXProject generate_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   210
  DapasX_Datenbasis generate_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   211
b17358de5730 initial checkin
fm
parents:
diff changeset
   212
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   213
b17358de5730 initial checkin
fm
parents:
diff changeset
   214
    "Created: / 08-08-2006 / 12:47:16 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   215
    "Modified: / 09-08-2006 / 11:30:52 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   216
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   217
b17358de5730 initial checkin
fm
parents:
diff changeset
   218
generate_make_dot_proto   
b17358de5730 initial checkin
fm
parents:
diff changeset
   219
b17358de5730 initial checkin
fm
parents:
diff changeset
   220
    ^self replaceMappings: self make_dot_proto_mappings 
b17358de5730 initial checkin
fm
parents:
diff changeset
   221
            in: self make_dot_proto
b17358de5730 initial checkin
fm
parents:
diff changeset
   222
b17358de5730 initial checkin
fm
parents:
diff changeset
   223
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   224
  DapasXProject generate_make_dot_proto
b17358de5730 initial checkin
fm
parents:
diff changeset
   225
  DapasX_Datenbasis generate_make_dot_proto
b17358de5730 initial checkin
fm
parents:
diff changeset
   226
b17358de5730 initial checkin
fm
parents:
diff changeset
   227
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   228
b17358de5730 initial checkin
fm
parents:
diff changeset
   229
    "Modified: / 09-08-2006 / 11:31:01 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   230
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   231
b17358de5730 initial checkin
fm
parents:
diff changeset
   232
generate_make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   233
b17358de5730 initial checkin
fm
parents:
diff changeset
   234
    ^self replaceMappings: self make_dot_spec_mappings 
b17358de5730 initial checkin
fm
parents:
diff changeset
   235
            in: self make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   236
b17358de5730 initial checkin
fm
parents:
diff changeset
   237
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   238
  DapasXProject generate_make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   239
  DapasX_Datenbasis generate_make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   240
b17358de5730 initial checkin
fm
parents:
diff changeset
   241
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   242
b17358de5730 initial checkin
fm
parents:
diff changeset
   243
    "Modified: / 09-08-2006 / 11:31:09 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   244
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   245
b17358de5730 initial checkin
fm
parents:
diff changeset
   246
generate_nt_dot_def                           
b17358de5730 initial checkin
fm
parents:
diff changeset
   247
b17358de5730 initial checkin
fm
parents:
diff changeset
   248
    ^self replaceMappings: self nt_dot_def_mappings 
b17358de5730 initial checkin
fm
parents:
diff changeset
   249
            in: self nt_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   250
b17358de5730 initial checkin
fm
parents:
diff changeset
   251
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   252
  DapasXProject generate_nt_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   253
  DapasX_Datenbasis generate_nt_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   254
b17358de5730 initial checkin
fm
parents:
diff changeset
   255
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   256
b17358de5730 initial checkin
fm
parents:
diff changeset
   257
    "Modified: / 09-08-2006 / 11:31:21 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   258
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   259
b17358de5730 initial checkin
fm
parents:
diff changeset
   260
generate_nt_dot_mak         
b17358de5730 initial checkin
fm
parents:
diff changeset
   261
b17358de5730 initial checkin
fm
parents:
diff changeset
   262
    ^self replaceMappings: self nt_dot_mak_mappings 
b17358de5730 initial checkin
fm
parents:
diff changeset
   263
            in: self nt_dot_mak
b17358de5730 initial checkin
fm
parents:
diff changeset
   264
b17358de5730 initial checkin
fm
parents:
diff changeset
   265
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   266
  DapasXProject generate_nt_dot_mak
b17358de5730 initial checkin
fm
parents:
diff changeset
   267
  DapasX_Datenbasis generate_nt_dot_mak
b17358de5730 initial checkin
fm
parents:
diff changeset
   268
b17358de5730 initial checkin
fm
parents:
diff changeset
   269
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   270
b17358de5730 initial checkin
fm
parents:
diff changeset
   271
    "Modified: / 09-08-2006 / 11:46:14 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   272
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   273
b17358de5730 initial checkin
fm
parents:
diff changeset
   274
!ProjectDefinition class methodsFor:'file templates'!
b17358de5730 initial checkin
fm
parents:
diff changeset
   275
b17358de5730 initial checkin
fm
parents:
diff changeset
   276
bc_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   277
b17358de5730 initial checkin
fm
parents:
diff changeset
   278
^ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   279
'LIBRARY        %(LIBRARY_NAME)
b17358de5730 initial checkin
fm
parents:
diff changeset
   280
DESCRIPTION     %(DESCRIPTION)
b17358de5730 initial checkin
fm
parents:
diff changeset
   281
CODE            PRELOAD MOVEABLE DISCARDABLE
b17358de5730 initial checkin
fm
parents:
diff changeset
   282
SEGMENTS
b17358de5730 initial checkin
fm
parents:
diff changeset
   283
    INITCODE    PRELOAD DISCARDABLE
b17358de5730 initial checkin
fm
parents:
diff changeset
   284
EXPORTS
b17358de5730 initial checkin
fm
parents:
diff changeset
   285
    __%(LIBRARY_NAME)_Init     @1'
b17358de5730 initial checkin
fm
parents:
diff changeset
   286
b17358de5730 initial checkin
fm
parents:
diff changeset
   287
    "Created: / 08-08-2006 / 12:26:58 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   288
    "Modified: / 08-08-2006 / 19:32:27 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   289
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   290
b17358de5730 initial checkin
fm
parents:
diff changeset
   291
classLine_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   292
b17358de5730 initial checkin
fm
parents:
diff changeset
   293
^'_%(CLASS)_Init(pass,__pRT__,snd);'
b17358de5730 initial checkin
fm
parents:
diff changeset
   294
b17358de5730 initial checkin
fm
parents:
diff changeset
   295
    "Created: / 08-08-2006 / 12:51:44 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   296
    "Modified: / 08-08-2006 / 15:46:05 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   297
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   298
b17358de5730 initial checkin
fm
parents:
diff changeset
   299
extensionLine_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   300
b17358de5730 initial checkin
fm
parents:
diff changeset
   301
^'_%(LIBRARY_NAME)_extensions_Init(pass,__pRT__,snd);'
b17358de5730 initial checkin
fm
parents:
diff changeset
   302
b17358de5730 initial checkin
fm
parents:
diff changeset
   303
    "Created: / 08-08-2006 / 15:48:56 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   304
    "Modified: / 08-08-2006 / 19:32:33 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   305
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   306
b17358de5730 initial checkin
fm
parents:
diff changeset
   307
libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   308
b17358de5730 initial checkin
fm
parents:
diff changeset
   309
^ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   310
'/*
b17358de5730 initial checkin
fm
parents:
diff changeset
   311
 * DO NOT EDIT 
b17358de5730 initial checkin
fm
parents:
diff changeset
   312
 * automagically generated from Make.proto (by make libInit.cc)
b17358de5730 initial checkin
fm
parents:
diff changeset
   313
 */
b17358de5730 initial checkin
fm
parents:
diff changeset
   314
#define __INDIRECTVMINITCALLS__
b17358de5730 initial checkin
fm
parents:
diff changeset
   315
#include <stc.h>
b17358de5730 initial checkin
fm
parents:
diff changeset
   316
#define INIT_TEXT_SECT /* as nothing */
b17358de5730 initial checkin
fm
parents:
diff changeset
   317
#ifdef WIN32
b17358de5730 initial checkin
fm
parents:
diff changeset
   318
# pragma codeseg INITCODE "INITCODE"
b17358de5730 initial checkin
fm
parents:
diff changeset
   319
#else /* not WIN32 */
b17358de5730 initial checkin
fm
parents:
diff changeset
   320
# if defined(__GNUC__) && !!defined(NO_SECTION_ATTRIBUTES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   321
#  if (__GNUC__  == 2 && __GNUC_MINOR__ >= 7) || __GNUC__ > 2
b17358de5730 initial checkin
fm
parents:
diff changeset
   322
#   undef INIT_TEXT_SECT
b17358de5730 initial checkin
fm
parents:
diff changeset
   323
#   define INIT_TEXT_SECT __attribute__((section(".stxitext")))
b17358de5730 initial checkin
fm
parents:
diff changeset
   324
#  endif
b17358de5730 initial checkin
fm
parents:
diff changeset
   325
# endif /* not GNUC */
b17358de5730 initial checkin
fm
parents:
diff changeset
   326
#endif /* not WIN32 */
b17358de5730 initial checkin
fm
parents:
diff changeset
   327
#ifdef INIT_TEXT_SECT
b17358de5730 initial checkin
fm
parents:
diff changeset
   328
extern void _%(LIBRARY_NAME)_Init() INIT_TEXT_SECT;
b17358de5730 initial checkin
fm
parents:
diff changeset
   329
#endif
b17358de5730 initial checkin
fm
parents:
diff changeset
   330
void _%(LIBRARY_NAME)_Init(pass, __pRT__, snd)
b17358de5730 initial checkin
fm
parents:
diff changeset
   331
OBJ snd; struct __vmData__ *__pRT__; {
b17358de5730 initial checkin
fm
parents:
diff changeset
   332
__BEGIN_PACKAGE2__("%(LIBRARY_NAME)", _%(LIBRARY_NAME)_Init, "%(PACKAGE)");
b17358de5730 initial checkin
fm
parents:
diff changeset
   333
%(CLASSES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   334
%(EXTENSION)
b17358de5730 initial checkin
fm
parents:
diff changeset
   335
__END_PACKAGE__();
b17358de5730 initial checkin
fm
parents:
diff changeset
   336
}'
b17358de5730 initial checkin
fm
parents:
diff changeset
   337
b17358de5730 initial checkin
fm
parents:
diff changeset
   338
    "Created: / 08-08-2006 / 12:40:45 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   339
    "Modified: / 08-08-2006 / 19:33:01 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   340
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   341
b17358de5730 initial checkin
fm
parents:
diff changeset
   342
make_dot_proto
b17358de5730 initial checkin
fm
parents:
diff changeset
   343
b17358de5730 initial checkin
fm
parents:
diff changeset
   344
^ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   345
'#
b17358de5730 initial checkin
fm
parents:
diff changeset
   346
# Warning: once you modify this file, do not rerun
b17358de5730 initial checkin
fm
parents:
diff changeset
   347
# stmkmp again - otherwise, your changes are lost.
b17358de5730 initial checkin
fm
parents:
diff changeset
   348
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   349
# The Makefile as generated by this Make.proto supports the following targets:
b17358de5730 initial checkin
fm
parents:
diff changeset
   350
#    make         - compile all st-files to a classLib
b17358de5730 initial checkin
fm
parents:
diff changeset
   351
#    make install - install the classLib in /opt/smalltalk/...
b17358de5730 initial checkin
fm
parents:
diff changeset
   352
#    make clean   - clean all temp files
b17358de5730 initial checkin
fm
parents:
diff changeset
   353
#    make clobber - clean all
b17358de5730 initial checkin
fm
parents:
diff changeset
   354
b17358de5730 initial checkin
fm
parents:
diff changeset
   355
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   356
# position (of this package) in directory hierarchy:
b17358de5730 initial checkin
fm
parents:
diff changeset
   357
# (must point to ST/X top directory, for tools and includes)
b17358de5730 initial checkin
fm
parents:
diff changeset
   358
TOP=%(TOP)
b17358de5730 initial checkin
fm
parents:
diff changeset
   359
b17358de5730 initial checkin
fm
parents:
diff changeset
   360
b17358de5730 initial checkin
fm
parents:
diff changeset
   361
# subdirectories where targets are to be made:
b17358de5730 initial checkin
fm
parents:
diff changeset
   362
SUBDIRS=%(SUBDIRECTORIES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   363
b17358de5730 initial checkin
fm
parents:
diff changeset
   364
b17358de5730 initial checkin
fm
parents:
diff changeset
   365
# subdirectories where Makefiles are to be made:
b17358de5730 initial checkin
fm
parents:
diff changeset
   366
# (only define if different from SUBDIRS)
b17358de5730 initial checkin
fm
parents:
diff changeset
   367
# ALLSUBDIRS=
b17358de5730 initial checkin
fm
parents:
diff changeset
   368
b17358de5730 initial checkin
fm
parents:
diff changeset
   369
b17358de5730 initial checkin
fm
parents:
diff changeset
   370
# if your embedded C code requires any system includes, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   371
# add the path(es) here:, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   372
# ********** OPTIONAL: MODIFY the next lines ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   373
# LOCALINCLUDES=-Ifoo -Ibar
b17358de5730 initial checkin
fm
parents:
diff changeset
   374
LOCALINCLUDES=%(LOCAL_INCLUDES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   375
b17358de5730 initial checkin
fm
parents:
diff changeset
   376
b17358de5730 initial checkin
fm
parents:
diff changeset
   377
# if you need any additional defines for embedded C code, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   378
# add them here:, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   379
# ********** OPTIONAL: MODIFY the next lines ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   380
# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
b17358de5730 initial checkin
fm
parents:
diff changeset
   381
LOCALDEFINES=%(LOCAL_DEFINES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   382
b17358de5730 initial checkin
fm
parents:
diff changeset
   383
b17358de5730 initial checkin
fm
parents:
diff changeset
   384
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   385
# The next 2 defines should be left as-is
b17358de5730 initial checkin
fm
parents:
diff changeset
   386
#  for a class-library package, you can uncomment the following:
b17358de5730 initial checkin
fm
parents:
diff changeset
   387
#  (it does not hurt much, if you leave it as is - but you may NOT
b17358de5730 initial checkin
fm
parents:
diff changeset
   388
#   uncomment it if object files are to be loaded individually later).
b17358de5730 initial checkin
fm
parents:
diff changeset
   389
# INITCODESEPFLAG=$(SEPINITCODE)
b17358de5730 initial checkin
fm
parents:
diff changeset
   390
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   391
#  the following MAY ONLY be uncommented for classes/classLibs,
b17358de5730 initial checkin
fm
parents:
diff changeset
   392
#  which are ALWAYS statically included in the executable.
b17358de5730 initial checkin
fm
parents:
diff changeset
   393
#  (i.e. NEVER for those which are subject to dynamic loading).
b17358de5730 initial checkin
fm
parents:
diff changeset
   394
# COMMONSYMFLAG=$(COMMONSYMBOLS)
b17358de5730 initial checkin
fm
parents:
diff changeset
   395
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   396
STCLOCALOPT=-I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) -H. ''-P$(PACKAGE)'' ''-Z$(LIBNAME)'' $(COMMONSYMFLAG) $(INITCODESEPFLAG)
b17358de5730 initial checkin
fm
parents:
diff changeset
   397
b17358de5730 initial checkin
fm
parents:
diff changeset
   398
b17358de5730 initial checkin
fm
parents:
diff changeset
   399
# ********** OPTIONAL: MODIFY the next line ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   400
# additional C-libraries that should be pre-linked with the class-objects
b17358de5730 initial checkin
fm
parents:
diff changeset
   401
LD_OBJ_LIBS=
b17358de5730 initial checkin
fm
parents:
diff changeset
   402
b17358de5730 initial checkin
fm
parents:
diff changeset
   403
b17358de5730 initial checkin
fm
parents:
diff changeset
   404
# ********** OPTIONAL: MODIFY the next line ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   405
# additional C targets or libraries should be added below
b17358de5730 initial checkin
fm
parents:
diff changeset
   406
LOCAL_EXTRA_TARGETS=
b17358de5730 initial checkin
fm
parents:
diff changeset
   407
b17358de5730 initial checkin
fm
parents:
diff changeset
   408
all:: preMake classLibRule postMake
b17358de5730 initial checkin
fm
parents:
diff changeset
   409
b17358de5730 initial checkin
fm
parents:
diff changeset
   410
b17358de5730 initial checkin
fm
parents:
diff changeset
   411
# add more install actions here
b17358de5730 initial checkin
fm
parents:
diff changeset
   412
install::
b17358de5730 initial checkin
fm
parents:
diff changeset
   413
b17358de5730 initial checkin
fm
parents:
diff changeset
   414
# add more install actions for aux-files (resources) here
b17358de5730 initial checkin
fm
parents:
diff changeset
   415
installAux::
b17358de5730 initial checkin
fm
parents:
diff changeset
   416
b17358de5730 initial checkin
fm
parents:
diff changeset
   417
# add more preMake actions here
b17358de5730 initial checkin
fm
parents:
diff changeset
   418
preMake::
b17358de5730 initial checkin
fm
parents:
diff changeset
   419
b17358de5730 initial checkin
fm
parents:
diff changeset
   420
# add more postMake actions here
b17358de5730 initial checkin
fm
parents:
diff changeset
   421
postMake:: cleanjunk
b17358de5730 initial checkin
fm
parents:
diff changeset
   422
b17358de5730 initial checkin
fm
parents:
diff changeset
   423
cleanjunk::
b17358de5730 initial checkin
fm
parents:
diff changeset
   424
b17358de5730 initial checkin
fm
parents:
diff changeset
   425
clean::
b17358de5730 initial checkin
fm
parents:
diff changeset
   426
        -rm -f *.o *.H
b17358de5730 initial checkin
fm
parents:
diff changeset
   427
b17358de5730 initial checkin
fm
parents:
diff changeset
   428
clobber::
b17358de5730 initial checkin
fm
parents:
diff changeset
   429
        -rm -f *.so *.dll
b17358de5730 initial checkin
fm
parents:
diff changeset
   430
b17358de5730 initial checkin
fm
parents:
diff changeset
   431
',
b17358de5730 initial checkin
fm
parents:
diff changeset
   432
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   433
$(INSTALLBASE)::
b17358de5730 initial checkin
fm
parents:
diff changeset
   434
        @test -d $@ || mkdir $@
b17358de5730 initial checkin
fm
parents:
diff changeset
   435
b17358de5730 initial checkin
fm
parents:
diff changeset
   436
$(INSTALLBASE)/packages:: $(INSTALLBASE)
b17358de5730 initial checkin
fm
parents:
diff changeset
   437
        @test -d $@ || mkdir $@
b17358de5730 initial checkin
fm
parents:
diff changeset
   438
b17358de5730 initial checkin
fm
parents:
diff changeset
   439
$(INSTALLBASE)/packages/$(MODULE):: $(INSTALLBASE)/packages
b17358de5730 initial checkin
fm
parents:
diff changeset
   440
        @test -d $@ || mkdir $@
b17358de5730 initial checkin
fm
parents:
diff changeset
   441
b17358de5730 initial checkin
fm
parents:
diff changeset
   442
$(INSTALLBASE)/packages/$(MODULE)/dapasx:: $(INSTALLBASE)/packages/$(MODULE)
b17358de5730 initial checkin
fm
parents:
diff changeset
   443
        @test -d $@ || mkdir $@
b17358de5730 initial checkin
fm
parents:
diff changeset
   444
b17358de5730 initial checkin
fm
parents:
diff changeset
   445
$(INSTALLBASE)/packages/$(MODULE)/dapasx/interactiver_editor:: $(INSTALLBASE)/packages/$(MODULE)/dapasx
b17358de5730 initial checkin
fm
parents:
diff changeset
   446
        @test -d $@ || mkdir $@
b17358de5730 initial checkin
fm
parents:
diff changeset
   447
b17358de5730 initial checkin
fm
parents:
diff changeset
   448
$(INSTALLBASE)/packages/$(MODULE)/$(MODULE_DIR):: $(INSTALLBASE)/packages/$(MODULE)
b17358de5730 initial checkin
fm
parents:
diff changeset
   449
        @test -d $@ || mkdir $@
b17358de5730 initial checkin
fm
parents:
diff changeset
   450
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   451
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   452
# if other things are to be compiled,
b17358de5730 initial checkin
fm
parents:
diff changeset
   453
# add target definitions here,
b17358de5730 initial checkin
fm
parents:
diff changeset
   454
# and list them in LOCAL_EXTRA_TARGETS above.
b17358de5730 initial checkin
fm
parents:
diff changeset
   455
# (care for make syntax - TABS are required in the actions)
b17358de5730 initial checkin
fm
parents:
diff changeset
   456
# foo:  foo.o
b17358de5730 initial checkin
fm
parents:
diff changeset
   457
#         $(CC) -o foo foo.o
b17358de5730 initial checkin
fm
parents:
diff changeset
   458
b17358de5730 initial checkin
fm
parents:
diff changeset
   459
# ''make depend'' will add dependency info between
b17358de5730 initial checkin
fm
parents:
diff changeset
   460
# BEGIN...END below
b17358de5730 initial checkin
fm
parents:
diff changeset
   461
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   462
# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
b17358de5730 initial checkin
fm
parents:
diff changeset
   463
# ENDMAKEDEPEND --- do not remove this line
b17358de5730 initial checkin
fm
parents:
diff changeset
   464
b17358de5730 initial checkin
fm
parents:
diff changeset
   465
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   466
b17358de5730 initial checkin
fm
parents:
diff changeset
   467
    "Created: / 08-08-2006 / 20:45:36 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   468
    "Modified: / 09-08-2006 / 16:50:23 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   469
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   470
b17358de5730 initial checkin
fm
parents:
diff changeset
   471
make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   472
b17358de5730 initial checkin
fm
parents:
diff changeset
   473
^ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   474
'#
b17358de5730 initial checkin
fm
parents:
diff changeset
   475
# This file contains specifications which are common to all platforms.
b17358de5730 initial checkin
fm
parents:
diff changeset
   476
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   477
# Warning: once you modify this file, do not rerun
b17358de5730 initial checkin
fm
parents:
diff changeset
   478
# stmkmp again - otherwise, your changes are lost.
b17358de5730 initial checkin
fm
parents:
diff changeset
   479
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   480
# This file contains definitions for Unix based platforms.
b17358de5730 initial checkin
fm
parents:
diff changeset
   481
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   482
b17358de5730 initial checkin
fm
parents:
diff changeset
   483
b17358de5730 initial checkin
fm
parents:
diff changeset
   484
b17358de5730 initial checkin
fm
parents:
diff changeset
   485
b17358de5730 initial checkin
fm
parents:
diff changeset
   486
# module and directory-in-module;
b17358de5730 initial checkin
fm
parents:
diff changeset
   487
# these should correspond to the directory hierarchy
b17358de5730 initial checkin
fm
parents:
diff changeset
   488
# location (otherwise, ST/X will have a hard time to
b17358de5730 initial checkin
fm
parents:
diff changeset
   489
# find out the packages location from its packageID)
b17358de5730 initial checkin
fm
parents:
diff changeset
   490
MODULE=%(MODULE)
b17358de5730 initial checkin
fm
parents:
diff changeset
   491
MODULE_DIR=%(MODULE_DIRECTORY)
b17358de5730 initial checkin
fm
parents:
diff changeset
   492
b17358de5730 initial checkin
fm
parents:
diff changeset
   493
b17358de5730 initial checkin
fm
parents:
diff changeset
   494
# the name of your classLibrary:
b17358de5730 initial checkin
fm
parents:
diff changeset
   495
# ********** REQUIRED: CHECK the next line ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   496
LIBNAME=%(LIBRARY_NAME)
b17358de5730 initial checkin
fm
parents:
diff changeset
   497
b17358de5730 initial checkin
fm
parents:
diff changeset
   498
b17358de5730 initial checkin
fm
parents:
diff changeset
   499
# the package is stored as an ID in classes and methods
b17358de5730 initial checkin
fm
parents:
diff changeset
   500
# to identify code belonging to this project.
b17358de5730 initial checkin
fm
parents:
diff changeset
   501
# It also specifies the position in the source repository
b17358de5730 initial checkin
fm
parents:
diff changeset
   502
# and directory tree, when packages are loaded by packageID.
b17358de5730 initial checkin
fm
parents:
diff changeset
   503
# ********** REQUIRED: CHECK the next line ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   504
PACKAGE=$(MODULE):$(MODULE_DIR)
b17358de5730 initial checkin
fm
parents:
diff changeset
   505
b17358de5730 initial checkin
fm
parents:
diff changeset
   506
b17358de5730 initial checkin
fm
parents:
diff changeset
   507
# Argument(s) to the stc compiler.
b17358de5730 initial checkin
fm
parents:
diff changeset
   508
#  -H.         : create header files locally
b17358de5730 initial checkin
fm
parents:
diff changeset
   509
#                (if removed, they will be created as common
b17358de5730 initial checkin
fm
parents:
diff changeset
   510
#  -Pxxx       : defines the package
b17358de5730 initial checkin
fm
parents:
diff changeset
   511
#  -Zxxx       : a prefix for variables within the classLib
b17358de5730 initial checkin
fm
parents:
diff changeset
   512
#  -Dxxx       : defines passed to to CC for inline C-code
b17358de5730 initial checkin
fm
parents:
diff changeset
   513
#  -Ixxx       : include path passed to CC for inline C-code
b17358de5730 initial checkin
fm
parents:
diff changeset
   514
#  +optspace   : optimized for space
b17358de5730 initial checkin
fm
parents:
diff changeset
   515
#  +optspace2  : optimized more for space
b17358de5730 initial checkin
fm
parents:
diff changeset
   516
#  +optspace3  : optimized even more for space
b17358de5730 initial checkin
fm
parents:
diff changeset
   517
#  +optinline  : generate inline code for some ST constructs
b17358de5730 initial checkin
fm
parents:
diff changeset
   518
#  +inlineNew  : additionally inline new
b17358de5730 initial checkin
fm
parents:
diff changeset
   519
#  +inlineMath : additionally inline some floatPnt math stuff
b17358de5730 initial checkin
fm
parents:
diff changeset
   520
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   521
# ********** OPTIONAL: MODIFY the next line(s) ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   522
# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
b17358de5730 initial checkin
fm
parents:
diff changeset
   523
# STCLOCALOPTIMIZATIONS=+optspace3
b17358de5730 initial checkin
fm
parents:
diff changeset
   524
STCLOCALOPTIMIZATIONS=+optspace3
b17358de5730 initial checkin
fm
parents:
diff changeset
   525
b17358de5730 initial checkin
fm
parents:
diff changeset
   526
b17358de5730 initial checkin
fm
parents:
diff changeset
   527
# Argument(s) to the stc compiler.
b17358de5730 initial checkin
fm
parents:
diff changeset
   528
#  -warn            : no warnings
b17358de5730 initial checkin
fm
parents:
diff changeset
   529
#  -warnNonStandard : no warnings about ST/X extensions
b17358de5730 initial checkin
fm
parents:
diff changeset
   530
#  -warnEOLComments : no warnings about EOL comment extension
b17358de5730 initial checkin
fm
parents:
diff changeset
   531
#  -warnPrivacy     : no warnings about privateClass extension
b17358de5730 initial checkin
fm
parents:
diff changeset
   532
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   533
# ********** OPTIONAL: MODIFY the next line(s) ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   534
# STCWARNINGS=-warn
b17358de5730 initial checkin
fm
parents:
diff changeset
   535
# STCWARNINGS=-warnNonStandard
b17358de5730 initial checkin
fm
parents:
diff changeset
   536
# STCWARNINGS=-warnEOLComments
b17358de5730 initial checkin
fm
parents:
diff changeset
   537
STCWARNINGS=
b17358de5730 initial checkin
fm
parents:
diff changeset
   538
b17358de5730 initial checkin
fm
parents:
diff changeset
   539
OBJS= \
b17358de5730 initial checkin
fm
parents:
diff changeset
   540
%(OBJECTS)
b17358de5730 initial checkin
fm
parents:
diff changeset
   541
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   542
b17358de5730 initial checkin
fm
parents:
diff changeset
   543
    "Created: / 08-08-2006 / 19:31:29 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   544
    "Modified: / 09-08-2006 / 15:10:57 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   545
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   546
b17358de5730 initial checkin
fm
parents:
diff changeset
   547
nt_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   548
b17358de5730 initial checkin
fm
parents:
diff changeset
   549
^
b17358de5730 initial checkin
fm
parents:
diff changeset
   550
'LIBRARY        %(LIBRARY_NAME)
b17358de5730 initial checkin
fm
parents:
diff changeset
   551
DESCRIPTION     %(DESCRIPTION)
b17358de5730 initial checkin
fm
parents:
diff changeset
   552
VERSION         %(VERSION_NUMBER)
b17358de5730 initial checkin
fm
parents:
diff changeset
   553
CODE            EXECUTE READ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   554
DATA            READ WRITE
b17358de5730 initial checkin
fm
parents:
diff changeset
   555
SECTIONS
b17358de5730 initial checkin
fm
parents:
diff changeset
   556
    INITCODE    READ EXECUTE 
b17358de5730 initial checkin
fm
parents:
diff changeset
   557
    INITDATA    READ WRITE
b17358de5730 initial checkin
fm
parents:
diff changeset
   558
EXPORTS 
b17358de5730 initial checkin
fm
parents:
diff changeset
   559
    _%(LIBRARY_NAME)_Init      @1
b17358de5730 initial checkin
fm
parents:
diff changeset
   560
IMPORTS'
b17358de5730 initial checkin
fm
parents:
diff changeset
   561
b17358de5730 initial checkin
fm
parents:
diff changeset
   562
    "Modified: / 08-08-2006 / 19:33:14 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   563
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   564
b17358de5730 initial checkin
fm
parents:
diff changeset
   565
nt_dot_mak
b17358de5730 initial checkin
fm
parents:
diff changeset
   566
b17358de5730 initial checkin
fm
parents:
diff changeset
   567
^
b17358de5730 initial checkin
fm
parents:
diff changeset
   568
'#
b17358de5730 initial checkin
fm
parents:
diff changeset
   569
# This file contains make rules for the win32 platform (using borland-bcc).
b17358de5730 initial checkin
fm
parents:
diff changeset
   570
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   571
# Warning: once you modify this file, do not rerun
b17358de5730 initial checkin
fm
parents:
diff changeset
   572
# stmkmp again - otherwise, your changes are lost.
b17358de5730 initial checkin
fm
parents:
diff changeset
   573
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   574
TOP=%(TOP)
b17358de5730 initial checkin
fm
parents:
diff changeset
   575
b17358de5730 initial checkin
fm
parents:
diff changeset
   576
!!INCLUDE $(TOP)\rules\stdHeader_nt
b17358de5730 initial checkin
fm
parents:
diff changeset
   577
b17358de5730 initial checkin
fm
parents:
diff changeset
   578
!!INCLUDE Make.spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   579
b17358de5730 initial checkin
fm
parents:
diff changeset
   580
LOCALINCLUDES=%(LOCAL_INCLUDES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   581
b17358de5730 initial checkin
fm
parents:
diff changeset
   582
STCLOCALOPT=-I. $(LOCALINCLUDES) -H. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) ''-P$(PACKAGE)'' ''-Z$(LIBNAME)'' $(COMMONSYMFLAG) $(INITCODESEPFLAG)
b17358de5730 initial checkin
fm
parents:
diff changeset
   583
b17358de5730 initial checkin
fm
parents:
diff changeset
   584
ALL::  $(LIBJPEG) $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll
b17358de5730 initial checkin
fm
parents:
diff changeset
   585
b17358de5730 initial checkin
fm
parents:
diff changeset
   586
!!INCLUDE $(TOP)\rules\stdRules_nt
b17358de5730 initial checkin
fm
parents:
diff changeset
   587
b17358de5730 initial checkin
fm
parents:
diff changeset
   588
# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
b17358de5730 initial checkin
fm
parents:
diff changeset
   589
# ENDMAKEDEPEND --- do not remove this line
b17358de5730 initial checkin
fm
parents:
diff changeset
   590
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   591
b17358de5730 initial checkin
fm
parents:
diff changeset
   592
    "Created: / 09-08-2006 / 11:44:20 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   593
    "Modified: / 09-08-2006 / 19:59:32 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   594
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   595
b17358de5730 initial checkin
fm
parents:
diff changeset
   596
objectLine_make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   597
b17358de5730 initial checkin
fm
parents:
diff changeset
   598
^'    %(CLASS).$(O) \'
b17358de5730 initial checkin
fm
parents:
diff changeset
   599
b17358de5730 initial checkin
fm
parents:
diff changeset
   600
    "Created: / 08-08-2006 / 20:16:46 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   601
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   602
b17358de5730 initial checkin
fm
parents:
diff changeset
   603
!ProjectDefinition class methodsFor:'mappings'!
b17358de5730 initial checkin
fm
parents:
diff changeset
   604
b17358de5730 initial checkin
fm
parents:
diff changeset
   605
bc_dot_def_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   606
b17358de5730 initial checkin
fm
parents:
diff changeset
   607
^Dictionary new
b17358de5730 initial checkin
fm
parents:
diff changeset
   608
    at: #'LIBRARY_NAME' put: [self libraryName];
b17358de5730 initial checkin
fm
parents:
diff changeset
   609
    at: #'DESCRIPTION' put: [self description];  
b17358de5730 initial checkin
fm
parents:
diff changeset
   610
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   611
b17358de5730 initial checkin
fm
parents:
diff changeset
   612
    "Created: / 09-08-2006 / 11:17:59 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   613
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   614
b17358de5730 initial checkin
fm
parents:
diff changeset
   615
classLine_libInit_dot_cc_mappings: aClassName
b17358de5730 initial checkin
fm
parents:
diff changeset
   616
b17358de5730 initial checkin
fm
parents:
diff changeset
   617
^Dictionary new                                               
b17358de5730 initial checkin
fm
parents:
diff changeset
   618
    at: #'CLASS' put: [aClassName asString copy replaceAny:':' by:$_];
b17358de5730 initial checkin
fm
parents:
diff changeset
   619
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   620
b17358de5730 initial checkin
fm
parents:
diff changeset
   621
    "Created: / 08-08-2006 / 14:04:00 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   622
    "Modified: / 09-08-2006 / 18:27:07 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   623
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   624
b17358de5730 initial checkin
fm
parents:
diff changeset
   625
extensionLine_libInit_dot_cc_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   626
b17358de5730 initial checkin
fm
parents:
diff changeset
   627
^Dictionary new                                               
b17358de5730 initial checkin
fm
parents:
diff changeset
   628
    at: #'LIBRARY_NAME' put: [self libraryName];
b17358de5730 initial checkin
fm
parents:
diff changeset
   629
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   630
b17358de5730 initial checkin
fm
parents:
diff changeset
   631
    "Created: / 09-08-2006 / 11:19:59 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   632
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   633
b17358de5730 initial checkin
fm
parents:
diff changeset
   634
libInit_dot_cc_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   635
b17358de5730 initial checkin
fm
parents:
diff changeset
   636
^Dictionary new
b17358de5730 initial checkin
fm
parents:
diff changeset
   637
    at: #'LIBRARY_NAME' put: [self libraryName];
b17358de5730 initial checkin
fm
parents:
diff changeset
   638
    at: #'PACKAGE' put: [self package];
b17358de5730 initial checkin
fm
parents:
diff changeset
   639
    at: #'CLASSES' put: [self generateClassLines_libInit_dot_cc];
b17358de5730 initial checkin
fm
parents:
diff changeset
   640
    at: #'EXTENSION' put: [self generateExtensionLine_libInit_dot_cc];
b17358de5730 initial checkin
fm
parents:
diff changeset
   641
b17358de5730 initial checkin
fm
parents:
diff changeset
   642
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   643
b17358de5730 initial checkin
fm
parents:
diff changeset
   644
    "Created: / 09-08-2006 / 11:20:24 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   645
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   646
b17358de5730 initial checkin
fm
parents:
diff changeset
   647
make_dot_proto_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   648
b17358de5730 initial checkin
fm
parents:
diff changeset
   649
^Dictionary new
b17358de5730 initial checkin
fm
parents:
diff changeset
   650
    at: #'TOP' put: [self topDirectory];
b17358de5730 initial checkin
fm
parents:
diff changeset
   651
    at: #'SUBDIRECTORIES' put: [self generateSubDirectories];
b17358de5730 initial checkin
fm
parents:
diff changeset
   652
    at: #'LOCAL_INCLUDES' put: [self generateLocalIncludes];
b17358de5730 initial checkin
fm
parents:
diff changeset
   653
    at: #'LOCAL_DEFINES' put: [''];
b17358de5730 initial checkin
fm
parents:
diff changeset
   654
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   655
b17358de5730 initial checkin
fm
parents:
diff changeset
   656
    "Created: / 09-08-2006 / 11:20:45 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   657
    "Modified: / 09-08-2006 / 16:44:48 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   658
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   659
b17358de5730 initial checkin
fm
parents:
diff changeset
   660
make_dot_spec_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   661
b17358de5730 initial checkin
fm
parents:
diff changeset
   662
^Dictionary new
b17358de5730 initial checkin
fm
parents:
diff changeset
   663
    at: #'MODULE' put: [self module];  
b17358de5730 initial checkin
fm
parents:
diff changeset
   664
    at: #'MODULE_DIRECTORY' put: [self moduleDirectory];  
b17358de5730 initial checkin
fm
parents:
diff changeset
   665
    at: #'LIBRARY_NAME' put: [self libraryName];
b17358de5730 initial checkin
fm
parents:
diff changeset
   666
    at: #'OBJECTS' put: [self generateObjects_make_dot_spec];  
b17358de5730 initial checkin
fm
parents:
diff changeset
   667
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   668
b17358de5730 initial checkin
fm
parents:
diff changeset
   669
    "Created: / 09-08-2006 / 11:21:06 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   670
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   671
b17358de5730 initial checkin
fm
parents:
diff changeset
   672
nt_dot_def_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   673
b17358de5730 initial checkin
fm
parents:
diff changeset
   674
^Dictionary new
b17358de5730 initial checkin
fm
parents:
diff changeset
   675
    at: #'LIBRARY_NAME' put: [self libraryName];
b17358de5730 initial checkin
fm
parents:
diff changeset
   676
    at: #'DESCRIPTION' put: [self description];
b17358de5730 initial checkin
fm
parents:
diff changeset
   677
    at: #'VERSION_NUMBER' put: [self versionNumber];
b17358de5730 initial checkin
fm
parents:
diff changeset
   678
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   679
b17358de5730 initial checkin
fm
parents:
diff changeset
   680
    "Created: / 09-08-2006 / 11:21:21 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   681
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   682
b17358de5730 initial checkin
fm
parents:
diff changeset
   683
nt_dot_mak_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   684
b17358de5730 initial checkin
fm
parents:
diff changeset
   685
^Dictionary new
b17358de5730 initial checkin
fm
parents:
diff changeset
   686
    at: #'TOP' put: [self topDirectory]; 
b17358de5730 initial checkin
fm
parents:
diff changeset
   687
    at: #'LOCAL_INCLUDES' put: [self generateLocalIncludes];
b17358de5730 initial checkin
fm
parents:
diff changeset
   688
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   689
b17358de5730 initial checkin
fm
parents:
diff changeset
   690
    "Created: / 09-08-2006 / 11:44:36 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   691
    "Modified: / 09-08-2006 / 20:00:01 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   692
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   693
b17358de5730 initial checkin
fm
parents:
diff changeset
   694
objectLine_make_dot_spec_mappings: aClassName
b17358de5730 initial checkin
fm
parents:
diff changeset
   695
b17358de5730 initial checkin
fm
parents:
diff changeset
   696
^Dictionary new                                               
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   697
    at: #'CLASS' put: [(Smalltalk classNamed:aClassName) classFilename asFilename withoutSuffix name];
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   698
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   699
b17358de5730 initial checkin
fm
parents:
diff changeset
   700
    "Created: / 08-08-2006 / 20:17:28 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   701
    "Modified: / 09-08-2006 / 18:26:52 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   702
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   703
b17358de5730 initial checkin
fm
parents:
diff changeset
   704
replaceMappings: mappings in: fileTemplate
b17358de5730 initial checkin
fm
parents:
diff changeset
   705
"Replaces the defined variable mappings found in a file template with the corresponding information"
b17358de5730 initial checkin
fm
parents:
diff changeset
   706
b17358de5730 initial checkin
fm
parents:
diff changeset
   707
^ fileTemplate bindWithArguments:mappings.
b17358de5730 initial checkin
fm
parents:
diff changeset
   708
b17358de5730 initial checkin
fm
parents:
diff changeset
   709
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   710
self replaceMappings: (self nt_dot_def_mappingsFor: self) in: self nt_dot_def  
b17358de5730 initial checkin
fm
parents:
diff changeset
   711
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   712
b17358de5730 initial checkin
fm
parents:
diff changeset
   713
    "Created: / 08-08-2006 / 11:44:27 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   714
    "Modified: / 08-08-2006 / 12:46:13 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   715
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   716
b17358de5730 initial checkin
fm
parents:
diff changeset
   717
!ProjectDefinition class methodsFor:'mappings support'!
b17358de5730 initial checkin
fm
parents:
diff changeset
   718
b17358de5730 initial checkin
fm
parents:
diff changeset
   719
generateClassLines_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   720
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   721
^self compiled_classNames 
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   722
    inject: ''
b17358de5730 initial checkin
fm
parents:
diff changeset
   723
    into:[:classLines :className | 
b17358de5730 initial checkin
fm
parents:
diff changeset
   724
        |newClassLine mappings|
b17358de5730 initial checkin
fm
parents:
diff changeset
   725
        mappings := self classLine_libInit_dot_cc_mappings: className.
b17358de5730 initial checkin
fm
parents:
diff changeset
   726
        newClassLine := self replaceMappings: mappings  
b17358de5730 initial checkin
fm
parents:
diff changeset
   727
                            in: self classLine_libInit_dot_cc.
b17358de5730 initial checkin
fm
parents:
diff changeset
   728
        classLines concatenate: newClassLine 
b17358de5730 initial checkin
fm
parents:
diff changeset
   729
                    and: String lf
b17358de5730 initial checkin
fm
parents:
diff changeset
   730
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   731
b17358de5730 initial checkin
fm
parents:
diff changeset
   732
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   733
    DapasXProject generateClassLines_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   734
    DapasX_Datenbasis generateClassLines_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   735
b17358de5730 initial checkin
fm
parents:
diff changeset
   736
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   737
b17358de5730 initial checkin
fm
parents:
diff changeset
   738
    "Created: / 09-08-2006 / 11:21:48 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   739
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   740
b17358de5730 initial checkin
fm
parents:
diff changeset
   741
generateExtensionLine_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   742
      |mappings|
b17358de5730 initial checkin
fm
parents:
diff changeset
   743
^self extensionMethodNames isEmpty
b17358de5730 initial checkin
fm
parents:
diff changeset
   744
    ifTrue:['']
b17358de5730 initial checkin
fm
parents:
diff changeset
   745
    ifFalse:[ mappings := self extensionLine_libInit_dot_cc_mappings.
b17358de5730 initial checkin
fm
parents:
diff changeset
   746
              self replaceMappings: mappings  
b17358de5730 initial checkin
fm
parents:
diff changeset
   747
                            in: self extensionLine_libInit_dot_cc.]
b17358de5730 initial checkin
fm
parents:
diff changeset
   748
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   749
    DapasXProject generateExtensionLine_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   750
    DapasX_Datenbasis generateExtensionLine_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   751
b17358de5730 initial checkin
fm
parents:
diff changeset
   752
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   753
b17358de5730 initial checkin
fm
parents:
diff changeset
   754
    "Created: / 09-08-2006 / 11:23:34 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   755
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   756
b17358de5730 initial checkin
fm
parents:
diff changeset
   757
generateLocalIncludes
b17358de5730 initial checkin
fm
parents:
diff changeset
   758
b17358de5730 initial checkin
fm
parents:
diff changeset
   759
^self searchForProjectsWhichProvideHeaderFiles
b17358de5730 initial checkin
fm
parents:
diff changeset
   760
    inject: ''
b17358de5730 initial checkin
fm
parents:
diff changeset
   761
    into:[:objectLines :includeProjectName |    
b17358de5730 initial checkin
fm
parents:
diff changeset
   762
            objectLines , ' -I',(self pathToPackage: includeProjectName) 
b17358de5730 initial checkin
fm
parents:
diff changeset
   763
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   764
b17358de5730 initial checkin
fm
parents:
diff changeset
   765
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   766
    DapasXProject generateLocalIncludes
b17358de5730 initial checkin
fm
parents:
diff changeset
   767
    DapasX_Datenbasis generateLocalIncludes
b17358de5730 initial checkin
fm
parents:
diff changeset
   768
b17358de5730 initial checkin
fm
parents:
diff changeset
   769
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   770
b17358de5730 initial checkin
fm
parents:
diff changeset
   771
    "Created: / 09-08-2006 / 16:46:49 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   772
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   773
b17358de5730 initial checkin
fm
parents:
diff changeset
   774
generateObjects_make_dot_spec 
b17358de5730 initial checkin
fm
parents:
diff changeset
   775
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   776
^self compiled_classNames 
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   777
    inject: ''
b17358de5730 initial checkin
fm
parents:
diff changeset
   778
    into:[:objectLines :className | 
b17358de5730 initial checkin
fm
parents:
diff changeset
   779
        |newObjectLine mappings|
b17358de5730 initial checkin
fm
parents:
diff changeset
   780
        mappings := self objectLine_make_dot_spec_mappings: className.
b17358de5730 initial checkin
fm
parents:
diff changeset
   781
        newObjectLine := self replaceMappings: mappings  
b17358de5730 initial checkin
fm
parents:
diff changeset
   782
                            in: self objectLine_make_dot_spec.
b17358de5730 initial checkin
fm
parents:
diff changeset
   783
        objectLines concatenate: newObjectLine 
b17358de5730 initial checkin
fm
parents:
diff changeset
   784
                    and: String lf 
b17358de5730 initial checkin
fm
parents:
diff changeset
   785
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   786
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   787
    DapasXProject generateObjects_make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   788
    DapasX_Datenbasis generateObjects_make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   789
b17358de5730 initial checkin
fm
parents:
diff changeset
   790
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   791
b17358de5730 initial checkin
fm
parents:
diff changeset
   792
    "Created: / 09-08-2006 / 11:24:39 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   793
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   794
b17358de5730 initial checkin
fm
parents:
diff changeset
   795
generatePrerequisiteProjectsPaths
b17358de5730 initial checkin
fm
parents:
diff changeset
   796
b17358de5730 initial checkin
fm
parents:
diff changeset
   797
^self prerequisiteProjects
b17358de5730 initial checkin
fm
parents:
diff changeset
   798
    inject: ''
b17358de5730 initial checkin
fm
parents:
diff changeset
   799
    into:[:objectLines :subProjectName |    
b17358de5730 initial checkin
fm
parents:
diff changeset
   800
        objectLines
b17358de5730 initial checkin
fm
parents:
diff changeset
   801
            concatenate: String lf
b17358de5730 initial checkin
fm
parents:
diff changeset
   802
            and: ' -I'
b17358de5730 initial checkin
fm
parents:
diff changeset
   803
            and: subProjectName 
b17358de5730 initial checkin
fm
parents:
diff changeset
   804
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   805
b17358de5730 initial checkin
fm
parents:
diff changeset
   806
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   807
    DapasXProject generatePrerequisiteProjectsPaths
b17358de5730 initial checkin
fm
parents:
diff changeset
   808
    DapasX_Datenbasis generatePrerequisiteProjectsPaths
b17358de5730 initial checkin
fm
parents:
diff changeset
   809
b17358de5730 initial checkin
fm
parents:
diff changeset
   810
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   811
b17358de5730 initial checkin
fm
parents:
diff changeset
   812
    "Created: / 09-08-2006 / 12:34:20 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   813
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   814
b17358de5730 initial checkin
fm
parents:
diff changeset
   815
generateSubDirectories
b17358de5730 initial checkin
fm
parents:
diff changeset
   816
b17358de5730 initial checkin
fm
parents:
diff changeset
   817
^self subProjects 
b17358de5730 initial checkin
fm
parents:
diff changeset
   818
    inject: ''
b17358de5730 initial checkin
fm
parents:
diff changeset
   819
    into:[:objectLines :subProjectName |    
b17358de5730 initial checkin
fm
parents:
diff changeset
   820
        objectLines
b17358de5730 initial checkin
fm
parents:
diff changeset
   821
            concatenate: ' '
b17358de5730 initial checkin
fm
parents:
diff changeset
   822
            and: subProjectName 
b17358de5730 initial checkin
fm
parents:
diff changeset
   823
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   824
b17358de5730 initial checkin
fm
parents:
diff changeset
   825
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   826
    DapasXProject generateSubDirectories
b17358de5730 initial checkin
fm
parents:
diff changeset
   827
    DapasX_Datenbasis generateSubDirectories
b17358de5730 initial checkin
fm
parents:
diff changeset
   828
b17358de5730 initial checkin
fm
parents:
diff changeset
   829
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   830
b17358de5730 initial checkin
fm
parents:
diff changeset
   831
    "Created: / 09-08-2006 / 11:26:59 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   832
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   833
b17358de5730 initial checkin
fm
parents:
diff changeset
   834
prerequisiteProjectsOrdered
b17358de5730 initial checkin
fm
parents:
diff changeset
   835
b17358de5730 initial checkin
fm
parents:
diff changeset
   836
^self prerequisiteProjects asSortedCollection:[:a :b | ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   837
b17358de5730 initial checkin
fm
parents:
diff changeset
   838
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   839
    DapasXProject generatePrerequisiteProjectsPaths
b17358de5730 initial checkin
fm
parents:
diff changeset
   840
    DapasX_Datenbasis generatePrerequisiteProjectsPaths
b17358de5730 initial checkin
fm
parents:
diff changeset
   841
b17358de5730 initial checkin
fm
parents:
diff changeset
   842
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   843
b17358de5730 initial checkin
fm
parents:
diff changeset
   844
    "Created: / 09-08-2006 / 13:12:01 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   845
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   846
b17358de5730 initial checkin
fm
parents:
diff changeset
   847
!ProjectDefinition class methodsFor:'project description'!
b17358de5730 initial checkin
fm
parents:
diff changeset
   848
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   849
autoloaded_classNames
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   850
    "classes listed here will NOT be compiled, but remain autoloaded.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   851
     to be excluded from the build process can be user-defined in my subclasses"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   852
b17358de5730 initial checkin
fm
parents:
diff changeset
   853
    ^#()
b17358de5730 initial checkin
fm
parents:
diff changeset
   854
b17358de5730 initial checkin
fm
parents:
diff changeset
   855
    "Created: / 07-08-2006 / 19:02:57 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   856
    "Modified: / 07-08-2006 / 21:25:25 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   857
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   858
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   859
classNames            
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   860
    "this is a stupid default, a correponding method with real names
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   861
     is generated in my subclasses"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   862
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   863
    ^#()
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   864
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   865
    "Created: / 07-08-2006 / 19:02:57 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   866
    "Modified: / 07-08-2006 / 21:25:25 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   867
!
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   868
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   869
compiled_classNames          
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   870
    "this is a stupid default, a correponding method with real names
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   871
     is generated in my subclasses"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   872
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   873
    ^#()
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   874
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   875
    "Created: / 07-08-2006 / 19:02:57 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   876
    "Modified: / 07-08-2006 / 21:25:25 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   877
!
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   878
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   879
compiled_classesDo:aBlock
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   880
    self compiled_classNames do:[:eachName|
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   881
        aBlock value:(Smalltalk at:eachName asSymbol)
b17358de5730 initial checkin
fm
parents:
diff changeset
   882
    ].
b17358de5730 initial checkin
fm
parents:
diff changeset
   883
b17358de5730 initial checkin
fm
parents:
diff changeset
   884
    "Created: / 09-08-2006 / 16:28:15 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   885
    "Modified: / 09-08-2006 / 18:02:28 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   886
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   887
b17358de5730 initial checkin
fm
parents:
diff changeset
   888
description
b17358de5730 initial checkin
fm
parents:
diff changeset
   889
"Returns a description string which will appear in nt.def and in the files info inside it's properties "
b17358de5730 initial checkin
fm
parents:
diff changeset
   890
b17358de5730 initial checkin
fm
parents:
diff changeset
   891
^''
b17358de5730 initial checkin
fm
parents:
diff changeset
   892
b17358de5730 initial checkin
fm
parents:
diff changeset
   893
    "Created: / 08-08-2006 / 11:15:01 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   894
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   895
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   896
excluded_classNames
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   897
    "this is a stupid default, a correponding method with real names
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   898
     to be excluded from the build process can be user-defined in my subclasses"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   899
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   900
    ^#()
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   901
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   902
    "Created: / 07-08-2006 / 19:02:57 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   903
    "Modified: / 07-08-2006 / 21:25:25 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   904
!
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   905
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   906
extensionMethodNames
b17358de5730 initial checkin
fm
parents:
diff changeset
   907
b17358de5730 initial checkin
fm
parents:
diff changeset
   908
    ^#()
b17358de5730 initial checkin
fm
parents:
diff changeset
   909
b17358de5730 initial checkin
fm
parents:
diff changeset
   910
    "Created: / 08-08-2006 / 11:07:08 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   911
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   912
b17358de5730 initial checkin
fm
parents:
diff changeset
   913
postLoadAction
b17358de5730 initial checkin
fm
parents:
diff changeset
   914
    "raise an error: must be redefined in concrete subclass(es)"
b17358de5730 initial checkin
fm
parents:
diff changeset
   915
b17358de5730 initial checkin
fm
parents:
diff changeset
   916
    ^ self subclassResponsibility
b17358de5730 initial checkin
fm
parents:
diff changeset
   917
b17358de5730 initial checkin
fm
parents:
diff changeset
   918
    "Created: / 08-08-2006 / 11:07:40 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   919
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   920
b17358de5730 initial checkin
fm
parents:
diff changeset
   921
preUnloadAction
b17358de5730 initial checkin
fm
parents:
diff changeset
   922
    "raise an error: must be redefined in concrete subclass(es)"
b17358de5730 initial checkin
fm
parents:
diff changeset
   923
b17358de5730 initial checkin
fm
parents:
diff changeset
   924
    ^ self subclassResponsibility
b17358de5730 initial checkin
fm
parents:
diff changeset
   925
b17358de5730 initial checkin
fm
parents:
diff changeset
   926
    "Created: / 08-08-2006 / 11:07:40 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   927
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   928
b17358de5730 initial checkin
fm
parents:
diff changeset
   929
prerequisiteProjects
b17358de5730 initial checkin
fm
parents:
diff changeset
   930
b17358de5730 initial checkin
fm
parents:
diff changeset
   931
    ^#()
b17358de5730 initial checkin
fm
parents:
diff changeset
   932
b17358de5730 initial checkin
fm
parents:
diff changeset
   933
    "Created: / 08-08-2006 / 21:17:34 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   934
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   935
b17358de5730 initial checkin
fm
parents:
diff changeset
   936
subProjects
b17358de5730 initial checkin
fm
parents:
diff changeset
   937
b17358de5730 initial checkin
fm
parents:
diff changeset
   938
    ^#()
b17358de5730 initial checkin
fm
parents:
diff changeset
   939
b17358de5730 initial checkin
fm
parents:
diff changeset
   940
    "Created: / 08-08-2006 / 11:08:23 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   941
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   942
b17358de5730 initial checkin
fm
parents:
diff changeset
   943
topDirectory
b17358de5730 initial checkin
fm
parents:
diff changeset
   944
" position (of this package) in directory hierarchy:
b17358de5730 initial checkin
fm
parents:
diff changeset
   945
  (must point to ST/X top directory, for tools and includes)"
b17358de5730 initial checkin
fm
parents:
diff changeset
   946
^self pathToTop
b17358de5730 initial checkin
fm
parents:
diff changeset
   947
b17358de5730 initial checkin
fm
parents:
diff changeset
   948
    "Created: / 08-08-2006 / 21:09:46 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   949
    "Modified: / 09-08-2006 / 15:50:14 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   950
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   951
b17358de5730 initial checkin
fm
parents:
diff changeset
   952
versionNumber
b17358de5730 initial checkin
fm
parents:
diff changeset
   953
"Returns a version string which will appear in nt.def and in the files info inside it's properties "
b17358de5730 initial checkin
fm
parents:
diff changeset
   954
b17358de5730 initial checkin
fm
parents:
diff changeset
   955
^''
b17358de5730 initial checkin
fm
parents:
diff changeset
   956
b17358de5730 initial checkin
fm
parents:
diff changeset
   957
    "Created: / 08-08-2006 / 11:35:52 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   958
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   959
b17358de5730 initial checkin
fm
parents:
diff changeset
   960
!ProjectDefinition class methodsFor:'public update description'!
b17358de5730 initial checkin
fm
parents:
diff changeset
   961
b17358de5730 initial checkin
fm
parents:
diff changeset
   962
compileDescriptionMethods
b17358de5730 initial checkin
fm
parents:
diff changeset
   963
    self compileClassNames.
b17358de5730 initial checkin
fm
parents:
diff changeset
   964
    self compileExtensionMethodNames.
b17358de5730 initial checkin
fm
parents:
diff changeset
   965
b17358de5730 initial checkin
fm
parents:
diff changeset
   966
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   967
    DapasXProject compileDescriptionMethods
b17358de5730 initial checkin
fm
parents:
diff changeset
   968
    DapasX_Datenbasis compileDescriptionMethods
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   969
    bosch_dapasx_interactiver_editor_Definition compileDescriptionMethods
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   970
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   971
b17358de5730 initial checkin
fm
parents:
diff changeset
   972
    "Created: / 09-08-2006 / 18:00:31 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   973
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   974
b17358de5730 initial checkin
fm
parents:
diff changeset
   975
!ProjectDefinition class methodsFor:'sanity checks'!
b17358de5730 initial checkin
fm
parents:
diff changeset
   976
b17358de5730 initial checkin
fm
parents:
diff changeset
   977
searchForInconsistencies
b17358de5730 initial checkin
fm
parents:
diff changeset
   978
    self searchForNeverCompiledSuperclasses.
b17358de5730 initial checkin
fm
parents:
diff changeset
   979
b17358de5730 initial checkin
fm
parents:
diff changeset
   980
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   981
    self searchForInconsistencies
b17358de5730 initial checkin
fm
parents:
diff changeset
   982
    DapasX_Datenbasis searchForInconsistencies  
b17358de5730 initial checkin
fm
parents:
diff changeset
   983
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   984
b17358de5730 initial checkin
fm
parents:
diff changeset
   985
    "Created: / 09-08-2006 / 16:30:46 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   986
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   987
b17358de5730 initial checkin
fm
parents:
diff changeset
   988
searchForNeverCompiledSuperclasses
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   989
      self compiled_classesDo:[:includedClass | 
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   990
            includedClass allSuperclassesDo:[:eachSuperClass |
b17358de5730 initial checkin
fm
parents:
diff changeset
   991
                eachSuperClass package == Project noProjectID ifTrue:[ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   992
                    self inconsistency:'uncompiled superclass: ' , eachSuperClass name
b17358de5730 initial checkin
fm
parents:
diff changeset
   993
                ].
b17358de5730 initial checkin
fm
parents:
diff changeset
   994
            ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   995
      ].
b17358de5730 initial checkin
fm
parents:
diff changeset
   996
b17358de5730 initial checkin
fm
parents:
diff changeset
   997
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   998
    self searchForNeverCompiledSuperclasses
b17358de5730 initial checkin
fm
parents:
diff changeset
   999
    DapasX_Datenbasis searchForNeverCompiledSuperclasses  
b17358de5730 initial checkin
fm
parents:
diff changeset
  1000
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1001
b17358de5730 initial checkin
fm
parents:
diff changeset
  1002
    "Created: / 09-08-2006 / 16:31:54 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1003
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
  1004
b17358de5730 initial checkin
fm
parents:
diff changeset
  1005
!ProjectDefinition class methodsFor:'update description'!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1006
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1007
autoloadedClassNamesGeneratedCodeToCompile
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1008
    |classNamesCode|
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1009
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1010
   classNamesCode := 'autoloaded_classNames', String lf, '"This method has been automatically generated"'.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1011
   classNamesCode := classNamesCode, String lf, self autoloadedClassNamesGeneratedString. 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1012
   ^classNamesCode
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1013
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1014
"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1015
    DapasXProject autoloadedClassNamesGeneratedCodeToCompile
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1016
    DapasX_Datenbasis autoloadedClassNamesGeneratedCodeToCompile
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1017
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1018
"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1019
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1020
    "Created: / 08-08-2006 / 15:07:06 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1021
!
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1022
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1023
autoloadedClassNamesGeneratedString
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1024
    | |
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1025
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1026
    ^ String streamContents:[:s |
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1027
        s nextPutAll:'^#('.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1028
        self searchForClassesWithProject do:[:eachClass |
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1029
            (eachClass wasAutoloaded or:[ eachClass isLoaded not ]) ifTrue:[
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1030
                (self compiled_classNames includes:eachClass name) ifFalse:[
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1031
                    (self excluded_classNames includes:eachClass name) ifFalse:[
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1032
                        s cr; nextPutAll:eachClass name asString storeString
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1033
                    ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1034
                ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1035
             ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1036
        ].
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1037
        s cr; nextPutAll:')'
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1038
    ].
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1039
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1040
"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1041
    bosch_dapasx_interactiver_editor_Definition autoloadedClassNamesGeneratedString
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1042
"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1043
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1044
    "Created: / 08-08-2006 / 15:00:17 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1045
    "Modified: / 08-08-2006 / 19:24:34 / fm"
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1046
!
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1047
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1048
classNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1049
    |classNamesCode|
b17358de5730 initial checkin
fm
parents:
diff changeset
  1050
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1051
   classNamesCode := 'compiled_classNames', String lf, '"This method has been automatically generated"'.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1052
   classNamesCode := classNamesCode, String lf, self classNamesGeneratedString. 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1053
   ^classNamesCode
b17358de5730 initial checkin
fm
parents:
diff changeset
  1054
b17358de5730 initial checkin
fm
parents:
diff changeset
  1055
"
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1056
    DapasXProject Datenbasis
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1057
    DapasX_Datenbasis Datenbasis
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1058
b17358de5730 initial checkin
fm
parents:
diff changeset
  1059
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1060
b17358de5730 initial checkin
fm
parents:
diff changeset
  1061
    "Created: / 08-08-2006 / 15:07:06 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1062
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1063
b17358de5730 initial checkin
fm
parents:
diff changeset
  1064
classNamesGeneratedString
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1065
    | |
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1066
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1067
    ^ String streamContents:[:s |
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1068
        s nextPutAll:'^#('.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1069
        self searchForClassesWithProject do:[:eachClass |
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1070
            (self autoloaded_classNames includes:eachClass name) ifFalse:[ 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1071
                (self excluded_classNames includes:eachClass name) ifFalse:[ 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1072
                    s cr; nextPutAll:eachClass name asString storeString
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1073
                 ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1074
             ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1075
        ].
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1076
        s cr; nextPutAll:')'
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1077
    ].
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1078
b17358de5730 initial checkin
fm
parents:
diff changeset
  1079
"
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1080
    bosch_dapasx_interactiver_editor_Definition classNamesGeneratedString
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1081
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1082
b17358de5730 initial checkin
fm
parents:
diff changeset
  1083
    "Created: / 08-08-2006 / 15:00:17 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1084
    "Modified: / 08-08-2006 / 19:24:34 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1085
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1086
b17358de5730 initial checkin
fm
parents:
diff changeset
  1087
compileClassNames                                                               
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1088
   self theMetaclass 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1089
        compile: self autoloadedClassNamesGeneratedCodeToCompile
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1090
        classified: 'project description'.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1091
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1092
   self theMetaclass 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1093
        compile: self classNamesGeneratedCodeToCompile
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1094
        classified: 'project description'.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1095
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1096
   (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1097
       self theMetaclass 
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1098
            compile: 'excluded_classNames\^ #()' withCRs
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1099
            classified: 'project description'.
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1100
   ].
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1101
b17358de5730 initial checkin
fm
parents:
diff changeset
  1102
"
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1103
    bosch_dapasx_interactiver_editor_Definition compileClassNames
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1104
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1105
    DapasXProject compileClassNames
b17358de5730 initial checkin
fm
parents:
diff changeset
  1106
    DapasX_Datenbasis compileClassNames
b17358de5730 initial checkin
fm
parents:
diff changeset
  1107
b17358de5730 initial checkin
fm
parents:
diff changeset
  1108
    DapasXProject classNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1109
    DapasX_Datenbasis classNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1110
b17358de5730 initial checkin
fm
parents:
diff changeset
  1111
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1112
b17358de5730 initial checkin
fm
parents:
diff changeset
  1113
    "Modified: / 08-08-2006 / 15:58:21 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1114
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1115
b17358de5730 initial checkin
fm
parents:
diff changeset
  1116
compileDescription                                                              
b17358de5730 initial checkin
fm
parents:
diff changeset
  1117
b17358de5730 initial checkin
fm
parents:
diff changeset
  1118
   self theMetaclass compile: 'description ^''bla bla'''
b17358de5730 initial checkin
fm
parents:
diff changeset
  1119
                     classified: 'project description'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1120
b17358de5730 initial checkin
fm
parents:
diff changeset
  1121
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1122
    DapasXProject compileClassNames
b17358de5730 initial checkin
fm
parents:
diff changeset
  1123
    DapasX_Datenbasis compileClassNames
b17358de5730 initial checkin
fm
parents:
diff changeset
  1124
b17358de5730 initial checkin
fm
parents:
diff changeset
  1125
    DapasXProject classNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1126
    DapasX_Datenbasis classNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1127
b17358de5730 initial checkin
fm
parents:
diff changeset
  1128
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1129
b17358de5730 initial checkin
fm
parents:
diff changeset
  1130
    "Created: / 09-08-2006 / 18:31:48 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1131
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1132
b17358de5730 initial checkin
fm
parents:
diff changeset
  1133
compileExtensionMethodNames                                                               
b17358de5730 initial checkin
fm
parents:
diff changeset
  1134
b17358de5730 initial checkin
fm
parents:
diff changeset
  1135
   self theMetaclass compile: self extensionMethodNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1136
                     classified: 'project description'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1137
b17358de5730 initial checkin
fm
parents:
diff changeset
  1138
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1139
    DapasXProject compileExtensionMethodNames
b17358de5730 initial checkin
fm
parents:
diff changeset
  1140
    DapasX_Datenbasis compileExtensionMethodNames
b17358de5730 initial checkin
fm
parents:
diff changeset
  1141
b17358de5730 initial checkin
fm
parents:
diff changeset
  1142
    DapasXProject extensionMethodNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1143
    DapasX_Datenbasis extensionMethodNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1144
b17358de5730 initial checkin
fm
parents:
diff changeset
  1145
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1146
b17358de5730 initial checkin
fm
parents:
diff changeset
  1147
    "Created: / 08-08-2006 / 18:53:27 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1148
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1149
b17358de5730 initial checkin
fm
parents:
diff changeset
  1150
extensionMethodNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1151
    |extensionMethodNamesCode|
b17358de5730 initial checkin
fm
parents:
diff changeset
  1152
b17358de5730 initial checkin
fm
parents:
diff changeset
  1153
   extensionMethodNamesCode := 'extensionMethodNames', String lf, '"This method has been automatically generated"'.
b17358de5730 initial checkin
fm
parents:
diff changeset
  1154
   extensionMethodNamesCode := extensionMethodNamesCode, String lf, self extensionMethodNamesGeneratedString. 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1155
   ^extensionMethodNamesCode
b17358de5730 initial checkin
fm
parents:
diff changeset
  1156
b17358de5730 initial checkin
fm
parents:
diff changeset
  1157
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1158
    DapasXProject extensionMethodNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1159
    DapasX_Datenbasis extensionMethodNamesGeneratedCodeToCompile
b17358de5730 initial checkin
fm
parents:
diff changeset
  1160
b17358de5730 initial checkin
fm
parents:
diff changeset
  1161
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1162
b17358de5730 initial checkin
fm
parents:
diff changeset
  1163
    "Created: / 08-08-2006 / 18:54:42 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1164
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1165
b17358de5730 initial checkin
fm
parents:
diff changeset
  1166
extensionMethodNamesGeneratedString
b17358de5730 initial checkin
fm
parents:
diff changeset
  1167
    |generatedString |
b17358de5730 initial checkin
fm
parents:
diff changeset
  1168
b17358de5730 initial checkin
fm
parents:
diff changeset
  1169
    generatedString := self searchForExtensionsWithProject 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1170
            inject: '^#(' 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1171
            into:[:string :each | 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1172
                string, String lf, each mclass name asString storeString, ' #', each name ]. 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1173
    ^generatedString, String lf, ')'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1174
b17358de5730 initial checkin
fm
parents:
diff changeset
  1175
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1176
    self extensionMethodNamesGeneratedString
b17358de5730 initial checkin
fm
parents:
diff changeset
  1177
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1178
b17358de5730 initial checkin
fm
parents:
diff changeset
  1179
    "Created: / 08-08-2006 / 18:55:04 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1180
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1181
b17358de5730 initial checkin
fm
parents:
diff changeset
  1182
inconsistency:message
b17358de5730 initial checkin
fm
parents:
diff changeset
  1183
    Dialog warn:message
b17358de5730 initial checkin
fm
parents:
diff changeset
  1184
b17358de5730 initial checkin
fm
parents:
diff changeset
  1185
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1186
    self searchForNeverCompiledSuperclasses
b17358de5730 initial checkin
fm
parents:
diff changeset
  1187
    DapasX_Datenbasis searchForNeverCompiledSuperclasses  
b17358de5730 initial checkin
fm
parents:
diff changeset
  1188
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1189
b17358de5730 initial checkin
fm
parents:
diff changeset
  1190
    "Created: / 09-08-2006 / 16:32:31 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1191
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1192
b17358de5730 initial checkin
fm
parents:
diff changeset
  1193
searchForClassesNamesWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1194
b17358de5730 initial checkin
fm
parents:
diff changeset
  1195
    ^self searchForClassesWithProject collect:[:each | each name]. 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1196
b17358de5730 initial checkin
fm
parents:
diff changeset
  1197
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1198
    self searchForClassesNamesWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1199
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1200
b17358de5730 initial checkin
fm
parents:
diff changeset
  1201
    "Created: / 07-08-2006 / 21:37:06 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1202
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1203
b17358de5730 initial checkin
fm
parents:
diff changeset
  1204
searchForClassesWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1205
b17358de5730 initial checkin
fm
parents:
diff changeset
  1206
    ^ Smalltalk allClasses select:[:cls | cls package == self package].
b17358de5730 initial checkin
fm
parents:
diff changeset
  1207
b17358de5730 initial checkin
fm
parents:
diff changeset
  1208
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1209
    self searchForClassesWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1210
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1211
b17358de5730 initial checkin
fm
parents:
diff changeset
  1212
    "Created: / 07-08-2006 / 20:42:39 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1213
    "Modified: / 07-08-2006 / 21:56:25 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1214
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1215
b17358de5730 initial checkin
fm
parents:
diff changeset
  1216
searchForExtensionsForProject:aProjectID
b17358de5730 initial checkin
fm
parents:
diff changeset
  1217
    |methods|
b17358de5730 initial checkin
fm
parents:
diff changeset
  1218
b17358de5730 initial checkin
fm
parents:
diff changeset
  1219
    methods := IdentitySet new.
b17358de5730 initial checkin
fm
parents:
diff changeset
  1220
    Smalltalk allClassesDo:[:eachClass |
b17358de5730 initial checkin
fm
parents:
diff changeset
  1221
        |classPackage|
b17358de5730 initial checkin
fm
parents:
diff changeset
  1222
b17358de5730 initial checkin
fm
parents:
diff changeset
  1223
        classPackage := eachClass package.
b17358de5730 initial checkin
fm
parents:
diff changeset
  1224
        eachClass instAndClassMethodsDo:[:mthd |
b17358de5730 initial checkin
fm
parents:
diff changeset
  1225
            mthd package ~= classPackage ifTrue:[ 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1226
                mthd package == aProjectID ifTrue:[
b17358de5730 initial checkin
fm
parents:
diff changeset
  1227
                    methods add:mthd 
b17358de5730 initial checkin
fm
parents:
diff changeset
  1228
                ]
b17358de5730 initial checkin
fm
parents:
diff changeset
  1229
            ].
b17358de5730 initial checkin
fm
parents:
diff changeset
  1230
        ].
b17358de5730 initial checkin
fm
parents:
diff changeset
  1231
    ].
b17358de5730 initial checkin
fm
parents:
diff changeset
  1232
    ^ methods
b17358de5730 initial checkin
fm
parents:
diff changeset
  1233
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1234
    self searchForExtensionsForProject:#'bosch:dapasx'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1235
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1236
b17358de5730 initial checkin
fm
parents:
diff changeset
  1237
    "Created: / 07-08-2006 / 22:03:55 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1238
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1239
b17358de5730 initial checkin
fm
parents:
diff changeset
  1240
searchForExtensionsWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1241
    ^ self searchForExtensionsForProject:self package
b17358de5730 initial checkin
fm
parents:
diff changeset
  1242
b17358de5730 initial checkin
fm
parents:
diff changeset
  1243
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1244
    self searchForExtensionsWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1245
    DapasXProject searchForExtensionsWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1246
    DapasX_Datenbasis searchForExtensionsWithProject
b17358de5730 initial checkin
fm
parents:
diff changeset
  1247
b17358de5730 initial checkin
fm
parents:
diff changeset
  1248
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1249
b17358de5730 initial checkin
fm
parents:
diff changeset
  1250
    "Created: / 07-08-2006 / 21:03:10 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1251
    "Modified: / 09-08-2006 / 13:01:26 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1252
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1253
b17358de5730 initial checkin
fm
parents:
diff changeset
  1254
searchForProjectsWhichProvideHeaderFiles
b17358de5730 initial checkin
fm
parents:
diff changeset
  1255
      |myPackageID requiredPackages|
b17358de5730 initial checkin
fm
parents:
diff changeset
  1256
b17358de5730 initial checkin
fm
parents:
diff changeset
  1257
      requiredPackages := Set new.
b17358de5730 initial checkin
fm
parents:
diff changeset
  1258
      myPackageID := self package.
b17358de5730 initial checkin
fm
parents:
diff changeset
  1259
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1260
      self compiled_classesDo:[:includedClass | 
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1261
            includedClass allSuperclassesDo:[:eachSuperClass |
b17358de5730 initial checkin
fm
parents:
diff changeset
  1262
                ((eachSuperClass package ~= myPackageID)
b17358de5730 initial checkin
fm
parents:
diff changeset
  1263
                and:[ (self moduleOfClass: eachSuperClass) ~= 'stx' ])
b17358de5730 initial checkin
fm
parents:
diff changeset
  1264
                    ifTrue:[
b17358de5730 initial checkin
fm
parents:
diff changeset
  1265
                        eachSuperClass package == Project noProjectID ifFalse:[
b17358de5730 initial checkin
fm
parents:
diff changeset
  1266
                            requiredPackages add:(eachSuperClass package).
b17358de5730 initial checkin
fm
parents:
diff changeset
  1267
                        ]
b17358de5730 initial checkin
fm
parents:
diff changeset
  1268
                    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
  1269
            ]
b17358de5730 initial checkin
fm
parents:
diff changeset
  1270
      ].
b17358de5730 initial checkin
fm
parents:
diff changeset
  1271
      ^ requiredPackages
b17358de5730 initial checkin
fm
parents:
diff changeset
  1272
b17358de5730 initial checkin
fm
parents:
diff changeset
  1273
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1274
    self searchForProjectsWhichProvideHeaderFiles
b17358de5730 initial checkin
fm
parents:
diff changeset
  1275
    DapasX_Datenbasis searchForProjectsWhichProvideHeaderFiles  
b17358de5730 initial checkin
fm
parents:
diff changeset
  1276
"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1277
b17358de5730 initial checkin
fm
parents:
diff changeset
  1278
    "Created: / 09-08-2006 / 16:26:37 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1279
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
  1280
b17358de5730 initial checkin
fm
parents:
diff changeset
  1281
!ProjectDefinition class methodsFor:'xxx'!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1282
b17358de5730 initial checkin
fm
parents:
diff changeset
  1283
try
b17358de5730 initial checkin
fm
parents:
diff changeset
  1284
   ^ 'hhh' , '989898'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1285
b17358de5730 initial checkin
fm
parents:
diff changeset
  1286
    "Created: / 09-08-2006 / 16:50:52 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1287
!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1288
b17358de5730 initial checkin
fm
parents:
diff changeset
  1289
try2
b17358de5730 initial checkin
fm
parents:
diff changeset
  1290
   ^ 1 + 2
b17358de5730 initial checkin
fm
parents:
diff changeset
  1291
b17358de5730 initial checkin
fm
parents:
diff changeset
  1292
    "Created: / 09-08-2006 / 16:53:16 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1293
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
  1294
b17358de5730 initial checkin
fm
parents:
diff changeset
  1295
!ProjectDefinition methodsFor:'others'!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1296
b17358de5730 initial checkin
fm
parents:
diff changeset
  1297
classNames
b17358de5730 initial checkin
fm
parents:
diff changeset
  1298
"This method has been automatically generated"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1299
    ^OrderedCollection new
b17358de5730 initial checkin
fm
parents:
diff changeset
  1300
        add: #'DAPASX::IStreamHierarchyObject'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1301
        add: #'DAPASX::ProjCFHierarchyObject'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1302
        add: #'DAPASX::IStorage'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1303
        add: #'DAPASX::OLECompoundFile'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1304
        add: #'DAPASX::DapasDBIStreamHierarchyObject'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1305
        add: #'DAPASX::OLEStorageElementInterface'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1306
        add: #'DAPASX::CompoundFileHierarchyObject'
b17358de5730 initial checkin
fm
parents:
diff changeset
  1307
        add: #ProjectDefinition
b17358de5730 initial checkin
fm
parents:
diff changeset
  1308
        yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
  1309
b17358de5730 initial checkin
fm
parents:
diff changeset
  1310
    "Created: / 08-08-2006 / 15:22:59 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
  1311
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
  1312
b17358de5730 initial checkin
fm
parents:
diff changeset
  1313
!ProjectDefinition class methodsFor:'documentation'!
b17358de5730 initial checkin
fm
parents:
diff changeset
  1314
b17358de5730 initial checkin
fm
parents:
diff changeset
  1315
version
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
  1316
    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.2 2006-08-09 19:33:26 fm Exp $'
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
  1317
! !