17 lines
793 B
Tcsh
17 lines
793 B
Tcsh
#!/bin/csh
|
|
|
|
# usage: source addlibpath.csh new_path
|
|
|
|
# this script requires a normalized $PATH:
|
|
# 1. each path except the last one must be followed by ":" without any whitespace;
|
|
# 2. each path is NOT finished by "/"
|
|
# besides, the input parameter $1 is NOT finished by "/".
|
|
# Purpose of the normalization is to match $ENV{NEWPATH}(:\|$)
|
|
|
|
# it must be explicitly exported because Perl only add environment variables to %ENV, not those shell variables:
|
|
setenv NEWPATH $1
|
|
# on windows, we must use /usr/bin/perl from cygwin, because ActivePerl doesn't work on following line:
|
|
if ('no' == `/usr/bin/perl -e 'if ($ENV{PATH} =~ m|$ENV{NEWPATH}(:\|$)|) {exec "echo yes"} else {exec "echo no"}'`) then
|
|
setenv PATH ${1}:$PATH # $1 must be enclosed with {}, otherwise it cannot be parsed.
|
|
endif
|