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 prepend_to_path {
30 if [ -d "$component" ]; then
31 PATH="$component:$PATH"
35 function append_to_manpath {
38 if [ -d "$component" ]; then
39 if [ -z "$MANPATH" ]; then
42 MANPATH="$MANPATH:$component"
47 if [ -x /app/manpath ]; then
50 for manpath in $(/app/manpath); do
51 manpath_dirs="$manpath_dirs $manpath"
59 if [ -f /etc/PATH ]; then
62 for path in $(cat /etc/PATH); do
63 path_dirs="$path_dirs $path"
68 if [ "$SYSTEMROOT" ]; then
69 systemroot=$(cygpath -u $SYSTEMROOT)
72 path_dirs="$path_dirs\
79 /opt/Rational/Clearcase/bin\
80 /opt/Rational/ClearQuest\
97 /opt/rational/clearcase/bin\
98 /opt/ibm/rationalsdlc/clearcase/bin\
99 /opt/ibm/rationalsdlc/clearcase/etc\
100 /opt/ibm/rationalsdlc/clearquest/bin\
101 /opt/ibm/rationalsdlc/clearquest\
102 /opt/ibm/rationalsdlc/common\
111 $systemroot/System32\
120 /usr/local/packages/ccperl/ccperl5.001m/man\
121 /usr/local/packages/atria/current/man\
122 /usr/local/packages/emacs/man\
125 /opt/medusa/share/man\
130 for component in $path_dirs; do
131 append_to_path "$component"
135 if [ -f /etc/MANPATH ]; then
136 MANPATH=$(cat /etc/MANPATH)
139 for component in $manpath_dirs; do
140 append_to_manpath "$component"
144 if [ "hp-ux" = "10" ]; then
145 export SHLIB_PATH=$(cat /etc/SHLIB_PATH)
146 export SHLIB_PATH=$SHLIB_PATH:$M_LROOT/bin
147 export LD_LIBRARY_PATH=$SHLIB_PATH:$M_LROOT/bin