#
#	File:		UserStartup¥BBS¥Personal
#
#	Contains:	xxx put contents here xxx
#
#	Version:	xxx put version here xxx
#
#	Copyright:	© 1999 by Apple Computer, Inc., all rights reserved.
#
#	File Ownership:
#
#		DRI:				xxx put dri here xxx
#
#		Other Contact:		xxx put other contact here xxx
#
#		Technology:			xxx put technology here xxx
#
#	Writers:
#
#		(afb)	Andy Bachorski
#
#	Change History (most recent first):
#
#		<2*>	 8/23/99	afb		Add rebuild menu command
#		 <2>	 6/29/99	afb		Changed parsing pattern so comments and blank lines at the
#									beginning of the BBS¥SourceDirectories are ignored.
#		 <1>	 6/29/99	afb		first checked in
#
#
#	A script which parses a settings file (BBS¥SourceDirectories)
#	in the BBS Configuration Items folder to create a 'Sources'
#	menu in the MPW Shell.  This menu is meant to be used in
#	BBS as a short cut to setting the source directory for a particular
#	team, and then setting that team as the current source directory.
#	It combinds the effects of the Configure Team Source Directory ...
#	and Set Current Source Directory ... commands.
# 
#	This file should be placed in the MPW Startup Items folder.
# 

	set exit 0
	
	set scriptPath_	"{MPW}Startup Items:UserStartup¥ABS¥Personal"
	
	
	execute "{MPW}P4BSConfigurationItems:P4BSEnvironmentVariables"	
	
	if !`exists -d "{P4BSConfigItems}"`
		NewFolder "{P4BSConfigItems}"
	end

	if !`exists -d "{P4BSConfigItems}P4BSTempItems"`
		NewFolder "{P4BSConfigItems}P4BSTempItems"
	end

	
	DeleteMenu	Clients ³ dev:null
	
	AddMenu		Clients		"Show current settingsÉ"		'P4 client -i'#'echo "Current Client Setting: {P4Client}"'
	AddMenu		Clients		'(-' ''
	
	AddMenu 	Clients		'Set Client'	''
	AddMenu 	Clients		'Open Client File'	''
	
	for aFile_ in `files -s -t TEXT "{P4BSConfigItems}Clients:"`
		AddMenu	SetClientSub	"{aFile_}"	"Set -e P4Client {aFile_}; P4 client -i < ¶"{P4BSConfigItems}Clients:{aFile_}¶""
		AddMenu OpenClientSub	"{aFile_}"	"open ¶"{P4BSConfigItems}Clients:{aFile_}¶""
	end
	
	AddMenu -link Clients 'Set Client' 		SetClientSub	 ³ dev:null
	AddMenu -link Clients 'Open Client File' OpenClientSub	 ³ dev:null
	
	Addmenu Clients '(-' ''
	AddMenu	Clients	'Rebuild Menu'		"execute ¶"{P4BSConfigItems}UserStartup¥P4BS¶""



	#
	#	Add P4 menu
	#
	"{P4BSConfigItems}P4BSMenus"
	
	#
	#	Setup root source directory
	#
	directory "{P4BSRootDir}"