"

 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 subProjects prerequisites bitmapFiles

		documentFiles otherFiles'

	classVariableNames:'CurrentProject SystemProject NextSequential AllProjects'

	poolDictionaries:''

	category:'System-Support'

!

Object subclass:#ClassInfo

	instanceVariableNames:'conditionForInclusion className classFileName'

	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 -

     once the ProjectBrowser is finished, this info is read from

     '.prj' files ..."

"/    |stx p|

"/

"/    stx := self new name:'stx'.

"/    stx packageName:'noPackage'.

"/    stx changeSet:nil.

"/    stx type:#smalltalk.

"/    stx comment:'The ST/X project itself'.

"/

"/    AllProjects add:stx.

"/

"/    #(

"/        ('libbasic'      #'stx:libbasic'            'Basic (non-GUI) classes. Required for all applications')

"/        ('libbasic2'     #'stx:libbasic2'           'More basic (non-GUI) classes. Required for most applications')

"/        ('libbasic3'     #'stx:libbasic3'           'More basic (non-GUI) classes. Required for development')

"/        ('libcomp'       #'stx:libcomp'             'The bytecode compiler. Required for all applications')

"/        ('libview'       #'stx:libview'             'Low level GUI classes. Required for all GUI applications')

"/        ('libview2'      #'stx:libview2'            'Additional low level GUI classes. Required for most GUI applications')

"/        ('libwidg'       #'stx:libwidg'             'Basic widgets. Required for all GUI applications')

"/        ('libwidg2'      #'stx:libwidg2'            'More widgets. Required for most GUI applications')

"/        ('libwidg3'      #'stx:libwidg3'            'More (fun) widgets. Seldom required')

"/        ('libtool'       #'stx:libtool'             'Development applications. Required for program development')

"/        ('libtool2'      #'stx:libtool2'            'More development applications. Required for GUI development')

"/        ('libui'         #'stx:libui'               'UI spec classes. Required for UIPainter applications')

"/        ('libhtml'       #'stx:libhtml'             'HTML related classes. Required for Web applications and the HTML browser')

"/        ('libodbc'       #'stx:libodbc'             'ODBC interface classes.')

"/        ('libopengl'     #'stx:libopengl'           'OpenGL interface classes.')

"/        ('persistency'   #'stx:goodies/persistency' 'Simple DB interface')

"/        ('goodies'       #'stx:goodies'             'Misc goodies - not really maintained')

"/    ) do:[:entry |

"/        |libName package comment|

"/

"/        libName := entry at:1.

"/        package := entry at:2.

"/        comment := entry at:3.

"/

"/        p := self new name:libName.

"/        p packageName:package.

"/        p type:#library.

"/        p comment:comment.

"/        stx addSubProject:p.

"/    ].

    "

     self initKnownProjects

    "

    "Modified: / 23.3.1999 / 14:20:12 / cg"

!

initialize

    SystemProject isNil ifTrue:[

        NextSequential := 1.

        SystemProject := self new name:'default'.

        SystemProject packageName:'private'.

        SystemProject defaultNameSpace:Smalltalk.

        SystemProject comment:'A default (dummy) project. 

Will be made the current project in case no real project is ever activated.'.

        "

         the SystemProject does not keep a record if changes,

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

        "

        SystemProject changeSet:nil.

    ].

    CurrentProject := SystemProject.

    AllProjects := OrderedCollection new.

"/    AllProjects := OrderedCollection with:SystemProject.

    self initKnownProjects.

    "

     SystemProject := nil.

     Project initialize

    "

! !

!Project class methodsFor:'instance creation'!

new

    ^ self basicNew initialize

! !

!Project class methodsFor:'accessing'!

addKnownProject:aProject

    AllProjects size == 0 ifTrue:[

        AllProjects := OrderedCollection new.

    ].

    AllProjects add:aProject.

    self changed:#allProjects

!

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

    ].

    ^ nil

    "

     Project currentPackageName

    "

!

defaultProject

    "return the SystemDefault project"

    ^ SystemProject.

!

knownProjects

    ^ AllProjects ? #()

!

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

addSubProject:aProject

    "add a subproject - obsolete; we use prerequisites now"

    subProjects isNil ifTrue:[

        subProjects := OrderedCollection new.

    ].

    subProjects add:aProject

!

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

    aNamespace ~~ defaultNameSpace ifTrue:[

        defaultNameSpace := aNamespace.

        self changed:#defaultNameSpace.

        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 changed:#directory.

    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 changed:#name.

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