"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic3' }"

Object subclass:#ProjectDefinition

!

!ProjectDefinition class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!ProjectDefinition class methodsFor:'instance creation'!

definitionClassForPackage:aPackageID

    ^ self definitionClassForPackage:aPackageID createIfAbsent:false

    "Modified: / 11-08-2006 / 14:29:21 / cg"

!

definitionClassForPackage:aPackageID createIfAbsent:doCreateIfAbsent

    |class|

    class := Smalltalk at:(aPackageID asString copy replaceAny:':/' with:$_) asSymbol.

    class isNil ifTrue:[

        doCreateIfAbsent ifTrue:[

            ^ self newForPackage:aPackageID    

        ]

    ].

    ^ class.

    "Created: / 11-08-2006 / 14:28:51 / cg"

!

newForPackage:packageID

    ^ self 

        newNamed:(self initialClassNameForDefinitionOf:packageID) 

        package:packageID.

    "Created: / 11-08-2006 / 14:27:19 / cg"

!

newNamed:newName package:packageID

    |newClass|

    "/ for now, we are strict.

    self assert:(self initialClassNameForDefinitionOf:packageID) = newName.

    newClass := self

                    subclass:(newName asSymbol)

                    instanceVariableNames:''

                    classVariableNames:''

                    poolDictionaries:''

                    category:(self defaultCategory).

    newClass package:packageID asSymbol.

    ^ newClass

    "Created: / 09-08-2006 / 17:57:37 / fm"

    "Modified: / 09-08-2006 / 19:27:53 / fm"

    "Modified: / 11-08-2006 / 14:18:01 / cg"

! !

!ProjectDefinition class methodsFor:'accessing'!

defaultCategory

    ^'* Projects *'

    "Created: / 11-08-2006 / 14:16:49 / cg"

!

initialClassNameForDefinitionOf:aPackageId

    |s|

    s := aPackageId asString copy replaceAny:':/' with:$_.

    (s endsWith:$_) ifTrue:[

        s := s copyWithoutLast:1

    ].

    ^ s

"

   DapasXProject initialClassNameForDefinitionOf:'bosch:dapasx/interactiver_editor' 

   DapasXProject initialClassNameForDefinitionOf:'stx:libbasic' 

   DapasXProject initialClassNameForDefinitionOf:'stx:goodies/xml' 

"

    "Created: / 09-08-2006 / 17:44:47 / fm"

    "Modified: / 11-08-2006 / 14:00:05 / cg"

!

libraryName

       ^ self libraryNameFor: self package

"

   bosch_dapasx_datenbasis_Definition libraryName   

"

    "Modified: / 09-08-2006 / 18:20:29 / fm"

!

libraryNameFor: aProjectID

       ^ aProjectID asString copy replaceAny:':/' with:$_

"

   bosch_dapasx_datenbasis libraryName   

"

    "Modified: / 09-08-2006 / 18:20:29 / fm"

    "Modified: / 11-08-2006 / 14:02:06 / cg"

!

module

^self moduleOfClass: self

"

   bosch_dapasx_datenbasis_Definition module

   DapasX_Datenbasis module

"

    "Created: / 08-08-2006 / 20:24:53 / fm"

    "Modified: / 09-08-2006 / 16:16:37 / fm"

!

moduleDirectory

^self moduleDirectoryFor: self package 

"

    bosch_dapasx_datenbasis_Definition moduleDirectory    

    bosch_dapasx_parameter_system_Definition moduleDirectory

"

    "Created: / 08-08-2006 / 20:25:39 / fm"

!

moduleDirectoryFor: aProjectID

^(aProjectID subStrings: $:) last

"

    bosch_dapasx_datenbasis_Definition moduleDirectory    

    bosch_dapasx_parameter_system_Definition moduleDirectory

"

    "Created: / 08-08-2006 / 20:25:39 / fm"

!

moduleFor: aProjectID

^(aProjectID subStrings: $:) first

"

   DapasXProject module

   DapasX_Datenbasis module

"

    "Created: / 09-08-2006 / 16:16:16 / fm"

!

moduleOfClass: aClass

^self moduleFor: aClass package 

"

   DapasXProject module

   DapasX_Datenbasis module

"

    "Created: / 09-08-2006 / 16:16:16 / fm"

!

msdosPathToPackage:aPackageID

"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"

"

"

    "Created: / 09-08-2006 / 16:35:22 / fm"

!

msdosPathToTop

"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"

       ^self msdosPathToTopFor: self package 

"

   bosch_dapasx_datenbasis_Definition msdosPathToTop    

   DapasX_Datenbasis pathToTop  

"

    "Created: / 09-08-2006 / 15:45:54 / fm"

!

msdosPathToTopFor: aProjectID

"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"

       ^ (((1 to:(aProjectID asCollectionOfSubstringsSeparatedByAny:':/') size)

            collect:[:n | '..\']) asStringWith:'') , 'stx'    

"

   self msdosPathToTopFor: #'bosch:dapasx/datenbasis'   

"

    "Created: / 09-08-2006 / 15:45:54 / fm"

!

packageName

^self packageNameFor: self package

"

   bosch_dapasx_hw_schnittstellen_Definition  packageName

   bosch_dapasx_datenbasis_Definition packageName

   bosch_dapasx_parameter_system_Definition packageName

"

    "Created: / 08-08-2006 / 20:24:53 / fm"

    "Modified: / 09-08-2006 / 16:16:37 / fm"

!

packageNameFor: aProjectID

^((aProjectID asString copy replaceAny:'/' with:$:) subStrings: $:) last

"

   bosch_dapasx_hw_schnittstellen  packageName

   bosch_dapasx_datenbasis packageName

   bosch_dapasx_parameter_system packageName

"

    "Created: / 08-08-2006 / 20:24:53 / fm"

    "Modified: / 09-08-2006 / 16:16:37 / fm"

    "Modified: / 11-08-2006 / 14:02:32 / cg"

!

parentProject

    ^(self parentProjectFor: self package)

"

    bosch_dapasx_hw_schnittstellen_Definition  parentProject

    DapasX_Datenbasis parentProject

"

    "Created: / 07-08-2006 / 20:18:27 / fm"

    "Modified: / 08-08-2006 / 10:47:37 / fm"

!

parentProjectFor: aProjectID

    ^(aProjectID subStrings: $/) first

"

    bosch_dapasx_hw_schnittstellen  parentProject

"

    "Created: / 07-08-2006 / 20:18:27 / fm"

    "Modified: / 08-08-2006 / 10:47:37 / fm"

    "Modified: / 11-08-2006 / 14:02:56 / cg"

!

unixPathToPackage:aPackageID

"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"

        ^ self unixPathToTop , '/../' , (aPackageID asString copy replaceAll:$: by:$/)

"

   DapasX_Datenbasis pathToPackage:'bosch:dapasx/kernel'

"

    "Created: / 09-08-2006 / 16:35:22 / fm"

!

unixPathToTop

"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"

       ^ (((1 to:(self package asCollectionOfSubstringsSeparatedByAny:':/') size)

            collect:[:n | '../']) asStringWith:'') , 'stx'    

"

   DapasXProject pathToTop    

   DapasX_Datenbasis pathToTop  

"

    "Created: / 09-08-2006 / 15:45:54 / fm"

! !

!ProjectDefinition class methodsFor:'file generation'!

allClassNames

    ^ (self compiled_classNames , self autoloaded_classNames , self excluded_classNames)

!

generate_abbrev_dot_stc

    ^ String 

        streamContents:[:s | 

            self allClassNames do:[:eachClassName | 

                |cls fn|

                cls := Smalltalk classNamed:eachClassName.

                cls autoload.

                s nextPutAll:eachClassName.

                s nextPutAll:' '.

                fn := cls classFilename asFilename withoutSuffix baseName.

                (fn includes:Character space) ifTrue:[

                    s nextPutAll:fn storeString.

                ] ifFalse:[

                    s nextPutAll:fn.

                ].

                s nextPutAll:' '.

                s nextPutAll:cls package.

                s nextPutAll:' '.

                s nextPutAll:cls category asString storeString.

                s nextPutAll:' '.

                s nextPutAll:(cls theMetaclass instVarNames size) printString.

                s cr.

            ]

        ]

    "

        DapasXProject generate_abbrev_dot_stc

        DapasX_Datenbasis generate_abbrev_dot_stc

        bosch_dapasx_interactiver_editor generate_abbrev_dot_stc

    "

    "Created: / 09-08-2006 / 11:24:39 / fm"

    "Modified: / 11-08-2006 / 14:01:51 / cg"

!

generate_bc_dot_def                         

    ^self replaceMappings: self bc_dot_def_mappings 

            in: self bc_dot_def

"

  DapasXProject generate_bc_dot_def

  DapasX_Datenbasis generate_bc_dot_def

"

    "Modified: / 09-08-2006 / 11:30:42 / fm"

!

generate_libInit_dot_cc

    ^self replaceMappings: self libInit_dot_cc_mappings 

            in: self libInit_dot_cc

"

  DapasXProject generate_libInit_dot_cc

  DapasX_Datenbasis generate_libInit_dot_cc

"

    "Created: / 08-08-2006 / 12:47:16 / fm"

    "Modified: / 09-08-2006 / 11:30:52 / fm"

!

generate_make_dot_proto   

    ^self replaceMappings: self make_dot_proto_mappings 

            in: self make_dot_proto

"

  DapasXProject generate_make_dot_proto

  DapasX_Datenbasis generate_make_dot_proto

"

    "Modified: / 09-08-2006 / 11:31:01 / fm"

!

generate_make_dot_spec

    ^self replaceMappings: self make_dot_spec_mappings 

            in: self make_dot_spec

"

  DapasXProject generate_make_dot_spec

  DapasX_Datenbasis generate_make_dot_spec

  bosch_dapasx_kernel_Definition generate_make_dot_spec

"

    "Modified: / 09-08-2006 / 11:31:09 / fm"

!

generate_nt_dot_def                           

    ^self replaceMappings: self nt_dot_def_mappings 

            in: self nt_dot_def

"

  DapasXProject generate_nt_dot_def

  DapasX_Datenbasis generate_nt_dot_def

"

    "Modified: / 09-08-2006 / 11:31:21 / fm"

!

generate_nt_dot_mak         

    ^self replaceMappings: self nt_dot_mak_mappings 

            in: self nt_dot_mak

"

  DapasXProject generate_nt_dot_mak

  DapasX_Datenbasis generate_nt_dot_mak

"

    "Modified: / 09-08-2006 / 11:46:14 / fm"

!

generate_packageName_dot_rc

    ^self replaceMappings: self packageName_dot_rc_mappings 

            in: self packageName_dot_rc

"

  bosch_dapasx_datenbasis generate_packageName_dot_rc

  bosch_dapasx_hw_schnittstellen  generate_packageName_dot_rc

"

    "Modified: / 09-08-2006 / 11:31:09 / fm"

    "Modified: / 11-08-2006 / 14:01:56 / cg"

! !

!ProjectDefinition class methodsFor:'file templates'!

bc_dot_def

^ 

'LIBRARY        %(LIBRARY_NAME)

DESCRIPTION     %(DESCRIPTION)

CODE            PRELOAD MOVEABLE DISCARDABLE

SEGMENTS

    INITCODE    PRELOAD DISCARDABLE

EXPORTS

    __%(C_LIBRARY_NAME)_Init     @1

'

    "Created: / 08-08-2006 / 12:26:58 / fm"

    "Modified: / 08-08-2006 / 19:32:27 / fm"