Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator) (02/01/90)
Submitted-by: Juergen Hermann <jh%ccave.uucp@RELAY.CS.NET> Posting-number: Volume 90, Issue 035 Archive-name: util/which.rx-1.2 #!/bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 1 (of 1)." # Contents: which.rexx # Wrapped by tadguy@xanth on Wed Jan 31 21:34:42 1990 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'which.rexx' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'which.rexx'\" else echo shar: Extracting \"'which.rexx'\" \(685 characters\) sed "s/^X//" >'which.rexx' <<'END_OF_FILE' X/* which.rexx X X A shell for C:Which that knows of WShell's global path X X $Author: jh $ X $Date: 90/01/30 23:13:34 $ X $Revision: 1.2 $ X $State: Exp $ X X $Log: which.rexx,v $ X Revision 1.2 90/01/30 23:13:34 jh X Check for the existance of a global path in ENV:Path X X Revision 1.1 90/01/30 21:07:48 jh X Initial revision X X*/ X XFailAt 30 X XParse Arg args X Xif ~ Exists('ENV:Path') then do X "C:Which" args X exit X end X X"Path Show | ExecIO From 2 Stem oldpath." Xlocalpath = '' Xdo i = 1 to oldpath.0 - 1 X localpath = localpath' 'oldpath.i X end X X"ExecIO Read ENV:Path For 1 Var globalpath" X X"Path Add" globalpath X"C:Which" args X X"Path Reset" X"Path Add" localpath END_OF_FILE if test 685 -ne `wc -c <'which.rexx'`; then echo shar: \"'which.rexx'\" unpacked with wrong size! fi # end of 'which.rexx' fi echo shar: End of archive 1 \(of 1\). cp /dev/null ark1isdone MISSING="" for I in 1 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have the archive. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Submissions to comp.sources.amiga and comp.binaries.amiga should be sent to: amiga@cs.odu.edu or amiga@xanth.cs.odu.edu ( obsolescent mailers may need this address ) or ...!uunet!xanth!amiga ( very obsolescent mailers need this address ) Comments, questions, and suggestions s should be addressed to ``amiga-request'' (only use ``amiga'' for submissions) at the above addresses.