"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      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.

"

Object subclass:#Project

	instanceVariableNames:'name changeSet views directoryName properties packageName

		repositoryDirectory repositoryModule defaultNameSpace

		overwrittenMethods'

	classVariableNames:'CurrentProject SystemProject NextSequential'

	poolDictionaries:''

	category:'System-Support'

!

!Project class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      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

"

    this class is still under construction (especially the build features are unfinished).

    Currently, all it does is keep track of per-project views 

    (to hide or show them), define the directory when filing-out,

    and define packageNames for new classes and methods.

    instance variables:

        name            <String>        the name of this project, as shown

                                        in a ProjectView

        changeSet       <ChangeSet>     changes done, while this was the active project

        views           <Collection>    views opened while this was the active project

        directoryName   <String>        directory name, where fileOuts are done

        properties 

        packageName     <String>        given to classes/methods which are created while

                                        this is the active project

        repositoryDirectory             (default) name of the repository, when a new source containers are

                                        created.

        repositoryModule                (default) name of the module, when new source containers are

                                        created.

    Future: 

        - keep track of per-project changes

        - allow speficiation of the type of the project (application, library, etc)

        - allow building of whatever the target (as defined by the type) is

          (this will allow build of class libs and apps by clicking a button)

        - allow removal of project specific classes, methods etc.

    [author:]

        Claus Gittinger

"

! !

!Project class methodsFor:'initialization'!

initialize

    SystemProject isNil ifTrue:[

        NextSequential := 1.

        SystemProject := self new name:'default'.

        SystemProject packageName:'private'.

        SystemProject defaultNameSpace:Smalltalk.

        "

         the SystemProject does not keep a record if changes,

         but instead depends on the changes file - recording anything there.

        "

        SystemProject changeSet:nil.

    ].

    CurrentProject := SystemProject.

    "

     Project initialize

    "

! !

!Project class methodsFor:'instance creation'!

new

    ^ self basicNew initialize

! !

!Project class methodsFor:'accessing'!

current

    "return the currently active project"

    ^ CurrentProject

    "

     Project current

    "

!

current:aProject

    "set the currently active project"

    CurrentProject := aProject.

    self changed:#currentProject

!

currentPackageName

    CurrentProject notNil ifTrue:[

	^ CurrentProject packageName

    ].

    ^ 'no package' 

    "

     Project currentPackageName

    "

!

defaultProject

    "return the SystemDefault project"

    ^ SystemProject.

!

setDefaultProject

    "set the currently active project to be the SystemDEfault project"

    self current:SystemProject.

!

setProject:aProjectOrNil

    "set the currently active project without updating others"

    CurrentProject := aProjectOrNil.

    "Created: 7.2.1996 / 14:00:45 / cg"

    "Modified: 7.2.1996 / 14:01:16 / cg"

! !

!Project class methodsFor:'changes management'!

addClassDefinitionChangeFor:aClass

    "add a class-def-change for aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

	c addClassDefinitionChangeFor:aClass 

    ]

    "Created: 3.12.1995 / 13:44:58 / cg"

    "Modified: 3.12.1995 / 13:58:04 / cg"

!

addMethodCategoryChange:aMethod category:newCategory in:aClass

    "add a method-category-change for aMethod in aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

	c addMethodCategoryChange:aMethod category:newCategory in:aClass 

    ]

!

addMethodChange:aMethod in:aClass

    "add a method change in aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

	c addMethodChange:aMethod in:aClass 

    ]

!

addMethodPrivacyChange:aMethod in:aClass

    "add a privacy change for aMethod in aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

	c addMethodPrivacyChange:aMethod in:aClass 

    ]

    "Modified: 27.8.1995 / 22:48:17 / claus"

!

addPrimitiveDefinitionsChangeFor:aClass

    "add a primitiveDef change for aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

	c addPrimitiveDefinitionsChangeFor:aClass 

    ]

!

addPrimitiveFunctionsChangeFor:aClass

    "add a primitiveFuncs change for aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

	c addPrimitiveFunctionsChangeFor:aClass 

    ]

!

addPrimitiveVariablesChangeFor:aClass

    "add a primitiveVars change for aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

	c addPrimitiveVariablesChangeFor:aClass 

    ]

!

addRemoveSelectorChange:aSelector in:aClass

    "add a method-remove change in aClass to the current project"

    |p c|

    p := CurrentProject.

    (p notNil 

    and:[(c := p changeSet) notNil]) ifTrue:[

        c addRemoveSelectorChange:aSelector in:aClass 

    ]

    "Created: / 16.2.1998 / 12:45:10 / cg"

!

currentProjectDirectory

    "return the name of the directory to use for fileOut.

     The returned name already includes a file-separator at the end, 

     so the filename can be concatenated to it."

    |p dirName|

    p := CurrentProject.

    p notNil ifTrue:[

        dirName := p directory  

    ] ifFalse:[

        dirName := Filename currentDirectory name

    ].

    ^ dirName

    "Modified: 7.9.1997 / 23:52:25 / cg"

!

rememberOverwrittenMethod:newMethod from:oldMethod

    "remember a method (from another package) being overwritten.

     This is only remembered, if the current project is not the

     system project (to avoid filling this remembered-table)"

    |p|

    p := CurrentProject.

    (p notNil 

    and:[p ~~ SystemProject]) ifTrue:[

        p rememberOverwrittenMethod:newMethod from:oldMethod

    ] ifFalse:[

"/        'Project [info]: DefaultProject does not remember overwritten methods' infoPrintCR

    ]

    "Modified: / 7.3.1998 / 13:38:39 / cg"

! !

!Project methodsFor:'accessing'!

changeSet

    "return the set of changes made in this project"

    ^ changeSet

    "Modified: 27.1.1997 / 11:58:36 / cg"

!

changeSet:aChangeSet

    "set the set of changes made in this project - dangerous, you may loose

     the actual changeSet."

    changeSet := aChangeSet

    "Modified: 27.1.1997 / 11:59:02 / cg"

!

defaultNameSpace

    "return the defaultNameSpace of this project.

     New classes will (if not specified by a directive) be installed

     in this nameSpace. Useful, when filing in ST-80 code, to avoid

     overwriting of standard classes."

    ^ defaultNameSpace

    "Created: 2.1.1997 / 19:54:42 / cg"

    "Modified: 27.1.1997 / 11:59:53 / cg"

!

defaultNameSpace:aNamespace

    "set the defaultNameSpace of this project.

     New classes will (if not specified by a directive) be installed

     in this nameSpace. Useful, when filing in ST-80 code, to avoid

     overwriting of standard classes."

    defaultNameSpace := aNamespace.

    self == CurrentProject ifTrue:[

        Project changed:#defaultNameSpace 

    ]

    "Created: 2.1.1997 / 19:54:37 / cg"

    "Modified: 27.1.1997 / 12:00:01 / cg"

!

directory

    "return the projects directory.

     If not specified, a fileOut will be done into that directory"

    directoryName isNil ifTrue:[^ '.'].

    ^ directoryName

    "Modified: 27.1.1997 / 12:00:41 / cg"

!

directory:aDirectoryName

    "set the projects directory.

     If not specified, a fileOut will be done into that directory"

    directoryName := aDirectoryName.

    self == CurrentProject ifTrue:[

        Project changed:#directory 

    ]

    "Modified: 27.1.1997 / 12:00:47 / cg"

!

name

    "return the projects name.

     This is for the user only - shown in the projectViews label"

    ^ name

    "Modified: 27.1.1997 / 12:01:16 / cg"

!

name:aString

    "set the projects name.

     This is for the user only - shown in the projectViews label"

    name := aString.

    self == CurrentProject ifTrue:[

        Project changed:#name

    ]

    "Modified: 27.1.1997 / 12:01:09 / cg"

!

overwrittenMethods

    "return the set of methods which were overwritten in this project.

     This information allows uninstalling, by switching back to the

     original methods."

    ^ overwrittenMethods

    "Created: 27.1.1997 / 11:57:21 / cg"

    "Modified: 27.1.1997 / 12:09:14 / cg"

!

packageName

    "return the projects package identifier.

     This identifier marks all methods and new classes which were created

     in this project."

    ^ packageName

    "Modified: 27.1.1997 / 12:10:00 / cg"

!

packageName:aStringOrSymbol

    "set the projects package identifier.

     This identifier marks all methods and new classes which were created

     in this project."

    packageName := aStringOrSymbol asSymbol.

    self == CurrentProject ifTrue:[

        Project changed:#package

    ]

    "Modified: 27.1.1997 / 12:10:09 / cg"

!

repositoryDirectory

    "return the projects default repository location.

     This is offered initially, when classes are checked into the

     source repository initially"

    ^ repositoryDirectory

    "Created: 25.11.1995 / 18:04:51 / cg"

    "Modified: 27.1.1997 / 12:13:35 / cg"

!

repositoryDirectory:aRelativePathName

    "set the projects default repository location.

     This will be offered initially, when classes are checked into the

     source repository initially"

    repositoryDirectory := aRelativePathName

    "Created: 25.11.1995 / 18:05:06 / cg"

    "Modified: 27.1.1997 / 12:13:28 / cg"

!

repositoryModule

    "return the projects default repository module name.

     This is offered initially, when classes are checked into the

     source repository initially"

    ^ repositoryModule

    "Created: 25.11.1995 / 18:04:51 / cg"

    "Modified: 27.1.1997 / 12:13:50 / cg"

!

repositoryModule:aString

    "set the projects default repository module name.

     This is offered initially, when classes are checked into the

     source repository initially"

    repositoryModule := aString

    "Created: 25.11.1995 / 18:05:06 / cg"

    "Modified: 27.1.1997 / 12:13:57 / cg"

!

views

    "return a collection of views which were opened in this project"

    ^ views asArray

    "Modified: 27.1.1997 / 12:14:18 / cg"

!

views:aSetOfViews

    "set the collection of views which were opened in this project"

    views := WeakIdentitySet withAll:aSetOfViews

    "Modified: 27.1.1997 / 12:14:26 / cg"

! !

!Project methodsFor:'changes'!

rememberOverwrittenMethod:newMethod from:oldMethod

    "this is sent whenever a method is installed, which overwrites

     an existing method from a different package.

     Allows previous methods to be reconstructed."