[comp.binaries.atari.st] v05i014: which -- Find programs using PATH env. variable

koreth@ssyx.ucsc.edu (Steven Grimm) (05/16/89)

Submitted-by: ravi@mcnc.org (Ravi Subrahmanyan)
Posting-number: Volume 5, Issue 14
Archive-name: which

Here's a trivial utility for the ST: basically the same as "which"
under unix.

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 which.arc
M&@A214%$344         'P(  )022KT(LM@"   ,5-"DF0-B((@P;D!,H7*0z
M3!@X=,+02?,FX1LS!T&(N"-P#!H1(.#(>7-&3I@V(.:\:5.Q3,@W<^B4(0."y
MSAL0#12X*4/'A<HZ<L:4(=@&81X0><J$D4,PS)F;-D'(*0.'31BA-=&X=%IQx
M8!HW9]@<G</FS9V<0J80T<@QC4>0<\;(20,1Q)TT=-!D%$G29!L7($ D.6''w
M99TY,P/C!5&1,5 0==RHP)-S3IZ895":>2,'J5*F+ ZZH6GF:Q@V8D&0*3,Fv
MS6J:24",>5.'#1DW)^BHOGDW+VTZ.1<WSNMRH>BC9<&6D>,",(@@;O+<"9,Gu
MM-:I!74;1-%;[\^@95@$IT.0SEP[:4Z#*..&]ADT+E($IG+SL,O%:@[KGD,]t
M9\X2=G6D%QIA$.B? @C1A-<)J#6D8$+$:>2"2&> Q)F$-LUA86<BN$ ''7" s
MU!8;+GG$VAI?G0'"9IU%6!J)SN6$PH(-EO7&&BM>>!H;64U51GR!):';'9RMr
M05!W6;G4Q%(X7I$&:NFU0= 0&DGY$0A0!$$%$N(I($8=NN5!FVP(K1?&'$\>q
MQ1(9:9AQU&(L(D5;9V:$8<><>+DTAU:HA99?3+(1J%R2LJU45' 0:@7""*N5p
MME..G1%1!!-)-%$$%45((1&A-L%1$V\$RE18BXJNQD8:;?"T7$$$L9A3A%ENo
M65!"8CZV9QFHN7!@"R:A)V.O:0#1QAANC.$"9V>DD!,:"%=(24-(+E!21P  n
M   4%@  D1(6O9D$7AX   Q@-   H('=0 %( $ :H$CA !@*%:AX X  B#8 m
M,$1K!X #"8PLA  2@42)A#-01"@RH81$%B4:S/!3:?(,#P8;  0QPPXG "EFl
MS/D\8@:<3RMFM/GL84:!D@EG#(Q8-I"#-R&90"10R=(E3)DT)9B19P* &1E8k
MM8K@-[ #@2(< 5'0@$20$!D@ ,@!,?>,!5H!SN";HD2$LKX* )O!)T3%OW]@j
MS&$5D6!:OK92@V%VD61%DHHO&HQ -G #G!<(7@"0!(A<H"E!?@28U.Q%@M!"i
MSOS@ 4")DR#>V#)0,LB,B]T5D0MPDFN@ V8^ #$?^$###SX !&07<F4Z@.?1h
MO5?'\H23,^\!1 0'H. ' .\*W"%G\MN)%7YD&+C)#@ !&Q @[*? "Q @H8<&g
M/ABX@0Y.Z"( .>LQ $< [C68 "E4/ &#"_TA 4PYB(  1#3NL"<$) !@X0I[f
M ;((P1D !*",$&[P8\:$/0"!GX$:5-!@ ,20UP(0_]AH 8\*\(A.@P)( L43e
MN5EH188ON% D$C6BP:0%3P;A#C]HM(!$D2VX4>0_^,#!@GM5%ODC,EP\,22:d
M(%B)CQD&2%&C&6 8$"":0A2H1P; M,G/C[X\"9$9%FQHHQD0M#@@!(8:F,$Gc
M8#@@*8&5#FH)EO_ \*,SZT$@A2MTVCDG/Q.Z!ZJHNC  19R+2O"JI6K\:,B3b
M-.XXJ!FW#HH%EOYHJ4L AI3:*@#$&LL !;2:9:L;Q5K*PX]*\%HC&9;B$&P&a
M*C2+K;(4,DNML0M@$ZT9TU8[J ,_.J"MKQDD:28,!F+ C[C'.D"NJ^<VN  Gz
MZ[:+1K[@- B -/.2X:@9,/H#BZ-D1.Q$OM,HC )YJFTJ* :T*"Q*A&  X$](y
M9S1X@"T9.N&%$W78]P\]2%R# P FY%$:'" L<(8+*FP!0@-GH(#"?@A(T $2x
M@4!  1* P+(3 DI0< 8!4C "!CM5F^$- RT T,-C9E@S-!@"B,2$S>^]7 <(w
M%!$ @VH("!$$+"]2C<%B(L$, @(PBQ WW/U!D &*$)A!@!)[VP.UAX%3A #Av
M%B$ 038RP6S?0%AVJ'-'6GA'@ Y/NJRY%?^8 ZHYNP$"0)7]>8< J6S9"P #u
MJXM.^A.KY_8G/DZ@&*?I,5O!^7X,P YX<Q7M3KS,E-0, R!EWE[DG_R@ (6*t
M14+  =0^W X$ "6<H0$,!\ X !3*_W! BY.C 8 $P0,0)QC:\)SC/_# \<_^s
M[/#?_MSA/?#=[@@ :($9'( C(LFC@( ('Q@(0*-_R(,!"(2!&20$@_W! X+Ar
MPR  5& &$V"/"JCB1P^@\ ]VL $"#;3@AEI(!"  $(0  (,**MB3#+8!!"+,q
M@1O.9R5V!*-VT#@" <;702*Q X?X$Z$+S* $'(J0A!0X80I7^ \"?B^".=RAp
MF=PA0AC\,(A#G*$[CLB>)"X1 $WL(A25@D VE-"*"*R8!$3XAC,P0(1UB(H(o
M\6 &!*!/ $3Z1OA X  "N&XA8)@3/50 A!BB WT@P Y!V"$#WC@ ;<."!1:Nn
MD(Q_Z ,$4' "-$H6 !IHL4A<!,<,P<$&!\RRAOL#!QQ:H %@P*$] /B!E< 1m
M&N\<0!=/HF3) , J8+Z2'S^  !ATB0 PN ,.TE0']EK 0G!PCQ]U^@<M-35,l
M(E"/2+KDI2^!V29B-D!V)EB/ L# BE^Z!WN<>B?S$!#/VE'RF\MT!!RJZ0ULk
MXB\TPNRBH=PG.TM$B))02"$8S%!!=&R3A7="0 LTN0%VH.F;X<2')"D)@0Z<j
M00)J;(,]AH8B5.$#%F-\@SJFT @PH*"BSX0!!'H)!@O@DU(<6MY 1O>DDOW#i
M#>&DAVIFR X/1>,2(/@ BAJQ/W6P@8)F4L<,Y6$&)LP0'6> @7[@R#\SH.!/h
M]&  !!)H!@\H#ZVGFAD$"@2(>R(-!/*CG_ T9*699A4B9QA04!,*#S!X ZVQg
M: 890/!6,]$CKO28*]3LVA^\SJ]^]\/&5F'$#V/,T*__T"H .(N+]ED)'O"Sf
MK%[M]P0P<&-MTWL>ZM11,Q  PP<<8H *G""$$AS2=0!X#"!*Y #>G$$$OQV(e
M<(F+!" T5PC.!8*(HL$6 &S "!N @ \,  9GN,]W7Z!N:; [UPKX$7ZG*EPGd
MP(#:H*[-MK+]ASBD!P@5( VW (! $MSQ&"&0  YP/(!J8,< [U1  $^:DSO.c
M\-\ #SBW!L[6$X)P&>L:(1K R  $RM3%VX&!&"UB@'@MK&&G74T#W  #/H8&b
M6^FX;7, @ ,37/6Y#= ##@*H$/,D (XG+0L^[FC9BXWWGGU:(K[\"(U]OU.Ga
M_J@ $"L8'P)6H,D$B.$[0@A;HW);PQV,[X]M $0 ;O?"'?#A#_^X'94'DH"$z
M2  ,4ZYR7B0P-!5\ <E*%M 4,,( -M2-S_X#@P) 4 4I5&)#A:OOG8=<I#RSy
MJ-"'#BH$%(WG!BP9 5+@\QO^?+M 3P[2T)VKG2M]:1"$#0%F8(%&8P0 "[!Kx
M-]KQ#@;DD*$H]X==:P;  LSQG5PS@![S X,:5CUF5\M@PP"XP&2+3!U::VBTw
M'MA%=3F@!4;E>@$(Z+4F&^"(^9FZ/V PP;6S[0!?&V)^R%9V79G-'AIDR$/0v
M:(63H3P^"O)YU(Q.\@&6)813"#-VS'N DYZ06T#\ Q($4!QT,Y7<X/X#$/S0u
M3G-=\ %2(ZV8S$L (CC6@(M\IW[DP??IT%3;" 9UR0/2)YLW_@2$O@\CJXW3t
M>UT\\B0W8 D5MDH6&@&")L1BVHXH0Z3,"X\7^(AY&/ '><! #I$7;R#P <:_s
MA?H=. AYY/@H^:4S?3N*K ;C \F %LBSJ('(@@',XW95[.@ )'R.VMX1.WF^r
MC0 # %<[*)(W =@4-@*D>]GB0>83NOQE!HPO &;0 @QR4!HW>(@!CQP " HIq
MA!J[H4\)S&^KA<!G, @!!F%C -<9X'$"H @8*TB(14 -A+F&;]4%:/49'"!"p
MH@47"B+40&#1Q_#0FX$8F<^V!?PW\_CJP]$(0/M U-X1MKN]*J%CGMRA!.ARo
M@<H??U]WX)]D^,><@05* ,(9D,  #FG@'_XH).Q;;08<E!\ #4"_^L,6>U?[n
M(M16\H=-%]_XQT=^\G5C>9F2>6ME 9AW:JWF/TXG,UEW#2!@<DXF("*D &;Pm
M-_0G>Q@0&G#0 #HV$ Q@"''2??^@.($& WM&9B( =M^! &1G%A9U:G9W$ H!l
M 'HW!4#@9;=#:(:&/I-6?(SF. X(@0B <AUP!.@W@6;  >MG 6=  1K(@>SVk
M:R%()/]P!EK >;>S:@3 ?DZ@@@[ @L]F!I5D?6:"?6&C;ATX/SWV!(87(XK#j
M>R# ?];E>,  >0X!@)77> >H></W#SZ(=26'7T,H@0A$@18( /5W!AG8 !N8i
MAMPVA61# ('& UA(>AB! $& #MH1"]6P0"HX?8MR6)#&@X#0AA3H )\X=F$Hh
M#.CSA\73:):&-*NF'4R8<AX'+R@R=QA! )PH!LFC<@ P?6 @ \L" A60=Z"1g
M7V<(> $W<)!W< DGB9"A "M0!151B="U@$0V=3)6(4% 'O$%#J B#LKC'1& f
M"$^22VU 1+>#2-EQ!A P0^;@CH%A '# #;DT2QZB&MY! 3H COGV @? C47@e
MC>01/B^$/OO(;OZX="(P==XQ 4:0(3G2'VW@ %/'4,PS 9Y =@= <7@VD(/%d
M(0H@!T8@&[\1)^&S*"@ D1LYD4]0D0C0!A:0D209D1W)5^S!< >PD/WXCP17c
M<4,V$"XY$!*9(6TX!"08 &@#7;)%E!R"D4$%.PH !T+@C?+$C\S3D$\07\10b
M6^#@)?] #:/1%J_#> #0 >R& =[T;$TH!,RCECPS \#0>($6(Q!0E !PE&PXa
M/DHY$,R@!P 0:FC9 340/H39%C3@(3&8EC1 25.P'PZ $0" "%-P!&S@!7 0z
M!1-0EXXI!(59 \_GF/;T'D&@D@! F9Q0FCCF'G P !72!'&"8YVIF(F9EH<Yy
MF*U7F(L)#(W9 8\)!#!P!-'0#+\T:24%-;S! $9 $(KC!SF410*27@H  88@x
M!47 G.QA!L%%!T/C2(I9FXXY <?0%C4 EV8) P4 !G-#DHC6=H423$$%!S^ w
ME<*!F'$98#ZYE4#Y7@G#: WX@)>6G(#@(;E5 0"@ U>S<%I  (?@$&$  @=@v
MAPN! 4)G  ^Z$  RH9&' 63 #>A#EVW!"#*P;ZT4 .6 "AP" H6)"&:  7"0u
M =Z8(:Z)D:9)'B/@F1T0(@< #'&)"*XH,U\9A$O& $-081W "D' $1X0 R'0t
M20!@ "$0 E%02JSR C,J)T0"#:!"#7!@':89)\CQ#\H#!T[@C4\2/FT"#5_Js
MC;1R &P@!^7(/!$ AH 5*4C# "A@/]FA."A467FZ5EP06/"C5@ P12P /Q"Pr
MIX'A4WFZIQR">(Y:.'LJ !N$33A(04"P3):@D/'YDTLW$(0  5:2#E"3J2LPq
M1M_1 V;B4<S JJ'U#\Z0!2UG)<S0CUS ,>Q6 ;;P)$. #I65!"_ 6"!@8(KPp
M)+:F ;9F ;8F 1)@)>C - (0!,%%JO]P#E 3#D@ #4&@ X#PK/] #M)*K?]@o
MK>.0K=L:!#@H *T8A/$%#0(IEF1)&FEYEF8I:VT)6!* GO4ZEYZY 6X0:"Q n
ME>^YD-P(!/9Y.QS"KVHID* :E/$5H$*(/E8 !&TH &+  >6 !# P(M6U 5: m
M2JJD0W  !>$&!T$ !B( !T, !AZ /A>I F_G#9?9!I;3 8OA:1!@7OBPLU 3l
MI*@CL8((LPX@LU5!LT=@LR65L].XLX*!: J@ 8  M"07A$-[ !5[L6* !!O;k
ML2.V 6(@LM!@M!WA#3X;-4?@1SM+@MT0;E)04^S 4@# /%:1AL^1(9GB!RWKj
M#'Z0LLK@!R9K#'"P#4 [$$WF'Y$25.8DHG,8:!815!%;<BX05#C7%JP@H0(0i
M>1\P#HB@ \"@#H^ N9'W Y[+#J%[ )GK$!_@N: KNJK+NJ>;N@OQ %, ")Z+h
M#K$;>7\0@PL!!=X* KR1EJS@BH(#;@0P!._0'RE8$6H@ $00""00 <U+!((0g
M!/H0I<O$!TJ@&@0P;,^K!!&P!M6T.-+KO-)1!R1 -WU". A  A"PO 1@O=@+f
M=9%CO,C;']$[O8( O],;"/++70.1J(%!-=P[O>>;ON#F)Y+COO#[O\OD)P$ e
M,_ZC!(* )P"F2N* "+(@"&-@ ..@"&1@#^(@"9(@"&0@ -(@".. (F1 #T8@d
M'=  8R_ &P$0!8!PN.!9 CVP"%HY$!K@"4\"#2O" . ) *@ #.%86_AP::#'c
M'@8 !'"ZDJ<F!4"PG,TI &Y@ )=I ,W) #30D\* !"<R #(0-@: !,$  P:@b
MK1X""($ "(( >0;@ @KP &^@ 5^,!,)0"/P0 "A2HF@\"&Q!!CB&(D$ #4*@a
M SDD (()!V0P8,'K"*W@J3U,$$#<<@S),$^PIS,\$"= *;Q! *L0!6I,Q?OIz
MPY=<R12@R671Q 8 #44 ;X0 #8,0@QH@!*(P)VG" TO5=VS$ ]" $0CQJ<SSy
MPT^R5!7@5%#U :MB "MBQ,!P/5;"#W98PX#0!D2\(M9<)'&%#T/ 7_C@)?B+x
M!"20#>7\7L##:/!0,S@ ")/;'U!P" SPH(\!#E<& (;@"W$) V0PQX4Y-P?@w
M'1K@ B$G73['#]!X!F"@!'') NQB DW0,SG:%@XPT6DY3R;T.1W  HG5%%'0v
M"/%L KL(!A*  AK- E' ""# !"8@/P20 DU0$1)JPP!P>$\FH=#0"!:]T2@ u
M!"F]TB<" "FP!!6Q-NT<7^M\#3  #-!YN%P "+6+2.C' @# "RN" /TL$LMDt
M#)G #&3; 8-&-'M1 1PBNP,0&$@ 1+.'N43B#]% "7S!(2K !"C0!+Y@"&,@s
M YY@"!)*H0-  &0P: ?6UD\&!A2@ GS]RCJMHX.FT8-V"$.#!8  !F30U4IPr
M".>%NFV=T\I$ "JPB[N I!3H"&HM%<S0%@H@!1J-4H6Y1^,C &6@ %.PVD:%q
M!2]@ -YA =[ ,9#+/!<@" 4]VVU!9PT 6T@\E#$&1U/);K\-D( 8A(>;!?4%p
M!$I0"69  ] YG"/6 11016<0AP<@!4?@M=7%W9*U;JT98[#Y'K+96M3@'0P$o
M )7@$ '@BB#P!"2 !2(P+-3%&$#@-W$S-_W!!-# #_C@ HKPW (JBV&S$*XFn
MC6# R\ X?>&3?6F8 >*0(737A,3&?LES:K*F".219:W6K@\8N42*-)6HA>Q7m
M@<=(@Q41/G?L/B_0=Q;.;CSV)+! %"0 LQS@<9BHB0# B1M$=T]F:P0P0=5Xl
MC9L:AV@)L/YWAY0G@ 9 @ GHA^Z*W&,5>PC@!A*@EWR9E$5#G^X!YCG)C3Y@k
MD)C\L$WYWP!:,P  #.\\.7 Z.3P C>PIH87$H@?WUV!  E( V9J-?APBD'" j
M!&[Z!%1]!M0  J]\"#G:YQ9A &L3YT^IW!U"S#Y,T%WI-NPK M)$ ,L[.0'0i
MOPC<O01 O>9$ D @OTF. 2*@  8,X,H;ZJ,. E]  A<  P$ #,(@ L(9 $@0h
M!,(0QD+@Z] 0",\%!-"0"*H$ $0P$ ;@  #P!-).!@!@C5$:[5@@[?(S!M).g
M&MB.B+X  &4@[6Q@%N@^6NON=090Y7(@[=H  ',@[0U1!P-1 /8  '@@[0H f
M[4/E,#$@ S-  S5@ S>  SD0!$(P!$10!,VYE^F^EP"VEW0P$!1 U0!  7NZe
M\22@$ 90!7,0!F=0!CH  B4P!R P!FVP6%O \F20J)/;!?\.!4% !0D!,VSPd
M'W 0!G2 !G0\$"GO ER0\N0S!T5?[RG_[T-O]' @!S"R]$?O D9/!W0 8%+?c
M]/5.!V^@]'/P[T[P!BBO\FF 5%)O\S@/ 'O@!%7 !$S0!\NG %GP!F_3!G4Pb
M!]XY!F_0!G"0!FQ0!B!P!VGP\R#P\X"O0' #!W20!F^ 5%P/ F4_!FQ0!V0 a
M^$]?]G1@5BDP>6SP!CY?]M\-!V^ ^2&@  V@$!&@ /O!'I(0 @HQ :H_$ K0z
M^F,&"1(0^ZP_ GA' !PP/J!3%1</"4;  >(P!$,0!%#P Y"  1&1;9"P $(0y
M!HLE^IA?!GM1]I,G!V50!B[0 /\."0B0;0<0 !00 /\.$0O!#@(!"0H@" YAx
M#&,&  T!"13 !"(@ ],. PCPA0K   $0 #; " ;  1)@ @%@!T8 !1AP5DP0w
M  X@ 42  0A@ ;&N5AY  @I "5^H 0P0_E](JC:@ K'N !2@ "+02'5' A0 v
M 6I  '7' 3H  4*@ 5C  1P@ 1#  R3  3S@ 40  RC@ !0  Q9  19  QCPu
M[@Q@.12@  A@ >]N @B@  A@ P:P$"8@*SN% !I !6) QQ)@!>_. /R$ "C t
M 3+@ PJ@A##@ 58@#HR@ !Z@ #1 !N%/ 0Q@  B01=1M "3  ._.  NA !ZQs
M4TP@ 1I@!#J% A9@ 2Q  AP@!@8 "0Y  :97 .1  !9  !9   A   20$!H r
 q
end