"

 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

    "answer all (recursive) prerequisite project ids of myself - in random order.

     If we exclude a project, but one of our prerequisite projects depends on it, "

    |setOfAllPreRequisites toAdd|

    setOfAllPreRequisites := Set new.

    toAdd := Set new.

    toAdd addAll:self effectivePreRequisites.

    "is a subproject really a prerequisite??

     No, it works the other way: parent projects are prerequisites of sub projects,

     so the following line has been deleted.

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

"/    toAdd addAll:self effectiveSubProjects.

    [toAdd notEmpty] whileTrue:[

        |aPreRequisiteProjectID def|

        aPreRequisiteProjectID := toAdd removeFirst.

        (setOfAllPreRequisites includes:aPreRequisiteProjectID) ifFalse:[

            setOfAllPreRequisites add:aPreRequisiteProjectID.

            def := self definitionClassForPackage:aPreRequisiteProjectID.

            def isNil ifTrue:[

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

            ] ifFalse:[

                def effectivePreRequisites 

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

                    thenDo:[:eachSubPreRequisite | 

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

                                toAdd add:eachSubPreRequisite ].

                "but subprojects of our prerequisites are also prerequisites"

                def effectiveSubProjects 

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

                    thenDo:[:eachSubSubRequisite | 

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

                                toAdd add:eachSubSubRequisite ].

            ].

        ]        

    ].

    ^ setOfAllPreRequisites.

    "

     stx_libbasic allPreRequisites

     stx_libbasic2 allPreRequisites

     stx_libview2 allPreRequisites

     ubs_application allPreRequisites   

     ubs_application allPreRequisitesSorted   

     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"

    |allPreRequisites orderedTuples effective|

    orderedTuples := OrderedCollection new.

    allPreRequisites := self allPreRequisites.

    allPreRequisites do:[:eachPackageID |

        |def|

        def := self definitionClassForPackage:eachPackageID.

        def isNil ifTrue:[

            Transcript showCR:'Warning: no definition class for package: ', eachPackageID.

            orderedTuples add:(Array with:eachPackageID).

        ] ifFalse:[

            effective := def effectivePreRequisites.

            effective isEmptyOrNil ifTrue:[

                orderedTuples add:(Array with:eachPackageID).

            ] ifFalse:[

                effective do:[:eachPrerequisitePackageID|

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

                ].

            ].

        ].

    ].

    ^ orderedTuples topologicalSort.

    "

     stx_libbasic allPreRequisitesSorted

     stx_libbasic2 allPreRequisitesSorted

     stx_libwidg2 allPreRequisitesSorted

     exept_expecco_application allPreRequisitesSorted

     alspa_batch_application allPreRequisitesSorted

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

    parts1 := fromPackageID asCollectionOfSubstringsSeparatedByAny:':/'.

    parts2 := toPackageID asCollectionOfSubstringsSeparatedByAny:':/'.

    common := parts1 commonPrefixWith:parts2.

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

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

    up isEmpty ifTrue:[

       down isEmpty ifTrue:[^ '.'].

        ^ down.

    ].

    down isEmpty ifTrue:[

        ^ up.

    ].

    ^ up, '\', down   

    "

     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'   

     self msdosPathToPackage:'exept:expecco' from:'exept:expecco/application'   

     self msdosPathToPackage:'exept:expecco/application' from:'exept:expecco'   

    "

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

    |rel|

    aPackageID asPackageId module = self package asPackageId module ifTrue:[

        ^ self unixPathToPackage:aPackageID from:self package

    ].

    rel := self topRelativePathToPackage_unix:aPackageID.

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

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

    ] ifFalse:[

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

    ]