"

 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.

"

"{ Package: 'stx:libbasic' }"

Object subclass:#Project

	instanceVariableNames:'name changeSet views directoryName properties packageName

		repositoryDirectory repositoryModule isLoaded'

	classVariableNames:'CurrentProject SystemProject NextSequential AllProjects

		LoadedProjects'

	poolDictionaries:''

	category:'System-Support'

!

Object subclass:#ClassInfo

	instanceVariableNames:'conditionForInclusion className classFileName'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Project

!

Object subclass:#MethodInfo

	instanceVariableNames:'conditionForInclusion methodName className fileName'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Project

!

!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 or library)

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

initKnownProjects

    "this is a temporary experimental kludge"

    AllProjects isNil ifTrue:[

        AllProjects := IdentitySet new.

    ].

    AllProjects add:SystemProject.

    AllProjects add:CurrentProject.

    "

     AllProjects := nil.

     self initKnownProjects

    "

    "Modified: / 17-08-2006 / 14:08:47 / cg"

!

initialize

    SystemProject isNil ifTrue:[

        self initializeSystemProject.

    ].

    CurrentProject := SystemProject.

    AllProjects := nil.

    self initKnownProjects.

    "

     SystemProject := nil.

     Project initialize

    "

!

initializeSystemProject

    NextSequential := 1.

    SystemProject := self new name:'default'.

    SystemProject package:(self noProjectID).

    SystemProject defaultNameSpace:Smalltalk.

    ChangeSet notNil ifTrue:[

        SystemProject changeSet:ChangeSet new

    ].

    self changed:#defaultProject

    "Modified: / 17-08-2006 / 16:39:25 / cg"

!

reinitKnownProjects

    "rescan the image for projects"

    AllProjects := nil.

    self initKnownProjects

! !

!Project class methodsFor:'instance creation'!

new

    ^ self basicNew initialize

! !

!Project class methodsFor:'accessing'!

addKnownProject:aProject

    |allProjects|

    allProjects := self knownProjects.

    (allProjects contains:[:p | p package = aProject package])  ifTrue:[

        self warn:'Project for ' , aProject package , ' is already present.'.

        ^ self.

    ].

    AllProjects add:aProject.

    self changed:#allProjects

!

addLoadedProject:aProject

    aProject isLoaded:true.

    self addKnownProject:aProject.

!

current

    "return the currently active project"

    CurrentProject isNil ifTrue:[CurrentProject := SystemProject ].

    ^ CurrentProject

    "

     Project current

    "

!

current:aProject

    "set the currently active project"

    |prevProject|

    prevProject := CurrentProject.

    CurrentProject := aProject.

    prevProject notNil ifTrue:[

        self changed:#currentProject

    ].

!

currentPackageName

    CurrentProject notNil ifTrue:[

	^ CurrentProject package

    ].

    ^ nil

    "

     Project currentPackageName

    "

!

defaultNameSpace

    "return the default namespace, where new classes are installed,

     if NO special nameSpace handler is present"

    |p|

    (p := Project current) notNil ifTrue:[

        ^ p defaultNameSpace

    ].

    ^ Smalltalk

    "Created: / 17-08-2006 / 14:01:02 / cg"

!

defaultProject

    "return the SystemDefault project"

    ^ SystemProject.

    "

     Project defaultProject package

    "

!

knownProjects

    AllProjects isNil ifTrue:[

	self initKnownProjects

    ].

    ^ AllProjects ? #()

!

loadedProjects

    ^ self knownProjects select:[:p | p isLoaded]

!

noProjectID

    ^ #'__NoProject__'.

!

projectNamed:aProjectName

    "retrieve the named project; return nil if not known"

    ^ self knownProjects detect:[:p | p name = aProjectName] ifNone:nil.

    "

     Project projectNamed:'stx'

     Project projectNamed:'default'

    "

!

projectWithId:aPackageId

    "retrieve the project with a particular id; return nil if not known"

    ^ self knownProjects detect:[:p | p package = aPackageId] ifNone:nil.

    "

     Project projectWithId:#'stx:libbasic'

     Project projectWithId:'__NoProject__'

    "

!

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

addClassCommentChangeFor:aClass

    "add a comment-change for aClass to the current project"

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addClassCommentChangeFor:aClass 

    ]

!

addClassDefinitionChangeFor:aClass

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

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addClassDefinitionChangeFor:aClass 

    ]

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

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

!

addClassRemoveChange:oldClass

    "add a class-remove-change to the current project"

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addClassRemoveChange:oldClass

    ]

!

addClassRenameChangeFrom:oldName to:newName

    "add a class-rename-change to the current project"

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addClassRenameChangeFrom:oldName to:newName 

    ]

!

addDoIt:aString

    "add a doIt to the current project"

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addDoIt:aString 

    ]

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

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

!

addInstVarDefinitionChangeFor:aClass

    "add an instvar-change for aClass to the current project"

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addInstVarDefinitionChangeFor: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|

    p := CurrentProject.

    p notNil ifTrue:[

        p addMethodCategoryChange:aMethod category:newCategory in:aClass 

    ]

!

addMethodChange:aMethod fromOld:oldMethod in:aClass

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

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addMethodChange:aMethod fromOld:oldMethod in:aClass 

    ].

!

addMethodChange:aMethod in:aClass

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

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addMethodChange:aMethod in:aClass 

    ].

!

addMethodPrivacyChange:aMethod in:aClass

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

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

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

    p := CurrentProject.

    p notNil ifTrue:[

        p addPrimitiveDefinitionsChangeFor:aClass 

    ]

!

addPrimitiveFunctionsChangeFor:aClass

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

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addPrimitiveFunctionsChangeFor:aClass 

    ]

!

addPrimitiveVariablesChangeFor:aClass

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

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addPrimitiveVariablesChangeFor:aClass 

    ]

!

addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass

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

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass 

    ]

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

!

addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory

    "add a category rename change for aClass to the current project"

    |p|

    p := CurrentProject.

    p notNil ifTrue:[

        p addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory 

    ]

    "Created: / 6.2.2000 / 02:27:35 / 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"

! !