hg/stx-libbasic: Project.st@793b0adad934 (annotated)

89 7be0b86ef80f * empty log message * claus parents: 87 diff changeset	1	"
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
203 3d88fa870de0 * empty log message * claus parents: 150 diff changeset	3	All Rights Reserved
89 7be0b86ef80f * empty log message * claus parents: 87 diff changeset	4
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	5	This software is furnished under a license and may be used
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	6	only in accordance with the terms of that license and with the
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	7	inclusion of the above copyright notice. This software may not
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	8	be provided or otherwise made available to, or used by, any
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	9	other person. No title to or ownership of the software is
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	10	hereby transferred.
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	11	"
1 a27a279701f8 Initial revision claus parents: diff changeset	12
5371 6376d1fcf30f use #allSelectorsAndMethodsDo: Claus Gittinger <cg@exept.de> parents: 5338 diff changeset	13	"{ Package: 'stx:libbasic' }"
6376d1fcf30f use #allSelectorsAndMethodsDo: Claus Gittinger <cg@exept.de> parents: 5338 diff changeset	14
1 a27a279701f8 Initial revision claus parents: diff changeset	15	Object subclass:#Project
939 ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	16	instanceVariableNames:'name changeSet views directoryName properties packageName
4726 5c5e1c7f8933 checkin from browser Claus Gittinger <cg@exept.de> parents: 4721 diff changeset	17	repositoryDirectory repositoryModule overwrittenMethods
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	18	subProjects prerequisites isLoaded changedClasses'
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	19	classVariableNames:'CurrentProject SystemProject NextSequential AllProjects
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	20	LoadedProjects'
939 ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	21	poolDictionaries:''
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	22	category:'System-Support'
1 a27a279701f8 Initial revision claus parents: diff changeset	23	!
a27a279701f8 Initial revision claus parents: diff changeset	24
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	25	Object subclass:#ClassInfo
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	26	instanceVariableNames:'conditionForInclusion className classFileName'
4668 a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	27	classVariableNames:''
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	28	poolDictionaries:''
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	29	privateIn:Project
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	30	!
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	31
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	32	Object subclass:#MethodInfo
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	33	instanceVariableNames:'conditionForInclusion methodName className fileName'
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	34	classVariableNames:''
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	35	poolDictionaries:''
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	36	privateIn:Project
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	37	!
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	38
1854 b44227fd2b3d use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 1636 diff changeset	39	!Project class methodsFor:'documentation'!
89 7be0b86ef80f * empty log message * claus parents: 87 diff changeset	40
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	41	copyright
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	42	"
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	43	COPYRIGHT (c) 1993 by Claus Gittinger
203 3d88fa870de0 * empty log message * claus parents: 150 diff changeset	44	All Rights Reserved
89 7be0b86ef80f * empty log message * claus parents: 87 diff changeset	45
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	46	This software is furnished under a license and may be used
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	47	only in accordance with the terms of that license and with the
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	48	inclusion of the above copyright notice. This software may not
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	49	be provided or otherwise made available to, or used by, any
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	50	other person. No title to or ownership of the software is
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	51	hereby transferred.
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	52	"
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	53	!
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	54
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	55	documentation
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	56	"
338 20376737bdaf . claus parents: 336 diff changeset	57	this class is still under construction (especially the build features are unfinished).
235 d8e62525bfdf * empty log message * claus parents: 203 diff changeset	58	Currently, all it does is keep track of per-project views
d8e62525bfdf * empty log message * claus parents: 203 diff changeset	59	(to hide or show them), define the directory when filing-out,
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	60	and define packageNames for new classes and methods.
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	61
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	62	instance variables:
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	63	name <String> the name of this project, as shown
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	64	in a ProjectView
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	65
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	66	changeSet <ChangeSet> changes done, while this was the active project
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	67
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	68	views <Collection> views opened while this was the active project
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	69
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	70	directoryName <String> directory name, where fileOuts are done
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	71
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	72	properties
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	73
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	74	packageName <String> given to classes/methods which are created while
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	75	this is the active project
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	76
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	77	repositoryDirectory (default) name of the repository, when a new source containers are
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	78	created.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	79
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	80	repositoryModule (default) name of the module, when new source containers are
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	81	created.
235 d8e62525bfdf * empty log message * claus parents: 203 diff changeset	82
d8e62525bfdf * empty log message * claus parents: 203 diff changeset	83	Future:
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	84	- keep track of per-project changes
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	85	- allow speficiation of the type of the project (application or library)
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	86	- allow building of whatever the target (as defined by the type) is
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	87	(this will allow build of class libs and apps by clicking a button)
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	88	- allow removal of project specific classes, methods etc.
1286 4270a0b4917d documentation Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	89
4270a0b4917d documentation Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	90	[author:]
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	91	Claus Gittinger
89 7be0b86ef80f * empty log message * claus parents: 87 diff changeset	92	"
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	93	! !
7be0b86ef80f * empty log message * claus parents: 87 diff changeset	94
1854 b44227fd2b3d use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 1636 diff changeset	95	!Project class methodsFor:'initialization'!
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	96
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	97	initKnownProjects
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	98	"this is a temporary experimental kludge -
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	99	once the ProjectBrowser is finished, this info is read from
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	100	'.prj' files ..."
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	101
4668 a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	102	"/ collect project info while scanning all classes
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	103	"/ and methods ...
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	104
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	105	AllProjects isNil ifTrue:[
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	106	AllProjects := IdentitySet new.
4668 a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	107	].
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	108
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	109	AllProjects add:SystemProject.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	110	AllProjects add:CurrentProject.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	111
4912 43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	112	"/ Smalltalk allClassesDo:[:aClass \|
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	113	"/ \|packageID prj classFilename pkgInfo revInfo
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	114	"/ repositoryPath dir module lib nm\|
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	115	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	116	"/ aClass isMeta ifFalse:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	117	"/ (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	118	"/ (Smalltalk at:aClass name) == aClass ifFalse:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	119	"/ Transcript showCR:'skipping obsolete/removed class: ' , aClass name.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	120	"/ ] ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	121	"/ packageID := aClass package asSymbol.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	122	"/ (packages includesKey:packageID) ifFalse:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	123	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	124	"/ "/ a new one ...
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	125	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	126	"/ prj := self new.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	127	"/ prj package:packageID.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	128	"/ prj directory:'???'.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	129	"/ prj repositoryModule:'unknown'.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	130	"/ prj repositoryDirectory:'unknown'.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	131	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	132	"/ nm := 'unknown'.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	133	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	134	"/ pkgInfo := aClass packageSourceCodeInfo.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	135	"/ pkgInfo notNil ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	136	"/ module := pkgInfo at:#module ifAbsent:nil.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	137	"/ module notNil ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	138	"/ prj repositoryModule:module
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	139	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	140	"/ dir := pkgInfo at:#directory ifAbsent:nil.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	141	"/ dir notNil ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	142	"/ prj repositoryDirectory:dir
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	143	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	144	"/ lib := pkgInfo at:#library ifAbsent:nil.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	145	"/ lib notNil ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	146	"/ prj type:#library.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	147	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	148	"/ prj isLoaded:true.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	149	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	150	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	151	"/ nm := (module ? 'unknown')
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	152	"/ , ':'
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	153	"/ , (dir ? (lib ? 'unknown')).
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	154	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	155	"/ prj name:nm.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	156	"/ AllProjects add:prj.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	157	"/ packages at:packageID put:prj.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	158	"/ ] ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	159	"/ prj := packages at:packageID.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	160	"/ prj addClass:aClass.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	161	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	162	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	163	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	164	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	165	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	166	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	167	"/ Method allSubInstancesDo:[:aMethod \|
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	168	"/ \|packageID prj who mthdClass\|
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	169	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	170	"/ who := aMethod who.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	171	"/ who notNil ifTrue:[ "/ skip unbound methods ...
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	172	"/ packageID := aMethod package asSymbol.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	173	"/ (packages includesKey:packageID) ifFalse:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	174	"/ "/ a new one ...
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	175	"/ prj := self new.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	176	"/ "/ prj name:libName.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	177	"/ prj package:packageID.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	178	"/ prj type:#library.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	179	"/ prj directory:'???'.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	180	"/ prj repositoryModule:'stx'.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	181	"/ prj repositoryDirectory:'???'.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	182	"/ prj isLoaded:true.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	183	"/ AllProjects add:prj.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	184	"/ packages at:packageID put:prj.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	185	"/ ] ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	186	"/ "/ see if the methods class is in the project;
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	187	"/ "/ if so, remove any patch-entry for this method.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	188	"/ prj := packages at:packageID.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	189	"/ ((prj classes includes:who methodClass)
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	190	"/ or:[prj classes includes:who methodClass name]) ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	191	"/ prj removeMethod:aMethod.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	192	"/ ]
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	193	"/ ]
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	194	"/ ]
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	195	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	196	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	197	"/ "/ walk over binary modules, to find out directory names ...
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	198	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	199	"/ ObjectFileLoader loadedObjectHandles do:[:h \|
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	200	"/ \|cls prj mDir\|
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	201	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	202	"/ cls := h classes firstIfEmpty:nil.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	203	"/ cls notNil ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	204	"/ prj := packages at:cls package ifAbsent:nil.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	205	"/ prj notNil ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	206	"/ mDir := h pathName asFilename directory pathName.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	207	"/ prj directory = '???' ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	208	"/ prj directory:mDir
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	209	"/ ] ifFalse:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	210	"/ prj directory ~= mDir ifTrue:[
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	211	"/ ('Project [warning]: conflicting project directories for ' , cls package) infoPrintCR.
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	212	"/ ]
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	213	"/ ]
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	214	"/ ]
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	215	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	216	"/ ].
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	217	"/
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	218	"/ self changed:#allProjects
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	219
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	220
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	221
43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	222
4668 a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	223
4066 74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	224	"/ \|stx p\|
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	225	"/
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	226	"/ stx := self new name:'stx'.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	227	"/ stx packageName:'noPackage'.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	228	"/ stx changeSet:nil.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	229	"/ stx type:#smalltalk.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	230	"/ stx comment:'The ST/X project itself'.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	231	"/
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	232	"/ AllProjects add:stx.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	233	"/
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	234	"/ #(
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	235	"/ ('libbasic' #'stx:libbasic' 'Basic (non-GUI) classes. Required for all applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	236	"/ ('libbasic2' #'stx:libbasic2' 'More basic (non-GUI) classes. Required for most applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	237	"/ ('libbasic3' #'stx:libbasic3' 'More basic (non-GUI) classes. Required for development')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	238	"/ ('libcomp' #'stx:libcomp' 'The bytecode compiler. Required for all applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	239	"/ ('libview' #'stx:libview' 'Low level GUI classes. Required for all GUI applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	240	"/ ('libview2' #'stx:libview2' 'Additional low level GUI classes. Required for most GUI applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	241	"/ ('libwidg' #'stx:libwidg' 'Basic widgets. Required for all GUI applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	242	"/ ('libwidg2' #'stx:libwidg2' 'More widgets. Required for most GUI applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	243	"/ ('libwidg3' #'stx:libwidg3' 'More (fun) widgets. Seldom required')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	244	"/ ('libtool' #'stx:libtool' 'Development applications. Required for program development')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	245	"/ ('libtool2' #'stx:libtool2' 'More development applications. Required for GUI development')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	246	"/ ('libui' #'stx:libui' 'UI spec classes. Required for UIPainter applications')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	247	"/ ('libhtml' #'stx:libhtml' 'HTML related classes. Required for Web applications and the HTML browser')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	248	"/ ('libodbc' #'stx:libodbc' 'ODBC interface classes.')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	249	"/ ('libopengl' #'stx:libopengl' 'OpenGL interface classes.')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	250	"/ ('persistency' #'stx:goodies/persistency' 'Simple DB interface')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	251	"/ ('goodies' #'stx:goodies' 'Misc goodies - not really maintained')
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	252	"/ ) do:[:entry \|
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	253	"/ \|libName package comment\|
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	254	"/
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	255	"/ libName := entry at:1.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	256	"/ package := entry at:2.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	257	"/ comment := entry at:3.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	258	"/
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	259	"/ p := self new name:libName.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	260	"/ p packageName:package.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	261	"/ p type:#library.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	262	"/ p comment:comment.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	263	"/ stx addSubProject:p.
74e64b5cedce checkin from browser Claus Gittinger <cg@exept.de> parents: 4013 diff changeset	264	"/ ].
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	265
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	266	"
4668 a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	267	AllProjects := nil.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	268	self initKnownProjects
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	269	"
4069 7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	270
4912 43182d65eaf2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	271	"Modified: / 16.10.1999 / 13:10:37 / cg"
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	272	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	273
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	274	initialize
338 20376737bdaf . claus parents: 336 diff changeset	275	SystemProject isNil ifTrue:[
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	276	self initializeSystemProject.
338 20376737bdaf . claus parents: 336 diff changeset	277	].
20376737bdaf . claus parents: 336 diff changeset	278
20376737bdaf . claus parents: 336 diff changeset	279	CurrentProject := SystemProject.
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	280	AllProjects := nil.
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	281	self initKnownProjects.
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	282
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	283	"
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	284	SystemProject := nil.
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	285	Project initialize
7683685383d6 * empty log message * claus parents: 236 diff changeset	286	"
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	287	!
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	288
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	289	initializeSystemProject
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	290	NextSequential := 1.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	291	SystemProject := self new name:'default'.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	292	"/ SystemProject package:(OperatingSystem getLoginName , ':NoProject') asSymbol.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	293	SystemProject package:#'__NoProject__'.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	294	SystemProject defaultNameSpace:Smalltalk.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	295	SystemProject comment:'A default (dummy) project.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	296	Is used as the current project in case no real project is ever activated.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	297	Please do never save/checkin this project; instead, move classes & methods
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	298	into a concrete, real project and save that one in regular intervals.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	299	Use this as a `scratch project''.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	300	'.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	301
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	302	"/ no longer - changes are always remembered in some project
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	303	false ifTrue:[
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	304	"
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	305	the SystemProject does not keep a record if changes,
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	306	but instead depends on the changes file - recording anything there.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	307	"
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	308	SystemProject changeSet:nil.
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	309	].
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	310	ChangeSet notNil ifTrue:[
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	311	SystemProject changeSet:ChangeSet new
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	312	].
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	313	self changed:#defaultProject
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	314	!
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	315
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	316	reinitKnownProjects
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	317	"rescan the image for projects"
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	318
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	319	AllProjects := nil.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	320	self initKnownProjects
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	321	! !
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	322
1854 b44227fd2b3d use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 1636 diff changeset	323	!Project class methodsFor:'instance creation'!
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	324
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	325	new
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	326	^ self basicNew initialize
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	327	! !
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	328
1854 b44227fd2b3d use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 1636 diff changeset	329	!Project class methodsFor:'accessing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	330
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	331	addKnownProject:aProject
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	332	\|allProjects\|
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	333
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	334	allProjects := self knownProjects.
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	335	(allProjects detect:[:p \| p package = aProject package] ifNone:nil) notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	336	self warn:'Project for ' , aProject package , ' is already present.'.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	337	^ self.
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	338	].
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	339
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	340	AllProjects add:aProject.
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	341	self changed:#allProjects
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	342	!
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	343
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	344	addLoadedProject:aProject
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	345	aProject isLoaded:true.
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	346	self addKnownProject:aProject.
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	347	!
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	348
1 a27a279701f8 Initial revision claus parents: diff changeset	349	current
10 4f1f9a91e406 2.8.1 claus parents: 2 diff changeset	350	"return the currently active project"
4f1f9a91e406 2.8.1 claus parents: 2 diff changeset	351
5692 2467be0050a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5690 diff changeset	352	CurrentProject isNil ifTrue:[CurrentProject := SystemProject ].
1 a27a279701f8 Initial revision claus parents: diff changeset	353	^ CurrentProject
a27a279701f8 Initial revision claus parents: diff changeset	354
362 4131e87e79ec . claus parents: 356 diff changeset	355	"
4131e87e79ec . claus parents: 356 diff changeset	356	Project current
4131e87e79ec . claus parents: 356 diff changeset	357	"
1 a27a279701f8 Initial revision claus parents: diff changeset	358	!
a27a279701f8 Initial revision claus parents: diff changeset	359
a27a279701f8 Initial revision claus parents: diff changeset	360	current:aProject
10 4f1f9a91e406 2.8.1 claus parents: 2 diff changeset	361	"set the currently active project"
4f1f9a91e406 2.8.1 claus parents: 2 diff changeset	362
5542 418fabf22e56 checkin from browser Claus Gittinger <cg@exept.de> parents: 5371 diff changeset	363	\|prevProject\|
418fabf22e56 checkin from browser Claus Gittinger <cg@exept.de> parents: 5371 diff changeset	364
418fabf22e56 checkin from browser Claus Gittinger <cg@exept.de> parents: 5371 diff changeset	365	prevProject := CurrentProject.
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	366	CurrentProject := aProject.
5542 418fabf22e56 checkin from browser Claus Gittinger <cg@exept.de> parents: 5371 diff changeset	367	prevProject notNil ifTrue:[
418fabf22e56 checkin from browser Claus Gittinger <cg@exept.de> parents: 5371 diff changeset	368	self changed:#currentProject
418fabf22e56 checkin from browser Claus Gittinger <cg@exept.de> parents: 5371 diff changeset	369	].
334 885080385f59 . claus parents: 330 diff changeset	370	!
885080385f59 . claus parents: 330 diff changeset	371
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	372	currentPackageName
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	373	CurrentProject notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	374	^ CurrentProject package
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	375	].
4112 5ee841c34b10 return nil (instead of 'no package') if no current package is defined. Claus Gittinger <cg@exept.de> parents: 4099 diff changeset	376	^ nil
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	377
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	378	"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	379	Project currentPackageName
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	380	"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	381	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	382
336 3fa9e73a5c0f . claus parents: 334 diff changeset	383	defaultProject
3fa9e73a5c0f . claus parents: 334 diff changeset	384	"return the SystemDefault project"
3fa9e73a5c0f . claus parents: 334 diff changeset	385
3fa9e73a5c0f . claus parents: 334 diff changeset	386	^ SystemProject.
3fa9e73a5c0f . claus parents: 334 diff changeset	387	!
3fa9e73a5c0f . claus parents: 334 diff changeset	388
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	389	knownProjects
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	390	AllProjects isNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	391	self initKnownProjects
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	392	].
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	393	^ AllProjects ? #()
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	394	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	395
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	396	loadedProjects
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	397	^ self knownProjects select:[:p \| p isLoaded]
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	398	!
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	399
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	400	projectNamed:aProjectName
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	401	"retrieve the named project; return nil if not known"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	402
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	403	^ self knownProjects detect:[:p \| p name = aProjectName] ifNone:nil.
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	404
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	405	"
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	406	Project projectNamed:'stx'
5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	407	Project projectNamed:'default'
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	408	"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	409	!
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	410
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	411	projectWithId:aPackageId
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	412	"retrieve the project with a particular id; return nil if not known"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	413
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	414	^ self knownProjects detect:[:p \| p package = aPackageId] ifNone:nil.
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	415
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	416	"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	417	Project projectWithId:#'stx:libbasic'
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	418	Project projectWithId:'__NoProject__'
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	419	"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	420	!
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	421
334 885080385f59 . claus parents: 330 diff changeset	422	setDefaultProject
885080385f59 . claus parents: 330 diff changeset	423	"set the currently active project to be the SystemDEfault project"
885080385f59 . claus parents: 330 diff changeset	424
885080385f59 . claus parents: 330 diff changeset	425	self current:SystemProject.
939 ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	426	!
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	427
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	428	setProject:aProjectOrNil
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	429	"set the currently active project without updating others"
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	430
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	431	CurrentProject := aProjectOrNil.
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	432
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	433	"Created: 7.2.1996 / 14:00:45 / cg"
ffee570b0f09 added #setProject: (does not send change notifications) Claus Gittinger <cg@exept.de> parents: 848 diff changeset	434	"Modified: 7.2.1996 / 14:01:16 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	435	! !
a27a279701f8 Initial revision claus parents: diff changeset	436
1854 b44227fd2b3d use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 1636 diff changeset	437	!Project class methodsFor:'changes management'!
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	438
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	439	addClassCommentChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	440	"add a comment-change for aClass to the current project"
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	441
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	442	\|p\|
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	443
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	444	p := CurrentProject.
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	445	p notNil ifTrue:[
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	446	p addClassCommentChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	447	]
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	448	!
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	449
664 42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	450	addClassDefinitionChangeFor:aClass
1115 16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	451	"add a class-def-change for aClass to the current project"
16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	452
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	453	\|p\|
664 42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	454
42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	455	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	456	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	457	p addClassDefinitionChangeFor:aClass
664 42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	458	]
42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	459
42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	460	"Created: 3.12.1995 / 13:44:58 / cg"
42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	461	"Modified: 3.12.1995 / 13:58:04 / cg"
42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	462	!
42ea897fbebe project changeSet fixes Claus Gittinger <cg@exept.de> parents: 654 diff changeset	463
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	464	addInstVarDefinitionChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	465	"add an instvar-change for aClass to the current project"
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	466
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	467	\|p\|
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	468
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	469	p := CurrentProject.
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	470	p notNil ifTrue:[
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	471	p addInstVarDefinitionChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	472	]
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	473
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	474	"Created: 3.12.1995 / 13:44:58 / cg"
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	475	"Modified: 3.12.1995 / 13:58:04 / cg"
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	476	!
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	477
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	478	addMethodCategoryChange:aMethod category:newCategory in:aClass
1115 16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	479	"add a method-category-change for aMethod in aClass to the current project"
16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	480
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	481	\|p\|
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	482
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	483	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	484	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	485	p addMethodCategoryChange:aMethod category:newCategory in:aClass
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	486	]
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	487	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	488
5553 1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	489	addMethodChange:aMethod fromOld:oldMethod in:aClass
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	490	"add a method change in aClass to the current project"
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	491
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	492	\|p\|
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	493
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	494	p := CurrentProject.
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	495	p notNil ifTrue:[
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	496	p addMethodChange:aMethod fromOld:oldMethod in:aClass
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	497	].
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	498	!
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	499
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	500	addMethodChange:aMethod in:aClass
1115 16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	501	"add a method change in aClass to the current project"
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	502
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	503	\|p\|
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	504
a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	505	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	506	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	507	p addMethodChange:aMethod in:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	508	].
203 3d88fa870de0 * empty log message * claus parents: 150 diff changeset	509	!
3d88fa870de0 * empty log message * claus parents: 150 diff changeset	510
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	511	addMethodPrivacyChange:aMethod in:aClass
1115 16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	512	"add a privacy change for aMethod in aClass to the current project"
16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	513
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	514	\|p\|
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	515
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	516	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	517	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	518	p addMethodPrivacyChange:aMethod in:aClass
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	519	]
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	520
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	521	"Modified: 27.8.1995 / 22:48:17 / claus"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	522	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	523
705 2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	524	addPrimitiveDefinitionsChangeFor:aClass
1115 16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	525	"add a primitiveDef change for aClass to the current project"
16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	526
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	527	\|p\|
705 2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	528
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	529	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	530	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	531	p addPrimitiveDefinitionsChangeFor:aClass
705 2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	532	]
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	533	!
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	534
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	535	addPrimitiveFunctionsChangeFor:aClass
1115 16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	536	"add a primitiveFuncs change for aClass to the current project"
16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	537
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	538	\|p\|
705 2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	539
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	540	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	541	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	542	p addPrimitiveFunctionsChangeFor:aClass
705 2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	543	]
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	544	!
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	545
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	546	addPrimitiveVariablesChangeFor:aClass
1115 16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	547	"add a primitiveVars change for aClass to the current project"
16ebfd63db43 commentary Claus Gittinger <cg@exept.de> parents: 939 diff changeset	548
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	549	\|p\|
705 2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	550
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	551	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	552	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	553	p addPrimitiveVariablesChangeFor:aClass
705 2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	554	]
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	555	!
2126aba57d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 666 diff changeset	556
3288 373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	557	addRemoveSelectorChange:aSelector in:aClass
373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	558	"add a method-remove change in aClass to the current project"
373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	559
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	560	\|p\|
3288 373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	561
373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	562	p := CurrentProject.
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	563	p notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	564	p addRemoveSelectorChange:aSelector in:aClass
3288 373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	565	]
373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	566
373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	567	"Created: / 16.2.1998 / 12:45:10 / cg"
373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	568	!
373af30a15ca add removeSelectorChange to current projects changeSet Claus Gittinger <cg@exept.de> parents: 2962 diff changeset	569
5239 8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	570	addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	571	"add a category rename change for aClass to the current project"
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	572
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	573	\|p\|
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	574
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	575	p := CurrentProject.
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	576	p notNil ifTrue:[
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	577	p addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	578	]
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	579
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	580	"Created: / 6.2.2000 / 02:27:35 / cg"
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	581	!
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	582
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	583	currentProjectDirectory
a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	584	"return the name of the directory to use for fileOut.
235 d8e62525bfdf * empty log message * claus parents: 203 diff changeset	585	The returned name already includes a file-separator at the end,
d8e62525bfdf * empty log message * claus parents: 203 diff changeset	586	so the filename can be concatenated to it."
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	587
a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	588	\|p dirName\|
a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	589
a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	590	p := CurrentProject.
a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	591	p notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	592	dirName := p directory
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	593	] ifFalse:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	594	dirName := Filename currentDirectory name
149 a3b1bf2938c6 changeSet interface changed claus parents: 97 diff changeset	595	].
2962 038a8f143e49 * empty log message * Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	596	^ dirName
2907 1666bf27f351 VMS changes Claus Gittinger <cg@exept.de> parents: 2664 diff changeset	597
1666bf27f351 VMS changes Claus Gittinger <cg@exept.de> parents: 2664 diff changeset	598	"Modified: 7.9.1997 / 23:52:25 / cg"
2334 7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	599	!
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	600
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	601	rememberOverwrittenMethod:newMethod from:oldMethod
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	602	"remember a method (from another package) being overwritten.
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	603	This is only remembered, if the current project is not the
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	604	system project (to avoid filling this remembered-table)"
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	605
2558 07e7d6fef46d removed unused var Claus Gittinger <cg@exept.de> parents: 2334 diff changeset	606	\|p\|
2334 7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	607
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	608	p := CurrentProject.
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	609	(p notNil
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	610	and:[p ~~ SystemProject]) ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	611	p rememberOverwrittenMethod:newMethod from:oldMethod
2334 7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	612	] ifFalse:[
3332 8014b817988b remove the 'does not remember ...' message. Claus Gittinger <cg@exept.de> parents: 3288 diff changeset	613	"/ 'Project [info]: DefaultProject does not remember overwritten methods' infoPrintCR
2334 7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	614	]
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	615
3332 8014b817988b remove the 'does not remember ...' message. Claus Gittinger <cg@exept.de> parents: 3288 diff changeset	616	"Modified: / 7.3.1998 / 13:38:39 / cg"
13 62303f84ff5f * empty log message * claus parents: 10 diff changeset	617	! !
62303f84ff5f * empty log message * claus parents: 10 diff changeset	618
4909 bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	619	!Project class methodsFor:'misc'!
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	620
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	621	projectFileFormatVersion
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	622	^ 1
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	623	! !
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	624
5151 f242e78be683 checkin from browser ps parents: 5150 diff changeset	625	!Project class methodsFor:'testing'!
f242e78be683 checkin from browser ps parents: 5150 diff changeset	626
f242e78be683 checkin from browser ps parents: 5150 diff changeset	627	isClassChanged:aClass
5547 5bbe4deab773 default project setup Claus Gittinger <cg@exept.de> parents: 5542 diff changeset	628	"return true, if aClass has been changed"
5151 f242e78be683 checkin from browser ps parents: 5150 diff changeset	629
f242e78be683 checkin from browser ps parents: 5150 diff changeset	630	^self current changedClasses includesIdentical:aClass
f242e78be683 checkin from browser ps parents: 5150 diff changeset	631	! !
f242e78be683 checkin from browser ps parents: 5150 diff changeset	632
1 a27a279701f8 Initial revision claus parents: diff changeset	633	!Project methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	634
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	635	addPrerequisitePackage:aPackageId
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	636	"add onother prerequisitePackage to the project"
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	637
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	638	\|list\|
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	639
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	640	list := self prerequisites.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	641	(list includes:aPackageId) ifFalse:[
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	642	list addLast:aPackageId
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	643	].
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	644	!
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	645
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	646	addSubProject:aProject
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	647	"add a subproject - obsolete; we use prerequisites now"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	648
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	649	subProjects isNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	650	subProjects := OrderedCollection new.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	651	].
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	652	subProjects add:aProject
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	653	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	654
1 a27a279701f8 Initial revision claus parents: diff changeset	655	changeSet
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	656	"return the set of changes made in this project"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	657
1 a27a279701f8 Initial revision claus parents: diff changeset	658	^ changeSet
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	659
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	660	"Modified: 27.1.1997 / 11:58:36 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	661	!
a27a279701f8 Initial revision claus parents: diff changeset	662
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	663	changeSet:aChangeSet
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	664	"set the set of changes made in this project - dangerous, you may loose
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	665	the actual changeSet."
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	666
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	667	changeSet := aChangeSet
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	668
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	669	"Modified: 27.1.1997 / 11:59:02 / cg"
73 a6640cc96199 * empty log message * claus parents: 13 diff changeset	670	!
a6640cc96199 * empty log message * claus parents: 13 diff changeset	671
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	672	changedClasses
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	673	^ changedClasses ifNil:[changedClasses := IdentitySet new].
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	674
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	675	"
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	676	self new changedClasses
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	677	"
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	678	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	679
2028 85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	680	defaultNameSpace
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	681	"return the defaultNameSpace of this project.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	682	New classes will (if not specified by a directive) be installed
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	683	in this nameSpace. Useful, when filing in ST-80 code, to avoid
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	684	overwriting of standard classes."
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	685
4726 5c5e1c7f8933 checkin from browser Claus Gittinger <cg@exept.de> parents: 4721 diff changeset	686	^ (self propertyAt:#defaultNameSpace) ? Smalltalk
2028 85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	687
85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	688	!
85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	689
85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	690	defaultNameSpace:aNamespace
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	691	"set the defaultNameSpace of this project.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	692	New classes will (if not specified by a directive) be installed
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	693	in this nameSpace. Useful, when filing in ST-80 code, to avoid
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	694	overwriting of standard classes."
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	695
4726 5c5e1c7f8933 checkin from browser Claus Gittinger <cg@exept.de> parents: 4721 diff changeset	696	\|prevDefault\|
5c5e1c7f8933 checkin from browser Claus Gittinger <cg@exept.de> parents: 4721 diff changeset	697
5c5e1c7f8933 checkin from browser Claus Gittinger <cg@exept.de> parents: 4721 diff changeset	698	prevDefault := self defaultNameSpace.
5c5e1c7f8933 checkin from browser Claus Gittinger <cg@exept.de> parents: 4721 diff changeset	699	aNamespace ~~ prevDefault ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	700	self propertyAt:#defaultNameSpace put:aNamespace.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	701	self changed:#defaultNameSpace.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	702	self == CurrentProject ifTrue:[
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	703	Project changed:#defaultNameSpace
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	704	]
2032 e39ca6532e1a checkin from browser Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	705	]
2028 85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	706
85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	707	"Created: 2.1.1997 / 19:54:37 / cg"
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	708	"Modified: 27.1.1997 / 12:00:01 / cg"
2028 85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	709	!
85ef24870d8a hold the default nameSpace Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	710
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	711	directory
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	712	"return the projects directory.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	713	If not specified, a fileOut will be done into that directory"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	714
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	715	directoryName isNil ifTrue:[^ '.'].
7683685383d6 * empty log message * claus parents: 236 diff changeset	716	^ directoryName
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	717
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	718	"Modified: 27.1.1997 / 12:00:41 / cg"
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	719	!
7683685383d6 * empty log message * claus parents: 236 diff changeset	720
7683685383d6 * empty log message * claus parents: 236 diff changeset	721	directory:aDirectoryName
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	722	"set the projects directory.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	723	If not specified, a fileOut will be done into that directory"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	724
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	725	directoryName := aDirectoryName.
4070 682f720cd0f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4069 diff changeset	726	self changed:#directory.
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	727	self == CurrentProject ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	728	Project changed:#directory
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	729	]
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	730
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	731	"Modified: 27.1.1997 / 12:00:47 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	732	!
356 6c5ce0e1e7a8 . claus parents: 338 diff changeset	733
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	734	isLoaded:aBoolean
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	735	isLoaded := aBoolean
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	736	!
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	737
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	738	libraryName
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	739	"return the projects library name.
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	740	This is the name of a classLibrary, created from this project"
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	741
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	742	\|nm\|
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	743
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	744	nm := self name.
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	745	^ nm copyFrom:(nm lastIndexOfAny:':/')+1
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	746
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	747	"/ ^ (self name copyReplaceAll:$/ with:$_) replaceAll:$: with:$_
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	748	!
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	749
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	750	name
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	751	"return the projects name.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	752	This is for the user only - shown in the projectViews label"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	753
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	754	^ name
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	755
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	756	"Modified: 27.1.1997 / 12:01:16 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	757	!
356 6c5ce0e1e7a8 . claus parents: 338 diff changeset	758
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	759	name:aString
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	760	"set the projects name.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	761	This is for the user only - shown in the projectViews label"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	762
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	763	name := aString.
4070 682f720cd0f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4069 diff changeset	764	self changed:#name.
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	765	self == CurrentProject ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	766	Project changed:#name
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	767	]
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	768
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	769	"Modified: 27.1.1997 / 12:01:09 / cg"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	770	!
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	771
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	772	overwrittenMethods
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	773	"return the set of methods which were overwritten in this project.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	774	This information allows uninstalling, by switching back to the
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	775	original methods."
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	776
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	777	^ overwrittenMethods
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	778
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	779	"Created: 27.1.1997 / 11:57:21 / cg"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	780	"Modified: 27.1.1997 / 12:09:14 / cg"
356 6c5ce0e1e7a8 . claus parents: 338 diff changeset	781	!
6c5ce0e1e7a8 . claus parents: 338 diff changeset	782
4668 a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	783	package
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	784	"return the projects package identifier.
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	785	This identifier marks all methods and new classes which were created
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	786	in this project."
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	787
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	788	^ packageName
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	789
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	790	"Modified: 27.1.1997 / 12:10:00 / cg"
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	791	!
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	792
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	793	package:aPackageId
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	794	"set the projects package identifier.
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	795	This identifier marks all methods and new classes which were created
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	796	in this project."
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	797
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	798	packageName := aPackageId
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	799
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	800	"Modified: 27.1.1997 / 12:10:00 / cg"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	801	!
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	802
4727 ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	803	packageName:aPackageId
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	804	"set the projects package identifier.
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	805	This identifier marks all methods and new classes which were created
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	806	in this project."
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	807
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	808	self package:aPackageId
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	809
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	810	"Modified: 27.1.1997 / 12:10:00 / cg"
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	811	!
ec580e5f9b22 checkin from browser Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	812
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	813	prerequisiteClasses
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	814	"return the prerequisiteClasses of the project"
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	815
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	816	^ (self propertyAt:#prerequisiteClasses) ? #()
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	817	!
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	818
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	819	prerequisiteClasses:aCollectionOfClassesOrClassNames
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	820	"set the prerequisiteClasses of the project"
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	821
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	822	^ self propertyAt:#prerequisiteClasses put:aCollectionOfClassesOrClassNames
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	823
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	824	"Modified: / 26.4.1999 / 23:33:44 / cg"
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	825	!
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	826
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	827	prerequisitePackages
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	828	"return the prerequisitePackages of the project"
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	829
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	830	^ self prerequisites
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	831
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	832	"Created: / 26.4.1999 / 23:33:22 / cg"
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	833	!
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	834
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	835	prerequisitePackages:aCollectionOfPackagesOrPackageNames
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	836	"set the prerequisitePackages of the project"
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	837
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	838	^ self prerequisites:aCollectionOfPackagesOrPackageNames
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	839
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	840	"Modified: / 26.4.1999 / 23:34:40 / cg"
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	841	!
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	842
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	843	prerequisites
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	844	"return the prerequisites of the project"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	845
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	846	^ prerequisites ? #()
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	847	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	848
3973 7065a27b136b checkin from browser Claus Gittinger <cg@exept.de> parents: 3972 diff changeset	849	prerequisites:aCollectionOfProjects
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	850	"set the prerequisites of the project"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	851
3973 7065a27b136b checkin from browser Claus Gittinger <cg@exept.de> parents: 3972 diff changeset	852	prerequisites := aCollectionOfProjects
7065a27b136b checkin from browser Claus Gittinger <cg@exept.de> parents: 3972 diff changeset	853	!
7065a27b136b checkin from browser Claus Gittinger <cg@exept.de> parents: 3972 diff changeset	854
654 1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	855	repositoryDirectory
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	856	"return the projects default repository location.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	857	This is offered initially, when classes are checked into the
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	858	source repository initially"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	859
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	860	^ repositoryDirectory
654 1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	861
1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	862	"Created: 25.11.1995 / 18:04:51 / cg"
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	863	"Modified: 27.1.1997 / 12:13:35 / cg"
654 1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	864	!
1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	865
1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	866	repositoryDirectory:aRelativePathName
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	867	"set the projects default repository location.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	868	This will be offered initially, when classes are checked into the
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	869	source repository initially"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	870
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	871	repositoryDirectory := aRelativePathName
654 1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	872
1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	873	"Created: 25.11.1995 / 18:05:06 / cg"
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	874	"Modified: 27.1.1997 / 12:13:28 / cg"
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	875	!
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	876
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	877	repositoryModule
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	878	"return the projects default repository module name.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	879	This is offered initially, when classes are checked into the
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	880	source repository initially"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	881
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	882	^ repositoryModule
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	883
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	884	"Created: 25.11.1995 / 18:04:51 / cg"
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	885	"Modified: 27.1.1997 / 12:13:50 / cg"
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	886	!
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	887
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	888	repositoryModule:aString
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	889	"set the projects default repository module name.
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	890	This is offered initially, when classes are checked into the
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	891	source repository initially"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	892
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	893	repositoryModule := aString
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	894
02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	895	"Created: 25.11.1995 / 18:05:06 / cg"
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	896	"Modified: 27.1.1997 / 12:13:57 / cg"
654 1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	897	!
1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	898
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	899	subProjects
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	900	"return the subprojects - obsolete; we use prerequisites now"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	901
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	902	^ subProjects ? #()
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	903	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	904
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	905	views
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	906	"return a collection of views which were opened in this project"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	907
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	908	^ views asArray
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	909
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	910	"Modified: 27.1.1997 / 12:14:18 / cg"
338 20376737bdaf . claus parents: 336 diff changeset	911	!
20376737bdaf . claus parents: 336 diff changeset	912
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	913	views:aSetOfViews
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	914	"set the collection of views which were opened in this project"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	915
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	916	views := WeakIdentitySet withAll:aSetOfViews
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	917
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	918	"Modified: 27.1.1997 / 12:14:26 / cg"
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	919	! !
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	920
4079 84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	921	!Project methodsFor:'administration'!
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	922
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	923	removeClassesFromSystem
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	924	"remove the all of my classes & patches from the system"
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	925
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	926	self classInfo do:[:clsInfo \|
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	927	\|clsName cls\|
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	928
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	929	clsName := clsInfo className.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	930	clsName isSymbol ifTrue:[
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	931	cls := Smalltalk at:clsName.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	932	cls notNil ifTrue:[
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	933	cls removeFromSystem.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	934	].
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	935	] ifFalse:[
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	936	self halt
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	937	].
4079 84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	938	].
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	939
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	940	!
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	941
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	942	removeFromSystem
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	943	"remove the project and all of its classes & patches from the
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	944	system"
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	945
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	946	self removeClassesFromSystem.
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	947	AllProjects remove:self ifAbsent:nil.
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	948	! !
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	949
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	950	!Project methodsFor:'changes'!
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	951
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	952	addClassCommentChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	953	"add a comment-change for aClass to the receivers changeSet"
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	954
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	955	\|changeSet\|
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	956
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	957	(changeSet := self changeSet) notNil ifTrue:[
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	958	changeSet addClassCommentChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	959	].
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	960	self rememberChangedClass:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	961
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	962	!
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	963
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	964	addClassDefinitionChangeFor:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	965	"add a class-def-change for aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	966
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	967	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	968
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	969	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	970	changeSet addClassDefinitionChangeFor:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	971	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	972	self rememberChangedClass:aClass
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	973	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	974
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	975	addInstVarDefinitionChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	976	"add an instvar-definition-change for aClass to the receivers changeSet"
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	977
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	978	\|changeSet\|
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	979
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	980	(changeSet := self changeSet) notNil ifTrue:[
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	981	changeSet addInstVarDefinitionChangeFor:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	982	].
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	983	self rememberChangedClass:aClass
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	984	!
003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	985
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	986	addMethodCategoryChange:aMethod category:newCategory in:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	987	"add a method-category-change for aMethod in aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	988
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	989	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	990
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	991	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	992	changeSet addMethodCategoryChange:aMethod category:newCategory in:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	993	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	994	self rememberChangedClass:aClass
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	995
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	996	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	997
5553 1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	998	addMethodChange:aMethod fromOld:oldMethod in:aClass
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	999	"add a method change in aClass to the receivers changeSet"
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1000
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1001	\|changeSet\|
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1002
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1003	(changeSet := self changeSet) notNil ifTrue:[
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1004	changeSet addMethodChange:aMethod fromOld:oldMethod in:aClass
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1005	].
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1006	self rememberChangedClass:aClass
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1007	!
1740d3ae50ff keep previousVersion of method in changeSet Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	1008
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1009	addMethodChange:aMethod in:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1010	"add a method change in aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1011
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1012	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1013
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1014	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1015	changeSet addMethodChange:aMethod in:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1016	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1017	self rememberChangedClass:aClass
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1018
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1019	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1020
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1021	addMethodPrivacyChange:aMethod in:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1022	"add a privacy change for aMethod in aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1023
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1024	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1025
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1026	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1027	changeSet addMethodPrivacyChange:aMethod in:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1028	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1029	self rememberChangedClass:aClass
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1030
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1031	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1032
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1033	addPrimitiveDefinitionsChangeFor:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1034	"add a primitiveDef change for aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1035
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1036	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1037
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1038	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1039	changeSet addPrimitiveDefinitionsChangeFor:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1040	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1041	self rememberChangedClass:aClass
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1042
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1043	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1044
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1045	addPrimitiveFunctionsChangeFor:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1046	"add a primitiveFuncs change for aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1047
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1048	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1049
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1050	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1051	changeSet addPrimitiveFunctionsChangeFor:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1052	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1053	self rememberChangedClass:aClass
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1054
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1055	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1056
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1057	addPrimitiveVariablesChangeFor:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1058	"add a primitiveVars change for aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1059
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1060	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1061
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1062	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1063	changeSet addPrimitiveVariablesChangeFor:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1064	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1065	self rememberChangedClass:aClass
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1066
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1067	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1068
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1069	addRemoveSelectorChange:aSelector in:aClass
5224 003c8edae743 comments; handle class-instvar and comment changes Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1070	"add a method-remove change in aClass to the receivers changeSet"
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1071
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1072	\|changeSet\|
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1073
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1074	(changeSet := self changeSet) notNil ifTrue:[
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1075	changeSet addRemoveSelectorChange:aSelector in:aClass
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1076	].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1077	self rememberChangedClass:aClass
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1078
5150 d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1079	!
d7f854b5ede8 keep track of changed classes (even if current project has no changeSet) Claus Gittinger <cg@exept.de> parents: 5126 diff changeset	1080
5239 8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1081	addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1082	"add a category rename change in aClass to the receivers changeSet"
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1083
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1084	\|changeSet\|
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1085
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1086	(changeSet := self changeSet) notNil ifTrue:[
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1087	changeSet addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1088	].
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1089	self rememberChangedClass:aClass
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1090
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1091	"Created: / 6.2.2000 / 02:28:07 / cg"
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1092	!
8b70947d7036 category change in changeSet Claus Gittinger <cg@exept.de> parents: 5232 diff changeset	1093
5155 d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1094	condenseChangesForClassCheckin:aClass
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1095	\|changeSet\|
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1096
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1097	(changeSet := self changeSet) notNil ifTrue:[
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1098	changeSet condenseChangesForClass:aClass package:aClass package
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1099	].
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1100	#TODO.
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1101	"/ do not remove, if there are still methodChanges for other
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1102	"/ packages around
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1103	changedClasses := self changedClasses select:[:cls \| \|realClass\|
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1104	(realClass := cls) isMeta ifTrue:[
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1105	realClass := cls soleInstance
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1106	].
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1107	realClass name ~= aClass name
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1108	].
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1109	!
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1110
5181 6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1111	condenseChangesForClassFilein:aClass
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1112
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1113	#TODO.
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1114	"/ do not remove, if there are still methodChanges for other
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1115	"/ packages around
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1116	changedClasses := self changedClasses select:[:cls \| \|realClass\|
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1117	(realClass := cls) isMeta ifTrue:[
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1118	realClass := cls soleInstance
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1119	].
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1120	realClass name ~= aClass name
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1121	].
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1122	!
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1123
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1124	rememberChangedClass:aClass
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1125	\|realClass\|
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1126
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1127	(realClass := aClass) isMeta ifTrue:[
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1128	realClass := aClass soleInstance
f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1129	].
5181 6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1130	self changedClasses add:realClass.
6079b255ee64 checkin from browser ps parents: 5179 diff changeset	1131	changedClasses := changedClasses select:[:aClass \| aClass isObsolete not].
5156 f7d6a1e1a890 checkin from browser ps parents: 5155 diff changeset	1132
5155 d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1133	!
d6e0aca50f36 checkin from browser ps parents: 5151 diff changeset	1134
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1135	rememberOverwrittenMethod:newMethod from:oldMethod
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1136	"this is sent whenever a method is installed, which overwrites
2334 7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	1137	an existing method from a different package.
7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	1138	Allows previous methods to be reconstructed."
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1139
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1140	overwrittenMethods isNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	1141	overwrittenMethods := IdentityDictionary new.
2276 4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1142	].
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1143	overwrittenMethods at:newMethod put:oldMethod
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1144
4efec5219eef remember overwritten methods Claus Gittinger <cg@exept.de> parents: 2164 diff changeset	1145	"Created: 27.1.1997 / 11:52:01 / cg"
2334 7502902385ff only remember overwritten methods if the current project Claus Gittinger <cg@exept.de> parents: 2276 diff changeset	1146	"Modified: 30.1.1997 / 21:10:51 / cg"
10 4f1f9a91e406 2.8.1 claus parents: 2 diff changeset	1147	! !
4f1f9a91e406 2.8.1 claus parents: 2 diff changeset	1148
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	1149	!Project methodsFor:'initialization'!
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	1150
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	1151	initialize
338 20376737bdaf . claus parents: 336 diff changeset	1152	\|numString\|
20376737bdaf . claus parents: 336 diff changeset	1153
330 ae624fbef977 . claus parents: 318 diff changeset	1154	views := WeakIdentitySet new.
338 20376737bdaf . claus parents: 336 diff changeset	1155	numString := NextSequential printString.
315 7683685383d6 * empty log message * claus parents: 236 diff changeset	1156	NextSequential := NextSequential + 1.
338 20376737bdaf . claus parents: 336 diff changeset	1157
20376737bdaf . claus parents: 336 diff changeset	1158	name := 'new Project-' , numString.
20376737bdaf . claus parents: 336 diff changeset	1159	packageName := 'private-' , numString.
2034 1c96469c3df8 preinit the defaultNamespace of new projects (to Smalltalk) Claus Gittinger <cg@exept.de> parents: 2032 diff changeset	1160
848 76a83f34c26a moved ExtBytes & ExtFunc from libbasic2 Claus Gittinger <cg@exept.de> parents: 725 diff changeset	1161	"/
76a83f34c26a moved ExtBytes & ExtFunc from libbasic2 Claus Gittinger <cg@exept.de> parents: 725 diff changeset	1162	"/ for tiny-configurations, allow ChangeSet to be absent
76a83f34c26a moved ExtBytes & ExtFunc from libbasic2 Claus Gittinger <cg@exept.de> parents: 725 diff changeset	1163	"/
76a83f34c26a moved ExtBytes & ExtFunc from libbasic2 Claus Gittinger <cg@exept.de> parents: 725 diff changeset	1164	ChangeSet notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	1165	changeSet := ChangeSet new.
848 76a83f34c26a moved ExtBytes & ExtFunc from libbasic2 Claus Gittinger <cg@exept.de> parents: 725 diff changeset	1166	].
654 1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	1167	self directory:'.'.
725 02759b2003a8 keep module & directory separately (as defaults when creating a container) Claus Gittinger <cg@exept.de> parents: 705 diff changeset	1168	self repositoryModule:(OperatingSystem getLoginName).
654 1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	1169	self repositoryDirectory:'private'
1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	1170
1e039f69fdee added repository Claus Gittinger <cg@exept.de> parents: 630 diff changeset	1171	"Created: 25.11.1995 / 18:05:44 / cg"
2034 1c96469c3df8 preinit the defaultNamespace of new projects (to Smalltalk) Claus Gittinger <cg@exept.de> parents: 2032 diff changeset	1172	"Modified: 3.1.1997 / 13:24:10 / cg"
236 fa6d1f330010 * empty log message * claus parents: 235 diff changeset	1173	! !
fa6d1f330010 * empty log message * claus parents: 235 diff changeset	1174
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1175	!Project methodsFor:'load & save'!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1176
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1177	conditionForAutoloadIsTrue:cond
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1178	"check condition ..."
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1179
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1180	^ cond == #autoload
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1181	!
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1182
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1183	conditionForInclusionIsTrue:cond
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1184	"check condition ..."
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1185
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1186	cond == #always ifTrue:[^ true].
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1187	cond == #autoload ifTrue:[^ true].
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1188	cond == #never ifTrue:[^ false].
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1189
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1190	cond == #unix ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	1191	^ OperatingSystem isUNIXlike
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1192	].
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1193	cond == #win32 ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	1194	^ OperatingSystem isMSWINDOWSlike
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1195	].
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1196	cond == #vms ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	1197	^ OperatingSystem isVMSlike
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1198	].
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1199	cond == #macos ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	1200	^ OperatingSystem isMAClike
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1201	].
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1202	self halt:'bad condition'
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1203	!
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1204
4079 84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1205	loadClassesFromProjectDirectory
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1206	"load my classes into the system.
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1207	The classes are loaded from the directory as defined by my
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1208	directory insTvar"
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1209
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1210	\|myDirectory firstTrip\|
4079 84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1211
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1212	myDirectory := self directory asFilename.
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1213	firstTrip := true.
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1214
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1215	"/ read twice; if the load order was not correct,
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1216	"/ this will fix things (i.e. nil superclasses ...)
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1217
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1218	2 timesRepeat:[
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1219	self classInfo do:[:clsInfo \|
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1220	\|clsName clsFileNameString cls clsFilename
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1221	cond include asAutoload\|
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1222
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1223	clsName := clsInfo className.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1224	(clsName startsWith:'Smalltalk::') ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1225	clsInfo className:(clsName := clsName copyFrom:'Smalltalk::' size + 1).
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1226	].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1227	clsName := clsName asSymbol.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1228
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1229	clsFileNameString := clsInfo classFileName.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1230	clsFileNameString isNil ifTrue:[clsFileNameString := clsName , '.st'].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1231
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1232	clsName isSymbol ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1233	clsFilename := myDirectory construct:clsFileNameString.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1234	cls := Smalltalk at:clsName.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1235	(cls isNil or:[firstTrip]) ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1236	"/ ok - really not yet loaded.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1237	Transcript showCR:'loading ' , clsFilename pathName , ' ...'.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1238	] ifFalse:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1239	Transcript showCR:'reloading ' , clsFilename pathName , ' ...'.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1240	].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1241	"/ check condition ...
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1242	cond := clsInfo conditionForInclusion.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1243	(self conditionForInclusionIsTrue:cond) ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1244	(self conditionForAutoloadIsTrue:cond) ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1245	Smalltalk
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1246	installAutoloadedClassNamed:clsName
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1247	category:'autoloaded'
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1248	package:self package
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1249	revision:nil
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1250	] ifFalse:[
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1251	Object errorSignal handle:[:ex \|
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1252	self warn:'error during fileIn: ' , ex errorString
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1253	] do:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1254	Class packageQuerySignal answer:packageName do:[
5690 e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1255	Parser::UndefinedSuperclassError handle:[:ex \|
e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1256	firstTrip ifFalse:[
e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1257	ex reject.
e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1258	]
e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1259	] do:[
e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1260	clsFilename fileIn.
e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1261	"/ Smalltalk fileIn:clsFilename
e5efb5ecbe6a checkin from browser Claus Gittinger <cg@exept.de> parents: 5671 diff changeset	1262	]
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1263	]
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1264	]
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1265	]
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1266	]
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1267	] ifFalse:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1268	self halt
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1269	].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1270	].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1271
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1272	firstTrip := false.
4079 84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1273	].
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1274	!
84ad7326cc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 4078 diff changeset	1275
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1276	loadFromProjectFile:aFilename
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1277	"fill all of my attributes from a projects file (.prj-file)"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1278
5819 b46dd00555c6 Cleanup unused method vars Stefan Vogel <sv@exept.de> parents: 5734 diff changeset	1279	\|f pack targetConditions s module dir formatVersion\|
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1280
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1281	f := aFilename asFilename.
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1282	directoryName := f directory pathName.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1283	self directory:(f directory pathName).
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1284	pack := ResourcePack fromFile:f baseName directory:directoryName.
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1285
4909 bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1286	formatVersion := pack at:'fileFormatVersion' ifAbsent:nil.
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1287
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1288	"/ convert the resourcePack ...
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1289
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1290	packageName := pack at:'package' ifAbsent:packageName.
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1291	repositoryModule := packageName upTo:$:.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1292	repositoryDirectory := packageName restAfter:$:.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1293
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1294	name := pack at:'name' ifAbsent:name.
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1295
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1296	self type:(pack at:'type' ifAbsent:#application) asSymbol.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1297
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1298	module := pack at:'repository.module' ifAbsent:nil.
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1299	module notNil ifTrue:[
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1300	repositoryModule ~= module ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1301	'Project [warning]: module does not correspond to packageId' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1302	'Project [info]: this will be not supported in future versions' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1303	].
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1304	repositoryModule := module.
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1305	dir := pack at:'repository.directory' ifAbsent:nil.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1306	dir notNil ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1307	repositoryDirectory ~= dir ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1308	'Project [warning]: directory does not correspond to packageId' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1309	'Project [info]: this will be not supported in future versions' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1310	].
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1311	repositoryDirectory := dir.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1312	]
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1313	].
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1314
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1315	prerequisites := pack at:'prerequisites' ifAbsent:#().
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1316	self prerequisiteClasses:(pack at:'prerequisiteClasses' ifAbsent:#()).
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1317
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1318	s := pack at:'nameSpace' ifAbsent:nil.
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1319	s notNil ifTrue:[
5328 319b8e3ee60e renamed Namespace to NameSpace Claus Gittinger <cg@exept.de> parents: 5327 diff changeset	1320	self defaultNameSpace:(NameSpace name:s asSymbol).
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1321	].
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1322
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1323	subProjects := pack at:'subProjects' ifAbsent:subProjects.
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1324	(s := pack at:'comment' ifAbsent:nil) notNil ifTrue:[
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1325	self comment:s
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1326	].
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1327
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1328	"/ first, all of the conditions ...
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1329	targetConditions := Dictionary new.
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1330	pack keysAndValuesDo:[:key :val \|
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1331	\|conditionKey\|
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1332
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1333	(key startsWith:'target.condition.') ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1334	conditionKey := key copyFrom:'target.condition.' size + 1.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1335	targetConditions at:conditionKey put:val.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1336	]
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1337	].
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1338
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1339	properties isNil ifTrue:[
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1340	properties := IdentityDictionary new
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1341	].
5819 b46dd00555c6 Cleanup unused method vars Stefan Vogel <sv@exept.de> parents: 5734 diff changeset	1342	properties at:#targetconditions put:targetConditions.
b46dd00555c6 Cleanup unused method vars Stefan Vogel <sv@exept.de> parents: 5734 diff changeset	1343	properties declare:#sourcesDirectory from:pack.
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1344	properties declare:#methodsFile from:pack.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1345	properties declare:#files from:pack.
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1346
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1347	"/ fetch class info
4805 a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1348	"/
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1349	"/ each entry consist of:
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1350	"/ full-name-of-class
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1351	"/ condition (optional) - #unix / #win32 / #vms / #macos / #always / #never / #autoload
a7e6d2cb9b29 care for conditions when generatong loadAll / Make.proto files. Claus Gittinger <cg@exept.de> parents: 4796 diff changeset	1352	"/ fileName (optional)
5201 24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	1353	properties at:#autoIncludeImageClasses put:false.
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	1354
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1355	(pack at:'classes' default:#()) do:[:info \|
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1356	\|condKey className optionalFileName\|
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1357
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1358	condKey := #always.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1359	info isSymbol ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1360	className := info.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1361	] ifFalse:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1362	className := info at:1.
4909 bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1363	formatVersion == 0 ifTrue:[
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1364	info size > 1 ifTrue:[
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1365	optionalFileName := info at:2.
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1366	info size > 2 ifTrue:[
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1367	condKey := info at:3.
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1368	]
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1369	].
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1370	] ifFalse:[
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1371	className := info at:1.
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1372	info size > 1 ifTrue:[
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1373	condKey := info at:2.
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1374	info size > 2 ifTrue:[
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1375	optionalFileName := info at:3.
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1376	]
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1377	].
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1378	].
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1379	].
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1380	self
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1381	addClass:className
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1382	conditionForInclusion:condKey
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1383	classFileName:optionalFileName
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1384	].
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1385
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	1386	"/ fetch methods info
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	1387
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	1388	(pack at:'methods' default:#()) do:[:info \|
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1389	\|condKey className methodName optionalFileName\|
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1390
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1391	condKey := #always.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1392	className := info at:1.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1393	methodName := info at:2.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1394	info size > 2 ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1395	optionalFileName := info at:3.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1396	info size > 3 ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1397	condKey := info at:4.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1398	]
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1399	].
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1400	self
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1401	addMethod:methodName inClass:className
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1402	conditionForInclusion:condKey
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1403	fileName:optionalFileName
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	1404	].
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	1405
4069 7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	1406	self wasLoadedFromFile:true.
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	1407
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1408	"/ all remaining properties
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1409	pack keysAndValuesDo:[:key :val \|
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1410	(key startsWith:'property.') ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1411	self propertyAt:(key copyFrom:'property.' size+1) asSymbol put:val.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	1412	]
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1413	].
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1414
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1415	"
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1416	Project current saveAsProjectFile.
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1417
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1418	Project new loadFromProjectFile:'default.prj'
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1419
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	1420	Project new loadFromProjectFile:'../../libbasic/libbasic.prj'
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1421	"
4069 7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	1422
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1423	"Modified: / 26.4.1999 / 23:21:33 / cg"
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1424	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1425
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1426	saveAsProjectFile
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1427	"store all of my attributes into a projects file (.prj-file)
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1428	(in the project-directory and named as <projectName>.prj)"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1429
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1430	\|dir fn nm s\|
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1431
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1432	dir := self directory asFilename.
4790 38030fd8b681 checkin from browser Claus Gittinger <cg@exept.de> parents: 4789 diff changeset	1433	nm := self libraryName.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1434	fn := dir construct:nm.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1435	fn := fn withSuffix:'prj'.
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1436
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1437	fn exists ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	1438	fn copyTo:(fn pathName , '.bak')
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1439	].
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1440	s := fn writeStream.
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1441	self saveAsProjectFileOn:s.
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1442	s close.
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1443
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1444	"
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1445	Project current saveAsProjectFile
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1446	"
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1447
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1448	"Modified: / 26.4.1999 / 22:53:38 / cg"
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1449	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1450
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1451	saveAsProjectFileOn:aStream
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1452	"save the project info in a format which is both usable for reload
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1453	and somehow readable for humans.
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1454	Actually, the format is the same as used for resources (i.e. key - value pairs)
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1455	and the code below could be much simpler - if there where no humans to read it ..."
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1456
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1457	\|s coll first maxLen t defNS methodsFile classes packageId
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1458	moduleFromPackageId directoryFromPackageId\|
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1459
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1460	packageId := self package.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1461	packageId isNil ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1462	'Project [warning]: no valid packageId - generating a default' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1463	packageId := OperatingSystem getLoginName , ':private'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1464	] ifFalse:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1465	(packageId includes:$:) ifFalse:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1466	'Project [warning]: no module in packageId - generating a default' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1467	packageId := OperatingSystem getLoginName , ':' , packageId.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1468	]
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1469	].
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1470	moduleFromPackageId := packageId upTo:$:.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1471	directoryFromPackageId := packageId restAfter:$:.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1472
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1473	s := aStream.
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1474
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1475	s nextPutLine:'; $Header' , '$'; nextPutLine:';'.
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1476	s nextPutLine:'; Project saved ' , Smalltalk timeStamp; nextPutLine:';'.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1477	s nextPutAll:'; Be careful when editing - do not corrupt the files syntax.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1478	; Lines starting with a semicolon are comment lines.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1479	; Lines ending with a backslash are concatenated with the following line.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1480	; Entries are key-value pairs, separated by whitespace;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1481	; the value is a smalltalk literal expression.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1482	'.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1483
4909 bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1484	s nextPutAll:'fileFormatVersion'; tab; nextPutLine:(self class projectFileFormatVersion printString).
bc474f9c0180 checkin from browser Claus Gittinger <cg@exept.de> parents: 4900 diff changeset	1485
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1486	s nextPutAll:'
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1487	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1488	; general:
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1489	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1490	'.
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1491
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1492	s nextPutAll:'comment'.
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1493	s tab. s nextPutLine:(self comment storeString).
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1494
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1495	s nextPutAll:'name'.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1496	s tab. s nextPutLine:(name storeString).
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1497
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1498	s nextPutAll:'type'.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1499	s tab. s nextPutLine:(self type storeString).
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1500
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1501	s nextPutAll:'package'.
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1502	s tab. s nextPutLine:(packageId storeString).
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1503
4726 5c5e1c7f8933 checkin from browser Claus Gittinger <cg@exept.de> parents: 4721 diff changeset	1504	defNS := self defaultNameSpace.
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1505	(defNS notNil and:[defNS ~~ Smalltalk]) ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1506	s nextPutAll:'nameSpace'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1507	s tab. s nextPutLine:(defNS name storeString).
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1508	] ifFalse:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1509	defNS := nil.
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1510	].
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1511
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1512	"/ skip if same as what the packageID implies;
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1513	"/ this will be enforced in future versions.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1514	repositoryModule isNil ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1515	repositoryModule := moduleFromPackageId.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1516	].
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1517	repositoryDirectory isNil ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1518	repositoryDirectory := directoryFromPackageId
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1519	].
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1520
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1521	(repositoryModule ~= moduleFromPackageId
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1522	or:[repositoryDirectory ~= directoryFromPackageId]) ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1523	'Project [warning]: module/directory does not correspond to packageId' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1524	'Project [info]: this will be not supported in future versions' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1525
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1526	s nextPutAll:'
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1527	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1528	; repository:
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1529	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1530	'.
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1531	s nextPutAll:'repository.module'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1532	s tab. s nextPutLine:(repositoryModule ? 'private') storeString.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1533	s nextPutAll:'repository.directory'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1534	s tab. s nextPutLine:(repositoryDirectory ? packageId) storeString.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1535	s cr.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1536	].
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1537
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1538	(t := properties at:#'sourcesDirectory' ifAbsent:nil) notNil ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1539	s nextPutAll:'sources'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1540	s tab. s nextPutLine:(t storeString).
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1541	].
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1542
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1543	first := true.
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1544	properties keysAndValuesDo:[:key :val \|
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1545	(#(
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1546	comment
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1547	wasLoadedFromFile
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1548	targetconditions
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1549	classes
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1550	classInfo
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1551	methodInfo
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1552	prerequisiteClasses
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1553	files
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1554	sourcesDirectory
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1555	methodsFile
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1556	type
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1557	defaultNameSpace
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1558	) includes:key) ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1559	first ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1560	first := false.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1561	s nextPutAll:'
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1562	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1563	; properties:
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1564	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1565	'.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1566	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1567	s nextPutAll:'property.'; nextPutAll:key.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1568	s tab.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1569	key == #defaultNameSpace ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1570	s nextPutLine:val name storeString.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1571	] ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1572	s nextPutLine:val storeString.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1573	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1574	]
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	1575	].
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1576
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1577	s nextPutAll:'
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1578	;
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1579	; sub-projects:
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1580	;
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1581	'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1582	s nextPutAll:'subProjects'; tab.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1583	coll := self subProjects.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1584	coll size = 0 ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1585	s nextPutLine:'#()'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1586	] ifFalse:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1587	s nextPutLine:'#( \'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1588	coll do:[:aProjectOrProjectNameList \|
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1589	\|pName pPath\|
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1590
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1591	aProjectOrProjectNameList isString ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1592	pName := aProjectOrProjectNameList.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1593	] ifFalse:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1594	aProjectOrProjectNameList isArray ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1595	pName := aProjectOrProjectNameList at:1.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1596	pPath := aProjectOrProjectNameList at:2.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1597	] ifFalse:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1598	pName := aProjectOrProjectNameList name.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1599	pPath := aProjectOrProjectNameList repositoryPath.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1600	]
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1601	].
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1602
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1603	pPath isNil ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1604	s tab. s nextPutAll:(pName storeString); nextPutLine:' \'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1605	] ifFalse:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1606	s tab. s nextPutAll:'( '.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1607	s nextPutAll:(pName storeString); space;
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1608	nextPutAll:(pPath storeString); nextPutLine:') \'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1609	]
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1610	].
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1611	s nextPutLine:')'.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1612	].
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1613
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1614	s nextPutAll:'
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1615	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1616	; required packages:
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1617	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1618	'.
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1619	s nextPutAll:'prerequisites'; tab.
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1620	coll := self prerequisites.
4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1621	coll size = 0 ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1622	s nextPutLine:'#()'.
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1623	] ifFalse:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1624	s nextPutLine:'#( \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1625	coll do:[:aProjectOrProjectNameList \|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1626	\|pName pPath\|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1627
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1628	aProjectOrProjectNameList isString ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1629	pName := aProjectOrProjectNameList.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1630	] ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1631	aProjectOrProjectNameList isArray ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1632	pName := aProjectOrProjectNameList at:1.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1633	pPath := aProjectOrProjectNameList at:2.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1634	] ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1635	pName := aProjectOrProjectNameList name.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1636	pPath := aProjectOrProjectNameList repositoryPath.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1637	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1638	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1639
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1640	pPath isNil ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1641	s tab. s nextPutAll:(pName storeString); nextPutLine:' \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1642	] ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1643	s tab. s nextPutAll:'( '.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1644	s nextPutAll:(pName storeString); space;
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1645	nextPutAll:(pPath storeString); nextPutLine:') \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1646	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1647	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1648	s nextPutLine:')'.
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1649	].
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1650
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1651	s nextPutAll:'
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1652	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1653	; required classes:
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1654	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1655	'.
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1656	s nextPutAll:'prerequisiteClasses'; tab.
f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1657	coll := self prerequisiteClasses.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1658	coll size = 0 ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1659	s nextPutLine:'#()'.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1660	] ifFalse:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1661	s nextPutLine:'#( \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1662	coll do:[:aClassOrSymbol \| \|className\|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1663
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1664	(className := aClassOrSymbol) isSymbol ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1665	className := aClassOrSymbol name
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1666	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1667	s tab. s nextPutAll:(className storeString); nextPutLine:' \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1668	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1669	s nextPutLine:')'.
4099 f6984fc5cb6c checkin from browser Claus Gittinger <cg@exept.de> parents: 4097 diff changeset	1670	].
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1671
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1672	s nextPutAll:'
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1673	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1674	; classes:
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1675	; (for each class, one line of the form: ( #''className'' [condition [fileName]] )
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1676	; (where fileName and condition are optional)
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1677	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1678	'.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1679
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1680	s nextPutAll:'classes'; tab.
4074 4db3db1fe7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 4073 diff changeset	1681
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1682	classes := self classesInOrderFor:'save ''prj''-file.'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1683	classes isNil ifTrue:[^ self].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1684
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1685	classes size = 0 ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1686	s nextPutLine:'#()'.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1687	] ifFalse:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1688	s nextPutLine:'#( \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1689	"/ find the longest className (for layout only)
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1690
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1691	maxLen := classes inject:0 into:[:maxSoFar :aClassOrName \|
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1692	\|clsName\|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1693
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1694	aClassOrName isBehavior ifTrue:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1695	clsName := aClassOrName name.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1696	] ifFalse:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1697	clsName := aClassOrName.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1698	defNS notNil ifTrue:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1699	(clsName startsWith:(defNS name , '::')) ifFalse:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1700	clsName := (defNS name , '::' , clsName)
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1701	]
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1702	].
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1703	clsName := clsName asSymbol.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1704	].
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1705	maxSoFar max:clsName storeString size
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1706	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1707
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1708	classes do:[:aClassOrName \|
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1709	\|clsInfo clsName fileName cond\|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1710
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1711	aClassOrName isBehavior ifTrue:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1712	clsName := aClassOrName name.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1713	] ifFalse:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1714	clsName := aClassOrName.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1715	defNS notNil ifTrue:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1716	(clsName startsWith:(defNS name , '::')) ifFalse:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1717	clsName := (defNS name , '::' , clsName)
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1718	]
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1719	].
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1720	clsName := clsName asSymbol.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1721	].
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1722	clsInfo := self classInfoFor:clsName.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1723	clsInfo isNil ifTrue:[
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1724	clsInfo := self classInfoFor:aClassOrName.
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1725	].
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1726	fileName := clsInfo classFileName.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1727	fileName = (clsName , '.st') ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1728	fileName := nil
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1729	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1730	cond := (clsInfo conditionForInclusion) ? #always.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1731	s tab. s nextPutAll:'( ';
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1732	nextPutAll:(clsName storeString paddedTo:maxLen).
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1733	(cond ~~ #always or:[fileName notNil]) ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1734	s tab; nextPutAll:cond storeString.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1735	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1736	fileName notNil ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1737	s tab; nextPutAll:fileName storeString.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1738	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1739	s nextPutLine:') \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1740	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1741	s nextPutLine:')'.
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1742	].
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1743
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1744	s nextPutAll:'
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1745	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1746	; methods (patches & extensions):
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1747	; (for each method, one line of the form: ( #''className'' #''methodName'' )
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1748	; (for metaclasses, #''name class'' is used)
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1749	; These are stored in the methodsFile (see below)
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1750	'.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1751
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1752	s nextPutAll:'methods'; tab.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1753
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1754	coll := self methodInfo.
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1755	coll size = 0 ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1756	s nextPutLine:'#()'.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1757	] ifFalse:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1758	s nextPutLine:'#( \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1759	"/ find the longest className (for layout only)
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1760
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1761	maxLen := coll inject:0 into:[:maxSoFar :aMethodInfo \|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1762	\|clsName\|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1763
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1764	clsName := aMethodInfo className.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1765	maxSoFar max:clsName storeString size
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1766	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1767
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1768	coll do:[:aMethodInfo \|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1769	\|clsName mthdName fileName cond\|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1770
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1771	clsName := aMethodInfo className.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1772	mthdName := aMethodInfo methodName.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1773	s tab. s nextPutAll:'( ';
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1774	nextPutAll:(clsName storeString paddedTo:maxLen);
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1775	tab; nextPutAll:mthdName storeString.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1776	s nextPutLine:') \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1777	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1778	s nextPutLine:')'.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1779	].
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1780
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1781	methodsFile := properties at:#methodsFile ifAbsent:nil.
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1782	methodsFile size == 0 ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1783	self methodInfo size > 0 ifTrue:[
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1784	'Project [warning]: no methodsFile defined - generating a default' infoPrintCR.
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1785	methodsFile := 'extensions.st'
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1786	]
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1787	].
4792 8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	1788	methodsFile size > 0 ifTrue:[
5232 0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1789	s nextPutAll:'
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1790	;
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1791	; methods above are stored in:
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1792	;
0ee28b0cfa50 * empty log message * Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	1793	'.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1794	s nextPutAll:'methodsFile'; tab; nextPutLine:'''' , methodsFile , ''''.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1795	].
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1796
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1797	s nextPutAll:'
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1798	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1799	; files (for deployment):
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1800	;
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1801	'.
4314 b973832ffe15 checkin from browser Claus Gittinger <cg@exept.de> parents: 4124 diff changeset	1802
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1803	s nextPutAll:'files'; tab.
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1804	coll := properties at:#'files' ifAbsent:#().
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1805	coll size = 0 ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1806	s nextPutLine:'#()'.
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	1807	] ifFalse:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1808	s nextPutLine:'#( \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1809	coll do:[:aFileEntry \|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1810	s tab. s nextPutAll:(aFileEntry storeString); nextPutLine:' \'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1811	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1812	s nextPutLine:')'.
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1813	].
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1814
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1815	"
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1816	Project current saveOn:Transcript
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1817	"
4124 06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1818
06bfbaba171a checkin from browser Claus Gittinger <cg@exept.de> parents: 4119 diff changeset	1819	"Modified: / 26.4.1999 / 23:24:12 / cg"
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1820	! !
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1821
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1822	!Project methodsFor:'maintenance'!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1823
13 62303f84ff5f * empty log message * claus parents: 10 diff changeset	1824	buildProject
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1825	"invoke 'make' in the project directory"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1826
13 62303f84ff5f * empty log message * claus parents: 10 diff changeset	1827	OperatingSystem executeCommand:('cd ' , self directory , ' ; make')
62303f84ff5f * empty log message * claus parents: 10 diff changeset	1828	!
62303f84ff5f * empty log message * claus parents: 10 diff changeset	1829
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1830	buildProjectWithOutputTo:aStream
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1831	"invoke 'make' in the project directory"
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1832
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1833	\|p cmdOutStream cmdInStream readerProcess\|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1834
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1835	aStream notNil ifTrue:[
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1836	"/ need an external stream for that.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1837	aStream isExternalStream ifTrue:[
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1838	cmdOutStream := aStream
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1839	] ifFalse:[
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1840	p := ExternalStream makePipe.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1841	cmdOutStream := p at:2.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1842	"/ start a reader process
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1843	readerProcess := [
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1844	\|data\|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1845
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1846	cmdInStream := p at:1.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1847	[cmdInStream atEnd] whileFalse:[
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1848	data := cmdInStream nextAvailable:512.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1849	aStream nextPutAll:data.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1850	]
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1851	] newProcess.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1852	readerProcess name:'cmd output reader'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1853	readerProcess resume.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1854	]
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1855	].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1856
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1857	OperatingSystem
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1858	executeCommand:('cd ' , self directory , ' ; make')
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1859	inputFrom:nil
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1860	outputTo:cmdOutStream
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1861	errorTo:cmdOutStream
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1862	inDirectory:nil
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1863	onError:[:status\| false].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1864
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1865	readerProcess terminate.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1866	cmdInStream close.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1867	cmdOutStream close.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1868	!
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1869
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1870	classesInOrderFor:whatMsg
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1871	\|classesOrNames classes numBad firstBad msg\|
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1872
feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1873	classesOrNames := self classes.
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1874	numBad := 0.
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1875	firstBad := nil.
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1876
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1877	classes := classesOrNames collect:[:clsOrSymbol \| \|cls\|
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1878	clsOrSymbol isBehavior ifFalse:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1879	cls := Smalltalk at:clsOrSymbol asSymbol.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1880	cls isNil ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1881	numBad := numBad + 1.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1882	firstBad := firstBad ? clsOrSymbol.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1883	] ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1884	cls isLoaded ifFalse:[
5671 25efda9c2677 checkin from browser Claus Gittinger <cg@exept.de> parents: 5670 diff changeset	1885	cls := cls autoload.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1886	cls isLoaded ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1887	cls := nil
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1888	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1889	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1890	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1891	cls.
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1892	] ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1893	clsOrSymbol
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1894	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1895	].
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1896	numBad ~~ 0 ifTrue:[
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1897	msg := 'Cannot determine load/compile order when about to ' , whatMsg.
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	1898	msg := msg , '\Reason: Class ''' , firstBad allBold
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1899	, ''' is not loaded.'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1900	numBad ~~ 1 ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1901	msg := msg , '\(' , (numBad-1) printString , ' more unloaded classes were found)'
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1902	].
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1903	msg := msg , '\\You will have to manually load the classes or edit the project file.'.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1904	self warn:msg withCRs.
5199 feb18acac2b2 project class handling Claus Gittinger <cg@exept.de> parents: 5196 diff changeset	1905	^ classesOrNames.
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1906	].
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1907
4785 4ced52c817e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1908	"/ to not list private classes
4ced52c817e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1909	classes := classes select:[:cls \| cls owningClass isNil].
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1910	classes := classes copy topologicalSort:[:a :b \| b isSubclassOf:a].
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1911
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1912	^ classes
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1913	!
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1914
5314 8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1915	createAbbrevFile
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1916	"creates a 'abbrev.stc' file, for autoloading classes."
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1917
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1918	\|d f out in topName classes classInfo myPackage
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1919	methodsFile prerequisitePackages transcript notEmpty\|
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1920
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1921	classes := self classesInOrderFor:'generate ''abbrev.stc''-file.'.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1922	classes isNil ifTrue:[^ self].
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1923
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1924	notEmpty := (classes size > 0).
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1925
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1926	transcript := Transcript current.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1927	transcript showCR:'creating abbrev.stc file'.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1928
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1929	d := directoryName asFilename.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1930	f := d construct:'abbrev.stc'.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1931
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1932	out := f writeStream.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1933	out isNil ifTrue:[
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1934	self warn:'cannot create abbrev.stc'.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1935	^ self
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1936	].
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1937
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1938	myPackage := self package.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1939
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1940	notEmpty ifTrue:[
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1941	classes do:[:cls \|
5338 7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1942	\|clsInfo cond fileName clsName clsCategory\|
5314 8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1943
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1944	clsInfo := self classInfoFor:cls.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1945	cond := clsInfo conditionForInclusion.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1946	(cond == #always or:[cond == #autoload]) ifTrue:[
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1947	fileName := clsInfo classFileName.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1948	fileName isNil ifTrue:[
5338 7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1949	cls isBehavior ifTrue:[
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1950	fileName := cls nameWithoutNameSpacePrefix
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1951	] ifFalse:[
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1952	fileName := cls
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1953	]
5314 8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1954	].
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1955	(fileName endsWith:'.st') ifTrue:[
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1956	fileName := fileName copyWithoutLast:3
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1957	].
5338 7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1958	cls isBehavior ifTrue:[
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1959	clsName := cls name.
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1960	clsCategory := cls category.
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1961	] ifFalse:[
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1962	clsName := cls.
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1963	clsCategory := 'unknown category'.
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1964	].
7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1965	out nextPutAll:clsName.
5314 8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1966	out space.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1967	out nextPutAll:fileName.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1968	out space.
5338 7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1969	out nextPutAll:self package.
5314 8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1970	out space.
5338 7316969f2faf * empty log message * Claus Gittinger <cg@exept.de> parents: 5337 diff changeset	1971	out nextPut:$'; nextPutAll:clsCategory; nextPut:$'.
5314 8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1972	out cr.
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1973	]
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1974	].
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1975	].
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1976	out close
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1977	!
8a4b8d5726a5 create abbrev file added Claus Gittinger <cg@exept.de> parents: 5293 diff changeset	1978
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1979	createLoadAllFile
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1980	"creates a 'loadAll' file, which will load all classes
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1981	of the project - this loadAll file is supposed to be located
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1982	in the projects source directory."
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1983
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	1984	\|d f out in classes transcript \|
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1985
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1986	classes := self classesInOrderFor:'generate ''loadAll''-file.'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1987	classes isNil ifTrue:[^ self].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1988
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1989	transcript := Transcript current.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	1990	transcript showCR:'creating loadAll file'.
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1991
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1992	d := directoryName asFilename.
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1993	f := d construct:'loadAll'.
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1994	f exists ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1995	f renameTo:(d construct:'loadAll.bak')
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1996	].
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1997	out := f writeStream.
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	1998	out isNil ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	1999	self warn:'cannot create loadAll'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2000	(d construct:'loadAll.bak') renameTo:f.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2001	^ self
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2002	].
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2003	self createLoadAllFileOn:out.
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2004	out close
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2005	!
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2006
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2007	createLoadAllFileOn:outStream
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2008	"creates a 'loadAll' file, which will load all classes
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2009	of the project - this loadAll file is supposed to be located
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2010	in the projects source directory."
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2011
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2012	\|in classes classInfo myPackage
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2013	methodsFile prerequisitePackages transcript notEmpty\|
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2014
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2015	classes := self classesInOrderFor:'generate ''loadAll''-file.'.
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2016	classes isNil ifTrue:[^ self].
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2017
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2018	methodsFile := self propertyAt:#methodsFile.
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2019	notEmpty := (classes size > 0 or:[methodsFile size > 0]).
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2020
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	2021	myPackage := self package.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	2022
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2023	outStream nextPutLine:'"/
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2024	"/ $' , 'Header' , '$'.
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2025	outStream nextPutLine:'"/
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	2026	"/ loadAll-file to fileIn code for: ' , myPackage.
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2027
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2028	outStream nextPutAll:'"/
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2029	"/ Automatically generated from project definition.
4786 2375c3d2bffc checkin from browser Claus Gittinger <cg@exept.de> parents: 4785 diff changeset	2030	"/ DO NOT MODIFY THIS fILE;
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	2031	"/ modify the .prj file instead, and regenerate this file
4786 2375c3d2bffc checkin from browser Claus Gittinger <cg@exept.de> parents: 4785 diff changeset	2032	"/ with the ProjectBrowser tool.
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2033	"/
9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2034
9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2035	"/
9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2036	"/ Prerequisites:
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2037	"/'.
4796 eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2038	prerequisitePackages := self prerequisitePackages
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2039	collect:[:entry \|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2040	\|pName\|
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2041
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2042	entry isString ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2043	pName := entry
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2044	] ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2045	entry isArray ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2046	pName := entry at:1
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2047	] ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2048	pName := entry name
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2049	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2050	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2051	].
4796 eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2052
eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2053	prerequisitePackages size == 0 ifTrue:[
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2054	outStream nextPutLine:''.
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2055	outStream nextPutLine:'"/ Smalltalk loadPackage:''module:directory''.'.
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2056	outStream nextPutLine:'"/ Smalltalk loadPackage:''....''.'.
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2057	] ifFalse:[
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2058	outStream cr.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2059	prerequisitePackages do:[:packName \|
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2060	outStream nextPutLine:'Smalltalk loadPackage:''' , packName , '''.'.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2061	]
4796 eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2062	].
eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2063
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2064	methodsFile := self propertyAt:#methodsFile.
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2065	notEmpty ifTrue:[
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2066
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2067	outStream nextPutAll:'!!
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2068
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	2069	"{ package:''' , myPackage , ''' }"!!
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2070
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2071	\|files\|
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2072
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	2073	''loading package ' , myPackage , ' ...'' infoPrintCR.
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2074
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2075	files := #(
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2076	'.
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2077
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2078	classes do:[:cls \|
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2079	\|clsInfo cond fileName\|
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2080
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2081	clsInfo := self classInfoFor:cls.
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2082	cond := clsInfo conditionForInclusion.
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2083	(cond == #always or:[cond == #autoload]) ifTrue:[
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2084	outStream nextPutAll:' '''.
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2085	fileName := clsInfo classFileName.
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2086	fileName isNil ifTrue:[
5337 c25a74972343 checkin from browser Claus Gittinger <cg@exept.de> parents: 5328 diff changeset	2087	cls isBehavior ifFalse:[
c25a74972343 checkin from browser Claus Gittinger <cg@exept.de> parents: 5328 diff changeset	2088	fileName := cls
c25a74972343 checkin from browser Claus Gittinger <cg@exept.de> parents: 5328 diff changeset	2089	] ifTrue:[
c25a74972343 checkin from browser Claus Gittinger <cg@exept.de> parents: 5328 diff changeset	2090	fileName := cls nameWithoutNameSpacePrefix
c25a74972343 checkin from browser Claus Gittinger <cg@exept.de> parents: 5328 diff changeset	2091	]
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2092	].
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2093	(fileName endsWith:'.st') ifFalse:[
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2094	fileName := fileName , '.st'
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2095	].
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2096	fileName printOn:outStream.
5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2097	outStream nextPutAll:''''; cr.
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2098	]
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2099	].
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2100	methodsFile size > 0 ifTrue:[
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2101	outStream
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2102	nextPutAll:' ''';
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2103	nextPutAll:methodsFile;
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2104	nextPutAll:'''';
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2105	cr.
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2106	].
e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2107
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2108	outStream nextPutAll:') asOrderedCollection.
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2109
4960 a047d70c18f6 * empty log message * Stefan Vogel <sv@exept.de> parents: 4912 diff changeset	2110	"/ see if there is a classLibrary
5173 935228a12bfc checkin from browser Claus Gittinger <cg@exept.de> parents: 5167 diff changeset	2111	(Smalltalk fileInClassLibrary:''' , self libraryName , ''') ifTrue:[
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2112	\|handle loaded\|
9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2113
4785 4ced52c817e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	2114	handle := ObjectFileLoader loadedObjectHandles
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	2115	detect:[:h \| h package = ''' , myPackage , '''] ifNone:nil.
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2116	handle ifNotNil:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2117	loaded := Set new:(handle classes size).
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2118	handle classes do:[:c\| c isMeta ifFalse:[loaded add:c classFilename]].
4785 4ced52c817e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	2119	'.
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2120
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2121	methodsFile size > 0 ifTrue:[
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2122	outStream nextPutLine:(' loaded add:''' , methodsFile , '''.').
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2123	].
5670 5e1a1a8ab2a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5655 diff changeset	2124	outStream nextPutAll:' files := files asOrderedCollection select:[:f\| (loaded includes:f) not].
4776 9e7ef3a357a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4773 diff changeset	2125	].
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2126	].
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2127
4960 a047d70c18f6 * empty log message * Stefan Vogel <sv@exept.de> parents: 4912 diff changeset	2128	"/ load files which are not in the classLibrary (all if there is none)
a047d70c18f6 * empty log message * Stefan Vogel <sv@exept.de> parents: 4912 diff changeset	2129	files size > 0 ifTrue:[
5165 212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	2130	files do:[:f \|
4785 4ced52c817e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	2131	''.'' infoPrint.
5165 212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	2132	f asFilename exists ifTrue:[
212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	2133	Smalltalk fileIn:f.
212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	2134	] ifFalse:[
212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	2135	Smalltalk fileIn:(''source/'' , f)
212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	2136	]
4960 a047d70c18f6 * empty log message * Stefan Vogel <sv@exept.de> parents: 4912 diff changeset	2137	].
a047d70c18f6 * empty log message * Stefan Vogel <sv@exept.de> parents: 4912 diff changeset	2138	'' '' infoPrintCR.
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2139	].
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	2140	'' done (' , myPackage , ').'' infoPrintCR.
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	2141	'.
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2142
5167 e9fdd899b44e * empty log message * Claus Gittinger <cg@exept.de> parents: 5166 diff changeset	2143	].
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2144	!
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2145
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2146	createMacMakefile
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2147	"creates an mac-os makefile"
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2148
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2149	Transcript current showCR:'Mac support not yet implemented - no mac.mak created for Mac'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2150	!
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2151
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2152	createMakefile
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2153	"creates an initial Makefile from a Make.proto file.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2154	Requires the stmkmf script"
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2155
5166 acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2156	\|d top transcript stmkmf\|
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2157
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	2158	OperatingSystem isUNIXlike ifTrue:[
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2159	Transcript current showCR:'creating Makefile'.
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	2160
c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	2161	d := directoryName asFilename pathName.
5166 acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2162	top := (d , '/' , (self findTopFrom:directoryName)) asFilename.
acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2163
acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2164	(top construct:'rules') exists ifFalse:[
acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2165	self warn:'Could not execute stmkmf - no TOP/rules directory found.'
acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2166	].
acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2167	(stmkmf := ((top construct:'rules') construct:'stmkmf')) exists ifFalse:[
acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2168	self warn:'Could not execute stmkmf - no TOP/rules/stmkmf found.'
acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2169	].
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	2170
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2171	transcript := Transcript current.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2172
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	2173	(OperatingSystem
5166 acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2174	executeCommand:('sh ' , stmkmf pathName)
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2175	outputTo:transcript
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2176	errorTo:transcript
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2177	inDirectory:d
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2178	) ifFalse:[
5166 acea9e627935 checkin from browser Claus Gittinger <cg@exept.de> parents: 5165 diff changeset	2179	self warn:'Error executing stmkmf - no Makefile built.'
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	2180	].
13 62303f84ff5f * empty log message * claus parents: 10 diff changeset	2181	].
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2182	self createNTMakefile.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2183	self createVMSMakefile.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2184	self createMacMakefile.
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2185
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	2186	"Modified: / 26.9.1999 / 16:18:29 / cg"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2187	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2188
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2189	createNTMakefile
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2190	"creates an nt.mak makefile"
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2191
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2192	\|d f s type appName libName startUpClass startUpSelector
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2193	topName classes methodsFile transcript\|
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2194
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2195	classes := self classesInOrderFor:'generate ''nt.mak''-file.'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2196	classes isNil ifTrue:[^ self].
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2197
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2198	topName := self findTopFrom:directoryName.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2199
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2200	transcript := Transcript current.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2201	transcript showCR:'Generating make support for Win9x/WinNT...'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2202	transcript showCR:'creating bmake.bat'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2203
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2204	d := directoryName asFilename.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2205	f := d construct:'bmake.bat'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2206	s := f writeStream.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2207	s isNil ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2208	self warn:'cannot create bmake.bat'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2209	^ self
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2210	].
4824 1dad345e6e14 * empty log message * Claus Gittinger <cg@exept.de> parents: 4823 diff changeset	2211	s nextPutLine:'if not exist object\nul mkdir objbc'.
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2212	s nextPutLine:'make.exe -N -f nt.mak %1 %'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2213	s close.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2214
4823 7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2215
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2216	transcript showCR:'creating bc.def'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2217
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2218	d := directoryName asFilename.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2219	f := d construct:'bc.def'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2220	s := f writeStream.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2221	s isNil ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2222	self warn:'cannot create bc.def'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2223	^ self
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2224	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2225	s nextPutLine:'LIBRARY ' , self libraryName.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2226	s nextPutLine:'DESCRIPTION ''AddOn library for ST/X''
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2227	CODE PRELOAD MOVEABLE DISCARDABLE
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2228	SEGMENTS
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2229	INITCODE PRELOAD SHARED DISCARDABLE
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2230	EXPORTS
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2231	__' , self libraryName , '_Init @1'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2232	s close.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2233
4823 7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2234
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2235	transcript showCR:'creating nt.def'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2236
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2237	d := directoryName asFilename.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2238	f := d construct:'nt.def'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2239	s := f writeStream.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2240	s isNil ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2241	self warn:'cannot create nt.def'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2242	^ self
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2243	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2244	s nextPutLine:'LIBRARY ' , self libraryName.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2245	s nextPutLine:'DESCRIPTION ''AddOn library for ST/X''
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2246	CODE EXECUTE READ SHARED
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2247	DATA READ WRITE
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2248	SECTIONS
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2249	INITCODE READ EXECUTE SHARED
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2250	INITDATA READ WRITE
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2251	EXPORTS
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2252	_' , self libraryName , '_Init'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2253	s close.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2254
4823 7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2255
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2256	transcript showCR:'creating libInit.cc'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2257
4823 7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2258	d := directoryName asFilename.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2259	f := d construct:'libInit.cc'.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2260	s := f writeStream.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2261	s isNil ifTrue:[
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2262	self warn:'cannot create libInit.cc'.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2263	^ self
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2264	].
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2265	s nextPutAll:'/*
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2266	* DO NOT EDIT
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2267	* automatically generated from project.prj
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2268	*/
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2269	#define __INDIRECTVMINITCALLS__
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2270	#include <stc.h>
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2271	#define INIT_TEXT_SECT /* as nothing */
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2272	#ifdef WIN32
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2273	# pragma codeseg INITCODE "INITCODE"
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2274	#else /* not WIN32 */
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2275	# if defined(__GNUC__)
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2276	# if (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) \|\| __GNUC__ > 2
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2277	# undef INIT_TEXT_SECT
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2278	# define INIT_TEXT_SECT __attribute__((section(".stxitext")))
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2279	# endif
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2280	# endif /* not GNUC */
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2281	#endif /* not WIN32 */
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2282	#ifdef INIT_TEXT_SECT
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2283	extern void _' , self libraryName , '_Init() INIT_TEXT_SECT;
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2284	#endif
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2285	void _' , self libraryName , '_Init(pass, __pRT__, snd)
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2286	OBJ snd; struct __vmData__ *__pRT__; {
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2287	__BEGIN_PACKAGE2__("' , self libraryName , '", _' , self libraryName , '_Init, "' , self package , '");
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2288	'.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2289	classes notNil ifTrue:[
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2290	classes do:[:aClass \|
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2291	\|abbrev\|
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2292
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2293	abbrev := Smalltalk fileNameForClass:aClass name.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2294	s nextPutAll:'_'; nextPutAll:abbrev; nextPutLine:'_Init(pass,__pRT__,snd);'.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2295	].
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2296	].
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2297	s nextPutAll:'__END_PACKAGE__();
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2298	}
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2299	'.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2300	s close.
7308f4a53be6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4822 diff changeset	2301
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2302	transcript showCR:'creating nt.mak'.
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2303
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2304	d := directoryName asFilename.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2305	f := d construct:'nt.mak'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2306	f exists ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2307	f renameTo:(d construct:'nt.mak.bak')
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2308	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2309	s := f writeStream.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2310	s isNil ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2311	self warn:'cannot create nt.mak'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2312	^ self
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2313	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2314	s nextPutAll:'# $' , 'Header'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2315	s nextPutLine:'$'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2316	s nextPutAll:'#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2317	# -- nt.mak created from project at ' .
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2318	s nextPutAll:Smalltalk timeStamp.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2319	s nextPutAll:'
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2320	#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2321	# Warning: YOU SHOULD NOT MODIFY THIS FILE - MODIFY THE .prj FILE INSTEAD
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2322	# and let the ProjectBrowser recreate this file.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2323	# once you modify this file, do not recreate nt.mak again
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2324	# - otherwise, your changes are lost.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2325
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2326	# module and directory-in-module;
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2327	# these should correspond to the directory hierarchy
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2328	# location (otherwise, ST/X will have a hard time to
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2329	# find out the packages location from its packageID)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2330	MODULE=' , self repositoryModule ? 'unknown' , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2331	MODULE_DIR=' , self repositoryDirectory ? 'unknown' , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2332
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2333	# default installation directory:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2334	# (overwrite with ''make INSTALLTOP_DIR=... install'')
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2335	# the INSTALLBASE is imported from configurations... and usually
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2336	# defaults to something like /opt/smalltalk.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2337	# (overwrite with ''make INSTALLBASE=... install'')
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2338	INSTALLTOP_DIR=$(INSTALLBASE)/packages/$(MODULE)/$(MODULE_DIR)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2339	INSTALLLIB_DIR=$(INSTALLTOP_DIR)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2340	INSTALLBIN_DIR=$(INSTALLTOP_DIR)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2341
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2342	#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2343	# position (of this package) in directory hierarchy:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2344	# (must point to ST/X top directory, for tools and includes)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2345	TOP=' , topName ,'
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2346
5126 3395d5b1c464 checkin from browser Claus Gittinger <cg@exept.de> parents: 5125 diff changeset	2347	!!INCLUDE "$(TOP)\rules\stdHeader_nt"
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2348
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2349	# subdirectories where targets are to be made:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2350	SUBDIRS=
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2351
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2352	# subdirectories where Makefiles are to be made:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2353	# (only define if different from SUBDIRS)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2354	# ALLSUBDIRS=
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2355
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2356
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2357	# the name of your classLibrary:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2358	# ******** REQUIRED: CHECK the next line *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2359	LIBNAME=' , self libraryName , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2360
5196 395147c4e481 nt makefiles. Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	2361	#### LIB_BASE =0x05000000
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2362
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2363	# the next define suppresses installation of
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2364	# the classes as autoloaded (i.e. not added to abbrev.stc).
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2365	SUPPRESS_LOCAL_ABBREVS=1
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2366
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2367	# the package is stored as an ID in classes and methods
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2368	# to identify code belonging to this project.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2369	# It also specifies the position in the source repository
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2370	# and directory tree, when packages are loaded by packageID.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2371	# ******** REQUIRED: CHECK the next line *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2372	PACKAGE=$(MODULE):$(MODULE_DIR)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2373
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2374	# Argument(s) to the stc compiler.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2375	# -H. : create header files locally
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2376	# (if removed, they will be created as common
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2377	# -Pxxx : defines the package
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2378	# -Zxxx : a prefix for variables within the classLib
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2379	# -Dxxx : defines passed to to CC for inline C-code
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2380	# -Ixxx : include path passed to CC for inline C-code
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2381	# +optspace : optimized for space
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2382	# +optspace2 : optimized more for space
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2383	# +optspace3 : optimized even more for space
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2384	# +optinline : generate inline code for some ST constructs
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2385	# +inlineNew : additionally inline new
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2386	# +inlineMath : additionally inline some floatPnt math stuff
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2387	#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2388	# ******** OPTIONAL: MODIFY the next line(s) *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2389	# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2390	# STCLOCALOPTIMIZATIONS=+optspace3
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2391	STCLOCALOPTIMIZATIONS=+optspace3
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2392
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2393	# Argument(s) to the stc compiler.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2394	# -warn : no warnings
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2395	# -warnNonStandard : no warnings about ST/X extensions
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2396	# -warnEOLComments : no warnings about EOL comment extension
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2397	# -warnPrivacy : no warnings about privateClass extension
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2398	#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2399	# ******** OPTIONAL: MODIFY the next line(s) *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2400	# STCWARNINGS=-warn
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2401	# STCWARNINGS=-warnNonStandard
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2402	# STCWARNINGS=-warnEOLComments
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2403	STCWARNINGS='.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2404	(self propertyAt:#'make.stc.warnEOLComments') == false ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2405	s nextPutAll:'-warnEOLComments '.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2406	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2407	(self propertyAt:#'make.stc.warnNonStandard') == false ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2408	s nextPutAll:'-warnNonStandard '.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2409	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2410	s nextPutAll:((self propertyAt:#'make.stc.WARNINGOPTIONS') ? '') , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2411
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2412	# if your embedded C code requires any system includes,
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2413	# add the path(es) here:,
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2414	# ******** OPTIONAL: MODIFY the next lines *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2415	# LOCALINCLUDES=-Ifoo -Ibar
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2416	LOCALINCLUDES=' , ((self propertyAt:#'make.stc.LOCALINCLUDES') ? '') , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2417
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2418	# if you need any additional defines for embedded C code,
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2419	# add them here:,
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2420	# ******** OPTIONAL: MODIFY the next lines *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2421	# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2422	LOCALDEFINES=' , ((self propertyAt:#'make.stc.LOCALDEFINES') ? '') , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2423
5125 85f6bbbee584 checkin from browser Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2424	STCLOCALOPT=-I. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALINCLUDES) $(LOCALDEFINES) -H. -package=$(PACKAGE) -varPrefix=$(LIBNAME) $(COMMONSYMFLAG) $(INITCODESEPFLAG)
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2425
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2426	# ******** OPTIONAL: MODIFY the next line *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2427	# additional C-libraries that should be pre-linked with the class-objects
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2428	LD_OBJ_LIBS=' , ((self propertyAt:#'make.LD_OBJ_LIBS') ? '') , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2429
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2430	# ******** OPTIONAL: MODIFY the next line *
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2431	# additional C targets or libraries should be added below
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2432	LOCAL_EXTRA_TARGETS=' , ((self propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? '') , '
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2433
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2434	#ALL:: preMake $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll postMake
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2435	ALL:: $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2436
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2437
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2438	'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2439
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2440	"/ type := #library.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2441	"/ appName := 'app'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2442	"/ libName := 'lib'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2443	"/ startUpClass := 'Smalltalk'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2444	"/ startUpSelector := 'start'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2445	"/
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2446	"/ properties notNil ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2447	"/ type := properties at:#projectType ifAbsent:type.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2448	"/ appName := properties at:#applicationName ifAbsent:appName.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2449	"/ startUpClass := properties at:#startupClass ifAbsent:startUpClass.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2450	"/ startUpSelector := properties at:#startupSelector ifAbsent:startUpSelector.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2451	"/ ].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2452	"/
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2453	"/ s nextPutAll:'#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2454	"/# define the name of the library to create
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2455	"/#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2456	"/'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2457	"/ s nextPutAll:'LIBNAME=lib' , appName; cr; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2458	"/
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2459	"/ s nextPutAll:'#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2460	"/# the target rule:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2461	"/#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2462	"/all:: abbrev.stc objs genClassList $(OBJTARGET)
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2463	"/
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2464	"/'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2465	"/
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2466	"/ type == #executable ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2467	"/ s nextPutAll:'PROGS = ' , appName; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2468	"/ s nextPutAll:('STARTUP_CLASS=' , startUpClass); cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2469	"/ s nextPutAll:'STARTUP_SELECTOR="' , startUpSelector; nextPutAll:'"'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2470	"/ ].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2471	"/
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2472	"/ s nextPutAll:'#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2473	"/# define the object files that are to be created
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2474	"/#
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2475	"/'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2476	s nextPutAll:'OBJS='.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2477
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2478	classes do:[:aClass \|
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2479	\|fileName clsInfo cond include\|
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2480
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2481	clsInfo := self classInfoFor:aClass.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2482	include := true.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2483	clsInfo notNil ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2484	cond := clsInfo conditionForInclusion.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2485	(self conditionForInclusionIsTrue:cond) ifFalse:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2486	include := false.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2487	] ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2488	(self conditionForAutoloadIsTrue:cond) ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2489	include := false
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2490	]
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2491	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2492	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2493	include ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2494	s nextPutAll:' \'. s cr.
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2495	fileName := clsInfo classFileName.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2496	fileName isNil ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2497	fileName := Smalltalk fileNameForClass:aClass name.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2498	].
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2499	fileName := fileName asFilename withoutSuffix name.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2500	s nextPutAll:' $(OUTDIR)'; nextPutAll:fileName; nextPutAll:'.$(O)'.
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2501	]
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2502	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2503	(methodsFile := self propertyAt:#methodsFile) size > 0 ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2504	s nextPutAll:' \'. s cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2505	s nextPutAll:' $(OUTDIR)';
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2506	nextPutAll:(methodsFile asFilename withoutSuffix baseName);
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2507	nextPutAll:'.$(O)'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2508	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2509	s cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2510
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2511	s nextPutAll:'
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2512	# add more install actions here
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2513	install:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2514
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2515	# add more install actions for aux-files (resources) here
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2516	installAux:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2517
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2518	# add more preMake actions here
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2519	preMake:
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2520
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2521	# add more postMake actions here
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2522	postMake: cleanjunk
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2523
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2524	#clean::
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2525	#' , Character tab , '-del $(OUTDIR)*.obj
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2526	#' , Character tab , '-del *.sc
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2527
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2528	#clobber::
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2529	#' , Character tab , '-del $(OUTDIR)*.obj
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2530	#' , Character tab , '-del *.sc
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2531	#' , Character tab , '-del *.dll
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2532	#' , Character tab , '-del *.lib
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2533
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2534
5126 3395d5b1c464 checkin from browser Claus Gittinger <cg@exept.de> parents: 5125 diff changeset	2535	!!INCLUDE $(TOP)\rules\stdRules_nt
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2536
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2537	# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2538	'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2539	classes notNil ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2540	classes do:[:aClass \|
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2541	\|fileName clsInfo\|
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2542
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2543	clsInfo := self classInfoFor:aClass.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2544	fileName := clsInfo classFileName.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2545	fileName isNil ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2546	fileName := Smalltalk fileNameForClass:aClass name.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2547	].
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2548	fileName := fileName asFilename withoutSuffix name.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2549	s nextPutAll:'$(OUTDIR)'; nextPutAll:fileName; nextPutAll:'.$(O): '.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2550	s nextPutAll:fileName; nextPutAll:'.st '.
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2551	"/ aClass allSuperclassesDo:[:superClass\|
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2552	"/ s nextPutAll:(Smalltalk fileNameForClass:superClass name) , '.$(H) '.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2553	"/ ].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2554	s nextPutAll:'$(STCHDR)'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2555	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2556	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2557	s nextPutAll:'# ENDMAKEDEPEND --- do not remove this line'.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2558	s cr; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2559
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2560	type == #executable ifTrue:[
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2561	s nextPutAll:'ALL:: $(PROGS)'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2562
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2563	s nextPutAll:appName.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2564	s nextPutAll:':: main.$(O) classList.$(O) $(OBJS)'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2565	s tab; nextPutAll:'$(LD) $(ST_LDFLAG) $(LDFLAGS) -o ';
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2566	nextPutAll:appName;
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2567	nextPutAll:' \'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2568	s tab; tab; nextPutAll:'$(CRT0) main.$(O) classList.$(O) $(OBJS) $(EXTRA_OBJ) $(LIBOBJS) \'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2569	s tab; tab; nextPutAll:'$(LIBRUNDIR)/hidata.o $(LIBRUN) \'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2570	s tab; tab; nextPutAll:'$(MATHLIB) $(EXTRALIBS) -lXext $(SYSLIBS) $(OTHERLIBS) $(CRTN)'; cr.
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2571	].
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2572
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2573	s close
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2574
5196 395147c4e481 nt makefiles. Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	2575	"Modified: / 19.1.2000 / 16:55:34 / cg"
4822 5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2576	!
5f37058e56c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4821 diff changeset	2577
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2578	createProjectFiles
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2579	"actually, creates all files to do a make in the project directory"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2580
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2581	directoryName asFilename exists ifFalse:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2582	(self confirm:'create new projectDirectory: ' , directoryName)
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2583	ifFalse:[^ self].
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2584	OperatingSystem recursiveCreateDirectory:directoryName.
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2585	].
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2586	self createMakefile.
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2587	self createSourcefiles.
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2588	self createProtoMakefile.
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2589	(self propertyAt:#deliverLoadAllFile) == true ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2590	self createLoadAllFile
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	2591	].
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2592	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2593
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2594	createProtoMakefile
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2595	"creates a Make.proto file"
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2596
362 4131e87e79ec . claus parents: 356 diff changeset	2597	\|d f s type appName libName startUpClass startUpSelector
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2598	topName classes methodsFile notEmpty repositoryModule repositoryDirectory pkg\|
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2599
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2600	classes := self classesInOrderFor:'generate ''Make.proto''-file.'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2601	classes isNil ifTrue:[^ self].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2602
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2603	methodsFile := self propertyAt:#methodsFile.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2604	notEmpty := (classes size > 0 or:[methodsFile size > 0]).
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2605
362 4131e87e79ec . claus parents: 356 diff changeset	2606	topName := self findTopFrom:directoryName.
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2607
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2608	repositoryModule := self repositoryModule ? 'unknown'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2609	repositoryDirectory := self repositoryDirectory ? 'unknown'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2610	pkg := repositoryModule , ':' , repositoryDirectory.
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2611
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2612	Transcript current showCR:'creating Make.proto'.
13 62303f84ff5f * empty log message * claus parents: 10 diff changeset	2613
356 6c5ce0e1e7a8 . claus parents: 338 diff changeset	2614	d := directoryName asFilename.
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2615	f := d construct:'Make.proto'.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2616	f exists ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2617	f renameTo:(d construct:'Make.proto.bak')
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2618	].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2619	s := f writeStream.
13 62303f84ff5f * empty log message * claus parents: 10 diff changeset	2620	s isNil ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2621	self warn:'cannot create prototype Makefile'.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2622	^ self
13 62303f84ff5f * empty log message * claus parents: 10 diff changeset	2623	].
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2624	s nextPutAll:'# $' , 'Header'.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2625	s nextPutLine:'$'.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2626	s nextPutAll:'#
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2627	# -- Make.proto created from project at ' .
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2628	s nextPutAll:Smalltalk timeStamp.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	2629	s nextPutAll:'
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2630	#
4786 2375c3d2bffc checkin from browser Claus Gittinger <cg@exept.de> parents: 4785 diff changeset	2631	# Warning: YOU SHOULD NOT MODIFY THIS FILE - MODIFY THE .prj FILE INSTEAD
2375c3d2bffc checkin from browser Claus Gittinger <cg@exept.de> parents: 4785 diff changeset	2632	# and let the ProjectBrowser recreate this file.
2375c3d2bffc checkin from browser Claus Gittinger <cg@exept.de> parents: 4785 diff changeset	2633	# once you modify this file, do not rerun
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2634	# stmkmp or recreate the Make.proto again - otherwise, your changes are lost.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2635
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2636	# module and directory-in-module;
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2637	# these should correspond to the directory hierarchy
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2638	# location (otherwise, ST/X will have a hard time to
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2639	# find out the packages location from its packageID)
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2640	MODULE=' , repositoryModule , '
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2641	MODULE_DIR=' , repositoryDirectory , '
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2642	'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2643	s nextPutAll:'
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2644	# default installation directory:
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2645	# (overwrite with ''make INSTALLTOP_DIR=... install'')
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2646	# the INSTALLBASE is imported from configurations... and usually
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2647	# defaults to something like /opt/smalltalk.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2648	# (overwrite with ''make INSTALLBASE=... install'')
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2649	INSTALLTOP_DIR=$(INSTALLBASE)/packages/$(MODULE)/$(MODULE_DIR)
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2650	INSTALLLIB_DIR=$(INSTALLTOP_DIR)
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2651	INSTALLBIN_DIR=$(INSTALLTOP_DIR)
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2652	'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2653	s nextPutAll:'
362 4131e87e79ec . claus parents: 356 diff changeset	2654	#
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2655	# position (of this package) in directory hierarchy:
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2656	# (must point to ST/X top directory, for tools and includes)
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2657	TOP=' , topName ,'
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2658
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2659	# subdirectories where targets are to be made:
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2660	SUBDIRS='.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2661	self prerequisitePackages do:[:aPackageId \|
5179 37fa0ca0a226 * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	2662	\|p\|
37fa0ca0a226 * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	2663
5229 9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2664	"/ add sub-packages only
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2665	(aPackageId startsWith:pkg) ifTrue:[
5179 37fa0ca0a226 * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	2666	p := aPackageId copyFrom:pkg size + 1.
37fa0ca0a226 * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	2667	(p startsWith:$/) ifTrue:[
37fa0ca0a226 * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	2668	p := p copyFrom:2
37fa0ca0a226 * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	2669	].
37fa0ca0a226 * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	2670	s nextPutAll:p.
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2671	s space.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2672	]
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2673	].
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2674
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2675	s nextPutAll:'
362 4131e87e79ec . claus parents: 356 diff changeset	2676
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2677	# subdirectories where Makefiles are to be made:
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2678	# (only define if different from SUBDIRS)
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2679	# ALLSUBDIRS=
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2680	'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2681	notEmpty ifTrue:[
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2682	s nextPutAll:'
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2683	# the name of your classLibrary:
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2684	# ******** REQUIRED: CHECK the next line *
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	2685	LIBNAME=' , self libraryName , '
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2686
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2687	'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2688	].
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2689
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2690	false ifTrue:[
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2691	s nextPutAll:'
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2692	# the next define suppresses installation of
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2693	# the classes as autoloaded (i.e. not added to abbrev.stc).
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2694	SUPPRESS_LOCAL_ABBREVS=1
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2695	'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2696	].
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2697	s nextPutAll:'
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2698	# the package is stored as an ID in classes and methods
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2699	# to identify code belonging to this project.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2700	# It also specifies the position in the source repository
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2701	# and directory tree, when packages are loaded by packageID.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2702	# ******** REQUIRED: CHECK the next line *
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2703	PACKAGE=$(MODULE):$(MODULE_DIR)
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2704
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2705	# Argument(s) to the stc compiler.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2706	# -H. : create header files locally
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2707	# (if removed, they will be created as common
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2708	# -Pxxx : defines the package
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2709	# -Zxxx : a prefix for variables within the classLib
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2710	# -Dxxx : defines passed to to CC for inline C-code
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2711	# -Ixxx : include path passed to CC for inline C-code
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2712	# +optspace : optimized for space
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2713	# +optspace2 : optimized more for space
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2714	# +optspace3 : optimized even more for space
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2715	# +optinline : generate inline code for some ST constructs
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2716	# +inlineNew : additionally inline new
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2717	# +inlineMath : additionally inline some floatPnt math stuff
362 4131e87e79ec . claus parents: 356 diff changeset	2718	#
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2719	# ******** OPTIONAL: MODIFY the next line(s) *
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2720	# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2721	# STCLOCALOPTIMIZATIONS=+optspace3
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2722	STCLOCALOPTIMIZATIONS=+optspace3
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2723
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2724	# Argument(s) to the stc compiler.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2725	# -warn : no warnings
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2726	# -warnNonStandard : no warnings about ST/X extensions
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2727	# -warnEOLComments : no warnings about EOL comment extension
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2728	# -warnPrivacy : no warnings about privateClass extension
362 4131e87e79ec . claus parents: 356 diff changeset	2729	#
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2730	# ******** OPTIONAL: MODIFY the next line(s) *
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2731	# STCWARNINGS=-warn
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2732	# STCWARNINGS=-warnNonStandard
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2733	# STCWARNINGS=-warnEOLComments
4796 eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2734	STCWARNINGS='.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2735	(self propertyAt:#'make.stc.warnEOLComments') == false ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2736	s nextPutAll:'-warnEOLComments '.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2737	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2738	(self propertyAt:#'make.stc.warnNonStandard') == false ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2739	s nextPutAll:'-warnNonStandard '.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2740	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2741	s nextPutAll:((self propertyAt:#'make.stc.WARNINGOPTIONS') ? '') , '
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2742
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2743	# if your embedded C code requires any system includes,
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2744	# add the path(es) here:,
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2745	# ******** OPTIONAL: MODIFY the next lines *
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2746	# LOCALINCLUDES=-Ifoo -Ibar
5229 9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2747	LOCALINCLUDES='.
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2748	s nextPutAll:((self propertyAt:#'make.stc.LOCALINCLUDES') ? '').
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2749	self prerequisitePackages do:[:aPackageId \|
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2750	\|prj\|
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2751
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2752	s nextPutAll:'-I$(TOP)/../' , (aPackageId copyReplaceAll:$: with:$/) , ' '.
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2753	].
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2754	s nextPutAll:'
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2755
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2756	# if you need any additional defines for embedded C code,
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2757	# add them here:,
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2758	# ******** OPTIONAL: MODIFY the next lines *
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2759	# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
4796 eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2760	LOCALDEFINES=' , ((self propertyAt:#'make.stc.LOCALDEFINES') ? '') , '
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2761
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2762	STCLOCALOPT=-I. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALINCLUDES) $(LOCALDEFINES) -H. ''-P$(PACKAGE)'' ''-Z$(LIBNAME)'' $(COMMONSYMFLAG) $(INITCODESEPFLAG)
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2763
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2764	# ******** OPTIONAL: MODIFY the next line *
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2765	# additional C-libraries that should be pre-linked with the class-objects
4796 eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2766	LD_OBJ_LIBS=' , ((self propertyAt:#'make.LD_OBJ_LIBS') ? '') , '
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2767
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2768	# ******** OPTIONAL: MODIFY the next line *
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2769	# additional C targets or libraries should be added below
4796 eee167a75fcd checkin from browser Claus Gittinger <cg@exept.de> parents: 4792 diff changeset	2770	LOCAL_EXTRA_TARGETS=' , ((self propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? '') , '
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2771
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2772	'.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2773
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2774	s nextPutAll:'
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2775	all:: preMake '.
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2776	notEmpty ifTrue:[
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2777	s nextPutAll:'classLibRule '
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2778	].
3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2779	s nextPutAll:'postMake
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2780
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2781
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2782	'.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2783
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2784	"/ type := #library.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2785	"/ appName := 'app'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2786	"/ libName := 'lib'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2787	"/ startUpClass := 'Smalltalk'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2788	"/ startUpSelector := 'start'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2789	"/
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2790	"/ properties notNil ifTrue:[
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2791	"/ type := properties at:#projectType ifAbsent:type.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2792	"/ appName := properties at:#applicationName ifAbsent:appName.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2793	"/ startUpClass := properties at:#startupClass ifAbsent:startUpClass.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2794	"/ startUpSelector := properties at:#startupSelector ifAbsent:startUpSelector.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2795	"/ ].
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2796	"/
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2797	"/ s nextPutAll:'#
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2798	"/# define the name of the library to create
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2799	"/#
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2800	"/'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2801	"/ s nextPutAll:'LIBNAME=lib' , appName; cr; cr.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2802	"/
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2803	"/ s nextPutAll:'#
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2804	"/# the target rule:
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2805	"/#
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2806	"/all:: abbrev.stc objs genClassList $(OBJTARGET)
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2807	"/
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2808	"/'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2809	"/
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2810	"/ type == #executable ifTrue:[
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2811	"/ s nextPutAll:'PROGS = ' , appName; cr.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2812	"/ s nextPutAll:('STARTUP_CLASS=' , startUpClass); cr.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2813	"/ s nextPutAll:'STARTUP_SELECTOR="' , startUpSelector; nextPutAll:'"'; cr.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2814	"/ ].
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2815	"/
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2816	"/ s nextPutAll:'#
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2817	"/# define the object files that are to be created
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2818	"/#
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2819	"/'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2820	s nextPutAll:'OBJS='.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2821
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2822	classes do:[:aClass \|
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2823	\|clsInfo cond include fileName\|
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2824
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2825	clsInfo := self classInfoFor:aClass.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2826	include := true.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2827	clsInfo notNil ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2828	cond := clsInfo conditionForInclusion.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2829	(self conditionForInclusionIsTrue:cond) ifFalse:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2830	include := false.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2831	] ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2832	(self conditionForAutoloadIsTrue:cond) ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2833	include := false
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2834	]
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2835	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2836	].
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2837	include ifTrue:[
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2838	s nextPutAll:' \'. s cr.
4833 5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2839	fileName := clsInfo classFileName.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2840	fileName isNil ifTrue:[
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2841	fileName := Smalltalk fileNameForClass:aClass name.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2842	].
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2843	fileName := fileName asFilename withoutSuffix name.
5652aec1b08a checkin from browser Claus Gittinger <cg@exept.de> parents: 4832 diff changeset	2844	s nextPutAll:' '; nextPutAll:fileName; nextPutAll:'.$(O)'.
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2845	]
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2846	].
4792 8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	2847	(methodsFile := self propertyAt:#methodsFile) size > 0 ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2848	s nextPutAll:' \'. s cr.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2849	s nextPutAll:' ';
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2850	nextPutAll:(methodsFile asFilename withoutSuffix baseName);
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2851	nextPutAll:'.$(O)'.
4785 4ced52c817e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	2852	].
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2853	s cr.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2854
5229 9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2855	self prerequisitePackages size > 0 ifTrue:[
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2856	s nextPutAll:'
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2857	# make required packages
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2858	prerequisites::
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2859	'.
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2860	self prerequisitePackages do:[:aPackageId \|
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2861	\|prj\|
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2862
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2863	s tab; nextPutAll:'(cd $(TOP)/../' , (aPackageId copyReplaceAll:$: with:$/) , '; $(MAKE) ) '; cr.
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2864	].
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2865	s cr.
9808b01ca5e6 * empty log message * tm parents: 5224 diff changeset	2866	].
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2867	s nextPutAll:'
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2868	# add more install actions here
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2869	install::
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2870
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2871	# add more install actions for aux-files (resources) here
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2872	installAux::
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2873
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2874	# add more preMake actions here
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2875	preMake::
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2876
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2877	# add more postMake actions here
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2878	postMake:: cleanjunk
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2879
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2880	cleanjunk::
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2881
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2882	clean::
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2883	' , Character tab , '-rm -f .o .H
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2884
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2885	clobber::
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2886	' , Character tab , '-rm -f .so .dll
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2887
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2888	$(INSTALLBASE)::
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2889	' , Character tab , '@test -d $@ \|\| mkdir -p $@
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2890
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2891	$(INSTALLBASE)/packages/$(MODULE)/$(MODULE_DIR):: $(INSTALLBASE)/packages/$(MODULE)
5177 3b6861109161 checkin from browser Claus Gittinger <cg@exept.de> parents: 5173 diff changeset	2892	' , Character tab , '@test -d $@ \|\| mkdir -p $@
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2893
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2894	# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
362 4131e87e79ec . claus parents: 356 diff changeset	2895	'.
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2896	"/ classes notNil ifTrue:[
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2897	"/ classes do:[:aClass \|
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2898	"/ \|abbrev\|
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2899	"/
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2900	"/ abbrev := Smalltalk fileNameForClass:aClass name.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2901	"/ s nextPutAll:abbrev; nextPutAll:'.$(O): '.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2902	"/ s nextPutAll:abbrev; nextPutAll:'.st '.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2903	"/ aClass allSuperclassesDo:[:superClass\|
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2904	"/ s nextPutAll:(Smalltalk fileNameForClass:superClass name) , '.$(H) '.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2905	"/ ].
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2906	"/ s nextPutAll:'$(STCHDR)'; cr.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2907	"/ ].
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2908	"/ ].
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	2909	s nextPutAll:'# ENDMAKEDEPEND --- do not remove this line'.
362 4131e87e79ec . claus parents: 356 diff changeset	2910	s cr; cr.
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2911
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2912	type == #executable ifTrue:[
4832 d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2913	s nextPutAll:'all:: $(PROGS)'; cr.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2914
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2915	s nextPutAll:appName.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2916	s nextPutAll:':: main.o classList.o $(OBJS)'; cr.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2917	s tab; nextPutAll:'$(LD) $(ST_LDFLAG) $(LDFLAGS) -o ';
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2918	nextPutAll:appName;
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2919	nextPutAll:' \'; cr.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2920	s tab; tab; nextPutAll:'$(CRT0) main.$(O) classList.$(O) $(OBJS) $(EXTRA_OBJ) $(LIBOBJS) \'; cr.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2921	s tab; tab; nextPutAll:'$(LIBRUNDIR)/hidata.o $(LIBRUN) \'; cr.
d335c43bf297 care for inheritance order, when saving a project file. Claus Gittinger <cg@exept.de> parents: 4824 diff changeset	2922	s tab; tab; nextPutAll:'$(MATHLIB) $(EXTRALIBS) -lXext $(SYSLIBS) $(OTHERLIBS) $(CRTN)'; cr.
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2923	].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2924
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2925	s close
1420 be5f8e9574cc showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	2926
4069 7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	2927	"Modified: / 23.3.1999 / 14:20:09 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2928	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2929
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2930	createSourcefiles
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2931	"creates all Smalltalk-source files in the project directory"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2932
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2933	\|classes methods methodClasses dir stream\|
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2934
2956 952a09bdeed1 Use Filename instead of obsolete FileDirectory Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	2935	dir := self directory asFilename.
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2936	Transcript current showCR:'creating sources in ' , dir pathName , ' ...'; endEntry.
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2937
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2938	classes := self classes.
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2939	classes size == 0 ifTrue:[
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2940	self warn:'no classes in current project'
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2941	] ifFalse:[
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2942	classes do:[:aClass \|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2943	aClass isLoaded ifFalse:[
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2944	aClass autoload.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2945	].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2946	].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2947	"/ to not list private classes
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2948	classes := classes select:[:cls \| cls owningClass isNil].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2949	classes := classes topologicalSort:[:a :b \| a isSubclassOf:b].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2950
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2951	classes do:[:aClass \|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2952	Transcript current show:' ... '; showCR:aClass name, '.st'; endEntry.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2953	aClass fileOutIn:dir
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2954	]
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2955	].
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2956
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2957	methods := self individualMethods.
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2958	methods size > 0 ifTrue:[
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2959	methods := methods asIdentitySet.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2960	"
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2961	get classes ...
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2962	"
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2963	methodClasses := IdentitySet new.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2964	methods do:[:m \|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2965	\|mCls\|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2966
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2967	mCls := m containingClass.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2968	mCls isMeta ifTrue:[
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2969	mCls := mCls soleInstance.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2970	].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2971	methodClasses add:mCls].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2972	"
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2973	fileOut by class
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2974	"
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2975	methodClasses do:[:cls \|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2976	stream := (self directory asFilename construct:(cls name , '.chg')) writeStream.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2977
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2978	Transcript current show:' ... '; showCR:cls name, '.chg'; endEntry.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2979	methods do:[:m \|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2980	\|mCls\|
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2981
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2982	mCls := m containingClass.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2983	(mCls == cls or:[mCls == cls class]) ifTrue:[
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2984	mCls fileOutMethod:m on:stream.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2985	].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2986	stream cr.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2987	].
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2988	stream close.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2989	].
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2990	].
1420 be5f8e9574cc showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	2991
1854 b44227fd2b3d use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 1636 diff changeset	2992	"Modified: 1.11.1996 / 16:37:15 / cg"
2956 952a09bdeed1 Use Filename instead of obsolete FileDirectory Stefan Vogel <sv@exept.de> parents: 2907 diff changeset	2993	"Modified: 18.9.1997 / 18:50:34 / stefan"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2994	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2995
4850 43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2996	createVMSMakefile
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2997	"creates an vms.mak makefile"
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2998
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	2999	Transcript current showCR:'VMS support not yet implemented - no vms.mak created'.
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	3000
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	3001	!
43b7eac07273 checkin from browser Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	3002
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3003	findTopFrom:directoryName
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3004	"returns the relative path from directoryName to the TOP
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3005	directory."
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3006
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3007	\|topName relParent foundTop\|
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3008
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3009	"/ find TOP
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3010	relParent := '..'.
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3011	foundTop := false.
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3012	[foundTop] whileFalse:[
4820 481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3013	topName := directoryName asFilename construct:relParent.
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3014	((topName construct:'stx') construct:'configurations') exists ifTrue:[
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3015	((topName construct:'stx') construct:'include') exists ifTrue:[
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	3016	^ relParent asFilename constructString:'stx'.
4820 481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3017	]
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3018	].
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3019	(topName construct:'configurations') exists ifTrue:[
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3020	(topName construct:'include') exists ifTrue:[
4888 8a44ac394b75 checkin from browser Claus Gittinger <cg@exept.de> parents: 4887 diff changeset	3021	^ relParent asFilename name
4820 481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3022	]
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3023	].
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3024	relParent := relParent asFilename constructString:'..'.
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3025
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3026	topName isRootDirectory ifTrue:[
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3027	self warn:'could not find TOP; assume absolute path to TOP'.
481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3028	^ nil.
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	3029	"/ topName := '/usr/local/lib/smalltalk'.
767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	3030	"/ foundTop := true.
4820 481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3031	]
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3032	].
4779 767b94dabb98 checkin from browser Claus Gittinger <cg@exept.de> parents: 4776 diff changeset	3033	^ topName pathName
4820 481593067423 checkin from browser Claus Gittinger <cg@exept.de> parents: 4819 diff changeset	3034
4821 c73b170cb6e0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4820 diff changeset	3035	"Modified: / 26.9.1999 / 16:15:14 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3036	! !
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3037
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3038	!Project methodsFor:'printing & storing'!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3039
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3040	displayString
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3041	^ super displayString , '(''' , (name ? '<unnamed>') , ''')'
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3042	! !
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3043
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3044	!Project methodsFor:'properties'!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3045
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3046	addClass:classOrClassName
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3047	"add a class to the project"
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3048
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3049	\|fn\|
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3050
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3051	(classOrClassName isBehavior and:[classOrClassName isLoaded]) ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3052	fn := classOrClassName classFilename.
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3053	].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3054	fn isNil ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3055	fn := (Smalltalk fileNameForClass:classOrClassName) , '.st'
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3056	].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3057	self addClass:classOrClassName classFileName:fn
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3058
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3059	!
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3060
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3061	addClass:classOrClassName classFileName:fileName
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3062	"add a class to the project"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3063
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3064	self
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3065	addClass:classOrClassName
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3066	conditionForInclusion:#always
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3067	classFileName:fileName
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3068
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3069	!
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3070
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3071	addClass:classOrClassName conditionForInclusion:conditionBlock classFileName:fileName
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3072	"add a class to the project"
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3073
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3074	\|i clsName\|
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3075
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3076	(clsName := classOrClassName) isBehavior ifTrue:[
4886 63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3077	clsName := classOrClassName name
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3078	].
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3079	(clsName startsWith:'Smalltalk::') ifTrue:[
63d9275b8210 * empty log message * Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	3080	clsName := clsName copyFrom:'Smalltalk::' size + 1.
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3081	].
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3082
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3083	i := ClassInfo new.
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3084	i className:clsName.
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3085	i classFileName:fileName.
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3086	i conditionForInclusion:conditionBlock.
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3087	self addClassInfo:i
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3088	!
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3089
4089 abcd3430bb9c checkin from browser Claus Gittinger <cg@exept.de> parents: 4080 diff changeset	3090	addClassInfo:newInfo
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3091	"add a class info to the project"
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3092
4315 047c3c925f2f checkin from browser Claus Gittinger <cg@exept.de> parents: 4314 diff changeset	3093	\|infoCollection index nm prefix\|
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3094
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3095	(infoCollection := self classInfo) isNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3096	self classInfo:(infoCollection := OrderedCollection new).
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3097	].
4315 047c3c925f2f checkin from browser Claus Gittinger <cg@exept.de> parents: 4314 diff changeset	3098
047c3c925f2f checkin from browser Claus Gittinger <cg@exept.de> parents: 4314 diff changeset	3099	index := infoCollection findFirst:[:i \| \|nm1 nm2\|
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3100	nm1 := i className.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3101	nm2 := newInfo className.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3102	nm1 = nm2
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3103	].
4089 abcd3430bb9c checkin from browser Claus Gittinger <cg@exept.de> parents: 4080 diff changeset	3104	index ~~ 0 ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3105	infoCollection at:index put:newInfo
4089 abcd3430bb9c checkin from browser Claus Gittinger <cg@exept.de> parents: 4080 diff changeset	3106	] ifFalse:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3107	infoCollection add:newInfo
4089 abcd3430bb9c checkin from browser Claus Gittinger <cg@exept.de> parents: 4080 diff changeset	3108	]
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3109	!
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3110
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3111	addMethod:methodName inClass:classOrClassName conditionForInclusion:condition fileName:optionalFileName
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3112	"add a method to the project"
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3113
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3114	\|i\|
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3115
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3116	i := MethodInfo new.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3117	i className:classOrClassName.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3118	i methodName:methodName.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3119	i fileName:optionalFileName.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3120	i conditionForInclusion:condition.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3121	self addMethodInfo:i
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3122	!
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3123
4668 a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3124	addMethod:methodOrSelector inClass:aClassOrClassName fileName:fileName
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3125	"add an individual method to the project"
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3126
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3127	\|i\|
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3128
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3129	i := MethodInfo new.
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3130	i methodName:methodOrSelector.
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3131	i className:aClassOrClassName.
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3132	i fileName:fileName.
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3133	self addMethodInfo:i
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3134	!
a4e061d91251 checkin from browser Claus Gittinger <cg@exept.de> parents: 4522 diff changeset	3135
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3136	addMethodInfo:newInfo
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3137	"add a method info to the project"
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3138
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3139	\|infoCollection index nm prefix\|
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3140
5655 d1bc7daf5add * empty log message * Claus Gittinger <cg@exept.de> parents: 5581 diff changeset	3141	prefix := self defaultNameSpace name , '::'.
d1bc7daf5add * empty log message * Claus Gittinger <cg@exept.de> parents: 5581 diff changeset	3142
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3143	infoCollection := self methodInfo.
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3144
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3145	index := infoCollection findFirst:[:i \| \|cnm1 cnm2\|
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3146	cnm1 := i className.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3147	cnm2 := newInfo className.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3148	(cnm1 includes:$:) ifFalse:[
5655 d1bc7daf5add * empty log message * Claus Gittinger <cg@exept.de> parents: 5581 diff changeset	3149	cnm1 := prefix , cnm1
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3150	].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3151	(cnm2 includes:$:) ifFalse:[
5655 d1bc7daf5add * empty log message * Claus Gittinger <cg@exept.de> parents: 5581 diff changeset	3152	cnm2 := prefix , cnm2
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3153	].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3154	cnm1 = cnm2 and:[i methodName = newInfo methodName]
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3155	].
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3156	"/ strip off nameSpace prefix, if its the same as
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3157	"/ the default ...
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3158
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3159	nm := newInfo className.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3160	(nm startsWith:prefix) ifTrue:[
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3161	nm := nm copyFrom:(prefix size + 1).
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3162	newInfo className:nm asSymbol.
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3163	].
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3164	index ~~ 0 ifTrue:[
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3165	infoCollection at:index put:newInfo
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3166	] ifFalse:[
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3167	infoCollection add:newInfo
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3168	]
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3169	!
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3170
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3171	classInfo:aClassInfoCollection
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3172	"set the class info of the project"
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3173
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3174	self propertyAt:#classInfo put:aClassInfoCollection
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3175
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3176	!
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3177
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3178	comment
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3179	"return the comment of the project"
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3180
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3181	properties isNil ifTrue:[^ ''].
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3182	^ properties at:#comment ifAbsent:''
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3183	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3184
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3185	comment:aString
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3186	"set the projects comment"
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3187
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3188	self propertyAt:#comment put:aString
4070 682f720cd0f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 4069 diff changeset	3189
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3190	!
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3191
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3192	documentationURL
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3193	"return the documentation-URL of the project"
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3194
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3195	properties isNil ifTrue:[^ nil].
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3196	^ properties at:#documentationURL ifAbsent:nil
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3197	!
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3198
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3199	documentationURL:anURLString
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3200	"set the projects documentation-URL"
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3201
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3202	self propertyAt:#documentationURL put:anURLString
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3203
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3204	!
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3205
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3206	methodInfo:aMethodInfoCollection
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3207	"set the method info of the project"
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3208
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3209	self propertyAt:#methodInfo put:aMethodInfoCollection
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3210
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3211	!
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3212
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3213	properties
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3214	"return the property dictionary"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3215
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3216	^ properties
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3217	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3218
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3219	properties:p
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3220	"set the property dictionary"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3221
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3222	properties := p
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3223	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3224
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3225	propertyAt:aKey
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3226	"return a property; the key is a symbol"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3227
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3228	properties isNil ifTrue:[^ nil].
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3229	^ properties at:aKey ifAbsent:nil.
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3230	!
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3231
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3232	propertyAt:aKey put:aValue
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3233	"set a property; the key is a symbol"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3234
4077 cc1f4c165ace checkin from browser Claus Gittinger <cg@exept.de> parents: 4074 diff changeset	3235	\|oldValue\|
cc1f4c165ace checkin from browser Claus Gittinger <cg@exept.de> parents: 4074 diff changeset	3236
cc1f4c165ace checkin from browser Claus Gittinger <cg@exept.de> parents: 4074 diff changeset	3237	oldValue := self propertyAt:aKey.
cc1f4c165ace checkin from browser Claus Gittinger <cg@exept.de> parents: 4074 diff changeset	3238
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3239	properties isNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3240	properties := IdentityDictionary new
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3241	].
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3242	properties at:aKey put:aValue.
4077 cc1f4c165ace checkin from browser Claus Gittinger <cg@exept.de> parents: 4074 diff changeset	3243
cc1f4c165ace checkin from browser Claus Gittinger <cg@exept.de> parents: 4074 diff changeset	3244	oldValue ~~ aValue ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3245	self changed:aKey.
4077 cc1f4c165ace checkin from browser Claus Gittinger <cg@exept.de> parents: 4074 diff changeset	3246	].
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3247
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3248	"Created: / 23.3.1999 / 14:21:11 / cg"
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3249	!
2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3250
4792 8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3251	removeClass:classOrClassName
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3252	"remove a class from the project"
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3253
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3254	\|infoCollection index className\|
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3255
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3256	(infoCollection := self classInfo) isNil ifTrue:[^ self].
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3257
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3258	(className := classOrClassName) isBehavior ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3259	className := classOrClassName name
4792 8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3260	].
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3261
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3262	index := infoCollection findFirst:[:i \| i className = className.].
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3263	index ~~ 0 ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3264	infoCollection removeIndex:index
4792 8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3265	]
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3266	!
8e50b8218546 checkin from browser Claus Gittinger <cg@exept.de> parents: 4791 diff changeset	3267
4834 522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3268	removeMethod:method
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3269	"remove a method from the project"
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3270
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3271	\|infoCollection index className selector\|
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3272
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3273	(infoCollection := self methodInfo) size == 0 ifTrue:[^ self].
4834 522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3274	className := method who methodClass name.
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3275	selector := method who methodSelector.
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3276
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3277	index := infoCollection findFirst:[:i \| i className = className.].
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3278	index ~~ 0 ifTrue:[
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3279	infoCollection removeIndex:index
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3280	]
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3281	!
522f10359ce9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4833 diff changeset	3282
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3283	type
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3284	"return the type of project (one of #application, #library, #smalltalk)"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3285
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3286	properties isNil ifTrue:[^ #application].
efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3287	^ properties at:#type ifAbsent:#application
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3288	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3289
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3290	type:aSymbol
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3291	"set the projects type (one of #application, #library, #smalltalk)"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3292
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3293	\|sym\|
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3294
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3295	(sym := aSymbol) == #classLibrary ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3296	sym := #library
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3297	].
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3298	(#(application library extension smalltalk) includes:sym) ifFalse:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3299	self warn:'invalid project type'.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3300	^ self
3972 efc25c2863e9 more attributes; some preparations for the ProjectBrowser. Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	3301	].
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3302	self propertyAt:#type put:sym
4069 7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3303	!
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3304
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3305	wasLoadedFromFile
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3306	"return true, if the project was loaded from a file"
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3307
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3308	properties isNil ifTrue:[^ nil].
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3309	^ properties at:#wasLoadedFromFile ifAbsent:false
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3310
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3311	"Modified: / 23.3.1999 / 13:59:32 / cg"
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3312	"Created: / 23.3.1999 / 14:21:06 / cg"
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3313	!
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3314
7d36633a470a checkin from browser Claus Gittinger <cg@exept.de> parents: 4066 diff changeset	3315	wasLoadedFromFile:aBoolean
4097 66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3316	"set/clear the flag stating that the project was loaded from a file"
66466729c1de more PBrowser support Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	3317
4071 2b6946e843c5 checkin from browser Claus Gittinger <cg@exept.de> parents: 4070 diff changeset	3318	self propertyAt:#wasLoadedFromFile put:aBoolean
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3319	! !
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3320
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3321	!Project methodsFor:'queries'!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3322
4688 1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3323	areAllClassesLoaded
1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3324	"return true, if all classes of the package are loaded
1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3325	(i.e. there are no autoloaded stubs present)"
1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3326
4690 563f4d832234 checkin from browser Claus Gittinger <cg@exept.de> parents: 4688 diff changeset	3327	\|classes\|
563f4d832234 checkin from browser Claus Gittinger <cg@exept.de> parents: 4688 diff changeset	3328
563f4d832234 checkin from browser Claus Gittinger <cg@exept.de> parents: 4688 diff changeset	3329	classes := self classes.
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3330	classes size == 0 ifTrue:[^ isLoaded ? false].
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3331
4690 563f4d832234 checkin from browser Claus Gittinger <cg@exept.de> parents: 4688 diff changeset	3332	classes do:[:aClass \|
4900 7371c0da8359 checkin from browser Claus Gittinger <cg@exept.de> parents: 4888 diff changeset	3333	aClass isBehavior ifFalse:[^ false].
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3334	aClass isLoaded ifFalse:[^ false].
4688 1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3335	].
1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3336	^ true
1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3337
1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3338	!
1b27165b9f97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4685 diff changeset	3339
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3340	classInfo
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3341	"return a classInfo collection of classes belonging to that project"
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3342
4073 21939187f19c checkin from browser Claus Gittinger <cg@exept.de> parents: 4071 diff changeset	3343	\|classInfo classes\|
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3344
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3345	properties notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3346	classInfo := properties at:#classInfo ifAbsent:nil.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3347	classInfo notNil ifTrue:[^ classInfo].
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3348	].
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3349
4073 21939187f19c checkin from browser Claus Gittinger <cg@exept.de> parents: 4071 diff changeset	3350	classes := self classes.
21939187f19c checkin from browser Claus Gittinger <cg@exept.de> parents: 4071 diff changeset	3351	classes size == 0 ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3352	classInfo := OrderedCollection new
4073 21939187f19c checkin from browser Claus Gittinger <cg@exept.de> parents: 4071 diff changeset	3353	] ifFalse:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3354	classInfo := classes asOrderedCollection
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3355	collect:[:class \|
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3356	\|i fn\|
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3357
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3358	i := ClassInfo new.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3359	i conditionForInclusion:#always.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3360	i className:class name.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3361	fn := class classFilename ? ((Smalltalk fileNameForClass:class) , '.st').
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3362	i classFileName:fn.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3363	i
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3364	]
4073 21939187f19c checkin from browser Claus Gittinger <cg@exept.de> parents: 4071 diff changeset	3365	].
21939187f19c checkin from browser Claus Gittinger <cg@exept.de> parents: 4071 diff changeset	3366	self propertyAt:#classInfo put:classInfo.
21939187f19c checkin from browser Claus Gittinger <cg@exept.de> parents: 4071 diff changeset	3367	^ classInfo
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3368
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3369	"Modified: 4.1.1997 / 16:51:18 / cg"
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3370	!
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3371
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3372	classInfoFor:aClassOrClassName
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3373	"return a classInfo for a particular class"
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3374
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3375	\|classInfo clsName index\|
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3376
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3377	(classInfo := self classInfo) isNil ifTrue:[^ nil].
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3378	(clsName := aClassOrClassName) isBehavior ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3379	clsName := aClassOrClassName name
4789 72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3380	].
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3381	^ classInfo detect:[:i \| i className = clsName] ifNone:nil.
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3382
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3383
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3384	"Modified: 4.1.1997 / 16:51:18 / cg"
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3385	!
72a61dc595ad loadAll/Make.proto file generation Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	3386
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3387	classes
4013 f06d31702f2a ignore private classes in classList Claus Gittinger <cg@exept.de> parents: 4010 diff changeset	3388	"return a collection of classes belonging to that project.
f06d31702f2a ignore private classes in classList Claus Gittinger <cg@exept.de> parents: 4010 diff changeset	3389	This excludes any private classes."
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3390
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3391	\|classes classInfo\|
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3392
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3393	properties notNil ifTrue:[
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3394	classInfo := properties at:#classInfo ifAbsent:nil.
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3395	classInfo notNil ifTrue:[
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3396	classes := classInfo collect:[:i \| i className]
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3397	] ifFalse:[
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3398	classes := properties at:#classes ifAbsent:nil
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3399	]
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3400	].
3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3401
5201 24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3402	(properties isNil
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3403	or:[properties at:#autoIncludeImageClasses ifAbsent:true])
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3404	ifTrue:[
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3405	classes isNil ifTrue:[
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3406	classes := OrderedCollection new.
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3407	Smalltalk
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3408	allClassesDo:[:aClass \|
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3409	(true "aClass owningClass isNil"
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3410	and:[aClass isMeta not
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3411	and:[aClass package = packageName
5327 5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3412	and:[aClass isNameSpace not or:[aClass == Smalltalk]]]]) ifTrue:[
5201 24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3413	classes add:aClass
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3414	]
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3415	].
24264de948dd kludge Claus Gittinger <cg@exept.de> parents: 5199 diff changeset	3416	].
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3417	].
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3418	^ classes ? #()
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3419
2056 1beb5756e9e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2034 diff changeset	3420	"Modified: 4.1.1997 / 16:51:18 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3421	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3422
4887 f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3423	includesClass:aClassOrClassName
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3424	"return true, if a class is contained in the project"
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3425
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3426	\|infoCollection index className\|
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3427
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3428	(infoCollection := self classInfo) isNil ifTrue:[^ false].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3429
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3430	aClassOrClassName isBehavior ifTrue:[
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3431	className := aClassOrClassName name
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3432	] ifFalse:[
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3433	className := aClassOrClassName
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3434	].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3435
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3436	index := infoCollection findFirst:[:i \| \|nm1 nm2\|
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3437	i className = className
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3438	].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3439	^ index ~~ 0
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3440	!
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3441
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3442	includesMethod:aMethod
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3443	"return true, if the given method is contained in the project
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3444	(either as patch/extension or as class"
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3445
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3446	\|who methodClass\|
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3447
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3448	who := aMethod who.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3449	who isNil ifTrue:[^ false].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3450	methodClass := who methodClass.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3451	(self includesClass:methodClass) ifTrue:[^ true].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3452	^ self includesMethodPatch:aMethod
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3453	!
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3454
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3455	includesMethodPatch:aMethod
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3456	"return true, if the given method is contained in the project
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3457	as patch/extension"
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3458
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3459	\|who methodClass methodClassName methodSelector infoCollection index className selector\|
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3460
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3461	who := aMethod who.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3462	who isNil ifTrue:[^ false].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3463	methodClass := who methodClass.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3464	methodClassName := methodClass name.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3465	methodSelector := who methodSelector.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3466
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3467	infoCollection := self methodInfo.
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3468
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3469	index := infoCollection findFirst:[:i \|
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3470	(i className = methodClassName
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3471	and:[i methodName = methodSelector])
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3472	].
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3473	^ index ~~ 0
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3474	!
f9e375e800a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 4886 diff changeset	3475
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3476	individualMethods
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3477	"return a collection of individual methods belonging to that project,
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3478	only methods are returned which are not contained in the
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3479	projects class set."
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3480
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3481
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3482	"/
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3483	"/ obsoleted by #methods ...
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3484	"/
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3485	\|classes methods\|
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3486
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3487	classes := self classes.
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3488	classes size > 0 ifTrue:[
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3489	classes := classes asIdentitySet.
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3490	].
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3491
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3492	methods := IdentitySet new.
5581 7bef1c75fb06 allBehaviors vs. allClasses Claus Gittinger <cg@exept.de> parents: 5553 diff changeset	3493	Smalltalk allClassesDo:[:cls \|
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3494	\|classToCheck\|
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3495
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3496	classToCheck := cls.
4670 21eec331e1e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4668 diff changeset	3497	"/ cls isPrivate ifTrue:[
21eec331e1e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4668 diff changeset	3498	"/ classToCheck := cls topOwningClass
21eec331e1e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 4668 diff changeset	3499	"/ ].
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3500	((classes includes:classToCheck)
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3501	or:[classes includes:classToCheck name]) not
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3502	ifTrue:[
5371 6376d1fcf30f use #allSelectorsAndMethodsDo: Claus Gittinger <cg@exept.de> parents: 5338 diff changeset	3503	cls allSelectorsAndMethodsDo:[:sel :m \|
4885 bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3504	m package = packageName ifTrue:[
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3505	methods add:m
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3506	]
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3507	].
bdbdb37f4252 checkin from browser Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	3508	]
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3509	].
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3510	^ methods asArray
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3511
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3512	"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3513	Project current classes
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3514	Project current individualMethods
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3515	"
1461 dd25bb1e9973 Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 1420 diff changeset	3516
dd25bb1e9973 Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 1420 diff changeset	3517	"Modified: 7.6.1996 / 09:16:25 / stefan"
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3518	!
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3519
5897 793b0adad934 checkin from browser Claus Gittinger <cg@exept.de> parents: 5819 diff changeset	3520	isDefaultProject
793b0adad934 checkin from browser Claus Gittinger <cg@exept.de> parents: 5819 diff changeset	3521	^ self == Project defaultProject
793b0adad934 checkin from browser Claus Gittinger <cg@exept.de> parents: 5819 diff changeset	3522	!
793b0adad934 checkin from browser Claus Gittinger <cg@exept.de> parents: 5819 diff changeset	3523
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3524	isLoaded
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3525	"return true, if all of this project-package has been loaded
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3526	into the system"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3527
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3528	\|binaryModule cls\|
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3529
5178 5cc5f9ed5313 * empty log message * Claus Gittinger <cg@exept.de> parents: 5177 diff changeset	3530	isLoaded == true ifTrue:[^ isLoaded].
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3531
4791 c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3532	"/ check for loaded class-library - assume loaded if present.
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3533	binaryModule := ObjectMemory binaryModuleInfo detect:[:i \| i package = self package] ifNone:nil.
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3534	binaryModule notNil ifTrue:[
5178 5cc5f9ed5313 * empty log message * Claus Gittinger <cg@exept.de> parents: 5177 diff changeset	3535	isLoaded := true.
4819 19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3536	^ true
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3537	].
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3538
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3539	"/ check for all classes ...
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3540	self classes do:[:aClassOrClassName \|
4819 19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3541	aClassOrClassName isBehavior ifFalse:[
5165 212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	3542	aClassOrClassName isString ifTrue:[
212867b779e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5156 diff changeset	3543	(cls := Smalltalk at:aClassOrClassName asSymbol) isNil ifTrue:[
4819 19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3544	^ false
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3545	].
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3546	cls isBehavior ifFalse:[^ false].
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3547	cls isLoaded ifFalse:[^ false].
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3548	] ifFalse:[
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3549	self halt.
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3550	^ false
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3551	]
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3552	]
4769 202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3553	].
202c54048ce4 checkin from browser Claus Gittinger <cg@exept.de> parents: 4755 diff changeset	3554
4791 c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3555	"/ check for all patches & extensions ...
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3556	self methods do:[:aMethodInfo \|
4819 19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3557	aMethodInfo theMethod isNil ifTrue:[
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3558	^ false
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3559	].
4791 c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3560	].
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3561
5178 5cc5f9ed5313 * empty log message * Claus Gittinger <cg@exept.de> parents: 5177 diff changeset	3562	isLoaded := true.
4791 c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3563	^ true
4685 d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3564
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3565	"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3566	(Project projectWithId:#'stx:libbasic') isLoaded
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3567	(Project projectWithId:#'stx:goodies/persistency') isLoaded
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3568	"
d145298696b7 more package loading support Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	3569
4819 19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3570	"Modified: / 26.9.1999 / 13:39:55 / cg"
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3571	!
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3572
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3573	methodInfo
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3574	"return a methodInfo collection of methods belonging to that project"
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3575
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3576	\|methodInfo methods\|
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3577
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3578	properties notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3579	methodInfo := properties at:#methodInfo ifAbsent:nil.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3580	methodInfo notNil ifTrue:[^ methodInfo].
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3581	].
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3582
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3583	methods := self methods.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3584	methods size == 0 ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3585	methodInfo := OrderedCollection new
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3586	] ifFalse:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3587	methodInfo := methods asOrderedCollection
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3588	collect:[:mthd \|
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3589	\|i fn who className selector\|
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3590
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3591	mthd isMethod ifTrue:[
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3592	who := mthd who.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3593	className := who methodClass name.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3594	selector := who methodSelector.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3595	i := MethodInfo new.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3596	i conditionForInclusion:#always.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3597	i className:className.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3598	i methodName:className.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3599	fn := mthd sourceFilename.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3600	i fileName:fn.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3601	i
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3602	] ifFalse:[
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3603	mthd "/ already a methodInfo
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3604	]
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3605	]
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3606	].
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3607	self propertyAt:#methodInfo put:methodInfo.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3608	^ methodInfo
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3609
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3610	"Modified: 4.1.1997 / 16:51:18 / cg"
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3611	!
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3612
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3613	methods
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3614	"return a collection of methods belonging to that project.
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3615	This excludes any methods which are already in my class-set."
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3616
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3617	\|methods methodsInfo\|
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3618
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3619	properties notNil ifTrue:[
5327 5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3620	methodsInfo := properties at:#methodsInfo ifAbsent:nil.
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3621	methodsInfo notNil ifTrue:[
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3622	methods := methodsInfo collect:[:i \| i className]
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3623	] ifFalse:[
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3624	methods := properties at:#methods ifAbsent:nil
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3625	]
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3626	].
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3627
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3628	methods isNil ifTrue:[
5327 5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3629	methods := OrderedCollection new.
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3630	Smalltalk allClassesDo:[:aClass \|
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3631	(true "aClass owningClass isNil"
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3632	and:[aClass isMeta not
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3633	and:[aClass package ~= packageName
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3634	and:[aClass isNameSpace not or:[aClass == Smalltalk]]]]) ifTrue:[
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3635
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3636	aClass methodDictionary keysAndValuesDo:[:sel :mthd \|
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3637	mthd package = packageName ifTrue:[
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3638	methods add:(MethodInfo new
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3639	className:aClass name;
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3640	methodName:sel;
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3641	yourself)
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3642	].
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3643	].
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3644	aClass class methodDictionary keysAndValuesDo:[:sel :mthd \|
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3645	mthd package = packageName ifTrue:[
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3646	methods add:(MethodInfo new
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3647	className:(aClass name , ' class');
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3648	methodName:sel;
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3649	yourself)
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3650	].
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3651	]
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3652	]
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3653	].
5e5602d156fa #isNamespace renamed to #isNameSpace Claus Gittinger <cg@exept.de> parents: 5314 diff changeset	3654	methods isEmpty ifTrue:[^ #()].
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3655	].
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3656	^ methods
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3657
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3658	"Modified: 4.1.1997 / 16:51:18 / cg"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3659	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3660
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3661	!Project methodsFor:'specifications'!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3662
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3663	readSpec
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3664	\|s chunk fileName\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3665
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3666	fileName := (properties at:#directoryName) asFilename construct:'.project'.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3667	s := fileName readStream.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3668	s isNil ifTrue:[^ self].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3669	[s atEnd] whileFalse:[
203 3d88fa870de0 * empty log message * claus parents: 150 diff changeset	3670	chunk := s nextChunk.
3d88fa870de0 * empty log message * claus parents: 150 diff changeset	3671	Compiler evaluate:chunk receiver:properties notifying:nil
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3672	].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3673	s close.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3674
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3675	"(Project new directory:'../projects/Clock') readSpec"
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3676	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3677
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3678	saveSpec
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3679	\|f d s\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3680
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3681	d := (properties at:#directoryName) asFilename.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3682	d exists ifFalse:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3683	self error:'directory does not exist' mayProceed:true.
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3684	^ self
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3685	].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3686	f := d construct:'.project'.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3687	s := f writeStream.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3688	s isNil ifTrue:[^ self].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3689	properties associationsDo:[:aProp \|
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3690	(aProp == #directoryName) ifFalse:[
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3691	s nextChunkPut:('self at:' , aProp key storeString,
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3692	' put:' , aProp value storeString).
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3693	s cr
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3694	]
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3695	].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3696	s close
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3697
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3698	"((Project new directory:'../projects/Clock') readSpec
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3699	directory:'../projects/xxx') saveSpec"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3700	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	3701
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3702	!Project methodsFor:'views'!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3703
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3704	addView:aView
2164 063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3705	"add a view to this projects set of views"
063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3706
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3707	views notNil ifTrue:[views add:aView]
2164 063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3708
063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3709	"Modified: 14.2.1997 / 15:36:51 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3710	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3711
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3712	destroyViews
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3713	"destroy all views of this project"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3714
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3715	views notNil ifTrue:[
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3716	views do:[:aView \|
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3717	aView notNil ifTrue:[aView destroy]
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3718	]
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3719	].
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3720	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3721
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3722	hideViews
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3723	"hide all views of this project"
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3724
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3725	views notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3726	views do:[:aView \|
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3727	aView notNil ifTrue:[aView unmap]
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3728	]
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3729	].
1332 a1d72522f5fc Rename unrealize-->unmap, rerealize->map. Stefan Vogel <sv@exept.de> parents: 1298 diff changeset	3730
a1d72522f5fc Rename unrealize-->unmap, rerealize->map. Stefan Vogel <sv@exept.de> parents: 1298 diff changeset	3731	"Modified: 3.5.1996 / 23:48:51 / stefan"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3732	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3733
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3734	removeView:aView
2164 063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3735	"remove a view from this projects set of views"
063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3736
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3737	views notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3738	views remove:aView ifAbsent:nil
3996 3183ccccabaa more support for projectBrowser Claus Gittinger <cg@exept.de> parents: 3974 diff changeset	3739	]
2164 063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3740
063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3741	"Modified: 14.2.1997 / 15:37:20 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3742	!
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3743
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3744	showViews
2164 063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3745	"show all views of this project"
063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3746
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3747	views notNil ifTrue:[
4814 7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3748	views do:[:aView \|
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3749	aView notNil ifTrue:[aView remap]
7825b9141f01 changes to allow compilation under win32 (does not like strings beginning Claus Gittinger <cg@exept.de> parents: 4813 diff changeset	3750	]
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3751	].
1332 a1d72522f5fc Rename unrealize-->unmap, rerealize->map. Stefan Vogel <sv@exept.de> parents: 1298 diff changeset	3752
a1d72522f5fc Rename unrealize-->unmap, rerealize->map. Stefan Vogel <sv@exept.de> parents: 1298 diff changeset	3753	"Modified: 3.5.1996 / 23:59:10 / stefan"
2164 063b0227aeda use #remap instead of #map to show views Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	3754	"Modified: 14.2.1997 / 15:38:47 / cg"
617 427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3755	! !
427245e28240 checkin from browser Claus Gittinger <cg@exept.de> parents: 530 diff changeset	3756
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3757	!Project::ClassInfo methodsFor:'accessing'!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3758
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3759	classFileName
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3760	"return the value of the instance variable 'classFileName' (automatically generated)"
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3761
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3762	^ classFileName
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3763	!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3764
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3765	classFileName:something
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3766	"set the value of the instance variable 'classFileName' (automatically generated)"
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3767
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3768	classFileName := something.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3769	!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3770
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3771	className
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3772	"return the value of the instance variable 'className' (automatically generated)"
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3773
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3774	^ className
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3775	!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3776
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3777	className:something
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3778	"set the value of the instance variable 'className' (automatically generated)"
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3779
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3780	className := something.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3781	!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3782
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3783	conditionForInclusion
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3784	"return the value of the instance variable 'conditionForInclusion' (automatically generated)"
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3785
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3786	^ conditionForInclusion
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3787	!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3788
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3789	conditionForInclusion:something
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3790	"set the value of the instance variable 'conditionForInclusion' (automatically generated)"
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3791
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3792	conditionForInclusion := something.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3793	! !
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3794
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3795	!Project::ClassInfo methodsFor:'printing & storing'!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3796
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3797	displayString
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3798	^ 'ClassInfo: ' , className
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3799	! !
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3800
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3801	!Project::ClassInfo methodsFor:'queries'!
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3802
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3803	theClass
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3804	\|cls\|
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3805
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3806	cls := Smalltalk classNamed:className.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3807	cls isNil ifTrue:[ ^ nil].
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3808	^ cls
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3809
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3810	"Created: / 26.9.1999 / 13:39:00 / cg"
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3811	! !
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3812
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3813	!Project::MethodInfo methodsFor:'accessing'!
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3814
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3815	className
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3816	"return the value of the instance variable 'className' (automatically generated)"
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3817
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3818	^ className
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3819	!
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3820
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3821	className:something
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3822	"set the value of the instance variable 'className' (automatically generated)"
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3823
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3824	className := something.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3825	!
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3826
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3827	conditionForInclusion
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3828	"return the value of the instance variable 'conditionForInclusion' (automatically generated)"
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3829
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3830	^ conditionForInclusion
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3831	!
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3832
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3833	conditionForInclusion:something
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3834	"set the value of the instance variable 'conditionForInclusion' (automatically generated)"
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3835
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3836	conditionForInclusion := something.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3837	!
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3838
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3839	fileName
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3840	"return the value of the instance variable 'fileName' (automatically generated)"
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3841
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3842	^ fileName
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3843	!
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3844
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3845	fileName:something
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3846	"set the value of the instance variable 'fileName' (automatically generated)"
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3847
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3848	fileName := something.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3849	!
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3850
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3851	methodName
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3852	"return the value of the instance variable 'methodName' (automatically generated)"
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3853
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3854	^ methodName
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3855	!
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3856
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3857	methodName:something
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3858	"set the value of the instance variable 'methodName' (automatically generated)"
11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3859
5734 c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3860	methodName := something.
c734386ad598 asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 5692 diff changeset	3861	! !
4743 11f9e45976cb * empty log message * Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3862
4755 2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3863	!Project::MethodInfo methodsFor:'printing & storing'!
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3864
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3865	displayString
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3866	^ 'MethodInfo: ' , className , ' ' , methodName
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3867
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3868
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3869	! !
2d866f87d1da preps to keep track of methods Claus Gittinger <cg@exept.de> parents: 4747 diff changeset	3870
4791 c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3871	!Project::MethodInfo methodsFor:'queries'!
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3872
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3873	method
4819 19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3874	self obsoleteMethodWarning.
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3875	^ self theMethod.
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3876
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3877	"Modified: / 26.9.1999 / 13:40:16 / cg"
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3878	!
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3879
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3880	theMethod
4791 c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3881	\|cls\|
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3882
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3883	cls := Smalltalk classNamed:className.
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3884	cls isNil ifTrue:[ ^ nil].
c2cdad0ab823 checkin from browser Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	3885	^ cls compiledMethodAt:methodName asSymbol.
4819 19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3886
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3887	"Created: / 26.9.1999 / 13:39:07 / cg"
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3888	! !
19b89da166c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4814 diff changeset	3889
1854 b44227fd2b3d use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 1636 diff changeset	3890	!Project class methodsFor:'documentation'!
630 b785d23d7c5b version at the end Claus Gittinger <cg@exept.de> parents: 617 diff changeset	3891
b785d23d7c5b version at the end Claus Gittinger <cg@exept.de> parents: 617 diff changeset	3892	version
5897 793b0adad934 checkin from browser Claus Gittinger <cg@exept.de> parents: 5819 diff changeset	3893	^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.169 2001-07-31 15:10:05 cg Exp $'
1298 23d0ba91c9be documentation Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	3894	! !
1 a27a279701f8 Initial revision claus parents: diff changeset	3895	Project initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 31 Jul 2001 17:10:05 +0200
changeset 5897	793b0adad934
parent 5819	b46dd00555c6
child 5912	8e3d9ac02b3b
permissions	-rw-r--r--