2 ################################################################################
4 # File: $RCSfile: set_path,v $
5 # Revision: $Revision: 1.8 $
6 # Description: Sets the path from scratch
7 # Author: Andrew@DeFaria.com
8 # Created: Thu Jun 6 08:31:57 PDT 1996
9 # Modified: $Date: 2012/09/20 18:10:28 $
12 # (c) Copyright 2000-2005, Andrew@DeFaria.com, all rights reserved.
14 ################################################################################
15 function append_to_path {
18 if [ -d "$component" ]; then
19 if [ -z "$PATH" ]; then
22 PATH="$PATH:$component"
27 function append_to_manpath {
30 if [ -d "$component" ]; then
31 if [ -z "$MANPATH" ]; then
34 MANPATH="$MANPATH:$component"
39 if [ -x /app/manpath ]; then
42 for manpath in $(/app/manpath); do
43 manpath_dirs="$manpath_dirs $manpath"
51 if [ -f /etc/PATH ]; then
54 for path in $(cat /etc/PATH); do
55 path_dirs="$path_dirs $path"
60 if [ "$SYSTEMROOT" ]; then
61 systemroot=$(cygpath -u $SYSTEMROOT)
64 path_dirs="$path_dirs\
71 /opt/Rational/Clearcase/bin\
72 /opt/Rational/ClearQuest\
88 /opt/rational/clearcase/bin\
89 /opt/ibm/rationalsdlc/clearcase/bin\
90 /opt/ibm/rationalsdlc/clearcase/etc\
91 /opt/ibm/rationalsdlc/clearquest/bin\
92 /opt/ibm/rationalsdlc/clearquest\
93 /opt/ibm/rationalsdlc/common\
100 $systemroot/System32\
109 /usr/local/packages/ccperl/ccperl5.001m/man\
110 /usr/local/packages/atria/current/man\
111 /usr/local/packages/emacs/man\
114 /opt/medusa/share/man\
119 for component in $path_dirs; do
120 append_to_path "$component"
124 if [ -f /etc/MANPATH ]; then
125 MANPATH=$(cat /etc/MANPATH)
128 for component in $manpath_dirs; do
129 append_to_manpath "$component"
133 if [ "hp-ux" = "10" ]; then
134 export SHLIB_PATH=$(cat /etc/SHLIB_PATH)
135 export SHLIB_PATH=$SHLIB_PATH:$M_LROOT/bin
136 export LD_LIBRARY_PATH=$SHLIB_PATH:$M_LROOT/bin