"

 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:libbasic' }"

Object subclass:#ProjectDefinition

	instanceVariableNames:''

	classVariableNames:'LibraryType GUIApplicationType NonGUIApplicationType'

	poolDictionaries:''

	category:'System-Support-Projects'

!

ProjectDefinition class instanceVariableNames:'overwrittenMethods projectIsLoaded'

"

 No other class instance variables are inherited by this class.

"

!

!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.

"

!

documentation

"

    redefinable build-file attributes:

        stcOptimizationOptions  -> STCLOCALOPT

        stcWarningOptions       -> STCLOCALOPT

        localIncludes_unix      -> LOCALINCLUDES (Make.proto)

        localIncludes_win32     -> LOCALINCLUDES (bc.mak)

    for applications:    

        startupClassName

        startupSelector

    for libraries:    

"

! !

!ProjectDefinition class methodsFor:'instance creation'!

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.

    self assert:(self ~~ ProjectDefinition).  "ProjectDefinition is abstract"

    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: / 17-08-2006 / 17:24:23 / cg"

! !

!ProjectDefinition class methodsFor:'accessing'!

allPreRequisites

    |setOfAllPreRequisites setOfExcludedPreRequisites setOfExcludedSubProjects allPreRequisites toAdd|

    setOfExcludedPreRequisites := self excludedFromPreRequisites asSet.

    setOfExcludedPreRequisites add:self package.

    setOfExcludedSubProjects := self excludedFromSubProjects asSet.

    setOfAllPreRequisites := Set new.

    allPreRequisites := OrderedCollection new.

    toAdd := OrderedCollection new.

    toAdd addAll:self preRequisites.

    "are subprojects really a prerequisite??

     I think, they are not, so this line should be deleted.

     Unfortunately the meaning of 'subproject' has never been defined. SV."

    toAdd addAll:self subProjects.

    [toAdd notEmpty] whileTrue:[

        |aPreRequisiteProjectID def|

        aPreRequisiteProjectID := toAdd removeFirst.

        (setOfAllPreRequisites includes:aPreRequisiteProjectID) ifFalse:[

            (setOfExcludedPreRequisites includes:aPreRequisiteProjectID) ifFalse:[

                (setOfExcludedSubProjects includes:aPreRequisiteProjectID) ifFalse:[

                    allPreRequisites add:aPreRequisiteProjectID.

                    setOfAllPreRequisites add:aPreRequisiteProjectID.

                    def := self definitionClassForPackage:aPreRequisiteProjectID.

                    def isNil ifTrue:[

                        Transcript showCR:'ProjectDefinition ',aPreRequisiteProjectID,' is missing - cannot find its preRequisites.'.

                    ] ifFalse:[

                        def preRequisites 

                            select:[:eachSubPreRequisite | (setOfAllPreRequisites includes:eachSubPreRequisite) not]

                            thenDo:[:eachSubPreRequisite | 

                                        Transcript showCR:(aPreRequisiteProjectID,' requires ',eachSubPreRequisite).

                                        toAdd add:eachSubPreRequisite ].

                        def subProjects 

                            select:[:eachSubSubRequisite | (setOfAllPreRequisites includes:eachSubSubRequisite) not]

                            thenDo:[:eachSubSubRequisite | 

                                        Transcript showCR:(aPreRequisiteProjectID,' hasSub ',eachSubSubRequisite).

                                        toAdd add:eachSubSubRequisite ].

                    ].

                ]        

            ]        

        ]        

    ].

    ^ allPreRequisites.

    "

     stx_libwidg2 allPreRequisites   

     exept_expeccoNET_application allPreRequisites   

     alspa_batch_application allPreRequisites

    "

!

allPreRequisitesSorted

    "answer all the prerequisites of this projects sorted in

     the order they are needed.

     Use this to e.g. compile packages in the dependency order"

    |orderedTuples|

    orderedTuples := OrderedCollection new.

    self allPreRequisites do:[:eachPackageID |

        |def|

        def := self definitionClassForPackage:eachPackageID.

        def preRequisites do:[:eachPrerequisitePackageID|

            orderedTuples add:(Array with:eachPrerequisitePackageID with:eachPackageID).

        ].

    ].

    ^ orderedTuples topologicalSort

    "

     stx_libwidg2 allPreRequisitesSorted

     exept_expecco_application allPreRequisitesSorted

     alspa_batch_application allPreRequisitesSorted

    "

!

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 package asPackageId libraryName

    "

     bosch_dapasx_datenbasis libraryName

     stx_libbasic3 libraryName

    "

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

    "Modified: / 18-08-2006 / 12:36:45 / cg"

!

libraryNameFor:aProjectID 

    ^ aProjectID asPackageId libraryName

    "

     bosch_dapasx_datenbasis libraryName

     stx_libbasic3 libraryNameFor:'stx:libbasic'

     stx_libbasic3 libraryNameFor:'bosch:dapasx/datenbasis' 

    "

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

    "Modified: / 18-08-2006 / 12:37:02 / cg"

!

module

    ^ self moduleOfClass:self

    "

       bosch_dapasx_datenbasis_Definition module

       DapasX_Datenbasis module

       stx_libbasic3 module

    "

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

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

    "Modified: / 17-08-2006 / 20:50:46 / cg"

!

moduleDirectory

    ^ (PackageId from:self package) directory

    "

     bosch_dapasx_datenbasis_Definition moduleDirectory

     bosch_dapasx_parameter_system_Definition moduleDirectory

     stx_libbasic3 moduleDirectory    

    "

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

    "Modified: / 18-08-2006 / 12:18:33 / cg"

!

moduleDirectoryFor:aProjectID 

    ^ (aProjectID subStrings:$:) last

    "

        bosch_dapasx_datenbasis_Definition moduleDirectory

        bosch_dapasx_parameter_system_Definition moduleDirectory

    "

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

    "Modified: / 17-08-2006 / 14:13:41 / cg"

!

moduleDirectory_win32

    ^ (PackageId from:self package) directory copy replaceAll:$/ with:$\

    "

     bosch_dapasx_datenbasis moduleDirectory_win32

     bosch_dapasx_parameter_system moduleDirectory_win32

     stx_libbasic3 moduleDirectory_win32    

    "

    "Created: / 14-09-2006 / 20:19:17 / cg"

!

moduleDirectory_win32For: projectID

    ^(self moduleDirectoryFor:projectID) copy replaceAll:$/ with:$\

    "

     self moduleDirectory_win32For: #'bosch:dapasx/pav_vergleich'

     self moduleDirectory_win32For: #'stx:goodies/xml/stx'

     self moduleDirectory_win32For: #'stx:libbasic2'

    "

!

moduleFor:aProjectID 

    ^ (aProjectID subStrings:$:) first

    "

       DapasXProject module

       DapasX_Datenbasis module

    "

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

    "Modified: / 17-08-2006 / 14:13:46 / cg"

!

moduleOfClass:aClass 

    ^ self moduleFor:aClass package

    "

       DapasXProject module

       DapasX_Datenbasis module

    "

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

    "Modified: / 17-08-2006 / 14:13:51 / cg"

!

msdosPathToPackage:toPackageID from:fromPackageID

    "Returns the path to the package defined by aPackageID relative to my path"

    |parts1 parts2 common up down rel|

    parts1 := fromPackageID asCollectionOfSubstringsSeparatedByAny:':/'.

    parts2 := toPackageID asCollectionOfSubstringsSeparatedByAny:':/'.

    common := parts1 commonPrefixWith:parts2.

    common notEmpty ifTrue:[

        up := ((1 to:parts1 size - common size) collect:[:p | '..\']) asStringWith:''.

        down := (parts2 copyFrom:common size+1) asStringWith:'\'.

        (up isEmpty and:[down isEmpty]) ifTrue:[^ '.'].

        ^ up,down   

    ].

    rel := (self topRelativePathToPackage_win32:toPackageID).

    (rel startsWith:'stx\') ifTrue:[

        ^ '$(TOP)',(rel copyFrom:'stx' size+1)

    ].

    ^ '$(TOP)\..\',rel.

"/    pTop := self msdosPathToTopFor:fromPackageID.

"/    (pTop endsWith:'\stx') ifTrue:[

"/        ^ (pTop copyButLast:'stx' size),(self topRelativePathToPackage_win32:toPackageID)

"/    ] ifFalse:[

"/        ^ pTop,'\..\',(self topRelativePathToPackage_win32:toPackageID)

"/    ].

    "

     self msdosPathToPackage:'bosch:dapasx/kernel' from:'bosch:dapasx/application'

     self msdosPathToPackage:'stx:libbasic' from:'bosch:dapasx/application'   

     self msdosPathToPackage:'bosch:dapasx/application' from:'stx:libbasic'   

    "

    "Created: / 17-08-2006 / 14:26:39 / cg"

    "Modified: / 14-09-2006 / 22:04:56 / cg"

!

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"

    |parts|

    parts := aProjectID asCollectionOfSubstringsSeparatedByAny:':/'.

    aProjectID asPackageId module = 'stx' ifTrue:[

        parts size == 1 ifTrue:[^ '.'].

        ^ (((2 to:parts size-1) collect:[:p | '..\']) asStringWith:'') , '..'   

    ].

    ^ ((parts collect:[:p | '..\']) asStringWith:'') , 'stx'    

    "

     self msdosPathToTopFor: #'bosch'               

     self msdosPathToTopFor: #'bosch:dapasx'        

     self msdosPathToTopFor: #'bosch:dapasx/datenbasis'   

     self msdosPathToTopFor: #'stx'                

     self msdosPathToTopFor: #'stx:libview'        

     self msdosPathToTopFor: #'stx:goodies/foo'       

    "

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

    "Modified: / 14-09-2006 / 14:49:17 / cg"

!

packageName

    "the last component"

    ^ self packageNameFor: self package

    "

     stx_libwidg2 packageName

     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"

!

packageNameFor: aProjectID

    ^ (aProjectID asCollectionOfSubstringsSeparatedByAny:':/') 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: / 23-08-2006 / 15:07:36 / cg"

!

pathSeparator:platformName

    platformName == #unix ifTrue:[

        ^ self pathSeparator_unix

    ].

    platformName == #win32 ifTrue:[

        ^ self pathSeparator_win32

    ].

    self error:'unknown operating system platform'.

    "Created: / 14-09-2006 / 13:38:00 / cg"

!

pathSeparator_unix

    ^ $/

    "Created: / 14-09-2006 / 13:37:18 / cg"

!

pathSeparator_win32

    ^ $\

    "Created: / 14-09-2006 / 13:37:23 / cg"

!

pathTo:aBaseFilename inPackage:aPackageID architecture:arch

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

    |p|

    arch == #unix ifTrue:[

        p := (self pathToPackage_unix:aPackageID).

        aBaseFilename isNil ifTrue:[^ p].

        ^ p , '/' , aBaseFilename

    ].

    arch == #win32 ifTrue:[

        p := self pathToPackage_win32:aPackageID.

        aBaseFilename isNil ifTrue:[^ p].

        ^ p , '\' , aBaseFilename

    ].

    self error:'unknown operating system platform'.

    "Created: / 14-09-2006 / 13:29:20 / cg"

!

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

    |pTop|

    aPackageID asPackageId module = self package asPackageId module ifTrue:[

        ^ self unixPathToPackage:aPackageID from:self package

    ].

    pTop := self pathToTop_unix.

    (pTop endsWith:'/stx') ifTrue:[

        ^ (pTop copyWithoutLast:'stx' size),(self topRelativePathToPackage_unix:aPackageID)

    ] ifFalse:[

        ^ pTop,'/../',(self topRelativePathToPackage_unix:aPackageID)

    ]

    "

     bosch_dapasx_kernel pathToPackage_unix:'bosch:dapasx/kernel' 

     bosch_dapasx_kernel pathToPackage_unix:'bosch:dapasx/support' 

     stx_libbasic pathToPackage_unix:'bosch:dapasx/kernel' 

    "

    "Modified: / 16-08-2006 / 18:55:41 / User"