48 lines
1.3 KiB
Text
48 lines
1.3 KiB
Text
#From: "Simon J. Gerraty" <sjg@zen.void.oz.au>
|
|
#Message-Id: <199510091130.VAA01188@zen.void.oz.au>
|
|
#Subject: Re: a shell idea?
|
|
#Date: Mon, 09 Oct 1995 21:30:20 +1000
|
|
|
|
|
|
# NAME:
|
|
# add_path.sh - add dir to path
|
|
#
|
|
# DESCRIPTION:
|
|
# These functions originated in /etc/profile and ksh.kshrc, but
|
|
# are more useful in a separate file.
|
|
#
|
|
# SEE ALSO:
|
|
# /etc/profile
|
|
#
|
|
# AUTHOR:
|
|
# Simon J. Gerraty <sjg@zen.void.oz.au>
|
|
|
|
# RCSid:
|
|
# $Id: add_path.sh,v 1.1 1995/09/30 12:45:23 sjg Exp $
|
|
#
|
|
# @(#)Copyright (c) 1991 Simon J. Gerraty
|
|
#
|
|
# This file is provided in the hope that it will
|
|
# be of use. There is absolutely NO WARRANTY.
|
|
# Permission to copy, redistribute or otherwise
|
|
# use this file is hereby granted provided that
|
|
# the above copyright notice and this notice are
|
|
# left intact.
|
|
|
|
# is $1 missing from $2 (or PATH) ?
|
|
no_path() {
|
|
eval "case :\$${2-PATH}: in *:$1:*) return 1;; *) return 0;; esac"
|
|
}
|
|
# if $1 exists and is not in path, append it
|
|
add_path () {
|
|
[ -d ${1:-.} ] && no_path $* && eval ${2:-PATH}="\$${2:-PATH}:$1"
|
|
}
|
|
# if $1 exists and is not in path, prepend it
|
|
pre_path () {
|
|
[ -d ${1:-.} ] && no_path $* && eval ${2:-PATH}="$1:\$${2:-PATH}"
|
|
}
|
|
# if $1 is in path, remove it
|
|
del_path () {
|
|
no_path $* || eval ${2:-PATH}=`eval echo :'$'${2:-PATH}: |
|
|
sed -e "s;:$1:;:;g" -e "s;^:;;" -e "s;:\$;;"`
|
|
}
|