"

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

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

    "

     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"

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

    "Modified: / 14-09-2006 / 15:23:59 / cg"

!

pathToPackage_win32:aPackageID 

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

    |pTop|

    aPackageID asPackageId module = self package asPackageId module ifTrue:[

        ^ self msdosPathToPackage:aPackageID from:self package

    ].

    pTop := self pathToTop_win32.

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

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

    ] ifFalse:[

        ^ pTop,'\..\',(self topRelativePathToPackage_win32:aPackageID)

    ].

    "

     self pathToPackage_win32:'bosch:dapasx/kernel'                

     bosch_dapasx_kernel pathToPackage_win32:'bosch:dapasx/kernel'  

     bosch_dapasx_kernel pathToPackage_win32:'bosch:dapasx/support' 

     stx_libbasic pathToPackage_win32:'bosch:dapasx/kernel'         

    "

    "Created: / 14-09-2006 / 13:22:52 / cg"

    "Modified: / 14-09-2006 / 15:28:45 / cg"

!

pathToTop_unix

    "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 unixPathToTopFor:self package.

    "

     bosch_dapasx_kernel pathToTop_unix        

     stx_goodies_xml pathToTop_unix  

     stx_libhtml pathToTop_unix                     

     stx_goodies_refactoryBrowser_changes pathToTop_unix 

    "

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

    "Modified: / 14-09-2006 / 15:01:47 / cg"

!

pathToTop_win32

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

     stx_libbasic pathToTop_win32  

    "

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

    "Modified: / 07-09-2006 / 15:51:00 / cg"

!

projectIsLoaded

    "answer true, if this project is completely loaded into the image"

    projectIsLoaded isNil ifTrue:[

        projectIsLoaded := false.

    ].

    ^ projectIsLoaded

    "

      stx_libbasic projectIsLoaded

    "

!

projectIsLoaded:something

    projectIsLoaded := something.

    something == true ifTrue:[

        "register myself as dependent - I want to get notified on method changes"

        self class addDependent:self.

    ].

!