#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>#	@(#)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 itadd_path () {  [ -d ${1:-.} ] && no_path $* && eval ${2:-PATH}="\$${2:-PATH}:$1"}# if $1 exists and is not in path, prepend itpre_path () {  [ -d ${1:-.} ] && no_path $* && eval ${2:-PATH}="$1:\$${2:-PATH}"}# if $1 is in path, remove itdel_path () {  no_path $* || eval ${2:-PATH}=`eval echo :'$'${2:-PATH}: |    sed -e "s;:$1:;:;g" -e "s;^:;;" -e "s;:\$;;"`}