"

 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'

	 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.

"

! !

!Project class methodsFor:'initialization'!

initialize

    SystemProject isNil ifTrue:[

	NextSequential := 1.

	SystemProject := self new name:'default'.

	SystemProject packageName:'private'.

	"

	 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.

! !

!Project class methodsFor:'changes management'!

addClassDefinitionChangeFor:aClass

    |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

    |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 change for a method 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

    |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

    |p c|

    p := CurrentProject.

    (p notNil 

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

	c addPrimitiveDefinitionsChangeFor:aClass 

    ]

!

addPrimitiveFunctionsChangeFor:aClass

    |p c|

    p := CurrentProject.

    (p notNil 

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

	c addPrimitiveFunctionsChangeFor:aClass 

    ]

!

addPrimitiveVariablesChangeFor:aClass

    |p c|

    p := CurrentProject.

    (p notNil 

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

	c addPrimitiveVariablesChangeFor:aClass 

    ]

!

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 := '.'

    ].

    ^ dirName , Filename separator asString

! !

!Project methodsFor:'accessing'!

changeSet

    ^ changeSet

!

changeSet:aChangeSet

    changeSet := aChangeSet

!

directory

    directoryName isNil ifTrue:[^ '.'].

    ^ directoryName

!

directory:aDirectoryName

    directoryName := aDirectoryName.

    self == CurrentProject ifTrue:[

	Project changed:#directory 

    ]

!

name

    ^ name

!

name:aString

    name := aString.

    self == CurrentProject ifTrue:[

	Project changed:#name

    ]

!

packageName

    ^ packageName

!

packageName:aStringOrSymbol

    packageName := aStringOrSymbol asSymbol.

    self == CurrentProject ifTrue:[

	Project changed:#package

    ]

!

repositoryDirectory

    ^ repositoryDirectory

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

    "Modified: 9.12.1995 / 16:58:05 / cg"

!

repositoryDirectory:aRelativePathName

    repositoryDirectory := aRelativePathName

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

    "Modified: 9.12.1995 / 16:58:11 / cg"

!

repositoryModule

    ^ repositoryModule

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

    "Modified: 9.12.1995 / 16:58:18 / cg"

!

repositoryModule:aString

    repositoryModule := aString

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

    "Modified: 9.12.1995 / 16:58:35 / cg"

!

views

    ^ views asArray

!

views:aSetOfViews

    views := WeakIdentitySet withAll:aSetOfViews

! !

!Project methodsFor:'initialization'!

initialize

    |numString|

    views := WeakIdentitySet new.

    numString := NextSequential printString.

    NextSequential := NextSequential + 1.

    name := 'new Project-' , numString.

    packageName := 'private-' , numString.

     changeSet := ChangeSet new.

    self directory:'.'.

    self repositoryModule:(OperatingSystem getLoginName).

    self repositoryDirectory:'private'

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

    "Modified: 9.12.1995 / 17:14:30 / cg"

! !

!Project methodsFor:'maintenance'!

buildProject

    OperatingSystem executeCommand:('cd ' , self directory , ' ; make')

!

createMakefile

    "creates an initial makefile, which will recreate a correct

     Makefile, then compile all"

    |d f out in topName|

    Transcript showCr:'creating Makefile'.

    d := directoryName asFilename.

    f := d construct:'Makefile'.

    f exists ifTrue:[

	f renameTo:(d construct:'Makefile.bak')

    ].

    out := f writeStream.

    out isNil ifTrue:[

	self warn:'cannot create Makefile'.

	^ self

    ].

    in := Smalltalk systemFileStreamFor:'rules/stdHeader'.

    out nextPutAll:in contents asString.

    in close.

    topName := self findTopFrom:directoryName.

    out nextPutAll:'#TOP=/usr/local/lib/smalltalk'; cr.

    out nextPutAll:'TOP=' , topName; cr.

    out nextPutAll:'target:'; cr.

    out tab; nextPutAll:'touch Make.proto'; cr.

    out tab; nextPutAll:'$(MAKE) Makefile'; cr.

    out tab; nextPutAll:'make'; cr; cr.

    in := Smalltalk systemFileStreamFor:'configurations/COMMON/defines'.

    out nextPutAll:in contents asString.

    in close.

    in := Smalltalk systemFileStreamFor:'configurations/vendorConf'.

    out nextPutAll:in contents asString.

    in close.

    in := Smalltalk systemFileStreamFor:'configurations/myConf'.

    out nextPutAll:in contents asString.

    in close.

    in := Smalltalk systemFileStreamFor:'rules/stdRules'.

    out nextPutAll:in contents asString.

    in close.

    out close

!

createProjectFiles

    "actually, creates all files to do a make in the project directory"

    directoryName asFilename exists ifFalse:[

	(self confirm:'create new projectDirectory: ' , directoryName) 

	    ifFalse:[^ self].

	OperatingSystem recursiveCreateDirectory:directoryName.

    ].

    self createMakefile.

    self createSourcefiles.

    self createProtoMakefile.

!

createProtoMakefile

    "creates a Make.proto file"

    |d f s type appName libName startUpClass startUpSelector

     topName classes|

    topName := self findTopFrom:directoryName.

    Transcript showCr:'creating Make.proto'.

    d := directoryName asFilename.

    f := d construct:'Make.proto'.

    f exists ifTrue:[

	f renameTo:(d construct:'Make.proto.bak')

    ].

    s := f writeStream.

    s isNil ifTrue:[

	self warn:'cannot create prototype Makefile'.

	^ self

    ].

    s nextPutAll:'#

# ' , Smalltalk timeStamp , '

#

# created by Smalltalks Project support

#

# the next line defines the path to the TOP directory,

# (where the directories "configurations" and "include" are found)

#

#TOP=/usr/local/lib/smalltalk

TOP=' , topName ,'

#

# add any subdirectories that have to be visited by make

#

SUBDIRS=

#

# do not change

#

SHELL=/bin/sh

'.

    s nextPutAll:'#

# set the stc options

#

STCOPT=$(DEFAULT_STCOPT)

# STCOPT=+optspace2

# STCOPT=+optspace2 -warnNonStandard

#

# and packageName option

#

STCLOCALOPT=''-Pprivate-classes-(libapp)''

'.

    type := #library.

    appName := 'app'.

    libName := 'lib'.

    startUpClass := 'Smalltalk'.

    startUpSelector := 'start'.

    properties notNil ifTrue:[

	type := properties at:#projectType ifAbsent:type.

	appName := properties at:#applicationName ifAbsent:appName.

	startUpClass := properties at:#startupClass ifAbsent:startUpClass.

	startUpSelector := properties at:#startupSelector ifAbsent:startUpSelector.

    ].

    s nextPutAll:'#

# define the name of the library to create

#

'.

    s nextPutAll:'LIBNAME=lib' , appName; cr; cr.

    s nextPutAll:'#

# the target rule:

#

all::   abbrev.stc objs genClassList $(OBJTARGET)