#
#  $Header: /fuji/lewis/RCS/ProjectStartup,v 1.2 1992/10/08 00:09:46 sterling Exp $
# 
#  Description:
# 		Script to setup basic variables for doing work with Stroika.
# 
#  TODO:
# 
# 
#  Notes:
# 
# 
# Changes:
#		$Log: ProjectStartup,v $
# Revision 1.2  1992/10/08  00:09:46  sterling
# Changed interface to CheckForLocks and LockFiles when made into
# Tools (from Scripts). Change how we call them from menu items.
#
#		Revision 1.12  1992/06/03  21:34:25  lewis
#		Hacked code to add Stroika tools to path - new hacked version not right, but at
#		least it doesnt barf under UNIX - pain in the but to get the quoting right.
#
#		Revision 1.10  92/04/07  09:19:19  09:19:19  lewis (Lewis Pringle)
#		Put in RCS header.  Change config file to Config.mac. Add Stroika
#		tools/scripts folders to path so we can put Stroika specific stuff
#		there - make for easier distribution.
#		
#
# 






# Need to special case reset this since this project file is included in others
if "{Project_bin}" == "{Stroika_bin}"
	Set Project_src "{Stroika_src}"
End;



Execute "SetupCommonMenus"

UnSet ProgramName;
UnSet ProjectName;



Set BuildFlags "{Stroika_bin}Config.mac"; Export BuildFlags;



# Important if we are building over the net... Use RamDisk when available...
If  "{CPlusScratch}" ; Set CPlusScratch "{Boot}" ; Export CPlusScratch; End


# Add Stroika tools and scripts to our path..
# Should check if not already in path, but not sure how to do that - the below code
# does not work...
#if Not `Evaluate "{Stroika_src}" =~ /{Stroika_src}Tools:MPW:/`
	Set Commands "{Commands},{Stroika_src}Scripts:MPW:,{Stroika_src}Tools:MPW:"
##End






AddMenu Lookup '(-' ''

# SB Only of using UNIX
	Set GPlusIncludes "usr:local:lib:g++-include";
	If "`Exists -d "{GPlusIncludes}"`"
		AddMenu	Lookup	'{GPlusIncludes}' 				'Lookup "{GPlusIncludes}" > Dev:Null  Dev:Null'
	End

	Set UsrIncludes "usr:include:"
	If "`Exists -d "{UsrIncludes}"`"
		AddMenu	Lookup	'{UsrIncludes}' 				'Lookup "{UsrIncludes}" > Dev:Null  Dev:Null'
	End

	Set XIncludes "usr:include:X11R4:X11:"
	If "`Exists -d "{XIncludes}"`"
		AddMenu	Lookup	'{XIncludes}' 					'Lookup "{XIncludes}" > Dev:Null  Dev:Null'
	End

	Set XmIncludes "usr:include:Motif1.1:Xm:"
	If "`Exists -d "{XmIncludes}"`"
		AddMenu	Lookup	'{XmIncludes}' 					'Lookup "{XmIncludes}" > Dev:Null  Dev:Null'
	End

AddMenu	Lookup	'{Stroika_src}:' 						'Lookup "{Stroika_src}" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Stroika_src}Applications:' 			'Lookup "{Stroika_src}Applications:" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Stroika_src}Library:/0' 				'Lookup "{Stroika_src}Library:" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Stroika_src}Library:Foundation:/1' 	'Lookup "{Stroika_src}Library:Foundation" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Stroika_src}Library:Graphix:/2' 		'Lookup "{Stroika_src}Library:Graphix" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Stroika_src}Library:Framework:/3' 	'Lookup "{Stroika_src}Library:Framework" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Stroika_src}Library:User:/4' 			'Lookup "{Stroika_src}Library:User" > Dev:Null  Dev:Null'


# Only if we really hope to use zortech
#AddSourceLookupMenu Find "ZIncludes" "{ZIncludes}"

	If "`Exists -d "{GPlusIncludes}"`"
		AddSourceLookupMenu Find "GPlusIncludes" "{GPlusIncludes}"
	End

	If "`Exists -d "{UsrIncludes}"`"
		AddSourceLookupMenu Find "UsrIncludes" "{UsrIncludes}"
	End

	If "`Exists -d "{XIncludes}"`"
		AddSourceLookupMenu Find "XIncludes" "{XIncludes}"
	End

	If "`Exists -d "{XmIncludes}"`"
		AddSourceLookupMenu Find "XmIncludes" "{XmIncludes}"
	End


AddSourceLookupMenu Find "StroikaLibrary" "{Stroika_src}Library:"
AddSourceLookupMenu Find "Stroika-Headers" "{Stroika_src}Library:":Headers:
AddSourceLookupMenu Find "Stroika-Sources" "{Stroika_src}Library:":Sources:

AddMenu Project 'Lock Project Files' 'LockFiles -r -v -s Make.Out -d "{Stroika_src}"'
AddMenu Project 'Check for Unlocked Project Files' 'CheckForLocks -r -d "{Stroika_src}"'

AddMenu Project '(-' ''
AddMenu	Project	'Make Stroika&Project/'	'Open "{Worksheet}" && 
	ProjectMake "{Stroika_src}Library:"  "{Worksheet}" && 
	ProjectMake "{Project_src}"  "{Worksheet}"'


Set TagsPath	"{ProjectDirectory}tags,
{Stroika_src}Library:Foundation:tags,
{Stroika_src}Library:Graphix:tags,
{Stroika_src}Library:Framework:tags,
{Stroika_src}Library:User:tags,
{CIncludes}tags"
Export TagsPath
Unset TagStack
Export TagStack

AddMenu Find "Find Tag/" 
	'alias doTag "`Findtag -a -s  {WorkSheet}`"; 
	(doTag)  {WorkSheet};'

AddMenu Find "Pop Tag/P" 
	'alias doTag "`PopTag`"; 
	(doTag)  {WorkSheet};'

AddMenu Find "Push Position/" 
	'alias doTag "`Findtag -a -p  {WorkSheet}`"; 
	(doTag)  {WorkSheet};'




