// Modified version of A|W's original currentParentDir
// This is called by my modified version of A|W's addVisorFolders
// Giving acces to 'other' directories from within the visor and hypershade
// Both should be put in your scripts directory
// 
// v1.0
// March 8 2000
// Soren 'kurgan' Jacobsen
// kurgan@kurgan.dk  (suggestions/bugreports welcome)
// http://www.kurgan.dk/
//
// Original header:
// Copyright (C) 1997-1999 Alias|Wavefront,
// a division of Silicon Graphics Limited.
//
// The information in this file is provided for the exclusive use of the
// licensees of Alias|Wavefront.  Such users have the right to use, modify,
// and incorporate this code into other products for purposes authorized
// by the Alias|Wavefront license agreement, without fee.
//
// ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
// INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
// EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
// CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
// DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
// TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
// PERFORMANCE OF THIS SOFTWARE.
//
//
//  Alias|Wavefront Script File
//  MODIFY THIS AT YOUR OWN RISK
//
//  Creation Date:  April 20, 1998
//
//
//  Description:
//      This script returns the parent of the current project directory
//
//  Input Arguments:
//      None
//
//  Return Value:
//      string - the parent of the current project dir
//


global proc string currentPersonalDir(int $mycode)
//
//  Description:
//		Global callback for getting the parent of the 
//		current project's directory
//
//  Return Value:
//      string - the parent of the current project dir
//
{
  string $projDir;
  switch ($mycode)
   {
    case 1: $projDir=`getenv("HOME")`;
    break;
    

    default: $projDir="/";
    break;
   }

	return $projDir;
}