#
# File: UserStartupBBSPersonal
#
# 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 BBSSourceDirectories are ignored.
# <1> 6/29/99 afb first checked in
#
#
# A script which parses a settings file (BBSSourceDirectories)
# 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:UserStartupABSPersonal"
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}UserStartupP4BS""
#
# Add P4 menu
#
"{P4BSConfigItems}P4BSMenus"
#
# Setup root source directory
#
directory "{P4BSRootDir}"