hg/stx-libbasic: ProjectDefinition.st@25f76184bf81 (annotated)

9553 0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	1	"
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	2	COPYRIGHT (c) 2006 by eXept Software AG
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	3	All Rights Reserved
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	4
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	5	This software is furnished under a license and may be used
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	6	only in accordance with the terms of that license and with the
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	7	inclusion of the above copyright notice. This software may not
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	8	be provided or otherwise made available to, or used by, any
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	9	other person. No title to or ownership of the software is
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	10	hereby transferred.
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	11	"
9671 cb20763db715 * empty log message * Claus Gittinger <cg@exept.de> parents: 9667 diff changeset	12	"{ Package: 'stx:libbasic' }"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	13
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	14	Object subclass:#ProjectDefinition
9984 d5b770481a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 9983 diff changeset	15	instanceVariableNames:''
d5b770481a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 9983 diff changeset	16	classVariableNames:'LibraryType GUIApplicationType NonGUIApplicationType'
d5b770481a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 9983 diff changeset	17	poolDictionaries:''
d5b770481a47 * empty log message * Claus Gittinger <cg@exept.de> parents: 9983 diff changeset	18	category:'System-Support-Projects'
9536 3a835fa7e38b initial checkin fm parents: diff changeset	19	!
3a835fa7e38b initial checkin fm parents: diff changeset	20
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	21	ProjectDefinition class instanceVariableNames:'overwrittenMethods projectIsLoaded'
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	22
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	23	"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	24	No other class instance variables are inherited by this class.
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	25	"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	26	!
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	27
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	28	!ProjectDefinition class methodsFor:'documentation'!
9553 0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	29
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	30	copyright
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	31	"
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	32	COPYRIGHT (c) 2006 by eXept Software AG
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	33	All Rights Reserved
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	34
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	35	This software is furnished under a license and may be used
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	36	only in accordance with the terms of that license and with the
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	37	inclusion of the above copyright notice. This software may not
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	38	be provided or otherwise made available to, or used by, any
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	39	other person. No title to or ownership of the software is
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	40	hereby transferred.
0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	41	"
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	42	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	43
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	44	documentation
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	45	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	46	redefinable build-file attributes:
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	47
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	48	stcOptimizationOptions -> STCLOCALOPT
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	49	stcWarningOptions -> STCLOCALOPT
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	50	localIncludes_unix -> LOCALINCLUDES (Make.proto)
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	51	localIncludes_win32 -> LOCALINCLUDES (bc.mak)
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	52
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	53	for applications:
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	54	startupClassName
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	55	startupSelector
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	56
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	57	for libraries:
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	58
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	59	"
9553 0ba9e1ed1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 9551 diff changeset	60	! !
9536 3a835fa7e38b initial checkin fm parents: diff changeset	61
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	62	!ProjectDefinition class methodsFor:'instance creation'!
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	63
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	64	newForPackage:packageID
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	65	^ self
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	66	newNamed:(self initialClassNameForDefinitionOf:packageID)
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	67	package:packageID.
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	68
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	69	"Created: / 11-08-2006 / 14:27:19 / cg"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	70	!
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	71
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	72	newNamed:newName package:packageID
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	73	\|newClass\|
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	74
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	75	"/ for now, we are strict.
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	76	self assert:(self initialClassNameForDefinitionOf:packageID) = newName.
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	77	self assert:(self ~~ ProjectDefinition). "ProjectDefinition is abstract"
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	78
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	79	newClass := self
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	80	subclass:(newName asSymbol)
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	81	instanceVariableNames:''
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	82	classVariableNames:''
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	83	poolDictionaries:''
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	84	category:(self defaultCategory).
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	85
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	86	newClass package:packageID asSymbol.
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	87	^ newClass
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	88
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	89	"Created: / 09-08-2006 / 17:57:37 / fm"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	90	"Modified: / 09-08-2006 / 19:27:53 / fm"
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	91	"Modified: / 17-08-2006 / 17:24:23 / cg"
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	92	! !
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	93
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	94	!ProjectDefinition class methodsFor:'accessing'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	95
3a835fa7e38b initial checkin fm parents: diff changeset	96	initialClassNameForDefinitionOf:aPackageId
3a835fa7e38b initial checkin fm parents: diff changeset	97	\|s\|
3a835fa7e38b initial checkin fm parents: diff changeset	98
3a835fa7e38b initial checkin fm parents: diff changeset	99	s := aPackageId asString copy replaceAny:':/' with:$_.
3a835fa7e38b initial checkin fm parents: diff changeset	100	(s endsWith:$_) ifTrue:[
3a835fa7e38b initial checkin fm parents: diff changeset	101	s := s copyWithoutLast:1
3a835fa7e38b initial checkin fm parents: diff changeset	102	].
3a835fa7e38b initial checkin fm parents: diff changeset	103	^ s
3a835fa7e38b initial checkin fm parents: diff changeset	104
3a835fa7e38b initial checkin fm parents: diff changeset	105	"
3a835fa7e38b initial checkin fm parents: diff changeset	106	DapasXProject initialClassNameForDefinitionOf:'bosch:dapasx/interactiver_editor'
3a835fa7e38b initial checkin fm parents: diff changeset	107	DapasXProject initialClassNameForDefinitionOf:'stx:libbasic'
3a835fa7e38b initial checkin fm parents: diff changeset	108	DapasXProject initialClassNameForDefinitionOf:'stx:goodies/xml'
3a835fa7e38b initial checkin fm parents: diff changeset	109	"
3a835fa7e38b initial checkin fm parents: diff changeset	110
3a835fa7e38b initial checkin fm parents: diff changeset	111	"Created: / 09-08-2006 / 17:44:47 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	112	"Modified: / 11-08-2006 / 14:00:05 / cg"
3a835fa7e38b initial checkin fm parents: diff changeset	113	!
3a835fa7e38b initial checkin fm parents: diff changeset	114
3a835fa7e38b initial checkin fm parents: diff changeset	115	libraryName
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	116	^ self package asPackageId libraryName
9536 3a835fa7e38b initial checkin fm parents: diff changeset	117
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	118	"
9688 aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	119	bosch_dapasx_datenbasis libraryName
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	120	stx_libbasic3 libraryName
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	121	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	122
3a835fa7e38b initial checkin fm parents: diff changeset	123	"Modified: / 09-08-2006 / 18:20:29 / fm"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	124	"Modified: / 18-08-2006 / 12:36:45 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	125	!
3a835fa7e38b initial checkin fm parents: diff changeset	126
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	127	libraryNameFor:aProjectID
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	128	^ aProjectID asPackageId libraryName
9536 3a835fa7e38b initial checkin fm parents: diff changeset	129
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	130	"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	131	bosch_dapasx_datenbasis libraryName
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	132	stx_libbasic3 libraryNameFor:'stx:libbasic'
9688 aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	133	stx_libbasic3 libraryNameFor:'bosch:dapasx/datenbasis'
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	134	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	135
3a835fa7e38b initial checkin fm parents: diff changeset	136	"Modified: / 09-08-2006 / 18:20:29 / fm"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	137	"Modified: / 18-08-2006 / 12:37:02 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	138	!
3a835fa7e38b initial checkin fm parents: diff changeset	139
3a835fa7e38b initial checkin fm parents: diff changeset	140	module
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	141	^ self moduleOfClass:self
9536 3a835fa7e38b initial checkin fm parents: diff changeset	142
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	143	"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	144	bosch_dapasx_datenbasis_Definition module
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	145	DapasX_Datenbasis module
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	146	stx_libbasic3 module
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	147	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	148
3a835fa7e38b initial checkin fm parents: diff changeset	149	"Created: / 08-08-2006 / 20:24:53 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	150	"Modified: / 09-08-2006 / 16:16:37 / fm"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	151	"Modified: / 17-08-2006 / 20:50:46 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	152	!
3a835fa7e38b initial checkin fm parents: diff changeset	153
3a835fa7e38b initial checkin fm parents: diff changeset	154	moduleDirectory
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	155	^ (PackageId from:self package) directory
9536 3a835fa7e38b initial checkin fm parents: diff changeset	156
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	157	"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	158	bosch_dapasx_datenbasis_Definition moduleDirectory
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	159	bosch_dapasx_parameter_system_Definition moduleDirectory
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	160	stx_libbasic3 moduleDirectory
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	161	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	162
3a835fa7e38b initial checkin fm parents: diff changeset	163	"Created: / 08-08-2006 / 20:25:39 / fm"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	164	"Modified: / 18-08-2006 / 12:18:33 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	165	!
3a835fa7e38b initial checkin fm parents: diff changeset	166
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	167	moduleDirectoryFor:aProjectID
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	168	^ (aProjectID subStrings:$:) last
9536 3a835fa7e38b initial checkin fm parents: diff changeset	169
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	170	"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	171	bosch_dapasx_datenbasis_Definition moduleDirectory
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	172	bosch_dapasx_parameter_system_Definition moduleDirectory
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	173	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	174
3a835fa7e38b initial checkin fm parents: diff changeset	175	"Created: / 08-08-2006 / 20:25:39 / fm"
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	176	"Modified: / 17-08-2006 / 14:13:41 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	177	!
3a835fa7e38b initial checkin fm parents: diff changeset	178
9891 62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	179	moduleDirectory_win32
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	180	^ (PackageId from:self package) directory copy replaceAll:$/ with:$\
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	181
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	182	"
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	183	bosch_dapasx_datenbasis moduleDirectory_win32
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	184	bosch_dapasx_parameter_system moduleDirectory_win32
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	185	stx_libbasic3 moduleDirectory_win32
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	186	"
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	187
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	188	"Created: / 14-09-2006 / 20:19:17 / cg"
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	189	!
62a779fbc130 * empty log message * Claus Gittinger <cg@exept.de> parents: 9888 diff changeset	190
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	191	moduleFor:aProjectID
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	192	^ (aProjectID subStrings:$:) first
9536 3a835fa7e38b initial checkin fm parents: diff changeset	193
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	194	"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	195	DapasXProject module
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	196	DapasX_Datenbasis module
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	197	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	198
3a835fa7e38b initial checkin fm parents: diff changeset	199	"Created: / 09-08-2006 / 16:16:16 / fm"
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	200	"Modified: / 17-08-2006 / 14:13:46 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	201	!
3a835fa7e38b initial checkin fm parents: diff changeset	202
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	203	moduleOfClass:aClass
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	204	^ self moduleFor:aClass package
9536 3a835fa7e38b initial checkin fm parents: diff changeset	205
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	206	"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	207	DapasXProject module
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	208	DapasX_Datenbasis module
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	209	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	210
3a835fa7e38b initial checkin fm parents: diff changeset	211	"Created: / 09-08-2006 / 16:16:16 / fm"
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	212	"Modified: / 17-08-2006 / 14:13:51 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	213	!
3a835fa7e38b initial checkin fm parents: diff changeset	214
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	215	msdosPathToPackage:toPackageID from:fromPackageID
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	216	"Returns the path to the package defined by aPackageID relative to my path"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	217
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	218	\|parts1 parts2 common up down rel\|
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	219
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	220	parts1 := fromPackageID asCollectionOfSubstringsSeparatedByAny:':/'.
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	221	parts2 := toPackageID asCollectionOfSubstringsSeparatedByAny:':/'.
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	222	common := parts1 commonPrefixWith:parts2.
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	223	common notEmpty ifTrue:[
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	224	up := ((1 to:parts1 size - common size) collect:[:p \| '..\']) asStringWith:''.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	225	down := (parts2 copyFrom:common size+1) asStringWith:'\'.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	226	(up isEmpty and:[down isEmpty]) ifTrue:[^ '.'].
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	227	^ up,down
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	228	].
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	229
9901 6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	230	rel := (self topRelativePathToPackage_win32:toPackageID).
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	231	(rel startsWith:'stx\') ifTrue:[
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	232	^ '$(TOP)',(rel copyFrom:'stx' size+1)
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	233	].
9536 3a835fa7e38b initial checkin fm parents: diff changeset	234
9901 6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	235	^ '$(TOP)\..\',rel.
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	236
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	237	"/ pTop := self msdosPathToTopFor:fromPackageID.
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	238	"/ (pTop endsWith:'\stx') ifTrue:[
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	239	"/ ^ (pTop copyButLast:'stx' size),(self topRelativePathToPackage_win32:toPackageID)
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	240	"/ ] ifFalse:[
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	241	"/ ^ pTop,'\..\',(self topRelativePathToPackage_win32:toPackageID)
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	242	"/ ].
6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	243
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	244	"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	245	self msdosPathToPackage:'bosch:dapasx/kernel' from:'bosch:dapasx/application'
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	246	self msdosPathToPackage:'stx:libbasic' from:'bosch:dapasx/application'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	247	self msdosPathToPackage:'bosch:dapasx/application' from:'stx:libbasic'
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	248	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	249
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	250	"Created: / 17-08-2006 / 14:26:39 / cg"
9901 6ea34c2d6a54 * empty log message * Claus Gittinger <cg@exept.de> parents: 9898 diff changeset	251	"Modified: / 14-09-2006 / 22:04:56 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	252	!
3a835fa7e38b initial checkin fm parents: diff changeset	253
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	254	msdosPathToTopFor:aProjectID
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	255	"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	256
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	257	\|parts\|
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	258
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	259	parts := aProjectID asCollectionOfSubstringsSeparatedByAny:':/'.
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	260
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	261	aProjectID asPackageId module = 'stx' ifTrue:[
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	262	parts size == 1 ifTrue:[^ '.'].
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	263	^ (((2 to:parts size-1) collect:[:p \| '..\']) asStringWith:'') , '..'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	264	].
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	265
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	266	^ ((parts collect:[:p \| '..\']) asStringWith:'') , 'stx'
9536 3a835fa7e38b initial checkin fm parents: diff changeset	267
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	268	"
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	269	self msdosPathToTopFor: #'bosch'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	270	self msdosPathToTopFor: #'bosch:dapasx'
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	271	self msdosPathToTopFor: #'bosch:dapasx/datenbasis'
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	272	self msdosPathToTopFor: #'stx'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	273	self msdosPathToTopFor: #'stx:libview'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	274	self msdosPathToTopFor: #'stx:goodies/foo'
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	275	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	276
3a835fa7e38b initial checkin fm parents: diff changeset	277	"Created: / 09-08-2006 / 15:45:54 / fm"
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	278	"Modified: / 14-09-2006 / 14:49:17 / cg"
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	279	!
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	280
9536 3a835fa7e38b initial checkin fm parents: diff changeset	281	packageName
9688 aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	282	"the last component"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	283
9688 aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	284	^ self packageNameFor: self package
9536 3a835fa7e38b initial checkin fm parents: diff changeset	285
9688 aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	286	"
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	287	bosch_dapasx_hw_schnittstellen packageName
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	288	bosch_dapasx_datenbasis packageName
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	289	bosch_dapasx_parameter_system packageName
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	290	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	291
3a835fa7e38b initial checkin fm parents: diff changeset	292	"Created: / 08-08-2006 / 20:24:53 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	293	"Modified: / 09-08-2006 / 16:16:37 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	294	!
3a835fa7e38b initial checkin fm parents: diff changeset	295
3a835fa7e38b initial checkin fm parents: diff changeset	296	packageNameFor: aProjectID
9688 aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	297	^ (aProjectID asCollectionOfSubstringsSeparatedByAny:':/') last.
9536 3a835fa7e38b initial checkin fm parents: diff changeset	298
9688 aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	299	"
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	300	bosch_dapasx_hw_schnittstellen packageName
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	301	bosch_dapasx_datenbasis packageName
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	302	bosch_dapasx_parameter_system packageName
aa6ccbfbd00b * empty log message * Claus Gittinger <cg@exept.de> parents: 9685 diff changeset	303	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	304
3a835fa7e38b initial checkin fm parents: diff changeset	305	"Created: / 08-08-2006 / 20:24:53 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	306	"Modified: / 09-08-2006 / 16:16:37 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	307	"Modified: / 11-08-2006 / 14:02:32 / cg"
3a835fa7e38b initial checkin fm parents: diff changeset	308	!
3a835fa7e38b initial checkin fm parents: diff changeset	309
3a835fa7e38b initial checkin fm parents: diff changeset	310	parentProject
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	311	^ (self parentProjectFor: self package)
9536 3a835fa7e38b initial checkin fm parents: diff changeset	312
3a835fa7e38b initial checkin fm parents: diff changeset	313	"
3a835fa7e38b initial checkin fm parents: diff changeset	314	bosch_dapasx_hw_schnittstellen_Definition parentProject
3a835fa7e38b initial checkin fm parents: diff changeset	315	DapasX_Datenbasis parentProject
3a835fa7e38b initial checkin fm parents: diff changeset	316	"
3a835fa7e38b initial checkin fm parents: diff changeset	317
3a835fa7e38b initial checkin fm parents: diff changeset	318	"Created: / 07-08-2006 / 20:18:27 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	319	"Modified: / 08-08-2006 / 10:47:37 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	320	!
3a835fa7e38b initial checkin fm parents: diff changeset	321
3a835fa7e38b initial checkin fm parents: diff changeset	322	parentProjectFor: aProjectID
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	323	^ (aProjectID subStrings: $/) first
9536 3a835fa7e38b initial checkin fm parents: diff changeset	324
3a835fa7e38b initial checkin fm parents: diff changeset	325	"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	326	bosch_dapasx_hw_schnittstellen parentProject
9536 3a835fa7e38b initial checkin fm parents: diff changeset	327	"
3a835fa7e38b initial checkin fm parents: diff changeset	328
3a835fa7e38b initial checkin fm parents: diff changeset	329	"Created: / 07-08-2006 / 20:18:27 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	330	"Modified: / 08-08-2006 / 10:47:37 / fm"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	331	"Modified: / 23-08-2006 / 15:07:36 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	332	!
3a835fa7e38b initial checkin fm parents: diff changeset	333
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	334	pathSeparator:platformName
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	335	platformName == #unix ifTrue:[
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	336	^ self pathSeparator_unix
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	337	].
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	338	platformName == #win32 ifTrue:[
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	339	^ self pathSeparator_win32
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	340	].
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	341	self error:'unknown operating system platform'.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	342
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	343	"Created: / 14-09-2006 / 13:38:00 / cg"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	344	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	345
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	346	pathSeparator_unix
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	347	^ $/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	348
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	349	"Created: / 14-09-2006 / 13:37:18 / cg"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	350	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	351
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	352	pathSeparator_win32
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	353	^ $\
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	354
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	355	"Created: / 14-09-2006 / 13:37:23 / cg"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	356	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	357
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	358	pathTo:aBaseFilename inPackage:aPackageID architecture:arch
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	359	"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	360
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	361	\|p\|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	362
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	363	arch == #unix ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	364	p := (self pathToPackage_unix:aPackageID).
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	365	aBaseFilename isNil ifTrue:[^ p].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	366	^ p , '/' , aBaseFilename
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	367	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	368	arch == #win32 ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	369	p := self pathToPackage_win32:aPackageID.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	370	aBaseFilename isNil ifTrue:[^ p].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	371	^ p , '\' , aBaseFilename
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	372	].
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	373	self error:'unknown operating system platform'.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	374
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	375	"Created: / 14-09-2006 / 13:29:20 / cg"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	376	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	377
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	378	pathToPackage_unix:aPackageID
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	379	"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	380
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	381	\|pTop\|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	382
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	383	aPackageID asPackageId module = self package asPackageId module ifTrue:[
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	384	^ self unixPathToPackage:aPackageID from:self package
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	385	].
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	386	pTop := self pathToTop_unix.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	387	(pTop endsWith:'/stx') ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	388	^ (pTop copyWithoutLast:'stx' size),(self topRelativePathToPackage_unix:aPackageID)
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	389	] ifFalse:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	390	^ pTop,'/../',(self topRelativePathToPackage_unix:aPackageID)
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	391	]
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	392
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	393	"
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	394	bosch_dapasx_kernel pathToPackage_unix:'bosch:dapasx/kernel'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	395	bosch_dapasx_kernel pathToPackage_unix:'bosch:dapasx/support'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	396	stx_libbasic pathToPackage_unix:'bosch:dapasx/kernel'
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	397	"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	398
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	399	"Modified: / 16-08-2006 / 18:55:41 / User"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	400	"Created: / 14-09-2006 / 13:21:23 / cg"
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	401	"Modified: / 14-09-2006 / 15:23:59 / cg"
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	402	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	403
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	404	pathToPackage_win32:aPackageID
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	405	"Returns the path to the package defined by aPackageID relative to my path"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	406
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	407	\|pTop\|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	408
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	409	aPackageID asPackageId module = self package asPackageId module ifTrue:[
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	410	^ self msdosPathToPackage:aPackageID from:self package
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	411	].
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	412
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	413	pTop := self pathToTop_win32.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	414	(pTop endsWith:'\stx') ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	415	^ (pTop copyWithoutLast:'stx' size),(self topRelativePathToPackage_win32:aPackageID)
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	416	] ifFalse:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	417	^ pTop,'\..\',(self topRelativePathToPackage_win32:aPackageID)
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	418	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	419
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	420	"
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	421	self pathToPackage_win32:'bosch:dapasx/kernel'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	422	bosch_dapasx_kernel pathToPackage_win32:'bosch:dapasx/kernel'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	423	bosch_dapasx_kernel pathToPackage_win32:'bosch:dapasx/support'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	424	stx_libbasic pathToPackage_win32:'bosch:dapasx/kernel'
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	425	"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	426
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	427	"Created: / 14-09-2006 / 13:22:52 / cg"
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	428	"Modified: / 14-09-2006 / 15:28:45 / cg"
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	429	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	430
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	431	pathToTop_unix
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	432	"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	433
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	434	^ self unixPathToTopFor:self package.
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	435
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	436	"
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	437	bosch_dapasx_kernel pathToTop_unix
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	438	stx_goodies_xml pathToTop_unix
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	439	stx_libhtml pathToTop_unix
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	440	stx_goodies_refactoryBrowser_changes pathToTop_unix
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	441	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	442
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	443	"Created: / 09-08-2006 / 15:45:54 / fm"
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	444	"Modified: / 14-09-2006 / 15:01:47 / cg"
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	445	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	446
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	447	pathToTop_win32
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	448	"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	449
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	450	^self msdosPathToTopFor: self package
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	451
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	452	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	453	bosch_dapasx_datenbasis pathToTop_win32
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	454	stx_libbasic pathToTop_win32
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	455	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	456
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	457	"Created: / 09-08-2006 / 15:45:54 / fm"
9831 02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	458	"Modified: / 07-09-2006 / 15:51:00 / cg"
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	459	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	460
10433 4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	461	projectIsLoaded
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	462	"answer true, if this project is completely loaded into the image"
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	463
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	464	projectIsLoaded isNil ifTrue:[
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	465	projectIsLoaded := false.
10433 4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	466	].
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	467	^ projectIsLoaded
10433 4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	468
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	469	"
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	470	stx_libbasic projectIsLoaded
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	471	"
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	472	!
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	473
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	474	projectIsLoaded:something
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	475	projectIsLoaded := something.
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	476	something == true ifTrue:[
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	477	"register myself as dependent - I want to get notified on method changes"
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	478	self class addDependent:self.
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	479	].
10433 4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	480	!
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	481
9536 3a835fa7e38b initial checkin fm parents: diff changeset	482	requiredProjects
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	483	^ self preRequisites , self subProjects
9536 3a835fa7e38b initial checkin fm parents: diff changeset	484	!
3a835fa7e38b initial checkin fm parents: diff changeset	485
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	486	topRelativePathTo:aBaseFilename inPackage:aPackageID architecture:arch
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	487	"Returns the path to stx counting the number of $/ and $: in the package name
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	488	and adding for each one '../' to get the ST/X top directory"
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	489
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	490	\|p\|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	491
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	492	arch == #unix ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	493	p := (self topRelativePathToPackage_unix:aPackageID).
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	494	aBaseFilename isNil ifTrue:[^ p].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	495	^ p , '/' , aBaseFilename
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	496	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	497	arch == #win32 ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	498	p := self topRelativePathToPackage_win32:aPackageID.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	499	aBaseFilename isNil ifTrue:[^ p].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	500	^ p , '\' , aBaseFilename
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	501	].
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	502	self error:'unknown operating system platform'.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	503
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	504	"Created: / 14-09-2006 / 13:34:05 / cg"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	505	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	506
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	507	topRelativePathToPackage_unix:aPackageID
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	508	"Returns the path to the package as specified by aPackageID relative to the top directory"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	509
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	510	^ aPackageID asString copy replaceAny:':/' with:$/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	511
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	512	"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	513	self topRelativePathToPackage_unix:'stx:goodies/xml'
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	514	self topRelativePathToPackage_unix:'bosch:dapasx/kernel'
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	515	"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	516
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	517	"Created: / 14-09-2006 / 13:20:40 / cg"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	518	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	519
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	520	topRelativePathToPackage_win32:aPackageID
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	521	"Returns the path to the package as specified by aPackageID relative to the top directory"
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	522
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	523	^ aPackageID asString copy replaceAny:':/' with:$\
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	524
06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	525	"
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	526	self topRelativePathToPackage_win32:'stx:goodies/xml'
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	527	self topRelativePathToPackage_win32:'bosch:dapasx/kernel'
9559 06e8b0498471 code cleanup Claus Gittinger <cg@exept.de> parents: 9555 diff changeset	528	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	529
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	530	"Created: / 14-09-2006 / 13:20:12 / cg"
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	531	!
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	532
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	533	unixPathToPackage:toPackageID from:fromPackageID
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	534	"Returns the path to the package defined by aPackageID relative to my path"
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	535
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	536	\|pTop parts1 parts2 common up down\|
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	537
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	538	parts1 := fromPackageID asCollectionOfSubstringsSeparatedByAny:':/'.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	539	parts2 := toPackageID asCollectionOfSubstringsSeparatedByAny:':/'.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	540	common := parts1 commonPrefixWith:parts2.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	541	common notEmpty ifTrue:[
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	542	up := ((1 to:parts1 size - common size) collect:[:p \| '../']) asStringWith:''.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	543	down := (parts2 copyFrom:common size+1) asStringWith:'/'.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	544	(up isEmpty and:[down isEmpty]) ifTrue:[^ '.'].
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	545	^ up , down
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	546	].
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	547
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	548	pTop := self unixPathToTopFor:fromPackageID.
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	549	(pTop endsWith:'/stx') ifTrue:[
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	550	^ (pTop copyButLast:'stx' size),(self topRelativePathToPackage_unix:toPackageID)
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	551	] ifFalse:[
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	552	^ pTop,'/../',(self topRelativePathToPackage_unix:toPackageID)
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	553	].
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	554
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	555	"
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	556	self msdosPathToPackage:'bosch:dapasx/kernel' from:'bosch:dapasx/application'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	557	self msdosPathToPackage:'stx:libbasic' from:'bosch:dapasx/application'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	558	self msdosPathToPackage:'bosch:dapasx/application' from:'stx:libbasic'
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	559	"
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	560
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	561	"Created: / 14-09-2006 / 15:21:10 / cg"
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	562	!
378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	563
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	564	unixPathToTopFor:aProjectID
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	565	"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	566
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	567	\|parts\|
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	568
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	569	parts := aProjectID asCollectionOfSubstringsSeparatedByAny:':/'.
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	570
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	571	aProjectID asPackageId module = 'stx' ifTrue:[
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	572	parts size == 1 ifTrue:[^ '.'].
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	573	^ (((2 to:parts size-1) collect:[:p \| '../']) asStringWith:'') , '..'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	574	].
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	575
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	576	^ ((parts collect:[:p \| '../']) asStringWith:'') , 'stx'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	577
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	578	"
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	579	self unixPathToTopFor: #'bosch'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	580	self unixPathToTopFor: #'bosch:dapasx'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	581	self unixPathToTopFor: #'bosch:dapasx/datenbasis'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	582	self unixPathToTopFor: #'stx'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	583	self unixPathToTopFor: #'stx:libview'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	584	self unixPathToTopFor: #'stx:goodies/foo'
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	585	"
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	586
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	587	"Created: / 14-09-2006 / 14:59:53 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	588	! !
3a835fa7e38b initial checkin fm parents: diff changeset	589
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	590	!ProjectDefinition class methodsFor:'class initialization'!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	591
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	592	initialize
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	593	LibraryType := #'Library'.
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	594	GUIApplicationType := #'GUI-Application'.
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	595	NonGUIApplicationType := #'NonGUI-Application'.
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	596
10121 067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	597	"
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	598	self initialize
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	599	"
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	600
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	601	"Modified: / 23-10-2006 / 16:40:58 / cg"
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	602	!
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	603
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	604	initializeAllProjectDefinitions
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	605	"needs everything else (especially the compiler etc.) to be initialized.
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	606	Therefore, its not invoked by #initialize, but instead explicitely,
067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	607	by Smalltalk"
10119 3d8028cacf74 * empty log message * Claus Gittinger <cg@exept.de> parents: 10117 diff changeset	608
10124 d38b40bc1dfc * empty log message * Claus Gittinger <cg@exept.de> parents: 10121 diff changeset	609	Smalltalk isStandAloneApp ifFalse:[
d38b40bc1dfc * empty log message * Claus Gittinger <cg@exept.de> parents: 10121 diff changeset	610	self allSubclassesDo:[:eachProjectDefinitionClass \|
d38b40bc1dfc * empty log message * Claus Gittinger <cg@exept.de> parents: 10121 diff changeset	611	eachProjectDefinitionClass installAutoloadedClasses.
d38b40bc1dfc * empty log message * Claus Gittinger <cg@exept.de> parents: 10121 diff changeset	612	].
10115 a43005ac7423 * empty log message * Claus Gittinger <cg@exept.de> parents: 10114 diff changeset	613	].
a43005ac7423 * empty log message * Claus Gittinger <cg@exept.de> parents: 10114 diff changeset	614
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	615	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	616	self initialize
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	617	"
10113 78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	618
10121 067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	619	"Created: / 23-10-2006 / 16:40:53 / cg"
10113 78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	620	!
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	621
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	622	installAutoloadedClasses
10114 889031849160 * empty log message * Claus Gittinger <cg@exept.de> parents: 10113 diff changeset	623	(self classNamesForWhich:[:nm :attr \| (attr includes:#autoload)])
889031849160 * empty log message * Claus Gittinger <cg@exept.de> parents: 10113 diff changeset	624	do:[:className \|
10121 067b986ee77b * empty log message * Claus Gittinger <cg@exept.de> parents: 10119 diff changeset	625	"/ 'install as autoloaded: ' errorPrint. className errorPrintCR.
10114 889031849160 * empty log message * Claus Gittinger <cg@exept.de> parents: 10113 diff changeset	626	(Smalltalk classNamed:className) isNil ifTrue:[
10113 78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	627	Smalltalk
10114 889031849160 * empty log message * Claus Gittinger <cg@exept.de> parents: 10113 diff changeset	628	installAutoloadedClassNamed:className
10163 6f77d0729575 * empty log message * Claus Gittinger <cg@exept.de> parents: 10154 diff changeset	629	category:'* as yet unknown category *'
10113 78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	630	package:self package
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	631	revision:nil
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	632	].
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	633	].
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	634
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	635	"
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	636	stx_libbasic installAutoloadedClasses
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	637	"
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	638
78086bf25905 install autoloaded classes (if not already present) Claus Gittinger <cg@exept.de> parents: 10106 diff changeset	639	"Created: / 23-10-2006 / 16:02:12 / cg"
10163 6f77d0729575 * empty log message * Claus Gittinger <cg@exept.de> parents: 10154 diff changeset	640	"Modified: / 08-11-2006 / 17:08:06 / cg"
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	641	! !
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	642
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	643	!ProjectDefinition class methodsFor:'code generation'!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	644
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	645	classNamesAndAttributes_codeFor:aSpecArray
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	646	"generate method code returning all classes of the project from the given spec."
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	647
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	648	^ String streamContents:[:s \|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	649	s nextPutLine:'classNamesAndAttributes'.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	650	s nextPutLine:' ^ #('.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	651	s nextPutLine:' "<className> or (<className> attributes...) in load order"'.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	652
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	653	(self classNamesAndAttributesFromSpecArray:aSpecArray) do:[:entry \|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	654	s spaces:8.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	655	entry storeArrayElementOn:s.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	656	s cr.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	657	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	658	s nextPutLine:' )'
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	659	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	660
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	661	"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	662	stx_libbasic3 classNamesAndAttributes_codeFor:(stx_libbasic3 classNamesAndAttributes)
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	663	exept_expecco classNamesAndAttributes_codeFor:(exept_expecco classNamesAndAttributes)
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	664	"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	665
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	666	"Modified: / 08-08-2006 / 19:24:34 / fm"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	667	"Created: / 19-02-2007 / 15:43:27 / cg"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	668	!
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	669
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	670	classNamesAndAttributes_code_ignoreOldEntries:ignoreOldEntries ignoreOldDefinition:ignoreOldDefinition
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	671	"generate method code returning all classes of the project.
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	672	Platform attributes are kept from the old definition.
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	673	If ignoreOldEntries is true, the list is completely recreated;
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	674	if false, existing entries are preserved.
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	675	If ignoreOldDefinition is true, the autoload attribute is set/reset if
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	676	the class is installed as autoloaded in the image (i.e. the state in the image is taken).
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	677	If false, it is taken from an existing definition in #classNamesAndAttributes"
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	678
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	679	\|newSpec oldSpec ignored\|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	680
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	681	oldSpec := self classNamesAndAttributesAsSpecArray.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	682	ignored := self ignoredClassNames asSet.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	683	newSpec := OrderedCollection new.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	684
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	685	ignoreOldEntries ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	686	oldSpec do:[:oldEntry \|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	687	\|newEntry className cls\|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	688
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	689	newEntry := oldEntry copy.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	690	className := newEntry first.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	691
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	692	(ignored includes:className) ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	693	cls := Smalltalk classNamed:className.
10405 1e4e2f0908e5 update vs. regenerate project definition Claus Gittinger <cg@exept.de> parents: 10404 diff changeset	694	ignoreOldDefinition ifTrue:[
1e4e2f0908e5 update vs. regenerate project definition Claus Gittinger <cg@exept.de> parents: 10404 diff changeset	695	(cls notNil and:[cls isLoaded not]) ifTrue:[
1e4e2f0908e5 update vs. regenerate project definition Claus Gittinger <cg@exept.de> parents: 10404 diff changeset	696	(newEntry includes:#autoload) ifFalse:[
1e4e2f0908e5 update vs. regenerate project definition Claus Gittinger <cg@exept.de> parents: 10404 diff changeset	697	newEntry := newEntry copyWith:#autoload.
1e4e2f0908e5 update vs. regenerate project definition Claus Gittinger <cg@exept.de> parents: 10404 diff changeset	698	].
10188 660aa980d6ae care for autoload attribute Claus Gittinger <cg@exept.de> parents: 10187 diff changeset	699	].
660aa980d6ae care for autoload attribute Claus Gittinger <cg@exept.de> parents: 10187 diff changeset	700	].
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	701	newSpec add:newEntry.
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	702	].
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	703	].
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	704	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	705
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	706	self searchForClasses do:[:eachClass \|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	707	\|className attributes oldSpecEntry oldAttributes newEntry\|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	708
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	709	className := eachClass name.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	710	(ignored includes:className) ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	711	oldSpecEntry := oldSpec detect:[:entry \| entry first = className] ifNone:nil.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	712
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	713	(ignoreOldEntries or:[ oldSpecEntry isNil]) ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	714	(eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	715	(self additionalClassNamesAndAttributes includes:className) ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	716	(oldSpecEntry size > 1) ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	717	oldAttributes := oldSpecEntry copyFrom:2.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	718	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	719
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	720	ignoreOldDefinition ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	721	"take autoload attribute from classes state in the image"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	722	oldAttributes notNil ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	723	attributes := oldAttributes copyWithout:#autoload.
10074 7f5870c6a152 care to not list a class in both additionalClassNamesAndAttributes Claus Gittinger <cg@exept.de> parents: 10073 diff changeset	724	] ifFalse:[
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	725	attributes := #()
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	726	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	727	eachClass isLoaded ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	728	attributes := attributes copyWith:#autoload.
10074 7f5870c6a152 care to not list a class in both additionalClassNamesAndAttributes Claus Gittinger <cg@exept.de> parents: 10073 diff changeset	729	].
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	730	] ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	731	"keep any existing attribute"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	732	oldAttributes notNil ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	733	attributes := oldAttributes.
10350 f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	734	] ifFalse:[
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	735	attributes := eachClass isLoaded ifTrue:[ #() ] ifFalse:[ #(autoload) ].
10350 f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	736	].
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	737	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	738
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	739	newEntry := Array with:className.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	740	attributes notEmptyOrNil ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	741	newEntry := newEntry , attributes.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	742	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	743	newSpec add:newEntry
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	744	]
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	745	]
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	746	]
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	747	]
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	748	].
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	749	^ self classNamesAndAttributes_codeFor:newSpec
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	750
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	751	"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	752	stx_libbasic3 classNamesAndAttributes_code_ignoreOldEntries:false ignoreOldDefinition:true
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	753	exept_expecco classNamesAndAttributes_code_ignoreOldEntries:false ignoreOldDefinition:true
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	754	"
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	755
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	756	"Modified: / 08-08-2006 / 19:24:34 / fm"
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	757	"Created: / 10-10-2006 / 22:00:50 / cg"
10405 1e4e2f0908e5 update vs. regenerate project definition Claus Gittinger <cg@exept.de> parents: 10404 diff changeset	758	"Modified: / 22-02-2007 / 15:06:37 / cg"
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	759	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	760
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	761	companyName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	762	^ String streamContents:[:s \|
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	763	s nextPutLine:'companyName'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	764	s nextPutLine:' "Return a companyname which will appear in <lib>.rc"'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	765	s cr; nextPutLine:' ^ ',self companyName storeString.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	766	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	767
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	768	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	769	self companyName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	770	stx_libbasic3 companyName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	771	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	772
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	773	"Created: / 18-08-2006 / 16:20:42 / cg"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	774	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	775
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	776	compileDescriptionMethods
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	777	(self isLibraryDefinition
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	778	or:[ self isApplicationDefinition ] ) ifFalse:[
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	779	self error:'I am abstract - must be a subclass of Libray- or ApplicationDefinition.'
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	780	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	781
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	782	self
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	783	forEachMethodsCodeToCompileDo:[:code :category \|
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	784	self compile:code categorized:category
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	785	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	786
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	787	"/ self instAndClassMethodsDo:[:m \| m package:self package].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	788
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	789	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	790	DapasXProject compileDescriptionMethods
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	791	DapasX_Datenbasis compileDescriptionMethods
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	792	bosch_dapasx_interactiver_editor compileDescriptionMethods
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	793	stx_libbasic compileDescriptionMethods
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	794	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	795
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	796	"Created: / 09-08-2006 / 18:00:31 / fm"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	797	"Modified: / 05-09-2006 / 13:46:29 / cg"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	798	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	799
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	800	description_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	801	^ String streamContents:[:s \|
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	802	s nextPutLine:'description'.
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	803	s nextPutLine:' "Return a description string which will appear in vc.def / bc.def"'.
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	804	s cr; nextPutLine:' ^ ',self description asString storeString.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	805	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	806
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	807	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	808	self description_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	809	stx_libbasic3 description_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	810	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	811
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	812	"Created: / 17-08-2006 / 21:24:01 / cg"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	813	"Modified: / 18-08-2006 / 16:16:24 / cg"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	814	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	815
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	816	extensionMethodNames_code
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	817	^ self extensionMethodNames_code_ignoreOldEntries:true
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	818
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	819	"
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	820	self extensionMethodNames_code
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	821	"
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	822
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	823	"Created: / 17-08-2006 / 21:21:48 / cg"
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	824	"Modified: / 10-10-2006 / 22:02:42 / cg"
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	825	!
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	826
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	827	extensionMethodNames_code_ignoreOldEntries:ignoreOldEntries
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	828	^ String streamContents:[:s \|
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	829	\|oldSpec\|
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	830
10106 c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	831	s nextPutLine:'extensionMethodNames'.
c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	832	s nextPutLine:' ^ #('.
c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	833
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	834	oldSpec := self extensionMethodNames pairWiseCollect:[:className :selector \| className -> selector ].
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	835
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	836	ignoreOldEntries ifFalse:[
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	837	oldSpec do:[:entry \|
10067 77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	838	\|mclassName mselector\|
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	839
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	840	mclassName := entry key asSymbol.
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	841	mselector := entry value asSymbol.
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	842
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	843	s spaces:8.
10067 77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	844	mclassName storeArrayElementOn:s.
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	845	s space.
10067 77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	846	mselector storeArrayElementOn:s.
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	847	s cr.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	848	].
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	849	].
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	850
10011 4df81726da18 fix previous change Stefan Vogel <sv@exept.de> parents: 10010 diff changeset	851	self searchForExtensions do:[:eachMethod \|
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	852	\|attributes oldSpecEntry mclassName mselector\|
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	853
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	854	mclassName := eachMethod mclass name.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	855	mselector := eachMethod selector.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	856	oldSpecEntry := oldSpec detect:[:entry \| entry key = mclassName and:[ entry value = mselector]] ifNone:nil.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	857	(ignoreOldEntries or:[ oldSpecEntry isNil]) ifTrue:[
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	858	s spaces:8.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	859	mclassName storeArrayElementOn:s.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	860	s space.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	861	mselector storeArrayElementOn:s.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	862	s cr.
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	863	]
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	864	].
10106 c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	865
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	866	s nextPutLine:' )'
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	867	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	868
10106 c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	869	"
c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	870	self extensionMethodNames_code_ignoreOldEntries:false
c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	871	stx_libtool extensionMethodNames_code_ignoreOldEntries:false
c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	872	stx_libtool extensionMethodNames_code_ignoreOldEntries:true
c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	873	"
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	874
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	875	"Created: / 10-10-2006 / 22:02:36 / cg"
10106 c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	876	"Modified: / 23-10-2006 / 11:07:29 / cg"
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	877	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	878
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	879	forEachContentsMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	880	aTwoArgBlock
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	881	value:(self classNamesAndAttributes_code_ignoreOldEntries:ignoreOldDefinition ignoreOldDefinition:ignoreOldDefinition)
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	882	value:'description - contents'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	883
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	884	aTwoArgBlock
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	885	value: (self extensionMethodNames_code_ignoreOldEntries:ignoreOldDefinition)
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	886	value: 'description - contents'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	887
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	888	aTwoArgBlock
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	889	value: self preRequisites_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	890	value: 'description'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	891
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	892	"Created: / 15-09-2006 / 16:47:54 / cg"
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	893	"Modified: / 10-10-2006 / 22:01:28 / cg"
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	894	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	895
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	896	forEachMethodsCodeToCompileDo:aTwoArgBlock
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	897	self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	898	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	899
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	900	forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	901	self
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	902	forEachContentsMethodsCodeToCompileDo:aTwoArgBlock
fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	903	ignoreOldDefinition:ignoreOldDefinition.
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	904
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	905	(self class implements:#description) ifFalse:[
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	906	aTwoArgBlock
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	907	value: self description_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	908	value: 'description - project information'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	909	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	910	(self class implements:#productName) ifFalse:[
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	911	aTwoArgBlock
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	912	value: self productName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	913	value: 'description - project information'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	914	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	915	(self class implements:#companyName) ifFalse:[
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	916	aTwoArgBlock
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	917	value: self companyName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	918	value: 'description - project information'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	919	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	920	(self class implements:#legalCopyright) ifFalse:[
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	921	aTwoArgBlock
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	922	value: self legalCopyright_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	923	value: 'description - project information'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	924	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	925
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	926	"Created: / 18-08-2006 / 16:22:37 / cg"
10064 fb1ad676019d update spec vs. regenerate spec. Claus Gittinger <cg@exept.de> parents: 10063 diff changeset	927	"Modified: / 10-10-2006 / 22:02:24 / cg"
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	928	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	929
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	930	legalCopyright_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	931	^ String streamContents:[:s \|
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	932	s nextPutLine:'legalCopyright'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	933	s nextPutLine:' "Return a copyright string which will appear in <lib>.rc"'.
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	934	s cr; nextPutLine:' ^ ', self legalCopyright storeString.
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	935	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	936
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	937	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	938	self legalCopyright_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	939	stx_libbasic3 legalCopyright_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	940	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	941
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	942	"Created: / 18-08-2006 / 16:21:01 / cg"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	943	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	944
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	945	preRequisites_code
10179 cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	946	\|preRequisites searchedPreRequisites\|
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	947
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	948	preRequisites := self preRequisites asSet.
10179 cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	949	searchedPreRequisites := self searchForPreRequisites.
cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	950	preRequisites addAll: (searchedPreRequisites keys).
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	951
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	952	self isApplicationDefinition ifTrue:[
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	953	preRequisites add:#'stx:libcomp'.
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	954	self isGUIApplication ifTrue:[
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	955	preRequisites add:#'stx:libbasic2'.
c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	956	preRequisites add:#'stx:libview'.
c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	957	preRequisites add:#'stx:libview2'.
c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	958	preRequisites add:#'stx:libwidg'.
c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	959	preRequisites add:#'stx:libwidg2'.
c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	960	preRequisites add:#'stx:libui'.
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	961	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	962	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	963
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	964	preRequisites removeAll: self excludedFromPreRequisites.
10034 80dd6504b8bc * empty log message * Claus Gittinger <cg@exept.de> parents: 10022 diff changeset	965	preRequisites remove:self package ifAbsent:[].
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	966
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	967	^ String streamContents:[:s \|
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	968	s nextPutLine:'preRequisites'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	969	s nextPutLine:' ^ #('.
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	970	preRequisites asSortedCollection do:[:eachPackageID \|
10179 cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	971	\|reason\|
cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	972
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	973	s spaces:8.
c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	974	eachPackageID storeOn:s.
10179 cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	975	reason := searchedPreRequisites at:eachPackageID ifAbsent:nil.
cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	976	reason notEmptyOrNil ifTrue:[
cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	977	s nextPutAll:' "'; nextPutAll:reason anElement; nextPutAll:' "'.
cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	978	].
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	979	s cr.
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	980	].
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	981	s nextPutLine:' )'
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	982	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	983
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	984	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	985	bosch_dapasx_application preRequisites_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	986	demo_demoApp1 preRequisites_code
10013 c6cd8f035693 pretty format of generated methods Stefan Vogel <sv@exept.de> parents: 10011 diff changeset	987	stx_libtool2 preRequisites_code
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	988	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	989
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	990	"Modified: / 08-08-2006 / 19:24:34 / fm"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	991	"Created: / 17-08-2006 / 21:28:09 / cg"
10063 580a7b4b4b81 * empty log message * Claus Gittinger <cg@exept.de> parents: 10058 diff changeset	992	"Modified: / 09-10-2006 / 14:27:20 / cg"
9998 49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	993	!
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	994
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	995	productName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	996	^ String streamContents:[:s \|
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	997	s nextPutLine:'productName'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	998	s nextPutLine:' "Return a product name which will appear in <lib>.rc"'.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	999	s cr; nextPutLine:' ^ ',self productName storeString.
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1000	].
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1001
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1002	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1003	self productName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1004	stx_libbasic3 productName_code
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1005	"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1006
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1007	"Created: / 18-08-2006 / 16:14:19 / cg"
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1008	! !
49e54dc8ecc0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9996 diff changeset	1009
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	1010	!ProjectDefinition class methodsFor:'defaults'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1011
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1012	applicationTypes
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1013	GUIApplicationType isNil ifTrue:[self initialize].
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1014	^ Array with:GUIApplicationType with:NonGUIApplicationType
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1015
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1016	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1017	self applicationTypes
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1018	"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1019	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1020
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	1021	defaultCategory
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	1022	^'* Projects *'
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	1023
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	1024	"Created: / 11-08-2006 / 14:16:49 / cg"
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	1025	!
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	1026
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1027	defaultProjectType
9745 82c6afc86a68 * empty log message * Claus Gittinger <cg@exept.de> parents: 9733 diff changeset	1028	^ self libraryTypes first
82c6afc86a68 * empty log message * Claus Gittinger <cg@exept.de> parents: 9733 diff changeset	1029	"/ ^ self applicationTypes first
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1030
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1031	"Created: / 23-08-2006 / 14:27:32 / cg"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1032	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1033
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1034	defaultProjectTypeForGUIApplication
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1035	^ GUIApplicationType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1036	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1037
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1038	defaultProjectTypeForNonGUIApplication
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1039	^ NonGUIApplicationType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1040	!
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1041
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1042	guiApplicationType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1043	^ GUIApplicationType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1044	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1045
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1046	libraryType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1047	^ LibraryType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1048	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1049
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1050	libraryTypes
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1051	LibraryType isNil ifTrue:[self initialize].
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1052	^ Array with:LibraryType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1053
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1054	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1055	self libraryTypes
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1056	"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1057	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1058
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1059	nonGuiApplicationType
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1060	^ NonGUIApplicationType
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1061	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1062
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1063	projectTypes
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1064	^ self libraryTypes , self applicationTypes
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1065
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	1066	"Created: / 23-08-2006 / 14:27:32 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1067	! !
3a835fa7e38b initial checkin fm parents: diff changeset	1068
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	1069	!ProjectDefinition class methodsFor:'description'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1070
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1071	excludedFromPreRequisites
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1072	"list packages which are to be explicitely excluded from the automatic constructed
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1073	prerequisites list. If empty, everything that is found along the inheritance of any of
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1074	my classes is considered to be a prerequisite package."
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1075
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1076	^ #()
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1077
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1078	"Modified: / 17-08-2006 / 19:48:59 / cg"
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1079	!
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	1080
10380 ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	1081	excludedFromSubProjects
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	1082	"list packages which are to be explicitely excluded from the automatic constructed
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	1083	subProjects list. If empty, every sub-package is included as a prerequisite."
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	1084
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	1085	^ #()
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	1086
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	1087	"Modified: / 17-08-2006 / 19:49:40 / cg"
10039 0270d37a36c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 10034 diff changeset	1088	!
0270d37a36c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 10034 diff changeset	1089
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1090	postLoadAction
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1091	"invoked after loading a project"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1092
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1093	"/ intentionally left blank
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1094
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1095	"Created: / 08-08-2006 / 11:07:40 / fm"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1096	"Modified: / 17-08-2006 / 19:59:17 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1097	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1098
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1099	preRequisites
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1100	"list packages which are required as a prerequisite. This method is generated automatically,
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1101	by searching along the inheritance chain of all of my classes.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1102	However, when generating automatically, packages are only added - never removed, unless listed
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1103	in excludedFromPreRequisites."
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1104
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1105	^ #()
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1106
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1107	"Modified: / 17-08-2006 / 19:54:21 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1108	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1109
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1110	preUnloadAction
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1111	"invoked before unloading a project"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1112
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1113	"/ intentionally left blank
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1114
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1115	"Created: / 08-08-2006 / 11:07:40 / fm"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1116	"Modified: / 17-08-2006 / 19:59:26 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1117	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1118
9685 e6a533e0a5e5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9683 diff changeset	1119	siblingsAreSubProjects
e6a533e0a5e5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9683 diff changeset	1120	^ false
e6a533e0a5e5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9683 diff changeset	1121	!
e6a533e0a5e5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9683 diff changeset	1122
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1123	subProjects
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1124	"list packages which are known as subprojects. This method is generated automatically.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1125	However, when generating automatically, packages are only added - never removed, unless listed
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1126	in excludedFromSubProjects."
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1127
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1128	^ #()
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1129
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1130	"Modified: / 17-08-2006 / 19:57:46 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1131	! !
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1132
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1133	!ProjectDefinition class methodsFor:'description - classes'!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1134
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1135	additionalClassNamesAndAttributes
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1136	^ #()
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1137
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1138	"Created: / 21-08-2006 / 19:53:04 / cg"
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1139	!
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1140
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1141	allClassNames
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1142	^ self classNamesForWhich:[:nm :attr \| true ].
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1143	!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1144
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1145	classNames
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	1146	"answer an array containing all the class names of the project's classes.
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	1147	A correponding method with real names is generated in my subclasses"
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	1148
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	1149	^ self subclassResponsibility.
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1150	!
3a835fa7e38b initial checkin fm parents: diff changeset	1151
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1152	classNamesAndAttributes
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1153	"a correponding method with real names is generated in my subclasses"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1154
9595 016b493d0fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	1155	^ #()
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1156
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1157	"Created: / 07-08-2006 / 19:02:57 / fm"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1158	"Modified: / 07-08-2006 / 21:25:25 / fm"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1159	"Modified: / 17-08-2006 / 20:47:20 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1160	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1161
10393 68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1162	classNamesAndAttributesAsSpecArray
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1163	"given a classNamesAndAttributes array, make this a spec array (array of arrays).
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1164	This decompresses class-name entries into a one-element array for easier processing"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1165
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1166	^ self classNamesAndAttributes
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1167	collect:[:entry \|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1168	entry isArray ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1169	entry first isSymbol ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1170	entry
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1171	] ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1172	(Array with:entry first asSymbol) , (entry copyFrom:2)
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1173	].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1174	] ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1175	Array with:entry asSymbol.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1176	]].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1177
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1178	"Created: / 19-02-2007 / 16:11:53 / cg"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1179	!
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1180
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1181	classNamesAndAttributesFromSpecArray:aSpecArray
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1182	"given a spec array (array of arrays), make this a classNamesAndAttributes array
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1183	as stored literally in the method.
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1184	This compresses single element array-elements into plain names
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1185	(to save code in the compiled binaries)"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1186
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1187	^ aSpecArray
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1188	collect:[:entry \|
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1189	(entry isArray and:[entry size == 1]) ifTrue:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1190	entry first
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1191	] ifFalse:[
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1192	entry
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1193	]].
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1194
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1195	"Created: / 19-02-2007 / 16:12:32 / cg"
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1196	!
68b206e1af51 * empty log message * Claus Gittinger <cg@exept.de> parents: 10380 diff changeset	1197
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1198	classNamesForWhich:aBlock
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1199	"a correponding method with real names is generated in my subclasses"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1200
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1201	\|coll\|
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1202
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1203	coll := OrderedCollection new.
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1204	self classNamesAndAttributesDo:[:nm :attributes \|
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1205	(aBlock value:nm value:attributes) ifTrue:[
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1206	coll add:nm.
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1207	].
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1208	].
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1209	^ coll
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1210
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1211	"Created: / 07-08-2006 / 19:02:57 / fm"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1212	"Modified: / 07-08-2006 / 21:25:25 / fm"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1213	"Modified: / 17-08-2006 / 20:47:20 / cg"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1214	!
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1215
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1216	compiled_classNames
9615 ffe207a8fc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 9609 diff changeset	1217	^ self classNamesForWhich:[:nm :attr \| attr isEmptyOrNil or:[(attr includes:#autoload) not]].
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1218
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1219	"Created: / 07-08-2006 / 19:02:57 / fm"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1220	"Modified: / 07-08-2006 / 21:25:25 / fm"
9615 ffe207a8fc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 9609 diff changeset	1221	"Modified: / 21-08-2006 / 18:48:31 / cg"
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1222	!
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1223
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1224	compiled_classNamesForPlatform:platformName
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1225	"answer the classes to be compiled only for platformName
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1226	platformName is one of #unix, #win32 (OperatingSystem platformName)"
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1227
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1228	^ self
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1229	classNamesForWhich:[:nm :attr \|
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	1230	(attr includes:#autoload) not and:[attr includes:platformName]
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1231	].
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1232
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1233	"Created: / 07-08-2006 / 19:02:57 / fm"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1234	"Modified: / 07-08-2006 / 21:25:25 / fm"
10058 290deec5f493 fixed: platform-specific classes which also have the autoload flag Claus Gittinger <cg@exept.de> parents: 10047 diff changeset	1235	"Modified: / 09-10-2006 / 13:30:08 / cg"
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1236	!
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1237
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1238	compiled_classNames_common
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1239	"classes to be compiled for any platform"
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1240
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1241	^ self
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1242	classNamesForWhich:[:nm :attr \|
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1243	attr isEmptyOrNil
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1244	].
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1245
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1246	"Created: / 18-08-2006 / 13:37:51 / cg"
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1247	!
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1248
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1249	compiled_classNames_unix
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1250	"class, only to be compiled under unix"
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1251
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1252	^ self compiled_classNamesForPlatform:#unix.
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1253
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1254	"Created: / 18-08-2006 / 13:37:51 / cg"
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1255	!
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1256
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1257	compiled_classNames_windows
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1258	"class, only to be compiled under windows"
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1259
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1260	^ self compiled_classNamesForPlatform:#win32.
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1261
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1262	"Created: / 18-08-2006 / 13:37:56 / cg"
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1263	!
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1264
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1265	extensionMethodNames
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1266	"list class/selector pairs of extensions.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1267	A correponding method with real names is generated in my subclasses"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1268
9595 016b493d0fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	1269	^ #()
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1270
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1271	"Modified: / 17-08-2006 / 20:49:51 / cg"
10350 f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1272	!
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1273
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1274	ignoredClassNames
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1275	"can be redefined to suppress some classes from being included in a
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1276	generated classNamesAndAttributes spec"
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1277
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1278	^ #()
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1279
f70405894961 added optional ignoredClassNames method. Claus Gittinger <cg@exept.de> parents: 10331 diff changeset	1280	"Created: / 23-01-2007 / 19:08:27 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1281	! !
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1282
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1283	!ProjectDefinition class methodsFor:'description - compilation'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1284
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1285	additionalDefinitions_bc_dot_mak
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1286	"allows for additional definitions/rules to be added to the bc.mak file.
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1287	Subcallses may redefine this."
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1288
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1289	^ self additionalDefinitions_nt_dot_mak
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1290
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1291	"Created: / 22-08-2006 / 23:59:32 / cg"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1292	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1293
9625 dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1294	additionalDefinitions_make_dot_proto
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1295	"allows for additional definitions/rules to be added to the make.proto file."
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1296
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1297	^ ''
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1298
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1299	"Created: / 22-08-2006 / 23:53:08 / cg"
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1300	!
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1301
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1302	additionalDefinitions_nt_dot_mak
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1303	"obsolete - kept for compatibility with old project files"
9625 dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1304
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1305	^ ''
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1306
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1307	"Created: / 22-08-2006 / 23:59:32 / cg"
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1308	!
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1309
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1310	additionalLinkLibraries_bc_dot_mak
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1311	"allows for additional static libraries to be added to the bc.mak file.
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1312	Subclasses may redefine this"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1313
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1314	"backward compatibilty with old projects"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1315
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1316	^ self additionalLinkLibraries_nt_dot_mak
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1317
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1318
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1319	"Created: / 22-08-2006 / 23:53:33 / cg"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1320	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1321
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	1322	additionalLinkLibraries_make_dot_proto
9972 c63164ec0584 Allow shared libraries to be defined for a class lib (needed for liboracle) Stefan Vogel <sv@exept.de> parents: 9964 diff changeset	1323	"allows for additional static libraries to be added to the make.proto file."
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	1324
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	1325	^ ''
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	1326
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	1327	"Created: / 22-08-2006 / 23:53:33 / cg"
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	1328	!
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	1329
10299 af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	1330	additionalLinkLibraries_nt_dot_mak
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1331	"obsolete - kept for compatibility with old project files"
10299 af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	1332
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	1333	^ ''
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	1334
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	1335	"Created: / 22-08-2006 / 23:53:33 / cg"
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	1336	!
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	1337
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1338	additionalRules_bc_dot_mak
10312 7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1339	"obsolete - kept for compatibility with old project files"
7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1340
7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1341	^ ''
7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1342
7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1343	"Created: / 22-08-2006 / 23:59:24 / cg"
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1344	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1345
9625 dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1346	additionalRules_make_dot_proto
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1347	"allows for additional rules to be added to the make.proto file."
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1348
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1349	^ ''
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1350
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1351	"Created: / 22-08-2006 / 23:59:16 / cg"
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1352	!
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1353
9972 c63164ec0584 Allow shared libraries to be defined for a class lib (needed for liboracle) Stefan Vogel <sv@exept.de> parents: 9964 diff changeset	1354	additionalSharedLinkLibraries_make_dot_proto
c63164ec0584 Allow shared libraries to be defined for a class lib (needed for liboracle) Stefan Vogel <sv@exept.de> parents: 9964 diff changeset	1355	"allows for additional shared libraries to be added to the make.proto file."
c63164ec0584 Allow shared libraries to be defined for a class lib (needed for liboracle) Stefan Vogel <sv@exept.de> parents: 9964 diff changeset	1356
c63164ec0584 Allow shared libraries to be defined for a class lib (needed for liboracle) Stefan Vogel <sv@exept.de> parents: 9964 diff changeset	1357	^ ''
c63164ec0584 Allow shared libraries to be defined for a class lib (needed for liboracle) Stefan Vogel <sv@exept.de> parents: 9964 diff changeset	1358	!
c63164ec0584 Allow shared libraries to be defined for a class lib (needed for liboracle) Stefan Vogel <sv@exept.de> parents: 9964 diff changeset	1359
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1360	additionalTargets_bc_dot_mak
10312 7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1361	"obsolete - kept for compatibility with old project files"
7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1362
7f71d47b09bd #additionalTargets_bc_dot_mak for applications Stefan Vogel <sv@exept.de> parents: 10306 diff changeset	1363	^ ''
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1364
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1365	"Created: / 23-08-2006 / 00:00:35 / cg"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1366	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1367
9625 dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1368	additionalTargets_make_dot_proto
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1369	"allows for additional targets to be added to the make.proto file."
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1370
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1371	^ ''
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1372
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1373	"Created: / 22-08-2006 / 23:53:33 / cg"
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1374	!
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1375
10331 3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1376	localDefines
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1377	"allow for the specification of addition include directories"
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1378
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1379	^ ''
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1380	!
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1381
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1382	localDefines_unix
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1383	"allow for the specification of addition defines for stc compilation"
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1384
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1385	^ self localDefines
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1386	!
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1387
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1388	localDefines_win32
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1389	"allow for the specification of addition defines for stc compilation"
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1390
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1391	^ self localDefines
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1392	!
3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	1393
9826 8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1394	localIncludes
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1395	"allow for the specification of addition include directories"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1396
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1397	^ ''
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1398
9826 8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1399	"Created: / 06-09-2006 / 18:14:31 / cg"
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1400	!
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1401
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1402	localIncludes_unix
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1403	"allow for the specification of addition include directories"
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1404
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1405	^ self makeUnixIncludes:(self localIncludes)
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1406
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1407	"Created: / 18-08-2006 / 12:50:27 / cg"
9826 8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1408	"Modified: / 06-09-2006 / 18:15:26 / cg"
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1409	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1410
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1411	localIncludes_win32
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1412	"allow for the specification of addition include directories"
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1413
9826 8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1414	^ self makeWin32Includes:(self localIncludes)
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1415
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1416	"Created: / 18-08-2006 / 12:50:27 / cg"
9826 8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	1417	"Modified: / 06-09-2006 / 18:15:37 / cg"
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1418	!
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1419
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1420	stcOptimizationOptions
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1421	"see the stc reference / stc usage for options.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1422	For now, the following variants are useful:
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1423	+optspace3 most compact code
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1424	- use for all gui, application code.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1425
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1426	+optinline +optinline2 +inlineNew
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1427	fastest code
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1428	- use only for computation-intensive classes"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1429
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1430	^ '+optspace3'
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1431
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1432	"Created: / 18-08-2006 / 12:50:27 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1433	!
3a835fa7e38b initial checkin fm parents: diff changeset	1434
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1435	stcWarningOptions
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1436	"see the stc reference / stc usage for options.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1437	For now, the following variants are useful:
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1438	-warn no warnings
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1439	-warnNonStandard no warnings about non-standard smalltalk features"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1440
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1441	^ '-warnNonStandard'
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1442
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1443	"Created: / 18-08-2006 / 12:51:38 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1444	! !
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1445
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1446	!ProjectDefinition class methodsFor:'description - project information'!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1447
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1448	companyName
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1449	"Returns a company string which will appear in <lib>.rc.
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1450	Under win32, this is placed into the dlls file-info"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1451
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1452	self module = 'stx' ifTrue:[
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1453	^ 'eXept Software AG'
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1454	].
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1455
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1456	^ 'My Company'
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1457
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1458	"Modified: / 18-08-2006 / 16:08:20 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1459	!
3a835fa7e38b initial checkin fm parents: diff changeset	1460
3a835fa7e38b initial checkin fm parents: diff changeset	1461	description
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1462	"Returns a description string which will appear in vc.def / bc.def"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1463
9803 cbec7d6caec8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9799 diff changeset	1464	^self productName,' ',self packageName
cbec7d6caec8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9799 diff changeset	1465	"/ ^ self name
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1466
3a835fa7e38b initial checkin fm parents: diff changeset	1467	"Created: / 08-08-2006 / 11:15:01 / fm"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1468	"Modified: / 17-08-2006 / 20:53:34 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1469	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1470
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1471	fileDescription
10416 e4fe2bf2276d * empty log message * Claus Gittinger <cg@exept.de> parents: 10414 diff changeset	1472	"Returns a description string which will appear in libName.rc and the rc-file"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1473
9803 cbec7d6caec8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9799 diff changeset	1474	^self description
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1475
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1476	"Modified: / 17-08-2006 / 20:27:07 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1477	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1478
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1479	fileMajorVersionNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1480	"Returns a versionNumber which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1481
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1482	^ Smalltalk majorVersionNr printString
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1483
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1484	"Created: / 18-08-2006 / 12:03:32 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1485	"Modified: / 30-08-2006 / 18:50:51 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1486	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1487
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1488	fileMinorVersionNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1489	"Returns a versionNumber which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1490
9618 adc627ef4702 * empty log message * Claus Gittinger <cg@exept.de> parents: 9615 diff changeset	1491	^ Smalltalk minorVersionNr printString
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1492
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1493	"Created: / 18-08-2006 / 12:03:13 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1494	"Modified: / 30-08-2006 / 18:50:46 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1495	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1496
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1497	fileReleaseNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1498	"Returns a releaseNumber which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1499
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1500	"take the default revision from the cvs-version"
9618 adc627ef4702 * empty log message * Claus Gittinger <cg@exept.de> parents: 9615 diff changeset	1501	^ self cvsRevision last
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1502
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1503	"Created: / 18-08-2006 / 12:02:58 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1504	"Modified: / 30-08-2006 / 18:54:48 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1505	!
3a835fa7e38b initial checkin fm parents: diff changeset	1506
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1507	fileRevisionNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1508	"Returns a revisionNumber which will appear in libName.rc"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1509
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1510	"take the default revision from the cvs-version"
9618 adc627ef4702 * empty log message * Claus Gittinger <cg@exept.de> parents: 9615 diff changeset	1511	^ self cvsRevision first
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1512
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1513	"Created: / 18-08-2006 / 12:02:39 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1514	"Modified: / 30-08-2006 / 18:54:39 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1515	!
3a835fa7e38b initial checkin fm parents: diff changeset	1516
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1517	fileVersion
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1518	"Returns a fileVersion string which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1519
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1520	"<major>.<minor>.<rev>.<rel> (such as '1.2.17.1') "
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1521
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1522	^ self fileMajorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1523	, '.'
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1524	, self fileMinorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1525	, '.'
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1526	, self fileRevisionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1527	, '.'
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1528	, self fileReleaseNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1529
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1530	"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1531	self fileVersion
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1532	"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1533
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1534	"Modified: / 30-08-2006 / 18:51:49 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1535	!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1536
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1537	fileVersionCommaSeparated
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1538	"Returns a fileVersion string which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1539
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1540	"<major>,<minor>,<revision>,<release> (such as '2,17,1,2') "
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1541
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1542	^ self fileMajorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1543	, ','
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1544	, self fileMinorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1545	, ','
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1546	, self fileRevisionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1547	, ','
9579 bb79e778fec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9575 diff changeset	1548	, self fileReleaseNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1549
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1550	"Created: / 17-08-2006 / 20:16:17 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1551	"Modified: / 30-08-2006 / 18:54:20 / cg"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1552	!
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1553
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1554	iconFileName
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1555	"Returns the icon-filename for the application (nil if there is none)"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1556
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1557	^ nil
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1558
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1559	"Created: / 30-08-2006 / 18:44:15 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1560	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1561
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1562	internalName
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1563	"Returns a name string which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1564
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1565	^ self packageName
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1566
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1567	"Modified: / 17-08-2006 / 20:27:37 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1568	!
3a835fa7e38b initial checkin fm parents: diff changeset	1569
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1570	legalCopyright
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1571	"Returns a copyright string which will appear in <lib>.rc.
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1572	Under win32, this is placed into the dlls file-info"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1573
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1574	self module = 'stx' ifTrue:[
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1575	"hardwired-default"
9625 dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1576	^ 'Copyright Claus Gittinger 1988-%1\nCopyright eXept Software AG 1998-%1'
dc6a4ebdb1f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1577	bindWith:(Date today year printString)
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1578	].
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1579	self module = 'exept' ifTrue:[
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1580	"hardwired-default"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1581	^ 'Copyright eXept Software AG 1998-%1'
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1582	bindWith:(Date today year printString)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1583	].
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1584
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1585	^ 'My CopyRight or CopyLeft'
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1586
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1587	"Modified: / 30-08-2006 / 18:53:36 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1588	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1589
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1590	majorVersionNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1591	"Returns a versionNumber which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1592
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1593	"<major>.<minor>.<revision>.<release> (such as '5.3.2.1')
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1594	the default here takes smalltalks version number.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1595	But thats probably not good for an end-user-app."
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1596
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1597	^ Smalltalk majorVersionNr printString
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1598
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1599	"Created: / 17-08-2006 / 20:20:18 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1600	"Modified: / 30-08-2006 / 18:52:13 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1601	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1602
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1603	minorVersionNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1604	"Returns a versionNumber which will appear in libName.rc"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1605
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1606	"<major>.<minor>.<revision>.<release> (such as '5.3.2.1')
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1607	the default here takes smalltalks version number.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1608	But thats probably not good for an end-user-app."
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1609
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1610	^ Smalltalk minorVersionNr printString
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1611
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1612	"Created: / 17-08-2006 / 20:20:32 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1613	"Modified: / 30-08-2006 / 18:52:16 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1614	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1615
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1616	productDate
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1617	"Returns a product-date string which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1618
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1619	"take the current date - by default"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1620
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1621	^ Timestamp now printStringRFC1123Format
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1622
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1623	"Created: / 17-08-2006 / 20:17:28 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1624	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1625
10426 37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1626	productFilename
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1627	"Returns a filename which be used as linkname, product file name etc."
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1628
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1629	^ self productNameAsValidFilename
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1630
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1631	"
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1632	stx_projects_smalltalk productName
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1633	stx_projects_smalltalk productFilename
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1634	"
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1635
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1636	"Created: / 01-03-2007 / 19:33:06 / cg"
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1637	!
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1638
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1639	productInstallDir
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1640	"Returns a product default installDir which will appear in <app>.nsi."
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1641
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1642	^ '$PROGRAMFILES\',self module
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1643
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1644	"Created: / 14-09-2006 / 21:23:01 / cg"
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1645	!
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1646
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1647	productName
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1648	"Returns a product name which will appear in <lib>.rc.
40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1649	Under win32, this is placed into the dlls file-info"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1650
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1651	self module = 'stx' ifTrue:[
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1652	^ 'Smalltalk/X'
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1653	].
10296 48eb9cc9eef0 * empty log message * Claus Gittinger <cg@exept.de> parents: 10251 diff changeset	1654	Error handle:[:ex \|
48eb9cc9eef0 * empty log message * Claus Gittinger <cg@exept.de> parents: 10251 diff changeset	1655	^ 'ProductName'
48eb9cc9eef0 * empty log message * Claus Gittinger <cg@exept.de> parents: 10251 diff changeset	1656	] do:[
48eb9cc9eef0 * empty log message * Claus Gittinger <cg@exept.de> parents: 10251 diff changeset	1657	^ self startupClassName
48eb9cc9eef0 * empty log message * Claus Gittinger <cg@exept.de> parents: 10251 diff changeset	1658	].
48eb9cc9eef0 * empty log message * Claus Gittinger <cg@exept.de> parents: 10251 diff changeset	1659
48eb9cc9eef0 * empty log message * Claus Gittinger <cg@exept.de> parents: 10251 diff changeset	1660	"Modified: / 18-12-2006 / 17:34:19 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1661	!
3a835fa7e38b initial checkin fm parents: diff changeset	1662
10426 37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1663	productNameAsValidFilename
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1664	"Returns a product name which will appear in <lib>.rc.
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1665	Under win32, this is placed into the dlls file-info"
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1666
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1667	\|nm\|
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1668
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1669	nm := self productName.
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1670	^ nm copy replaceAny:'/\:;.,' with:$_
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1671
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1672	"
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1673	'Smalltalk/X' replaceAny:'/\:;.,' with:nil
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1674	"
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1675
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1676	"Created: / 01-03-2007 / 19:19:21 / cg"
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1677	!
37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1678
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1679	productPublisher
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1680	"Returns a product publisher which will appear in <app>.nsi."
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1681
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1682	( #('exept' 'stx') includes:self module) ifTrue:[
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1683	^ 'eXept Software AG'
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1684	].
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1685
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1686	^ 'thePublisher'
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1687
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1688	"Created: / 14-09-2006 / 21:12:54 / cg"
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1689	!
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1690
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1691	productVersion
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1692	"Returns a product version which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1693
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1694	"<major>.<minor>.<revision>.<release> (such as '5.3.2.1')"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1695
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1696	^ self majorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1697	, '.'
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1698	, self minorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1699	, '.'
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1700	, self revisionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1701	, '.'
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1702	, self releaseNr
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1703
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1704	"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1705	self productVersion
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1706	"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1707
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1708	"Modified: / 30-08-2006 / 18:52:47 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1709	!
3a835fa7e38b initial checkin fm parents: diff changeset	1710
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1711	productVersionCommaSeparated
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1712	"Returns a product version which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1713
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1714	"<major>.<minor>.<revision>.<release> (such as '0,1,1,1') "
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1715
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1716	^ self majorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1717	, ','
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1718	, self minorVersionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1719	, ','
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1720	, self revisionNr
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1721	, ','
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1722	, self releaseNr
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1723
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1724	"Created: / 17-08-2006 / 20:13:32 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1725	"Modified: / 30-08-2006 / 18:52:42 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1726	!
3a835fa7e38b initial checkin fm parents: diff changeset	1727
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1728	productWebSite
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1729	"Returns a product webSite which will appear in <app>.nsi."
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1730
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1731	( #('exept' 'stx') includes:self module) ifTrue:[
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1732	^ 'http://www.exept.de'
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1733	].
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1734
10426 37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1735	"/ should be redefined by concrete ApplicationDefinition
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1736	^ 'http://www.yoursite.com'
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1737
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1738	"Created: / 14-09-2006 / 21:15:05 / cg"
10426 37dc4c920ba3 * empty log message * Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	1739	"Modified: / 01-03-2007 / 18:11:27 / cg"
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1740	!
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1741
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1742	releaseNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1743	"Returns a releaseNr which will appear in libName.rc"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1744
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1745	"<major>.<minor>.<revision>.<release> (such as '5.3.2.1')
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1746	the default here takes smalltalks version number.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1747	But thats probably not good for an end-user-app."
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1748
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1749	^ Smalltalk releaseNr printString
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1750
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1751	"Created: / 17-08-2006 / 20:20:51 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1752	"Modified: / 30-08-2006 / 18:52:22 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1753	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1754
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1755	revisionNr
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1756	"Returns a revisionNr which will appear in libName.rc"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1757
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1758	"<major>.<minor>.<revision>.<release> (such as '5.3.2.1')
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1759	the default here takes smalltalks version number.
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1760	But thats probably not good for an end-user-app."
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1761
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1762	^ Smalltalk revisionNr printString
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1763
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1764	"Created: / 17-08-2006 / 20:20:40 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1765	"Modified: / 30-08-2006 / 18:52:32 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1766	!
3a835fa7e38b initial checkin fm parents: diff changeset	1767
3a835fa7e38b initial checkin fm parents: diff changeset	1768	versionNumber
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1769	"Returns a version string which will appear in bc.def / vc.def "
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1770
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1771	^''
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1772
3a835fa7e38b initial checkin fm parents: diff changeset	1773	"Created: / 08-08-2006 / 11:35:52 / fm"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1774	"Modified: / 17-08-2006 / 19:46:29 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1775	! !
3a835fa7e38b initial checkin fm parents: diff changeset	1776
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	1777	!ProjectDefinition class methodsFor:'file generation'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1778
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1779	basicFileNamesToGenerate
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1780	self subclassResponsibility
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1781
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1782	"Created: / 14-09-2006 / 14:36:31 / cg"
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1783	!
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1784
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1785	fileNamesToGenerate
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1786	^ self basicFileNamesToGenerate reject:[:p \| self protectedFileNames includes:(p first) ].
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1787
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	1788	"Modified: / 14-09-2006 / 14:36:10 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1789	!
3a835fa7e38b initial checkin fm parents: diff changeset	1790
9544 5ee38738942e * empty log message * fm parents: 9541 diff changeset	1791	forEachFileNameAndGeneratedContentsDo:aTwoArgBlock
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1792	\|pairs\|
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1793
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1794	pairs := OrderedCollection new.
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1795	self forEachFileNameAndGeneratorMethodDo:[:fileName :generator \|
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1796	\|file\|
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1797
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1798	file := self perform:generator.
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1799	pairs add:(Array with:fileName with:file)
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1800	].
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1801
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1802	pairs pairsDo:aTwoArgBlock
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1803
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1804	"Created: / 16-08-2006 / 18:37:52 / User"
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1805	!
5ee38738942e * empty log message * fm parents: 9541 diff changeset	1806
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1807	forEachFileNameAndGeneratorMethodDo:aTwoArgBlock
3a835fa7e38b initial checkin fm parents: diff changeset	1808	\|fileNamesAndSelectors\|
3a835fa7e38b initial checkin fm parents: diff changeset	1809
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1810	fileNamesAndSelectors := self fileNamesToGenerate.
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1811	fileNamesAndSelectors pairsDo:aTwoArgBlock
9831 02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	1812
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1813	"Modified: / 14-09-2006 / 21:02:37 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1814	!
3a835fa7e38b initial checkin fm parents: diff changeset	1815
3a835fa7e38b initial checkin fm parents: diff changeset	1816	generateFile:filename
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	1817	self basicFileNamesToGenerate
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1818	pairsDo:[:fn :action \|
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1819	filename = fn ifTrue:[
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1820	^ self perform:action
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1821	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1822	].
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1823	(filename = 'app.rc' or:[filename = 'lib.rc' or:[filename = self rcFilename]]) ifTrue:[
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	1824	^ self generate_packageName_dot_rc
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	1825	].
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1826	(filename = 'app.nsi' or:[filename = self nsiFilename]) ifTrue:[
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1827	^ self generate_packageName_dot_nsi
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1828	].
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1829
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1830	(filename = 'loadAll') ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1831	^ self generate_loadAll
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1832	].
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1833	self error:('File "%1" not appropriate (not generated) for this type of project.'
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1834	bindWith:filename)
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1835
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	1836	"Modified: / 14-09-2006 / 21:07:49 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1837	!
3a835fa7e38b initial checkin fm parents: diff changeset	1838
3a835fa7e38b initial checkin fm parents: diff changeset	1839	generate_abbrev_dot_stc
10104 96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1840	\|anyNil check\|
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1841
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1842	anyNil := false.
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1843	check :=
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1844	[:eachClassName \|
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1845	\|cls fn wasLoaded failedToLoad numClassInstvars\|
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1846
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1847	cls := Smalltalk classNamed:eachClassName.
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1848	cls isNil ifTrue:[
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1849	anyNil := true.
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1850	].
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1851	].
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1852
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1853	self allClassNames do:check.
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1854	self namesAndAttributesIn:(self additionalClassNamesAndAttributes) do: [:nm :attr \|
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1855	(attr isEmptyOrNil or:[(attr includes:#autoload) not]) ifTrue:[
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1856	check value:nm
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1857	].
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1858	].
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1859	anyNil ifTrue:[
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1860	(Dialog confirm:'Some classes are missing. Cannot generate a correct "abbrev.stc" file.\\Continue anyway?' withCRs)
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1861	ifFalse:[
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1862	AbortSignal raise.
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1863	].
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1864	].
96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1865
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1866	^ String
3a835fa7e38b initial checkin fm parents: diff changeset	1867	streamContents:[:s \|
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1868	\|addEntry\|
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1869
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1870	addEntry :=
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1871	[:eachClassName \|
9681 7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1872	\|cls fn wasLoaded failedToLoad numClassInstvars\|
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1873
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1874	s nextPutAll:eachClassName.
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1875	s nextPutAll:' '.
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1876
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1877	cls := Smalltalk classNamed:eachClassName.
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1878	cls isNil ifTrue:[
9678 f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1879	fn := (Smalltalk fileNameForClass:eachClassName) asFilename withoutSuffix.
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1880	fn suffix notEmptyOrNil ifTrue:[
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1881	fn := fn withoutSuffix
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1882	].
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1883	fn := fn baseName.
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1884	s nextPutAll:fn.
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	1885	s nextPutAll:' '; nextPutAll:(self package); nextPutAll:' '.
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1886	s nextPutAll:' '; nextPutAll:'unknownCategory' storeString; nextPutAll:' '.
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1887	s nextPutAll:' '; nextPutAll:'0'.
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1888	] ifFalse:[
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1889	wasLoaded := cls isLoaded.
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1890	wasLoaded ifFalse:[
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1891	failedToLoad := false.
9681 7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1892
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1893	Error handle:[:ex \|
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1894	failedToLoad := true.
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1895	] do:[
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1896	ParserFlags
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1897	withSTCCompilation:#never
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1898	do:[
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1899	cls autoload.
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1900	]
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1901	].
9681 7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1902	].
9584 40fa96f1313a * empty log message * Claus Gittinger <cg@exept.de> parents: 9579 diff changeset	1903
9678 f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1904	fn := cls classFilename asFilename withoutSuffix.
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1905	fn suffix notEmptyOrNil ifTrue:[
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1906	fn := fn withoutSuffix
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1907	].
f620dd0f64d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	1908	fn := fn baseName.
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1909	(fn includes:Character space) ifTrue:[
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1910	s nextPutAll:fn storeString.
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1911	] ifFalse:[
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1912	s nextPutAll:fn.
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1913	].
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	1914	s nextPutAll:' '; nextPutAll:(self package); nextPutAll:' '.
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1915	s nextPutAll: (cls category asString storeString).
9681 7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1916	failedToLoad ifTrue:[
7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1917	s nextPutAll:' 0'.
7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1918	] ifFalse:[
7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1919	numClassInstvars := cls theMetaclass instSize - Class instSize.
7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1920	s nextPutAll:' '; nextPutAll:numClassInstvars printString.
7c873ef81ab2 * empty log message * Claus Gittinger <cg@exept.de> parents: 9678 diff changeset	1921	].
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	1922
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1923	wasLoaded ifFalse:[
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1924	cls unload
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1925	]
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1926	].
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1927	s cr.
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1928	].
9615 ffe207a8fc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 9609 diff changeset	1929
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1930	self allClassNames do:addEntry.
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1931	self namesAndAttributesIn:(self additionalClassNamesAndAttributes) do: [:nm :attr \|
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1932	(attr isEmptyOrNil or:[(attr includes:#autoload) not]) ifTrue:[
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1933	addEntry value:nm
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1934	].
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	1935	].
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1936	]
3a835fa7e38b initial checkin fm parents: diff changeset	1937
3a835fa7e38b initial checkin fm parents: diff changeset	1938	"
3a835fa7e38b initial checkin fm parents: diff changeset	1939	DapasXProject generate_abbrev_dot_stc
3a835fa7e38b initial checkin fm parents: diff changeset	1940	DapasX_Datenbasis generate_abbrev_dot_stc
3a835fa7e38b initial checkin fm parents: diff changeset	1941	bosch_dapasx_interactiver_editor generate_abbrev_dot_stc
3a835fa7e38b initial checkin fm parents: diff changeset	1942	"
3a835fa7e38b initial checkin fm parents: diff changeset	1943
3a835fa7e38b initial checkin fm parents: diff changeset	1944	"Created: / 09-08-2006 / 11:24:39 / fm"
10104 96bce48c03b5 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10103 diff changeset	1945	"Modified: / 20-10-2006 / 16:31:08 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	1946	!
3a835fa7e38b initial checkin fm parents: diff changeset	1947
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1948	generate_bc_dot_mak
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1949	^ (self
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1950	replaceMappings: self bc_dot_mak_mappings
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1951	in: self bc_dot_mak) asStringCollection withTabs asString
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1952
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1953	"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1954	DapasXProject generate_bc_dot_mak
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1955	DapasX_Datenbasis generate_bc_dot_mak
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1956	"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1957
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1958	"Modified: / 09-08-2006 / 11:46:14 / fm"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1959	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	1960
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1961	generate_bmake_dot_mak
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1962
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1963	^self replaceMappings: self bmake_dot_mak_mappings
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1964	in: self bmake_dot_mak
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1965
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1966	"Created: / 17-08-2006 / 20:03:43 / cg"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1967	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	1968
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1969	generate_loadAll
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1970	^ String
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1971	streamContents:[:s \|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1972	\|classNames classesLoaded classNamesUnloaded classesSorted classNamesSorted\|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1973
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	1974	classNames := self compiled_classNames_common.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1975	classesLoaded := classNames
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	1976	collect:[:nm \| Smalltalk classNamed:nm]
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1977	thenSelect:[:cls \| cls notNil and:[cls isLoaded] ].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1978	classNamesUnloaded := classNames
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1979	select:[:nm \| \|cls\| cls := Smalltalk classNamed:nm. cls isNil or:[cls isLoaded not]].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1980
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1981	classesSorted := Class classesSortedByLoadOrder:classesLoaded.
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	1982	classNamesSorted := classesSorted collect:[:cls \| cls name].
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1983
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1984
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1985	s nextPutAll:'"/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1986	"/ $' , 'Header' , '$
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1987	"/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1988	"/ loadAll-file to fileIn code for: ' , self package , '
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1989	"/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1990	"/ Automatically generated from the ProjectDefinition.
9911 114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	1991	"/ DO NOT MODIFY THIS FILE;
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1992	"/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1993	"/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1994	"/ Prerequisites:
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1995	"/
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1996	"/ Smalltalk loadPackage:''module:directory''.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1997	"/ Smalltalk loadPackage:''....''.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1998	!!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	1999
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2000	"{ package:''' , self package, ''' }"
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2001	!!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2002
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2003	\|files\|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2004
9911 114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	2005	''loading package ' , self package ,'...'' infoPrint.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2006
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2007	files := #(
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2008	'.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2009
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2010	classesSorted do:[:eachClass \|
10080 e7a9912eef18 use classBaseFilename Claus Gittinger <cg@exept.de> parents: 10076 diff changeset	2011	s nextPutLine:' ''' , eachClass classBaseFilename, ''''.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2012	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2013	classNamesUnloaded do:[:nm \|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2014	s nextPutLine:' ''' , (Smalltalk fileNameForClass: nm) asFilename baseName, ''''.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2015	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2016
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2017	self namesAndAttributesIn:(self additionalClassNamesAndAttributes) do:[:nm :attr \|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2018	(attr isEmptyOrNil or:[(attr includes:#autoload) not]) ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2019	s nextPutLine:' ''' , (Smalltalk fileNameForClass: nm) asFilename baseName, ''''.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2020	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2021	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2022
9906 9efd21c9b1b6 hasExtensions is a bad name (conflicts with the other query) Claus Gittinger <cg@exept.de> parents: 9904 diff changeset	2023	self hasExtensionMethods ifTrue:[
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2024	s nextPutLine:' ''extensions.st'''.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2025	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2026
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2027	s nextPutAll:'
9911 114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	2028	).
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2029
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2030	"/ see if there is a classLibrary
9911 114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	2031	(Smalltalk fileInClassLibrary:''' , (self libraryName) , ''') ifTrue:[
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2032	\|handle loaded\|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2033
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2034	handle := ObjectFileLoader loadedObjectHandles
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2035	detect:[:h \| h package = ''' , self package , '''] ifNone:nil.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2036	handle ifNotNil:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2037	loaded := Set new:(handle classes size).
10080 e7a9912eef18 use classBaseFilename Claus Gittinger <cg@exept.de> parents: 10076 diff changeset	2038	handle classes do:[:c\| c isMeta ifFalse:[loaded add:c classBaseFilename]].
9911 114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	2039	files := files \ loaded.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2040	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2041	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2042
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2043	"/ load files which are not in the classLibrary (all if there is none)
9911 114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	2044	files notEmpty ifTrue:[
114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	2045	'''' infoPrintCR.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2046	files do:[:f \|
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2047	''.'' infoPrint.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2048	f asFilename exists ifTrue:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2049	Smalltalk fileIn:f.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2050	] ifFalse:[
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2051	Smalltalk fileIn:(''source/'' , f)
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2052	]
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2053	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2054	'' '' infoPrintCR.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2055	].
9911 114cf30d0561 Handle (load) binary class libraryies. Stefan Vogel <sv@exept.de> parents: 9909 diff changeset	2056	''done (' , self package ,').'' infoPrintCR.
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2057	'.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2058	].
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2059
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2060	"Created: / 14-09-2006 / 14:21:31 / cg"
10080 e7a9912eef18 use classBaseFilename Claus Gittinger <cg@exept.de> parents: 10076 diff changeset	2061	"Modified: / 12-10-2006 / 15:55:00 / cg"
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2062	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2063
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2064	generate_make_dot_proto
3a835fa7e38b initial checkin fm parents: diff changeset	2065
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2066	^ (self
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2067	replaceMappings: self make_dot_proto_mappings
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2068	in: self make_dot_proto) asStringCollection withTabs asString
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2069
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2070	"
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2071	stx:libbasic2 generate_make_dot_proto
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2072	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2073
3a835fa7e38b initial checkin fm parents: diff changeset	2074	"Modified: / 09-08-2006 / 11:31:01 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	2075	!
3a835fa7e38b initial checkin fm parents: diff changeset	2076
3a835fa7e38b initial checkin fm parents: diff changeset	2077	generate_make_dot_spec
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2078	^ (self
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2079	replaceMappings: self make_dot_spec_mappings
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2080	in: self make_dot_spec) asStringCollection withTabs asString
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2081
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2082	"
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2083	DapasXProject generate_make_dot_spec
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2084	DapasX_Datenbasis generate_make_dot_spec
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2085	bosch_dapasx_kernel_Definition generate_make_dot_spec
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2086	"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2087
3a835fa7e38b initial checkin fm parents: diff changeset	2088	"Modified: / 09-08-2006 / 11:31:09 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	2089	!
3a835fa7e38b initial checkin fm parents: diff changeset	2090
3a835fa7e38b initial checkin fm parents: diff changeset	2091	generate_modules_dot_stx
3a835fa7e38b initial checkin fm parents: diff changeset	2092
3a835fa7e38b initial checkin fm parents: diff changeset	2093	^self replaceMappings: self modules_dot_stx_mappings
3a835fa7e38b initial checkin fm parents: diff changeset	2094	in: self modules_dot_stx
3a835fa7e38b initial checkin fm parents: diff changeset	2095
3a835fa7e38b initial checkin fm parents: diff changeset	2096	"
3a835fa7e38b initial checkin fm parents: diff changeset	2097	bosch_dapasx_application generate_modules_dot_stx
3a835fa7e38b initial checkin fm parents: diff changeset	2098
3a835fa7e38b initial checkin fm parents: diff changeset	2099	"
3a835fa7e38b initial checkin fm parents: diff changeset	2100
3a835fa7e38b initial checkin fm parents: diff changeset	2101	"Modified: / 09-08-2006 / 11:31:09 / fm"
3a835fa7e38b initial checkin fm parents: diff changeset	2102	"Modified: / 11-08-2006 / 14:01:56 / cg"
3a835fa7e38b initial checkin fm parents: diff changeset	2103	!
3a835fa7e38b initial checkin fm parents: diff changeset	2104
3a835fa7e38b initial checkin fm parents: diff changeset	2105	generate_packageName_dot_rc
3a835fa7e38b initial checkin fm parents: diff changeset	2106
3a835fa7e38b initial checkin fm parents: diff changeset	2107	^self replaceMappings: self packageName_dot_rc_mappings
3a835fa7e38b initial checkin fm parents: diff changeset	2108	in: self packageName_dot_rc
3a835fa7e38b initial checkin fm parents: diff changeset	2109
3a835fa7e38b initial checkin fm parents: diff changeset	2110	"
3a835fa7e38b initial checkin fm parents: diff changeset	2111	bosch_dapasx_datenbasis generate_packageName_dot_rc
3a835fa7e38b initial checkin fm parents: diff changeset	2112	bosch_dapasx_hw_schnittstellen generate_packageName_dot_rc
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2113	stx_libbasic3 generate_packageName_dot_rc
9618 adc627ef4702 * empty log message * Claus Gittinger <cg@exept.de> parents: 9615 diff changeset	2114	stx_libwidg3 generate_packageName_dot_rc
adc627ef4702 * empty log message * Claus Gittinger <cg@exept.de> parents: 9615 diff changeset	2115	stx_libwidg3 productVersion
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2116
3a835fa7e38b initial checkin fm parents: diff changeset	2117	"
3a835fa7e38b initial checkin fm parents: diff changeset	2118
3a835fa7e38b initial checkin fm parents: diff changeset	2119	"Modified: / 09-08-2006 / 11:31:09 / fm"
9618 adc627ef4702 * empty log message * Claus Gittinger <cg@exept.de> parents: 9615 diff changeset	2120	"Modified: / 21-08-2006 / 19:33:21 / cg"
9831 02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	2121	!
02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	2122
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2123	generate_vc_dot_def
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2124
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2125	^self replaceMappings: self vc_dot_def_mappings
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2126	in: self vc_dot_def
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2127
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2128	"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2129	DapasXProject generate_vc_dot_def
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2130	DapasX_Datenbasis generate_vc_dot_def
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2131
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2132	"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2133
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2134	"Modified: / 09-08-2006 / 11:31:21 / fm"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2135	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2136
9898 cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	2137	nsiFilename
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	2138	^ self packageName,'.nsi'.
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	2139
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	2140	"Created: / 14-09-2006 / 21:03:41 / cg"
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	2141	!
cd3372a2eb84 * empty log message * Claus Gittinger <cg@exept.de> parents: 9891 diff changeset	2142
9852 bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2143	protectedFileNames
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2144	"names of files which should NOT be generated
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2145	- redefine this to protect a hand-written Make.proto"
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2146
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2147	^ #()
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2148
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2149	"Created: / 14-09-2006 / 14:38:40 / cg"
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2150	!
bd0aa34cd18f * empty log message * Claus Gittinger <cg@exept.de> parents: 9850 diff changeset	2151
9831 02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	2152	rcFilename
02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	2153	^ self packageName,'.rc'.
02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	2154
02b8fd184e2b * empty log message * Claus Gittinger <cg@exept.de> parents: 9829 diff changeset	2155	"Created: / 07-09-2006 / 17:07:00 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2156	! !
3a835fa7e38b initial checkin fm parents: diff changeset	2157
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	2158	!ProjectDefinition class methodsFor:'file templates'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2159
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2160	bc_dot_mak
10317 f554c4f5e78f bc.def - no longer generated it is now in rules\bc_dll.def or Stefan Vogel <sv@exept.de> parents: 10312 diff changeset	2161	"answer a template for the bc.mak makefile.
f554c4f5e78f bc.def - no longer generated it is now in rules\bc_dll.def or Stefan Vogel <sv@exept.de> parents: 10312 diff changeset	2162	Any variable definition %(Variable) will be later replaced by the mapping.
f554c4f5e78f bc.def - no longer generated it is now in rules\bc_dll.def or Stefan Vogel <sv@exept.de> parents: 10312 diff changeset	2163	$% characters have to be duplicated"
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2164
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2165	^ self subclassResponsibility
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2166	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2167
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2168	bmake_dot_mak
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2169	"the template code for the bmake.bat file"
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2170
10380 ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	2171	^ '
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2172	make.exe -N -f bc.mak %%1 %%2
10380 ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	2173
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	2174	%(SUBPROJECT_BMAKE_CALLS)
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2175	'
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2176
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2177	"Created: / 17-08-2006 / 20:04:14 / cg"
9888 7230c9f25e5e * empty log message * Claus Gittinger <cg@exept.de> parents: 9887 diff changeset	2178	"Modified: / 14-09-2006 / 19:46:40 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2179	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2180
9962 905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2181	classLine_libInit_dot_cc
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2182
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2183	^'_%(CLASS)_Init(pass,__pRT__,snd);'
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2184
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2185	"Created: / 08-08-2006 / 12:51:44 / fm"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2186	"Modified: / 08-08-2006 / 15:46:05 / fm"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2187	!
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2188
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2189	make_dot_spec
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2190
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2191	^
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2192	'# $','Header','$
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2193	#
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2194	# DO NOT EDIT
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2195	# automagically generated from the projectDefinition: ',self name,'.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2196	#
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2197	# Warning: once you modify this file, do not rerun
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2198	# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2199	#
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2200	# This file contains specifications which are common to all platforms.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2201	#
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2202
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2203	# Do NOT CHANGE THESE DEFINITIONS
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2204	# (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2205	# to find the source code of a class and to find the library for a package)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2206	MODULE=%(MODULE)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2207	MODULE_DIR=%(MODULE_DIRECTORY)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2208	PACKAGE=$(MODULE):$(MODULE_DIR)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2209
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2210
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2211	# Argument(s) to the stc compiler (stc --usage).
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2212	# -H. : create header files locally
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2213	# (if removed, they will be created as common
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2214	# -Pxxx : defines the package
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2215	# -Zxxx : a prefix for variables within the classLib
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2216	# -Dxxx : defines passed to to CC for inline C-code
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2217	# -Ixxx : include path passed to CC for inline C-code
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2218	# +optspace : optimized for space
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2219	# +optspace2 : optimized more for space
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2220	# +optspace3 : optimized even more for space
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2221	# +optinline : generate inline code for some ST constructs
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2222	# +inlineNew : additionally inline new
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2223	# +inlineMath : additionally inline some floatPnt math stuff
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2224	#
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2225	# ******** OPTIONAL: MODIFY the next line(s) *
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2226	# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2227	# STCLOCALOPTIMIZATIONS=+optspace3
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2228	STCLOCALOPTIMIZATIONS=%(STCOPTIMIZATIONOPTIONS)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2229
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2230
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2231	# Argument(s) to the stc compiler (stc --usage).
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2232	# -warn : no warnings
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2233	# -warnNonStandard : no warnings about ST/X extensions
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2234	# -warnEOLComments : no warnings about EOL comment extension
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2235	# -warnPrivacy : no warnings about privateClass extension
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2236	#
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2237	# ******** OPTIONAL: MODIFY the next line(s) *
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2238	# STCWARNINGS=-warn
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2239	# STCWARNINGS=-warnNonStandard
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2240	# STCWARNINGS=-warnEOLComments
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2241	STCWARNINGS=%(STCWARNINGOPTIONS)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2242
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2243	%(OBJECTS)
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2244	'
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2245
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2246	"Created: / 08-08-2006 / 19:31:29 / fm"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2247	"Modified: / 09-08-2006 / 15:10:57 / fm"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2248	"Modified: / 30-08-2006 / 19:07:26 / cg"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2249	!
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2250
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2251	objectLine_make_dot_spec
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2252
10380 ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	2253	^' $(OUTDIR)%(CLASSFILE).$(O) \'
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2254
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2255	"Created: / 08-08-2006 / 20:16:46 / fm"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2256	"Modified: / 23-08-2006 / 11:11:38 / cg"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2257	!
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2258
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2259	packageName_dot_rc
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2260	"the template code for the <libName>.rc file"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2261
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2262	^
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2263	'//
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2264	// DO NOT EDIT
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2265	// automagically generated from the projectDefinition: ',self name,'.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2266	//
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2267	VS_VERSION_INFO VERSIONINFO
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2268	FILEVERSION %(FILE_VERSION_COMMASEPARATED)
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2269	PRODUCTVERSION %(PRODUCT_VERSION_COMMASEPARATED)
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2270	FILEFLAGSMASK VS_FF_DEBUG \| VS_FF_PRERELEASE
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2271	FILEFLAGS VS_FF_PRERELEASE \| VS_FF_SPECIALBUILD
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2272	FILEOS VOS_NT_WINDOWS32
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2273	FILETYPE %(FILETYPE)
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2274	FILESUBTYPE VS_USER_DEFINED
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2275
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2276	BEGIN
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2277	BLOCK "StringFileInfo"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2278	BEGIN
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2279	BLOCK "040904E4"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2280	BEGIN
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2281	VALUE "CompanyName", "%(COMPANY_NAME)\0"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2282	VALUE "FileDescription", "%(FILE_DESCRIPTION)\0"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2283	VALUE "FileVersion", "%(FILE_VERSION)\0"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2284	VALUE "InternalName", "%(INTERNAL_NAME)\0"
9630 526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2285	%(LEGAL_COPYRIGHT_LINE)
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2286	VALUE "ProductName", "%(PRODUCT_NAME)\0"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2287	VALUE "ProductVersion", "%(PRODUCT_VERSION)\0"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2288	VALUE "ProductDate", "%(PRODUCT_DATE)\0"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2289	END
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2290
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2291	END
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2292
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2293	BLOCK "VarFileInfo"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2294	BEGIN // Language \| Translation
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2295	VALUE "Translation", 0x409, 0x4E4 // U.S. English, Windows Multilingual
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2296	END
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2297	END
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2298	'
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2299	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2300	stx_libbasic3 packageName_dot_rc
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2301	stx_libbasic3 generate_packageName_dot_rc
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2302	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2303
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2304	"Created: / 08-08-2006 / 19:31:29 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2305	"Modified: / 09-08-2006 / 15:10:57 / fm"
9630 526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2306	"Modified: / 23-08-2006 / 01:32:23 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2307	! !
3a835fa7e38b initial checkin fm parents: diff changeset	2308
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	2309	!ProjectDefinition class methodsFor:'loading'!
9551 b85eead6b4ac * empty log message * Claus Gittinger <cg@exept.de> parents: 9549 diff changeset	2310
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2311	load
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2312	"load the project
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2313	Answer true, if new classes have been installed for this package,
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2314	false if the package's classes have been already present."
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2315
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2316	^ self loadAsAutoloaded:false.
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2317	!
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2318
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2319	loadAsAutoloaded:asAutoloaded
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2320	"load the project.
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2321	If asAutoloaded == true, install all new classes as autoloaded.
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2322	Answer true, if new classes have been installed for this package,
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2323	false if the package's classes have been already present."
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2324
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2325	\|newStuffHasBeenLoaded\|
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2326
10433 4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2327	self projectIsLoaded ifTrue:[^ false].
10404 61112e05feb7 * empty log message * Stefan Vogel <sv@exept.de> parents: 10403 diff changeset	2328	thisContext isRecursive ifTrue:[^ false].
10212 6c209d5f309b avoid recursion trouble with cyclic prerequisites. fm parents: 10206 diff changeset	2329
10433 4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2330	newStuffHasBeenLoaded := false.
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2331
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2332	(self infoPrinting and:[Smalltalk silentLoading not]) ifTrue:[
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2333	"/ thisContext fullPrintAll.
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2334	Transcript show:'loading '.
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2335	asAutoloaded ifTrue:[
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2336	Transcript show:'as autoloaded '.
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2337	].
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2338	Transcript showCR:self name.
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2339	].
10199 803db693a6af Show message when loading Stefan Vogel <sv@exept.de> parents: 10198 diff changeset	2340
10187 5bb38e7b8923 * empty log message * Claus Gittinger <cg@exept.de> parents: 10179 diff changeset	2341	Class withoutUpdatingChangesDo:[
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2342	self loadPreRequisitesAsAutoloaded:asAutoloaded.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2343	asAutoloaded ifFalse:[
10403 d960ce472e3a * empty log message * Stefan Vogel <sv@exept.de> parents: 10402 diff changeset	2344	self loadClassLibrary.
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2345	].
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2346	newStuffHasBeenLoaded := newStuffHasBeenLoaded \| self loadExtensions.
10412 fa1eff38ab64 bugfix ca parents: 10405 diff changeset	2347	newStuffHasBeenLoaded := newStuffHasBeenLoaded \| (self loadAllClassesAsAutoloaded:asAutoloaded).
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	2348	self loadSubProjectsAsAutoloaded:asAutoloaded.
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2349	].
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2350
10433 4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2351	self projectIsLoaded:true.
4768502f5cbf Do not try to load already loaded projects Stefan Vogel <sv@exept.de> parents: 10430 diff changeset	2352
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	2353	^ newStuffHasBeenLoaded
9579 bb79e778fec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9575 diff changeset	2354
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2355	"Created: / 17-08-2006 / 01:01:41 / cg"
10187 5bb38e7b8923 * empty log message * Claus Gittinger <cg@exept.de> parents: 10179 diff changeset	2356	"Modified: / 21-11-2006 / 15:07:09 / cg"
9551 b85eead6b4ac * empty log message * Claus Gittinger <cg@exept.de> parents: 9549 diff changeset	2357	! !
b85eead6b4ac * empty log message * Claus Gittinger <cg@exept.de> parents: 9549 diff changeset	2358
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	2359	!ProjectDefinition class methodsFor:'mappings'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2360
10306 d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2361	bc_dot_mak_mappings
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2362	\|d\|
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2363
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2364	d := Dictionary new.
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2365	d
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2366	at: 'TAB' put: ( Character tab asString );
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2367	at: 'TOP' put: ( self pathToTop_win32 );
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2368	at: 'MODULE' put: ( self module );
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2369	at: 'MODULE_DIRECTORY' put: ( self moduleDirectory );
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2370	at: 'MODULE_PATH' put: ( self moduleDirectory_win32 );
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2371	at: 'ADDITIONAL_LINK_LIBRARIES' put: (self additionalLinkLibraries_bc_dot_mak).
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2372	^ d
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2373
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2374	"Created: / 18-08-2006 / 11:43:39 / cg"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2375	"Modified: / 14-09-2006 / 20:20:19 / cg"
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2376	!
d5a7e62bd20f Rename nt.mak to bc.mak Stefan Vogel <sv@exept.de> parents: 10299 diff changeset	2377
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2378	bmake_dot_mak_mappings
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2379	^ (Dictionary new)
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2380	at:'SUBPROJECT_BMAKE_CALLS' put:(self subProjectBmakeCalls);
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2381	yourself
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2382
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2383	"Created: / 17-08-2006 / 21:41:56 / cg"
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2384	"Modified: / 14-09-2006 / 18:55:33 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2385	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2386
9962 905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2387	classLine_mappings: aClassName
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2388
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2389	^Dictionary new
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2390	at: 'CLASS' put: ( self st2c:aClassName );
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2391	yourself
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2392
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2393	"Modified: / 09-08-2006 / 18:27:07 / fm"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2394	"Created: / 19-09-2006 / 22:47:43 / cg"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2395	!
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2396
10299 af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2397	make_dot_proto_mappings
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2398	^ Dictionary new
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2399	at: 'TAB' put: ( Character tab asString );
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2400	at: 'TOP' put: ( self pathToTop_unix );
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2401	at: 'LIBRARY_NAME' put: ( self libraryName );
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2402	at: 'SUBDIRECTORIES' put: (self generateSubDirectories);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2403	at: 'LOCAL_INCLUDES' put: (self generateLocalIncludes_unix);
10331 3a697063403e Add localDefines Stefan Vogel <sv@exept.de> parents: 10317 diff changeset	2404	at: 'LOCAL_DEFINES' put: self localDefines_unix;
10299 af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2405	at: 'COMMONSYMFLAG' put: (self commonSymbolsFlag);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2406	at: 'HEADEROUTPUTARG' put: (self headerFileOutputArg);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2407	at: 'ADDITIONAL_DEFINITIONS' put: (self additionalDefinitions_make_dot_proto);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2408	at: 'ADDITIONAL_RULES' put: (self additionalRules_make_dot_proto);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2409	at: 'ADDITIONAL_TARGETS' put: (self additionalTargets_make_dot_proto);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2410	at: 'ADDITIONAL_LINK_LIBRARIES' put: (self additionalLinkLibraries_make_dot_proto);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2411	at: 'ADDITIONAL_SHARED_LINK_LIBRARIES' put: (self additionalSharedLinkLibraries_make_dot_proto);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2412	at: 'DEPENDENCIES' put: (self generateDependencies_unix);
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2413	yourself
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2414
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2415	"Created: / 09-08-2006 / 11:20:45 / fm"
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2416	"Modified: / 09-08-2006 / 16:44:48 / fm"
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2417	"Modified: / 14-09-2006 / 18:57:52 / cg"
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2418	!
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2419
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2420	make_dot_spec_mappings
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2421	^ Dictionary new
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2422	at: 'TAB' put: ( Character tab asString );
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2423	at: 'MODULE' put: ( self module );
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2424	at: 'MODULE_DIRECTORY' put: ( self moduleDirectory );
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2425	at: 'STCWARNINGOPTIONS' put: (self stcWarningOptions);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2426	at: 'STCOPTIMIZATIONOPTIONS' put: (self stcOptimizationOptions);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2427	at: 'OBJECTS' put: [self generateObjects_make_dot_spec];
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2428	yourself
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2429
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2430	"Created: / 18-08-2006 / 11:44:23 / cg"
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2431	"Modified: / 14-09-2006 / 18:51:24 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2432	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2433
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2434	objectLine_make_dot_spec_mappings: aClassName
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2435	\|cls fn\|
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2436
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2437	(cls := Smalltalk classNamed:aClassName) isNil ifTrue:[
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2438	fn := Smalltalk fileNameForClass:aClassName
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2439	] ifFalse:[
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2440	fn := cls classFilename asFilename withoutSuffix baseName
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2441	].
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2442
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2443	^ Dictionary new
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2444	at: 'CLASSFILE' put: fn;
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2445	yourself
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2446
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2447	"Created: / 08-08-2006 / 20:17:28 / fm"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2448	"Modified: / 09-08-2006 / 18:26:52 / fm"
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2449	"Modified: / 20-10-2006 / 16:22:58 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2450	!
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2451
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2452	packageName_dot_rc_mappings
9630 526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2453	\|d s\|
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2454
9630 526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2455	d := Dictionary new.
526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2456	d
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2457	at: 'PRODUCT_NAME' put: (self productName);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2458	at: 'PRODUCT_VERSION' put: (self productVersion);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2459	at: 'PRODUCT_DATE' put: (self productDate);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2460	at: 'FILETYPE' put: ( 'VFT_DLL' );
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2461	at: 'FILE_VERSION_COMMASEPARATED' put: (self fileVersionCommaSeparated);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2462	at: 'PRODUCT_VERSION_COMMASEPARATED' put: (self productVersionCommaSeparated);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2463
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2464	at: 'COMPANY_NAME' put: (self companyName);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2465	at: 'FILE_DESCRIPTION' put: (self fileDescription);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2466	at: 'FILE_VERSION' put: (self fileVersion);
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2467	at: 'INTERNAL_NAME' put: (self internalName).
9630 526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2468	s := self legalCopyright.
526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2469	s notNil ifTrue:[
526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2470	d
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2471	at: 'LEGAL_COPYRIGHT_LINE' put: ' VALUE "LegalCopyright", "',s,'\0"'
9630 526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2472	].
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2473	s := self iconFileName.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2474	s notNil ifTrue:[
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2475	d
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2476	at: #'ICONDEFINITION_LINE' put: 'IDR_MAINFRAME ICON DISCARDABLE "',s,'"'
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2477	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2478
9630 526c4d537a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	2479	^ d
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2480
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2481	"Created: / 09-08-2006 / 11:21:21 / fm"
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2482	"Modified: / 14-09-2006 / 18:52:37 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2483	!
3a835fa7e38b initial checkin fm parents: diff changeset	2484
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2485	replaceMappings: mappings in: fileTemplate
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2486	"Replaces the defined variable mappings found in a file template with the corresponding information"
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2487
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2488	^ fileTemplate bindWithArguments:mappings.
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2489
9733 ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2490	"
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2491	self replaceMappings: (self nt_dot_def_mappingsFor: self) in: self nt_dot_def
ce3c5ea1d4d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9726 diff changeset	2492	"
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2493
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2494	"Created: / 08-08-2006 / 11:44:27 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2495	"Modified: / 08-08-2006 / 12:46:13 / fm"
9962 905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2496	!
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2497
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2498	st2c:aString
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2499	^ (aString asString
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2500	copyReplaceString:'_' withString:('_',($_ codePoint printStringRadix:8)))
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2501	replaceAny:':' with:$_
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2502	! !
3a835fa7e38b initial checkin fm parents: diff changeset	2503
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2504	!ProjectDefinition class methodsFor:'mappings support'!
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2505
10299 af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2506	commonSymbolsFlag
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2507	"only for libraries"
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2508
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2509	^ ''
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2510	!
af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2511
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2512	generateClassLines:classLineTemplate
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2513	^ String
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2514	streamContents:[:s \|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2515	\|classNames classesLoaded classNamesUnloaded classNamesSorted putLineForClassName\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2516
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2517	putLineForClassName := [:className \|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2518	\|newClassLine mappings\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2519
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2520	mappings := self classLine_mappings:className.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2521	newClassLine := self replaceMappings:mappings in:classLineTemplate.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2522	s nextPutLine:newClassLine
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2523	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2524	classNames := self compiled_classNames_common.
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2525	classesLoaded := classNames collect:[:eachClassName \| Smalltalk classNamed:eachClassName]
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2526	thenSelect:[:eachClass \| eachClass notNil and:[eachClass isLoaded]].
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2527	classNamesUnloaded := classNames
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2528	select:[:nm \|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2529	\|cls\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2530
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2531	cls := Smalltalk classNamed:nm.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2532	cls isNil or:[ cls isLoaded not ]
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2533	].
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2534	classNamesSorted := (Class classesSortedByLoadOrder:classesLoaded) collect:[:cls \| cls name].
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2535	classNamesSorted do:putLineForClassName.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2536	classNamesUnloaded do:putLineForClassName.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2537	self namesAndAttributesIn:(self additionalClassNamesAndAttributes)
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2538	do:[:nm :attr \|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2539	(attr isEmptyOrNil or:[ (attr includes:#autoload) not ]) ifTrue:[
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2540	putLineForClassName value:nm.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2541	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2542	].
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2543	#( ('UNIX' unix)
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2544	('WIN32' win32)
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2545	('VMS' vms)
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2546	('BEOS' beos) )
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2547	pairsDo:[:ifdef :platformName \|
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2548	\|archClassNames archClassesLoaded\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2549
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2550	archClassNames := self compiled_classNamesForPlatform:platformName.
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2551	archClassNames notEmpty ifTrue:[
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2552	s nextPutLine:'#ifdef ' , ifdef.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2553	archClassNames do:[:clsName \|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2554	putLineForClassName value:clsName
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2555	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2556	s nextPutLine:'#endif /* ' , ifdef , ' */'.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2557	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2558	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2559	]
9962 905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2560
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2561	"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2562	bosch_dapasx_datenbasis generateClassLines_libInit_dot_cc
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2563	bosch_dapasx_kernel generateClassLines_libInit_dot_cc
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2564	stx_libbasic3 generateClassLines_libInit_dot_cc
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2565	"
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2566
9962 905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2567	"Modified: / 16-08-2006 / 18:52:10 / User"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2568	"Created: / 19-09-2006 / 22:47:50 / cg"
9979 e2e247d73233 oops - libInit forgot non-loaded, alien-OS files. Claus Gittinger <cg@exept.de> parents: 9972 diff changeset	2569	"Modified: / 20-09-2006 / 11:47:25 / cg"
9962 905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2570	!
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2571
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2572	generateClassLines_libInit_dot_cc
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2573	^ self generateClassLines:(self classLine_libInit_dot_cc)
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2574
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2575	"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2576	bosch_dapasx_datenbasis generateClassLines_libInit_dot_cc
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2577	bosch_dapasx_kernel generateClassLines_libInit_dot_cc
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2578	stx_libbasic3 generateClassLines_libInit_dot_cc
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2579	"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2580
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2581	"Created: / 09-08-2006 / 11:21:48 / fm"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2582	"Modified: / 16-08-2006 / 18:52:10 / User"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2583	"Modified: / 19-09-2006 / 22:48:14 / cg"
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2584	!
905898cca08c also generate modules.c (precompiled-in init list for app) Claus Gittinger <cg@exept.de> parents: 9956 diff changeset	2585
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2586	generateDependencies:whichArchitecture
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2587	^ String
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2588	streamContents:[:s \|
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2589	\|classNames classesPresent classesLoaded classesSorted classNamesSorted putDependencyForClassBlock
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2590	archClassNames archClassesLoaded
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2591	putSingleClassDependencyEntryBlock putDependencyForExtensionsBlock\|
402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2592
402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2593	putSingleClassDependencyEntryBlock := [:cls \|
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2594	\|sclsBaseName\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2595
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2596	s nextPutAll:' $(INCLUDE_TOP)'.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2597	s nextPutAll:(self pathSeparator:whichArchitecture) asString.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2598	sclsBaseName := cls classFilename asFilename withoutSuffix baseName.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2599	s nextPutAll:(self
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2600	topRelativePathTo:sclsBaseName
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2601	inPackage:cls package
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2602	architecture:whichArchitecture).
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2603	s nextPutAll:'.$(H)'.
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2604	].
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2605
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2606	putDependencyForClassBlock := [:cls \|
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2607	\|clsBaseName already\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2608
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2609	clsBaseName := cls classFilename asFilename withoutSuffix baseName.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2610	s nextPutAll:'$(OUTDIR)'.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2611	s nextPutAll:clsBaseName.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2612	s nextPutAll:'.$(O)'.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2613	s nextPutAll:' '.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2614	s nextPutAll:clsBaseName.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2615	s nextPutAll:'.$(H)'.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2616	s nextPutAll:': '.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2617	s nextPutAll:clsBaseName.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2618	s nextPutAll:'.st'.
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2619	cls isLoaded ifTrue:[
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2620	already := Set new.
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2621	cls
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2622	allSuperclassesDo:[:scls \|
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2623	putSingleClassDependencyEntryBlock value:scls.
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2624	already add:scls.
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2625	].
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2626	cls
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2627	privateClassesDo:[:eachPrivateClass \|
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2628	eachPrivateClass
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2629	allSuperclassesDo:[:scls \|
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2630	\|sclsBaseName\|
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2631
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2632	scls ~~ cls ifTrue:[
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2633	scls isPrivate ifFalse:[
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2634	(already includes:scls) ifFalse:[
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2635	putSingleClassDependencyEntryBlock value:scls.
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2636	already add:scls.
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2637	].
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2638	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2639	].
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2640	]
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2641	].
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2642	].
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2643	s nextPutLine:' $(STCHDR)'.
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2644	].
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2645
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2646	putDependencyForExtensionsBlock := [
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2647	\|already\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2648
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2649	s nextPutAll:'$(OUTDIR)extensions.$(O): extensions.st'.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2650	already := Set new.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2651	self extensionMethodNames
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2652	pairWiseDo:[:className :selector \|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2653	\|mthdCls cls\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2654
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2655	((mthdCls := Smalltalk classNamed:className) notNil
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2656	and:[ mthdCls isLoaded ])
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2657	ifTrue:[
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2658	cls := mthdCls theNonMetaclass.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2659	(already includes:cls) ifFalse:[
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2660	cls
10063 580a7b4b4b81 * empty log message * Claus Gittinger <cg@exept.de> parents: 10058 diff changeset	2661	withAllSuperclassesDo:[:scls \|
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2662	(already includes:scls) ifFalse:[
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2663	putSingleClassDependencyEntryBlock value:scls.
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2664	already add:scls.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2665	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2666	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2667	].
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2668	].
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2669	].
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2670	s nextPutLine:' $(STCHDR)'.
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2671	].
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2672
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2673	classNames := self compiled_classNames_common.
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2674	classesPresent := classNames
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2675	collect:[:className \| Smalltalk classNamed:className]
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2676	thenSelect:[:cls \| cls notNil].
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2677	classesLoaded := classesPresent
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2678	select:[:cls \| cls isLoaded].
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2679
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2680	classesSorted := Class classesSortedByLoadOrder:classesLoaded.
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2681	classesSorted do:putDependencyForClassBlock.
402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2682	(classesPresent select:[:cls \| cls isLoaded not]) do:putDependencyForClassBlock.
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2683
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2684	self namesAndAttributesIn:(self additionalClassNamesAndAttributes)
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2685	do:[:className :attr \|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2686	\|cls\|
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2687
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2688	(attr isEmptyOrNil or:[ (attr includes:#autoload) not ]) ifTrue:[
10299 af27a10749c2 add #additional_link_libraries_nt_dot_mak Stefan Vogel <sv@exept.de> parents: 10296 diff changeset	2689	((cls := Smalltalk classNamed:className) notNil) ifTrue:[
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2690	putDependencyForClassBlock value:cls.
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2691	]
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2692	].
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2693	].
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2694	archClassNames := self compiled_classNamesForPlatform:whichArchitecture.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2695	archClassesLoaded := archClassNames
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2696	collect:[:className \| Smalltalk classNamed:className]
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2697	thenSelect:[:cls \| cls notNil and:[ cls isLoaded ] ].
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2698
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2699	archClassesLoaded notEmpty ifTrue:[
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2700	(Class classesSortedByLoadOrder:archClassesLoaded)
402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2701	do:putDependencyForClassBlock.
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2702	].
10368 402117e3a3ef Fix warnings Stefan Vogel <sv@exept.de> parents: 10366 diff changeset	2703	self hasExtensionMethods ifTrue:putDependencyForExtensionsBlock.
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	2704	]
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2705
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2706	"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2707	stx_libbasic3 generateDependencies:#unix
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2708	stx_libbasic3 generateDependencies:#win32
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2709	"
69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	2710
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2711	"Modified: / 16-08-2006 / 18:52:10 / User"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2712	"Created: / 14-09-2006 / 12:38:57 / cg"
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	2713	"Modified: / 25-10-2006 / 16:01:13 / cg"
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2714	!
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2715
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2716	generateDependencies_unix
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2717	^ self generateDependencies:#unix
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2718
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2719	"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2720	stx_libbasic3 generateDependencies:#unix
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2721	stx_libbasic3 generateDependencies:#win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2722	"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2723
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2724	"Modified: / 14-09-2006 / 13:32:34 / cg"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2725	!
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2726
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2727	generateDependencies_win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2728	^ self generateDependencies:#win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2729
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2730	"Created: / 14-09-2006 / 12:39:18 / cg"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2731	!
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2732
9956 7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2733	generateLocalIncludes_unix
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2734	^ String streamContents:[:s \|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2735	s nextPutAll:(self localIncludes_unix).
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2736	self searchForProjectsWhichProvideHeaderFiles
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2737	do:[:includeProject \|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2738	s nextPutAll:' -I$(INCLUDE_TOP)/',(self topRelativePathToPackage_unix: includeProject)
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2739	]
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2740	]
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2741
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2742	"
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2743	bosch_dapasx generateLocalIncludes_unix
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2744	bosch_dapasx_datenbasis generateLocalIncludes_unix
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2745	stx_libbasic generateLocalIncludes_unix
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2746	stx_libview generateLocalIncludes_unix
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2747	stx_libtool2 generateLocalIncludes_unix
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2748	stx_libui generateLocalIncludes_unix
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2749	"
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2750
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2751	"Created: / 09-08-2006 / 16:46:49 / fm"
10251 653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	2752	"Modified: / 07-12-2006 / 17:47:06 / cg"
9956 7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2753	!
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	2754
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2755	generateLocalIncludes_win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2756	^ String streamContents:[:s \|
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2757	s nextPutAll:(self localIncludes_win32).
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2758	self searchForProjectsWhichProvideHeaderFiles
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2759	do:[:includeProject \|
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2760	s nextPutAll:' -I$(INCLUDE_TOP)\',(self topRelativePathToPackage_win32: includeProject)
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2761	]
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2762	]
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2763
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2764	"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2765	bosch_dapasx_application generateLocalIncludes_win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2766	bosch_dapasx_datenbasis generateLocalIncludes_win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2767	stx_libbasic generateLocalIncludes_win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2768	stx_libview generateLocalIncludes_win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2769	stx_libtool2 generateLocalIncludes_win32
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2770	"
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2771
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2772	"Created: / 09-08-2006 / 16:46:49 / fm"
10251 653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	2773	"Modified: / 07-12-2006 / 17:47:10 / cg"
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2774	!
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2775
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2776	generateObjects_make_dot_spec
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	2777	\|pivateClassesOf sorter classes\|
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2778
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2779	classes := self compiled_classes_common.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2780	pivateClassesOf := IdentityDictionary new.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2781	classes do:[:each \| pivateClassesOf at:each put:(each allPrivateClasses)].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2782
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	2783	sorter := [:a :b \|
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2784	"/ a must come before b iff:
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2785	"/ b is a subclass of a
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2786	"/ b has a private class which is a subclass of a
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2787	"/ a is a sharedPool, used by b
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2788
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2789	\|mustComeBefore pivateClassesOfB\|
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2790
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2791	mustComeBefore := false.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2792	mustComeBefore := (a isSharedPool and:[(b sharedPools includes: a name)]).
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2793	mustComeBefore := mustComeBefore or:[b isSubclassOf:a].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2794	mustComeBefore ifFalse:[
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	2795	pivateClassesOfB := pivateClassesOf at:b ifAbsent:[ #() ].
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2796	pivateClassesOfB do:[:eachClassInB \|
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2797	mustComeBefore := mustComeBefore or:[eachClassInB isSubclassOf:a]
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2798	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2799	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2800	mustComeBefore
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2801	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2802
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	2803	classes topologicalSort:sorter.
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	2804
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2805	^ String streamContents:[:s \|
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2806	\|putLineForClass putLineForClassName sysDepOrNil\|
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2807
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2808	putLineForClassName :=
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2809	[:eachClassName \|
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2810	\|mappings newObjectLine\|
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2811	mappings := self objectLine_make_dot_spec_mappings: eachClassName.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2812	newObjectLine := self replaceMappings: mappings in: self objectLine_make_dot_spec.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2813	s nextPutLine:newObjectLine.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2814	].
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2815
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2816	putLineForClass :=
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2817	[:eachClass \|
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2818	putLineForClassName value:(eachClass name)
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2819	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2820
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2821	sysDepOrNil := nil.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2822	OperatingSystem knownPlatformNames do:[:platformID \|
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2823	\|define prefix depClasses depClassNames\|
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2824
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2825	define := OperatingSystem platformDefineForPlatformName:platformID.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2826	prefix := define copyFrom:('-D' size + 1).
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2827	depClasses := self compiled_classesForArchitecture:platformID.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2828	depClasses notEmpty ifTrue:[
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2829	sysDepOrNil := prefix,'_OBJS'.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2830	s nextPutLine:sysDepOrNil,'= \'.
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2831
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2832	(depClasses includes:nil) ifTrue:[
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2833	(Dialog confirm:'Dependencies are not in order (some classes are not present).\\Continue anyway ?' withCRs)
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2834	ifFalse:[
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2835	AbortSignal raise.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2836	].
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2837	depClassNames := self compiled_classNamesForPlatform:platformID.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2838	depClassNames do:putLineForClassName.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2839	] ifFalse:[
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2840	depClasses topologicalSort:sorter.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2841	depClasses do:putLineForClass.
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2842	].
f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2843
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2844	s cr.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2845	s cr.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2846	]
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2847	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2848
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2849	s nextPutLine:'COMMON_OBJS= \'.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2850
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2851	classes do:putLineForClass.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2852
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2853	self namesAndAttributesIn:(self additionalClassNamesAndAttributes) do: [:nm :attr \|
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2854	(attr isEmptyOrNil or:[(attr includes:#autoload) not]) ifTrue:[
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2855	s nextPutLine:(' $(OUTDIR)',(Smalltalk fileNameForClass:nm),'.$(O) \').
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2856	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2857	].
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2858
9906 9efd21c9b1b6 hasExtensions is a bad name (conflicts with the other query) Claus Gittinger <cg@exept.de> parents: 9904 diff changeset	2859	self hasExtensionMethods ifTrue:[
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2860	s nextPutLine:' $(OUTDIR)extensions.$(O) \'.
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	2861	].
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2862	s cr.
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2863	]
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2864
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2865	"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2866	bosch_dapasx_hw_schnittstellen_Definition generateObjects_make_dot_spec
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2867	DapasXProject generateObjects_make_dot_spec
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2868	stx_libbasic3 generateObjects_make_dot_spec
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2869	"
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2870
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2871	"Created: / 09-08-2006 / 11:24:39 / fm"
10103 f63f419f9e27 some care for incomplete information bein present when Claus Gittinger <cg@exept.de> parents: 10086 diff changeset	2872	"Modified: / 20-10-2006 / 16:18:54 / cg"
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2873	!
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2874
10022 e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2875	generateSubDirectories
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2876	^ String streamContents:[:s \|
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2877	self subProjects
10380 ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	2878	do:[:eachProjectID \|
ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	2879	s space; nextPutAll:(self unixPathToPackage:eachProjectID from:self package)
10022 e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2880	]
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2881	]
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2882
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2883	"
10380 ff1cfee6130b Fix subproject incluseion in Make.proto Stefan Vogel <sv@exept.de> parents: 10369 diff changeset	2884	exept_expecco generateSubDirectories
10022 e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2885	"
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2886
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2887	"Created: / 09-08-2006 / 11:26:59 / fm"
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2888	"Modified: / 14-09-2006 / 18:46:18 / cg"
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2889	!
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2890
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2891	headerFileOutputArg
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2892	"/ "all stx stuff goes to the common include directory.
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2893	"/ Everything else is left locally"
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2894	"/
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2895	"/ (
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2896	"/ #(
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2897	"/ 'stx:libbasic' 'stx:libview' 'stx:libtool'
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2898	"/ 'stx:libbasic2' 'stx:libview2' 'stx:libtool2'
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2899	"/ 'stx:libbasic3' 'stx:libwidg' 'stx:libhtml'
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2900	"/ 'stx:libcomp' 'stx:libwidg2' 'stx:libui'
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2901	"/ 'stx:libboss' 'stx:libdb'
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2902	"/ )
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2903	"/ includes:self package) ifTrue:[
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2904	"/ ^ '-H$(INCLUDE)'
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2905	"/ ].
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2906	^ '-H.'
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2907
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2908	"Created: / 18-08-2006 / 13:01:52 / cg"
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2909	"Modified: / 14-09-2006 / 15:38:25 / cg"
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2910	!
e0df2092b978 * empty log message * Claus Gittinger <cg@exept.de> parents: 10013 diff changeset	2911
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2912	subProjectBmakeCalls
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2913	^ String streamContents:[:s \|
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2914	self subProjects do:[:packageID \|
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2915	s nextPutLine:'cd ', (self msdosPathToPackage:packageID from:(self package)).
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2916	s nextPutLine:'call bmake %1 %2'.
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2917	s nextPutLine:'cd ', (self msdosPathToPackage:(self package) from:packageID).
9888 7230c9f25e5e * empty log message * Claus Gittinger <cg@exept.de> parents: 9887 diff changeset	2918	s cr.
9887 5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2919	]
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2920	]
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2921
5c0c2a62ad2d * empty log message * Claus Gittinger <cg@exept.de> parents: 9883 diff changeset	2922	"Created: / 14-09-2006 / 18:40:09 / cg"
9888 7230c9f25e5e * empty log message * Claus Gittinger <cg@exept.de> parents: 9887 diff changeset	2923	"Modified: / 14-09-2006 / 19:46:57 / cg"
9817 619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2924	! !
619b43f937c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9803 diff changeset	2925
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	2926	!ProjectDefinition class methodsFor:'private'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	2927
9996 cf8c78449763 * empty log message * Stefan Vogel <sv@exept.de> parents: 9986 diff changeset	2928	addReferencesToClassesFromGlobalsIn:aSetOfClasses to:usedClassReasons
cf8c78449763 * empty log message * Stefan Vogel <sv@exept.de> parents: 9986 diff changeset	2929	aSetOfClasses
cf8c78449763 * empty log message * Stefan Vogel <sv@exept.de> parents: 9986 diff changeset	2930	do:[:aClass \|
10067 77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2931	self
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2932	addReferencesToClassesFromGlobalsInMethods:
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2933	(aClass theNonMetaclass methodDictionary values
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2934	select:[:m \| m package = aClass package])
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2935	to:usedClassReasons.
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2936
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2937	self
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2938	addReferencesToClassesFromGlobalsInMethods:
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2939	(aClass theMetaclass methodDictionary values
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2940	select:[:m \| m package = aClass package])
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2941	to:usedClassReasons.
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2942	].
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2943
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2944	"Modified: / 10-10-2006 / 23:03:45 / cg"
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2945	!
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2946
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2947	addReferencesToClassesFromGlobalsInMethods:someMethods to:usedClassReasons
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2948	someMethods do:[:method \|
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2949	method usedGlobals
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2950	do:[:global \| \|usedClass\|
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2951	usedClass := Smalltalk at: global asSymbol.
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2952	(usedClass notNil and:[usedClass isClass and:[usedClass isNameSpace not]])
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2953	ifTrue:[
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2954	(usedClassReasons at: usedClass ifAbsentPut:[Set new])
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	2955	add: (usedClass name, ' - referenced by ', method mclass name,'>>',method selector)
9996 cf8c78449763 * empty log message * Stefan Vogel <sv@exept.de> parents: 9986 diff changeset	2956	]
cf8c78449763 * empty log message * Stefan Vogel <sv@exept.de> parents: 9986 diff changeset	2957	]
10067 77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2958	]
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2959
77697f0abbe6 exclude extensionmethods from OTHER packages Claus Gittinger <cg@exept.de> parents: 10064 diff changeset	2960	"Created: / 10-10-2006 / 23:00:07 / cg"
9996 cf8c78449763 * empty log message * Stefan Vogel <sv@exept.de> parents: 9986 diff changeset	2961	!
cf8c78449763 * empty log message * Stefan Vogel <sv@exept.de> parents: 9986 diff changeset	2962
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2963	classNamesAndAttributesDo: aBlock
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2964	self namesAndAttributesIn:(self classNamesAndAttributes) do: aBlock
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2965
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2966	"Modified: / 22-08-2006 / 18:20:21 / cg"
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	2967	!
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	2968
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2969	compile:someCode categorized:category
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2970	Class packageQuerySignal
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2971	answer:self package
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2972	do:[
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2973	self theMetaclass compilerClass
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2974	compile:someCode
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2975	forClass:self theMetaclass
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2976	inCategory:category
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2977	notifying:nil
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2978	install:true
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2979	skipIfSame:true
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2980	silent:true.
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2981	]
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2982
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2983	"Created: / 23-08-2006 / 14:36:53 / cg"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2984	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	2985
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2986	compiled_classes
10073 efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2987	^ self compiled_classNames
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2988	collect:
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2989	[:eachName\|
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2990	\|cls\|
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2991
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2992	cls := (Smalltalk at:eachName asSymbol).
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2993	cls isNil ifTrue:[
10404 61112e05feb7 * empty log message * Stefan Vogel <sv@exept.de> parents: 10403 diff changeset	2994	Transcript showCR:('ProjectDefinition: missing class: ', eachName).
10073 efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2995	].
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2996	cls.
efce2ae2cb6f * empty log message * Claus Gittinger <cg@exept.de> parents: 10067 diff changeset	2997	]
10251 653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	2998	thenSelect:[:cls \| cls notNil]
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	2999
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3000	"Created: / 09-08-2006 / 16:28:15 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3001	"Modified: / 09-08-2006 / 18:02:28 / fm"
10251 653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3002	"Modified: / 07-12-2006 / 17:48:11 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3003	!
3a835fa7e38b initial checkin fm parents: diff changeset	3004
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3005	compiled_classesDo:aBlock
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3006	self compiled_classes do:aBlock.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3007
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3008	"Created: / 09-08-2006 / 16:28:15 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3009	"Modified: / 09-08-2006 / 18:02:28 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3010	!
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3011
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3012	compiled_classesForArchitecture:arch
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3013	^ (self compiled_classNamesForPlatform:arch)
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3014	collect:[:eachName \| (Smalltalk at:eachName asSymbol) ]
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3015
10251 653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3016	"
653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3017	stx_libbasic compiled_classesForArchitecture:#win32
653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3018	stx_libbasic compiled_classesForArchitecture:#macos
653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3019	stx_libbasic compiled_classesForArchitecture:#unix
653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3020	"
653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3021
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3022	"Created: / 09-08-2006 / 16:28:15 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3023	"Modified: / 09-08-2006 / 18:02:28 / fm"
10251 653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3024	"Modified: / 07-12-2006 / 17:43:17 / cg"
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3025	!
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3026
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3027	compiled_classes_common
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3028	^ self compiled_classNames_common collect:[:eachName\| (Smalltalk at:eachName asSymbol)]
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3029
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3030	"Created: / 09-08-2006 / 16:28:15 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3031	"Modified: / 09-08-2006 / 18:02:28 / fm"
9607 3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	3032	!
3cae5cf71c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 9601 diff changeset	3033
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3034	cvsRevision
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3035	\|rev\|
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3036
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3037	rev := self revision.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3038	rev isNil ifTrue:[
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3039	"not yet pubplished"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3040	^ #( '0' '1' )
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3041	].
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3042	^ rev asCollectionOfSubstringsSeparatedBy:$. .
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3043
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3044	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3045	self cvsRevision
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3046	stx_libbasic3 cvsRevision
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3047	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3048
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3049	"Created: / 17-08-2006 / 20:19:03 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	3050	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	3051
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3052	inconsistency:message
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3053	Dialog warn:message
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3054
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3055	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3056	self searchForNeverCompiledSuperclasses
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3057	DapasX_Datenbasis searchForNeverCompiledSuperclasses
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3058	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3059
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3060	"Created: / 09-08-2006 / 16:32:31 / fm"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3061	!
3a835fa7e38b initial checkin fm parents: diff changeset	3062
9826 8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3063	makeOSIncludesWith:fileSeparator from:aString
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3064	^ aString copy replaceAny:'/\' with:fileSeparator
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3065
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3066	"
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3067	self makeOSIncludesWith:$/ from:'-I$(TOP)/foo/bar'
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3068	self makeOSIncludesWith:$\ from:'-I$(TOP)/foo/bar'
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3069	"
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3070
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3071	"Created: / 06-09-2006 / 18:17:03 / cg"
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3072	!
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3073
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3074	makeUnixIncludes:aString
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3075	^ self makeOSIncludesWith:$/ from:aString
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3076
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3077	"Created: / 06-09-2006 / 18:16:19 / cg"
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3078	!
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3079
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3080	makeWin32Includes:aString
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3081	^ self makeOSIncludesWith:$\ from:aString
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3082
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3083	"Created: / 06-09-2006 / 18:16:13 / cg"
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3084	!
8d5fe8462720 common localIncludes for all oses Claus Gittinger <cg@exept.de> parents: 9825 diff changeset	3085
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3086	namesAndAttributesIn:aCollection do: aBlock
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3087	aCollection do:[:entry \|
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3088	\|className attributes\|
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3089
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3090	entry isArray ifFalse:[
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3091	className := entry.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3092	attributes := #().
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3093	] ifTrue:[
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3094	className := entry first.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3095	attributes := entry copyFrom:2.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3096	].
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3097	aBlock value: className value: attributes
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3098	].
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3099
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3100	"Created: / 22-08-2006 / 18:20:09 / cg"
9621 1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	3101	!
1d07872787b0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9618 diff changeset	3102
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3103	searchForClasses
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	3104	"answer all non-private classes that belong to this project.
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3105	They are sorted in load order"
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3106
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3107	^ Class classesSortedByLoadOrder:(self searchForClassesWithProject: self package)
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3108
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3109	"
10010 69b2dbff964b * empty log message * Stefan Vogel <sv@exept.de> parents: 10007 diff changeset	3110	stx_libbasic3 searchForClasses
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3111	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3112
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3113	"Modified: / 07-08-2006 / 21:56:25 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3114	"Created: / 17-08-2006 / 21:18:30 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3115	!
3a835fa7e38b initial checkin fm parents: diff changeset	3116
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3117	searchForClassesWithProject: aProjectID
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3118
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3119	^ Smalltalk allClasses
9829 027bd9e879b6 * empty log message * sr parents: 9826 diff changeset	3120	select:[:cls \| (cls package = aProjectID) ].
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3121
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3122	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3123	self searchForClassesWithProject: #'bosch:dapasx'
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3124	self searchForClassesWithProject: #'bosch:dapasx/datenbasis'
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3125	self searchForClassesWithProject: #'bosch:dapasx/kernel'
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3126	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3127
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3128	"Created: / 07-08-2006 / 20:42:39 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3129	"Modified: / 07-08-2006 / 21:56:25 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3130	"Modified: / 16-08-2006 / 18:50:48 / User"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3131	!
3a835fa7e38b initial checkin fm parents: diff changeset	3132
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3133	searchForExtensions
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3134	^ self searchForExtensionsWithProject:self package
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3135
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3136	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3137	self searchForExtensions
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3138	DapasXProject searchForExtensions
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3139	DapasX_Datenbasis searchForExtensions
10106 c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	3140	stx_libtool searchForExtensions
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3141	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3142
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3143	"Modified: / 09-08-2006 / 13:01:26 / fm"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3144	"Created: / 17-08-2006 / 21:17:46 / cg"
10106 c26879b72dfe extensionlist generator was buggy Claus Gittinger <cg@exept.de> parents: 10104 diff changeset	3145	"Modified: / 23-10-2006 / 11:03:07 / cg"
9575 353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	3146	!
353ef8cc798f * empty log message * Claus Gittinger <cg@exept.de> parents: 9569 diff changeset	3147
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3148	searchForExtensionsWithProject:aProjectID
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3149	"search for any class which has extensions from aProjectID.
10086 024ea420d1a6 extension method stuff refactored Claus Gittinger <cg@exept.de> parents: 10080 diff changeset	3150	Return the extension-methods sorted by classname-selector"
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3151
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3152	\|methods\|
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3153
9904 88e186908460 * empty log message * Claus Gittinger <cg@exept.de> parents: 9901 diff changeset	3154	methods := OrderedCollection new.
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3155	Smalltalk allClassesDo:[:eachClass \|
10086 024ea420d1a6 extension method stuff refactored Claus Gittinger <cg@exept.de> parents: 10080 diff changeset	3156	methods addAll:(eachClass extensionsFrom:aProjectID).
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3157	].
9908 eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3158	methods
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3159	sort:[:m1 :m2 \|
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3160	\|c1 c2\|
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3161
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3162	c1 := m1 mclass.
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3163	c2 := m2 mclass.
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3164	c1 == c2 ifTrue:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3165	m1 selector < m2 selector
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3166	] ifFalse:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3167	(c2 isMeta and:[c1 isMeta not]) ifTrue:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3168	true
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3169	] ifFalse:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3170	(c1 isMeta and:[c2 isMeta not]) ifTrue:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3171	false
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3172	] ifFalse:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3173	c1 name < c2 name
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3174	"/ (c2 isSubclassOf:c1) ifTrue:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3175	"/ true
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3176	"/ ] ifFalse:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3177	"/ (c1 isSubclassOf:c2) ifTrue:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3178	"/ false
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3179	"/ ] ifFalse:[
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3180	"/ "/ leave as is
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3181	"/ true
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3182	"/ ].
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3183	"/ ].
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3184	].
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3185	].
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3186	].
eede5b535b1e extensions sorted by name (to avoid confusing cvs-diff) Claus Gittinger <cg@exept.de> parents: 9906 diff changeset	3187	].
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3188	^ methods
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3189
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3190	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3191	self searchForExtensionsWithProject:#'bosch:dapasx'
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3192	self searchForExtensionsWithProject:#'cg:oyster'
10086 024ea420d1a6 extension method stuff refactored Claus Gittinger <cg@exept.de> parents: 10080 diff changeset	3193	self searchForExtensionsWithProject:#'stx:libboss'
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3194	"
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3195
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3196	"Created: / 17-08-2006 / 21:19:04 / cg"
10086 024ea420d1a6 extension method stuff refactored Claus Gittinger <cg@exept.de> parents: 10080 diff changeset	3197	"Modified: / 12-10-2006 / 20:45:39 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3198	!
3a835fa7e38b initial checkin fm parents: diff changeset	3199
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3200	searchForPreRequisites
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3201	"answer a Dictionary where the keys are the prerequisite package for this package
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3202	and the values are a Set of reasons, why each package is required"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3203
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3204	\|requiredClasses requiredPackageReasons usedClassesWithReasons ignoredPackages\|
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3205
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3206	usedClassesWithReasons := Dictionary new.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3207
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3208	"my classes are required"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3209	requiredClasses := (self searchForClassesWithProject:self package) asSet.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3210
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3211	"my subproject's classes are required"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3212	self subProjects do:[:eachProjectName \|
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3213	requiredClasses addAll: (self searchForClassesWithProject:eachProjectName asSymbol)
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3214	].
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3215
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3216	"all superclasses of my classes and my subProject's classes are required"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3217	requiredClasses do:[:cls \|
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3218	cls allSuperclassesDo:[:eachSuperclass \|
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3219	(usedClassesWithReasons at: eachSuperclass ifAbsentPut:[Set new])
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3220	add: (eachSuperclass name, ' - superclass of ', cls name).
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3221	]
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3222	].
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3223
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3224	"all classes referenced by my classes or my subproject's classes
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3225	are required. But:
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3226	only search for locals refered to by my methods (assuming that superclasses'
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3227	prerequisites are specified in their package)."
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3228
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3229	self addReferencesToClassesFromGlobalsIn:requiredClasses to:usedClassesWithReasons.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3230	self addReferencesToClassesFromGlobalsInMethods:(self searchForExtensionsWithProject:self package) to:usedClassesWithReasons.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3231
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3232	"don't put classes from subProjects into the required list"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3233	ignoredPackages := (self siblingsAreSubProjects
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3234	ifTrue:[ self searchForSiblingProjects ]
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3235	ifFalse:[ self searchForSubProjects ]) asSet.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3236
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3237	ignoredPackages add:self package.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3238	ignoredPackages add:Project noProjectID.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3239
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3240	"now map classes to packages and collect the reasons"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3241	requiredPackageReasons := Dictionary new.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3242	usedClassesWithReasons keysAndValuesDo:[:usedClass :reasonsPerClass \| \|usedClassPackage\|
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3243	usedClassPackage := usedClass package.
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3244	(ignoredPackages includes:usedClassPackage) ifFalse:[
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3245	(requiredPackageReasons at:usedClassPackage ifAbsentPut:[Set new])
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3246	addAll:reasonsPerClass.
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3247	].
10063 580a7b4b4b81 * empty log message * Claus Gittinger <cg@exept.de> parents: 10058 diff changeset	3248	].
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3249
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3250	^ requiredPackageReasons
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3251
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3252	"
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3253	self searchForPreRequisites
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3254	stx_libbasic3 searchForPreRequisites
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3255	bosch_dapasx_Application searchForPreRequisites
10179 cb4bc76044d0 * empty log message * fm parents: 10163 diff changeset	3256	bosch_dapasx_pav_browser searchForPreRequisites
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3257	"
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3258
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3259	"Created: / 07-08-2006 / 20:42:39 / fm"
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3260	"Modified: / 07-08-2006 / 21:56:25 / fm"
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3261	"Modified: / 20-09-2006 / 17:29:59 / cg"
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3262	!
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3263
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3264	searchForProjectsWhichProvideHeaderFiles
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3265	\|addPackage myPackageID requiredPackages\|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3266
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3267	myPackageID := self package.
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3268	requiredPackages := Set new.
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3269
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3270	addPackage :=
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3271	[:package \|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3272	(package ~= myPackageID) ifTrue:[
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3273	true "(package startsWith:'stx:') not" ifTrue:[
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3274	package ~= Project noProjectID ifTrue:[
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3275	requiredPackages add:package.
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3276	]
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3277	]
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3278	]
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3279	].
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3280
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3281	self compiled_classesDo:[:cls \|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3282	cls allSuperclassesDo:[:eachSuperClass \|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3283	addPackage value:(eachSuperClass package)
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3284	].
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3285
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3286	cls privateClassesDo:[:eachPrivateClass \|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3287	eachPrivateClass allSuperclassesDo:[:eachSuperClass \|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3288	eachSuperClass isPrivate ifFalse:[
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3289	addPackage value:(eachSuperClass package)
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3290	].
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3291	]
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3292	].
9956 7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3293
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3294	cls sharedPools do:[:eachPoolName \|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3295	\|eachPoolClass\|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3296
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3297	eachPoolClass := Smalltalk classNamed:eachPoolName.
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3298	eachPoolClass withAllSuperclassesDo:[:eachPoolSuperClass \|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3299	addPackage value:(eachPoolSuperClass package)
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3300	]
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3301	].
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3302	].
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3303
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3304	self extensionMethodNames pairWiseDo:[:className :selector \|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3305	\|cls\|
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3306	((cls := Smalltalk classNamed:className) notNil and:[cls isLoaded]) ifTrue:[
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3307	addPackage value:(cls package)
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3308	]
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3309	].
c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3310	^ requiredPackages
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3311
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	3312	"
9883 c641767d1483 include and dependency generation fixed Claus Gittinger <cg@exept.de> parents: 9880 diff changeset	3313	stx_libtool searchForProjectsWhichProvideHeaderFiles
9880 378bf1f5afa1 local headers Claus Gittinger <cg@exept.de> parents: 9852 diff changeset	3314	"
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3315
10251 653b5d0a7713 * empty log message * Claus Gittinger <cg@exept.de> parents: 10232 diff changeset	3316	"Created: / 07-12-2006 / 17:46:38 / cg"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3317	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3318
9667 90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3319	searchForSiblingProjects
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3320	"answer all the packages (package names) having the my parent package"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3321
9667 90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3322	\|myPackage myParentPackage\|
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3323
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3324	myPackage := self package asPackageId.
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3325	myParentPackage := myPackage parentPackage.
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3326	myParentPackage isNil ifTrue:[^ #() ].
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3327
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3328	^ Smalltalk allProjectIDs
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3329	select:[:projectID \|
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3330	\|thisPackage\|
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3331	thisPackage := projectID asPackageId.
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3332	(thisPackage parentPackage = myParentPackage)
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3333	and:[ thisPackage ~= myPackage ].
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3334	]
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3335
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3336	"
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3337	self searchForSiblingProjects
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3338	bosch_dapasx_Application searchForSiblingProjects
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3339	stx_goodies_refactoryBrowser_changes searchForSiblingProjects
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3340	"
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3341
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3342	"Modified: / 07-08-2006 / 21:56:25 / fm"
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3343	"Created: / 23-08-2006 / 15:06:12 / cg"
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3344	!
90b25ca6d10e * empty log message * Claus Gittinger <cg@exept.de> parents: 9664 diff changeset	3345
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3346	searchForSubProjects
10132 e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3347	"answer all packages (package names), that are my subProjects"
e2afb1e0363a Add some documentation Stefan Vogel <sv@exept.de> parents: 10129 diff changeset	3348
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3349	\|myPackage\|
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3350
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3351	myPackage := self package.
10215 2d5aaeab5718 * empty log message * Claus Gittinger <cg@exept.de> parents: 10212 diff changeset	3352	^ Smalltalk allProjectIDs
2d5aaeab5718 * empty log message * Claus Gittinger <cg@exept.de> parents: 10212 diff changeset	3353	select:[:projectID \|
2d5aaeab5718 * empty log message * Claus Gittinger <cg@exept.de> parents: 10212 diff changeset	3354	projectID ~= Project noProjectID
2d5aaeab5718 * empty log message * Claus Gittinger <cg@exept.de> parents: 10212 diff changeset	3355	and:[ (projectID asPackageId parentPackage) = myPackage ]].
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3356
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3357	"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3358	self searchForSubProjects
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3359	bosch_dapasx_Application searchForSubProjects
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3360	stx_goodies_refactoryBrowser_changes searchForSubProjects
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3361	"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3362
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3363	"Created: / 07-08-2006 / 20:42:39 / fm"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3364	"Modified: / 07-08-2006 / 21:56:25 / fm"
10215 2d5aaeab5718 * empty log message * Claus Gittinger <cg@exept.de> parents: 10212 diff changeset	3365	"Modified: / 05-12-2006 / 18:04:27 / cg"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3366	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3367
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3368	setupForType:typeOrNil
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	3369	typeOrNil = GUIApplicationType ifTrue:[
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3370	self compile:'isGUIApplication\ ^ true' withCRs
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3371	categorized:'description'.
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3372	^ self
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3373	].
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	3374	typeOrNil = NonGUIApplicationType ifTrue:[
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3375	self compile:'isGUIApplication\ ^ false' withCRs
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3376	categorized:'description'.
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3377	^ self
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3378	].
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3379	^ self.
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3380
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3381	"Created: / 23-08-2006 / 14:26:10 / cg"
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3382	! !
3a835fa7e38b initial checkin fm parents: diff changeset	3383
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3384	!ProjectDefinition class methodsFor:'private loading'!
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3385
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3386	loadAllClassesAsAutoloaded:asAutoloaded
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3387	"load (fileIn) classes that should be present -
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3388	install as autoloaded classes marked to be autoloaded.
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3389	If asAutoloaded == true, all classes will be installed as autoloaded, even if not marked.
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3390
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3391	Answer true, if classes have been loaded"
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3392
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3393	\|classNamesToLoad classNamesToAutoload hasClassesToLoad loadedClasses platformName
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3394	classesWhichFailedToLoad\|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3395
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3396	platformName := OperatingSystem platformName.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3397	classNamesToLoad := OrderedCollection new.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3398	classNamesToAutoload := OrderedCollection new.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3399
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3400	self classNamesAndAttributesDo:[:eachClassname :eachAttributes \| \|eachClassnameSym isAutoload cls\|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3401	eachClassnameSym := eachClassname asSymbol.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3402	isAutoload := asAutoloaded or:[eachAttributes includes:#autoload].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3403
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3404	"no need to (re-)load an existing class, but install if should be loaded"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3405	cls := Smalltalk loadedClassNamed:eachClassnameSym.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3406	(cls isNil or:[cls isLoaded not and:[isAutoload not]]) ifTrue:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3407	(eachAttributes isEmpty
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3408	or:[(eachAttributes size == 1 and:[isAutoload])
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3409	or:[eachAttributes includes:platformName]]) ifTrue:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3410	hasClassesToLoad := true.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3411	isAutoload ifTrue:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3412	classNamesToAutoload add:eachClassnameSym.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3413	] ifFalse:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3414	classNamesToLoad add:eachClassnameSym.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3415	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3416	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3417	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3418	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3419
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3420	hasClassesToLoad ifTrue:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3421	loadedClasses := OrderedCollection new.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3422
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3423	"we need the abbreviations, since sometimes there is no 1-to-1 mapping
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3424	of class name to file name"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3425
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3426	Smalltalk recursiveReadAllAbbreviationsFrom:self packageDirectory maxLevels:1.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3427
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3428	"install autoloaded classes first,
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3429	some others may depend on them"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3430
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3431	classNamesToAutoload do:[:eachClassName \|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3432	Smalltalk
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3433	installAutoloadedClassNamed:eachClassName
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3434	category:#autoloaded "FIXME"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3435	package:self package
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3436	revision:nil
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3437	numClassInstVars:0. "FIXME"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3438	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3439
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3440	classesWhichFailedToLoad := OrderedCollection new.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3441	classNamesToLoad do:[:eachClassName \|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3442	\|cls\|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3443
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3444	Error handle:[:ex \|
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3445	"maybe, fileIn failed, because the load order is wrong.
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3446	Work around this by installing the class as autoloaded and
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3447	loading it"
6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3448
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3449	classesWhichFailedToLoad add:eachClassName.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3450	Smalltalk
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3451	installAutoloadedClassNamed:eachClassName
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3452	category:#autoloaded "FIXME"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3453	package:self package
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3454	revision:nil
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3455	numClassInstVars:0. "FIXME"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3456	] do:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3457	cls := Smalltalk
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3458	fileInClass:eachClassName
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3459	package:self package
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3460	initialize:false
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3461	lazy:false
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3462	silent:true.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3463	cls notNil ifTrue:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3464	loadedClasses add:cls
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3465	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3466	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3467	].
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3468
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3469	classesWhichFailedToLoad do:[:eachClassName \|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3470	(Smalltalk at:eachClassName) autoload.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3471	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3472
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3473	loadedClasses do:[:eachLoadedClass \|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3474	"do not initialize, if initialize method is inherited"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3475	(eachLoadedClass theMetaclass implements:#initialize) ifTrue:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3476	eachLoadedClass initialize
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3477	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3478	].
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3479	^ true.
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3480	].
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3481	^ false.
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3482
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3483	"Created: / 17-08-2006 / 01:01:14 / cg"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3484	"Modified: / 26-10-2006 / 12:30:01 / cg"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3485	!
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3486
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3487	loadClassLibrary
10430 fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3488	"try to load a binary class library
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3489	Return true if ok, false if not."
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3490
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3491	\|libraryName\|
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3492
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3493	libraryName := self libraryName.
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3494
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3495	(Smalltalk isClassLibraryLoaded:libraryName) ifTrue:[
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3496	"already loaded"
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3497	^ true
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3498	].
fc34b59eca00 Don not try to load a class library already linked to the executable Stefan Vogel <sv@exept.de> parents: 10426 diff changeset	3499	^ Smalltalk fileInClassLibrary:libraryName inPackage:self package
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3500	!
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3501
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3502	loadExtensions
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3503	"load extension methods - do not load if they are already present"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3504
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3505	self hasAllExtensionsLoaded ifFalse:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3506	Smalltalk loadExtensionsForPackage:self package.
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3507	^ true.
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3508	].
10401 6682d28d2ec5 * empty log message * Stefan Vogel <sv@exept.de> parents: 10399 diff changeset	3509	^ false.
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3510
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3511	"Created: / 17-08-2006 / 00:21:39 / cg"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3512	!
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3513
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3514	loadPackages:aListOfPackages asAutoloaded:asAutoloaded
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3515	"load some packages (at least the projectDefinitions and their extensions).
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3516	If asAutoloaded == true, classes will be only installed as autoloaded."
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3517
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3518	Class withoutUpdatingChangesDo:[
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3519	aListOfPackages do:[:aPackage \|
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3520	Smalltalk loadPackageWithId:aPackage asAutoloaded:asAutoloaded.
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3521	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3522	].
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3523	!
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3524
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3525	loadPreRequisitesAsAutoloaded:asAutoloaded
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3526	"load other packages (at least the projectDefinitions and their extensions)"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3527
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3528	self loadPackages:(self preRequisites) asAutoloaded:asAutoloaded
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3529	!
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3530
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3531	loadSubProjectsAsAutoloaded:asAutoloaded
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3532	"load other packages (at least the projectDefinitions and their extensions)"
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3533
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3534	self loadPackages:(self subProjects) asAutoloaded:asAutoloaded
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3535
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3536	"Modified: / 25-10-2006 / 17:51:58 / cg"
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3537	!
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3538
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3539	update:anAspectSymbol with:argument from:changedObject
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3540	"when any of my class methods is changed, we mark the project as unloaded.
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3541	May be some mor classes have to be loaded"
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3542
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3543	(changedObject == self class and:[anAspectSymbol == #methodDictionary]) ifTrue:[
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3544	self projectIsLoaded:false.
25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3545	]
10399 6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3546	! !
6c16947a05ca Allow to load all classes of a project as autoloaded Stefan Vogel <sv@exept.de> parents: 10397 diff changeset	3547
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3548	!ProjectDefinition class methodsFor:'queries'!
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3549
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3550	definitionClassForPackage: aPackageID
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3551	^ self definitionClassForPackage:aPackageID createIfAbsent:false
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3552
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3553	"Modified: / 17-08-2006 / 14:33:35 / cg"
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3554	!
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3555
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3556	definitionClassForPackage:aPackageID createIfAbsent:doCreateIfAbsent
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3557	^ self definitionClassForPackage:aPackageID createIfAbsent:doCreateIfAbsent projectType:nil
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3558
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3559	"Modified: / 23-08-2006 / 14:29:15 / cg"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3560	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3561
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3562	definitionClassForPackage: aPackageID createIfAbsent: doCreateIfAbsent projectType:typeOrNil
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3563	\|packageDefinitionClassName class\|
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3564
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3565	packageDefinitionClassName := ProjectDefinition initialClassNameForDefinitionOf:aPackageID.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3566	class := Smalltalk classNamed:packageDefinitionClassName.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3567	class isNil ifTrue:[
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3568	doCreateIfAbsent ifTrue:[
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3569	class := self newForPackage:aPackageID.
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3570	"setup before prerequisites are defined"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3571	class setupForType:typeOrNil.
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3572	].
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3573	] ifFalse:[
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3574	typeOrNil notNil ifTrue:[
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3575	class setupForType:typeOrNil.
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3576	].
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3577	].
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3578	^ class
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3579
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3580	"Created: / 23-08-2006 / 14:29:21 / cg"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3581	"Modified: / 23-08-2006 / 15:35:26 / cg"
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3582	!
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3583
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3584	definitionClassForPackage:newProjectID projectType:typeOrNil createIfAbsent:createIfAbsent
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3585	^ (self definitionClassForType:typeOrNil)
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3586	definitionClassForPackage:newProjectID
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3587	createIfAbsent:createIfAbsent
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3588	projectType:typeOrNil
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3589
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3590	"Created: / 23-08-2006 / 14:28:53 / cg"
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3591	!
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3592
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3593	definitionClassForType: type
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3594	"answer the class that describes a give project type"
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3595
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3596	(type = LibraryType) ifTrue:[ ^ LibraryDefinition ].
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	3597	(type = GUIApplicationType) ifTrue:[ ^ ApplicationDefinition ].
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	3598	(type = NonGUIApplicationType) ifTrue:[ ^ ApplicationDefinition ].
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3599	(type = 'Application') ifTrue:[ ^ ApplicationDefinition ].
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3600	self error:'unknown project type'.
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3601
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3602	"Created: / 17-08-2006 / 14:46:28 / cg"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3603	"Modified: / 23-08-2006 / 13:49:27 / cg"
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3604	!
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3605
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3606	hasAllClassesFullyLoaded
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3607	"return true, if all classes are present and loaded"
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3608
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3609	^ self hasAllClassesLoaded:true
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3610
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3611	"Created: / 25-10-2006 / 16:08:25 / cg"
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3612	!
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3613
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3614	hasAllClassesLoaded
10205 33fadd7b4fd1 * empty log message * Stefan Vogel <sv@exept.de> parents: 10203 diff changeset	3615	"return true, if all classes are present (although, some might be autoloaded)"
10144 89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3616
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3617	^ self hasAllClassesLoaded:false
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3618
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3619	"Modified: / 25-10-2006 / 16:08:11 / cg"
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3620	!
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3621
89b932dbdacc * empty log message * Claus Gittinger <cg@exept.de> parents: 10140 diff changeset	3622	hasAllClassesLoaded:checkIfFullyLoaded
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3623	"check if all classes for this platform are present.
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3624	If checkIfFullyLoaded is true, they must be fully loaded, that is not autoloaded"
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3625
10154 abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3626	^ (self
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3627	hasClasses:(self classNamesForWhich:[:nm :attr \| attr isEmptyOrNil or:[ attr includes:#autoload]])
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3628	loaded:checkIfFullyLoaded)
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3629	and:[
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3630	self
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3631	hasClasses:(self compiled_classNamesForPlatform:OperatingSystem platformName)
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3632	loaded:checkIfFullyLoaded ]
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3633
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3634	"Modified: / 07-11-2006 / 11:47:30 / cg"
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3635	!
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3636
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3637	hasAllCompiledClassesFullyLoaded
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3638	"return true, if all compiled classes are present and loaded"
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3639
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3640	^ self hasAllCompiledClassesLoaded:true
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3641
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3642	"Created: / 07-11-2006 / 11:48:02 / cg"
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3643	!
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3644
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3645	hasAllCompiledClassesLoaded:checkIfFullyLoaded
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3646	"check if all compiled classes for this platform are present.
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3647	If checkIfFullyLoaded is true, they must be fully loaded, that is not autoloaded"
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3648
10154 abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3649	^ (self
10206 ca0e82b429ca * empty log message * Stefan Vogel <sv@exept.de> parents: 10205 diff changeset	3650	hasClasses:(self classNamesForWhich:[:nm :attr \| attr isEmptyOrNil])
10154 abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3651	loaded:checkIfFullyLoaded)
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3652	and:[
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3653	self
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3654	hasClasses:(self compiled_classNamesForPlatform:OperatingSystem platformName)
10366 8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3655	loaded:checkIfFullyLoaded
8990764f8911 #compiled_classNamesForPlatform: does not return classes names, Stefan Vogel <sv@exept.de> parents: 10350 diff changeset	3656	]
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3657	!
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3658
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3659	hasAllExtensionsLoaded
10203 b210e7832fe1 Do not autoload when checking for extensions Stefan Vogel <sv@exept.de> parents: 10200 diff changeset	3660	"answer true, if all extensions of this package have been loaded.
b210e7832fe1 Do not autoload when checking for extensions Stefan Vogel <sv@exept.de> parents: 10200 diff changeset	3661	This is a query - so no side effects please"
b210e7832fe1 Do not autoload when checking for extensions Stefan Vogel <sv@exept.de> parents: 10200 diff changeset	3662
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3663	self extensionMethodNames pairWiseDo:[:className :selector \|
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3664	\|cls\|
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3665
10369 14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3666	cls := Smalltalk loadedClassNamed:className.
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3667	cls isNil ifTrue:[
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3668	"/ Transcript showCR:(self name,' missing extension class "',className,'".').
10140 154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3669	^ false
154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3670	].
10203 b210e7832fe1 Do not autoload when checking for extensions Stefan Vogel <sv@exept.de> parents: 10200 diff changeset	3671	"there is no possibility that we installed an extension method in an unloaded class"
b210e7832fe1 Do not autoload when checking for extensions Stefan Vogel <sv@exept.de> parents: 10200 diff changeset	3672	(cls isLoaded not or:[(cls compiledMethodAt:selector) isNil]) ifTrue:[
10369 14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3673	"/ Transcript showCR:(self name,' missing extension method "',className,'>>',selector,'".').
10140 154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3674	^ false
154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3675	].
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3676	].
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3677	^ true.
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3678
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3679	"Created: / 17-08-2006 / 00:50:01 / cg"
10140 154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3680	"Modified: / 25-10-2006 / 00:01:10 / cg"
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	3681	!
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	3682
10369 14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3683	hasClasses:classNames loaded:checkIfFullyLoaded
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3684	"answer true, if all classes referenced by classNames have been loaded
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3685	into the image. If checkIfFullyLoaded, classes installed as autoloaded
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3686	are not considered"
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3687
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3688	classNames do:[:eachClassName \|
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3689	\|cls\|
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3690
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3691	cls := Smalltalk loadedClassNamed:eachClassName.
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3692	cls isNil ifTrue:[
10414 28526a050729 * empty log message * sr parents: 10412 diff changeset	3693	Transcript showCR:(self name,' missing: ',eachClassName).
10369 14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3694	^ false
10154 abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3695	].
10369 14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3696	(checkIfFullyLoaded and:[cls isLoaded not]) ifTrue:[
10414 28526a050729 * empty log message * sr parents: 10412 diff changeset	3697	Transcript showCR:(self name,' unloaded: ',eachClassName).
10369 14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3698	^ false.
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3699	].
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3700	].
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3701
14baf6dc8ba6 No diag message about "unloaded classes" when loading packages Stefan Vogel <sv@exept.de> parents: 10368 diff changeset	3702	^ true
10154 abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3703	!
abf2c5f9ba8c * empty log message * Claus Gittinger <cg@exept.de> parents: 10149 diff changeset	3704
9906 9efd21c9b1b6 hasExtensions is a bad name (conflicts with the other query) Claus Gittinger <cg@exept.de> parents: 9904 diff changeset	3705	hasExtensionMethods
9850 178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	3706	^ self extensionMethodNames notEmpty
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	3707
178f4c0ce2fd dependencies Claus Gittinger <cg@exept.de> parents: 9848 diff changeset	3708	"Created: / 14-09-2006 / 14:19:35 / cg"
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3709	!
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3710
10140 154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3711	isFullyLoaded
10205 33fadd7b4fd1 * empty log message * Stefan Vogel <sv@exept.de> parents: 10203 diff changeset	3712	^ self hasAllCompiledClassesFullyLoaded and:[self hasAllClassesLoaded and:[self hasAllExtensionsLoaded]]
10140 154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3713
154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3714	"Created: / 24-10-2006 / 23:52:23 / cg"
154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3715	!
154f52dd6821 isLoaded queries fixed Claus Gittinger <cg@exept.de> parents: 10132 diff changeset	3716
10005 407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3717	packageDirectory
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3718	^ Smalltalk getPackageDirectoryForPackage:self package.
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3719
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3720	"
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3721	self packageDirectory
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3722	stx_libbasic3 packageDirectory
407485f2a6e0 fix loading: Stefan Vogel <sv@exept.de> parents: 9998 diff changeset	3723	"
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3724	! !
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3725
9726 305dc3397c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 9714 diff changeset	3726	!ProjectDefinition class methodsFor:'sanity checks'!
305dc3397c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 9714 diff changeset	3727
305dc3397c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 9714 diff changeset	3728	validateDescription
9956 7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3729	\|emptyProjects nonProjects emptyOrNonProjects\|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3730
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3731	emptyProjects := Set withAll:self subProjects.
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3732	Smalltalk allClassesDo:[:cls \|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3733	emptyProjects remove:(cls package) ifAbsent:[].
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3734	].
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3735	nonProjects := self subProjects select:[:p \|
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3736	(ProjectDefinition definitionClassForPackage: p) isNil
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3737	].
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3738
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3739	emptyOrNonProjects := Set withAll:emptyProjects.
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3740	emptyOrNonProjects addAll:nonProjects.
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3741
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3742	emptyOrNonProjects notEmpty ifTrue:[
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3743	(Dialog
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3744	confirm:('The following projects are non-existent, empty or without description:\\ '
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3745	, ((emptyOrNonProjects
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3746	asSortedCollection
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3747	collect:[:p \| p allBold])
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3748	asStringWith:'\ ')
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3749	, '\\Continue ?') withCRs
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3750	yesLabel:'OK' noLabel:'Cancel')
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3751	ifFalse:[
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3752	AbortSignal raise
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3753	].
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3754	].
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3755
7c5d9f3ae8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9946 diff changeset	3756	"Modified: / 19-09-2006 / 20:30:39 / cg"
9726 305dc3397c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 9714 diff changeset	3757	! !
305dc3397c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 9714 diff changeset	3758
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3759	!ProjectDefinition class methodsFor:'testing'!
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3760
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3761	isApplicationDefinition
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3762	^ false
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3763
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3764	"Created: / 23-08-2006 / 15:17:32 / cg"
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3765	"Modified: / 20-09-2006 / 14:59:56 / cg"
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3766	!
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3767
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3768	isGUIApplication
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3769	^ false
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3770
f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3771	"Created: / 20-09-2006 / 14:59:49 / cg"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3772	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3773
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3774	isLibraryDefinition
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3775	^ false
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3776
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3777	"Created: / 23-08-2006 / 15:17:46 / cg"
9983 f128c0a46573 preRequisite generation Claus Gittinger <cg@exept.de> parents: 9979 diff changeset	3778	"Modified: / 20-09-2006 / 15:00:00 / cg"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3779	!
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3780
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3781	isProjectDefinition
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3782	"concrete i.e. not abstract"
f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3783
9627 685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3784	^ self ~~ ProjectDefinition
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3785
685786ff2bdf * empty log message * Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	3786	"Created: / 10-08-2006 / 16:24:02 / cg"
9664 f2cda0054b21 boss stuff separated Claus Gittinger <cg@exept.de> parents: 9634 diff changeset	3787	"Modified: / 23-08-2006 / 14:24:38 / cg"
9585 b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3788	! !
b26c46ba7c2e * empty log message * Claus Gittinger <cg@exept.de> parents: 9584 diff changeset	3789
9569 b0bf179c9bf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	3790	!ProjectDefinition class methodsFor:'documentation'!
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3791
3a835fa7e38b initial checkin fm parents: diff changeset	3792	version
10434 25f76184bf81 project definition change marks project as unloaded Stefan Vogel <sv@exept.de> parents: 10433 diff changeset	3793	^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.156 2007-03-05 15:19:44 stefan Exp $'
9536 3a835fa7e38b initial checkin fm parents: diff changeset	3794	! !
9714 c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	3795
c7c36a28cc0a * empty log message * Claus Gittinger <cg@exept.de> parents: 9688 diff changeset	3796	ProjectDefinition initialize!

author	Stefan Vogel <sv@exept.de>
	Mon, 05 Mar 2007 16:19:44 +0100
changeset 10434	25f76184bf81
parent 10433	4768502f5cbf
child 10466	aa61cdb54299
permissions	-rw-r--r--