[comp.sys.atari.st] LVRC variable with newer shells

david@bdt.UUCP (David Beckemeyer) (03/20/88)

Here's a program I wrote in response to the problem of LV expecting
a different format for env. variables, which results in the LVRC
variable not working under newer shells, such as MWC msh, and Beckemeyer
Develeopment Tools Micro C-Shell V2.70 and up, and MT C-Shell 1.10 and up.

If you have one of these newer shells, and you want to use the LVRC
variable with the current version of LV, you can setup an aliases which
uses the OLDE program below to run LV.  An example might be:

	alias lv 'olde c:\bin\lv.tos !*'

Then when you say:

	lv file

OLDE first converts the env. and then runs LV with the argument 'file'.
This way LV sees the LVRC variable, and sets things up the way you like.

The MWC source and program are included.

The program was written to solve the LV poblem above, but is general
enough to be used with any program that is expecting old-style environments.

begin 644 olde.arc
M&@A/3$1%+D,         U 4  ',0S&U\!@$)   ,+U0T4 !"!8@W;,B42= "
MQ)@W;NR4D4,'A)LR=T"4B9A&#L0V&^G, 4'GS<&$+>;0R<.F#(@P;LAHQ%-F
M# @X'L_("=-F8$&?!J_(24.'SD80:=R\!&$&(X@V2>L8'2DF#P@B8>RDD2FD
MYIHR(/-,!($B#1HW<&B$0/,&3LDP9$*((4,G!)FL6U, !3'D31LX:5K*O$,4
M#8@F5X:X '$XC-6+962.00/S3)F19M[(.4@'S=B'?P-/G.,"Z-XI69Q0"8(%
M: *$"F_FW-FFA1G1(+:\E'.F#D@W(D%T,4W0()$B4X9(20*%2I(G3EP_2>@R
MS<@Z<R*3-"FGCE*<;W3R'-DY3,4P<ER6P0.G)IVD9UXJA9UR94O7&[5Z=/.[
M(N'.2\WA&1MLD$191>"14<<8ERUUT1WUL:0>1_OUYQH*B WQE( L@" $$50X
M)" (,KAP PP@U %'AS#)U$2(0[0PQ8 %QN!"#"BJF$)IQ;E&A6<:A3%'&I?Y
MY]AV*69WDD(=6H=D=A6I^!(;:0C98%(@Y/%&'7*XQD9X2;DP(@J:R?;&;2VE
M8*!Y(*375'IN,&B@2Z"UT>)B9;AP!H\_%9=  F%0*20(;-@!P@FPT:D#%V(D
MQ46A+I0T4@@JG$!<02 D,$08V#68*)+=*=692Y!*:J9X;8#PGV&C[M9;?W.X
M!H>0V<D$T9P.^65G3(0F54:'M\FA4JX13?2>&_&UFM]B);G6*GTJ24C6'6BD
M,1FAAMX!DT@[7JK""P.-D-08;-01&P\JD9'&&RZ@X4.XXY9[[AMS-!I3N^\J
M,%! (% F!QD/*233D'JXA()G5B5A41D2;39'&%NI.BA.9125AYK?AJO0;1>!
M4(035DR1A!9%@$ ###G8,-"^!G7FI)/43N32LRA%VY)&%'X4DGR2Z=HB21 7
M2!B!((CADF47[6243!DK,!EZ2^:WQ<<ACUQ$%SL,]/1F8[1!AAAUF+%%##+@
M@/7*"MB9% KHG3$&B[S9T6%^<.BE0%+G\39&UD[[6U#;=FQQ=M]0JT"WX'SO
M,5 "6Q>T8D%S\)T WDCQO7@:9I#5MDT\D*BFX@K\:09.>)N!0KH3R=&A"-B%
M89D.()0P4IT_Z];V2"Y ,H!P7+@A MQG! Y#%RE(GL!Z1*$00_&+][$XORJA
M5U%5Q#9\;+) YM>1SL 5!&[HF6V& AP@]!!U1#L41'?Z=*^PPN>+)S"2^89'
M!(?Q_*[7WACG@2""$T%H0A%Z8(= U:$,(@"!2H:"+._%+WQD24/Y0 "#],UA
M"VGH @A,8 (%8E"#(3#?"7IP@O2EP7UV2X#N\&<0S"&%#B<8B1O>T+__!7" 
M!2P7 A5(!P:>H4G^@<@)@BB'-?CD3YC"$LUD$CX[T:%#<S!)2[)2G8ILJ2)E
M<4&>7LC#H< A5J%+ *;.E+EE@:" 0PF#&%I"G@/UBXH6,4D.#]BM,#HPC"X\
M'0;=I\$>B)"$\ N=[OCU$#A8I54V%& /$C@KBMQ1A0-88)P,.3XH-HEY@AP 
M^59@OC1(3G<CX63E%C=(@\!%)F$ @1.JP 0F,*5,2XS0S9H&217 P7T3K" I
M!T#(MAP22'-T22,K0DM0]G ,E'S<'# )R4V:;X$M<</XU+0"$,3 >,X+7383
MP"\[?46!7)I9]GCE)#L543NK(LD=3++*5HZ$EK;$I?ET&3I;YE)R_)IA1BC6
M2)>DLH!N" P;4DD[7M$A:&0AVPV*E@>C/"4,>,#8]Q) /O-U[6MA6\$U%V?/
M>4H.@F69H Q,"(+.;<Z$* 0!Z/Z41PGZP'.[7. 8S%-)__F/F9/+W.EZ&,UI
M@J":T-P(V^(V-N*!X*4*3:'NQ)">,*S!>#*EZ>, ]T&<.K.+/:V;Y+;)KV -
MJRH./9-#O :TP"!E=EOJ'BTO"C:Q#6^"094F6S.Z/'P:Y E+Z) ^07 &[G@'
M5^!!U2.11P<40&$]-4$!#( 7N!ATH4-S-4.'$A61%&!RFP,!&@A/3$1%+E!2
M1P      [A0  ',0W6W.:]D>   ,8#0  &!!Q<  Y@9"H 8 D@,5;P 0 -$&
M (9H[0!P(%&1A1! (I HD7 &B@A%)I20R*)$@QE^)T>>X<%@ X @9MC5!"#%
MC+F=1\R VVG%C+:=/<PH4#+AC($1RP9>$"8D$X@$)U.N;/DRI@0S\DP ,".C
MZE41_*22*Y(1$ 4-2 0)D0$"@!P0;\]8H!7@#+XI2D0HRZN KQE\0E3\^P?&
M7%41":;EDVIN1##*+I*L2"+Q18,1R 9:L/4"P0L D@"1"S0ER(\ DYJ]2.!9
MR)D?/  H<1+$6UH&2@:9<8%;8G$!3G(-?.#'!Z#DRYG]X - 0'4A5Z #8.Y<
M^P-F6)YP<J8]@ C? !3\ *#= ;7B3'@[L?)/WHL!#-Q4!X" #0H0^BGP @0O
MY$:0+@5*!8%V ["!'@-P!+!>>]10\40+U%E$SC_\  B  TI  L 9 ZGBH0,M
M0/$/8F[\8P\,+=H3C3LK*@'!&13 Z.*,*S(  0 ]."5%C&"  X,++@[I(@Q 
M\(B/CT": <8/2-KS I+X7,DA@S:@IP" '$)#HSTM(,$AF/B(Z6*9*X+)CQ2N
M<"@$@5AJR0^#%$#QA)T,DA">%$"X"0TP;/*#A2L?@@' /U"X":><$+@Y)X8#
M85#&F2WR,R<< O0 Q))5PJ)??WKD5YV+;TB0($':\*E<=?[HZ>I  _CYA T 
M>"@@"A+U&1XT0S  ! !_N*'#D2XB 4PYB(#0I#OI#3@KK+(B>>>KM88G**%F
MODGDHGZL:JFO3TP 3*5DB$N.N&3H^@*O!-@&QQ(3]I86@>R]ZEYX)GS@A!=.
MU"%"1 B $-%$""B!P4M3( )!-B\%/#!_!DL$ @(/1UQ'Q02(D/#"'2(@(FM 
M2$PPQQ?+<!H#9RC0VL-G$!!%,O_H$_!\ R$QZJH6V,,@,'K^>[,5.>O'P)7\
M_1PTP'7,]X\Y.C^-&R  ((V =@C(X*7. # 0M3E*/_&U;6@Z(2(73PC=-'V4
M('$-#("T8#2F'*( Q:$<0L !$H#XT/6P)9RA@1)'D#B &5;_<("'!:,!@ 1F
M X V&-K  8*G_\ #QS^8L[,YYN[HS;??#!P!0 MF.! AYO*(WC< 8,3;HCRE
M P"#&1#"@#D\KI-NN@IFF. F%7'RTX.*[+ !P>J?RH,L.T0 T7GOL*L@1(LZ
MF0Y#&R#4GH,;&CP?3%H*0',$ </J_BD[U%->NPMFV+CWZ[4#3\'PQ1__3^CS
M^PV&]2UR1^VVUSW3?2]\2'+'^-)C/O39#G3M.XKIV! \ZM6.#&>00.W>< 8&
MU*X.3JD='LR  !@<0 "?^H;?0.   E -$@, 0PL^10\5 (%Y_T"'"4&0(0O(
M0 :Y<0 8!( %), ""U>@F3Y   4G0$-1 5 "_CBD/W HH47@8(,#D 6.Z&$.
M''!H@0:  0?U (!*_P"'9[1S "OHR890E$ 9US-%?OP  D6" P+ X XXX%$=
M;DI1&O'&#R7$*8L.  &2NABW3X%1C&0THY;4V  V"L-+8&#%''.5*6E5\E4'
MN"3Y;$A(10& %'H$@S?\2#DW@0 "(H#7#-/8@B#\@QQ0*)YGT.@.+:UKD8IK
MCSO0@\=%2>%Z.0RDBO!!0DH11#'X(*0B5S3+&@)!"1W(X!7WUP9[@* !(HH3
M/D2UOS>H8PJ-  ,*D(F..L(  F,$@P7<)"T7) U;0'N"HOZ!A6G2XS3/4U8T
M+@&"#XBH$9A3!QMD]P]U;%,>9F#"-M%Q!AB8"@:9,\-_6D0/**'. U8#$ST>
M10\(0(!O=!P5"!P'N;,] 5GG;)%#@="RQ"$)'JH4:2R:T:Z0<I2D)D4I)RG&
MTLA-#AL/)1$_8 '3*<A4"30% #]$8=/,,6ZECS.J/KG!A+<]AVE.4X?;0  ,
M']B3 2IP@A!*8$(!4&U1_P $M!R0FS.(H*UO78Q</X0$(/15"'X-5)/20A!&
M;  "/C  &)RA.+)](1J$M8!A(:"$"G20<7#B#P0Z 09X*)(_726KVIPF#K?!
M306C,BL () $&OU#""2 @^T.<!JD,4 [$P" GF;ICC/$=K:U/2MNC: G9T%6
M-(S(  3DMK^N@8$8'F+ <0NK7"50(&8:X 88\/'-KL)MM/3AAV=0^Z'/(D %
M@%C!L!"P@@PAP!@?$D(+"'*DKD5O!\/R8!L $8"N*6\'?/C#/[K6WH$@@!6/
M P-[W4N(QWU3!5\ +X?&&Z I5(0!;$" $"Z\.3!\J0I2J$1],08("$M8O T@
M[X=#/&((E#C"8 TOA?DCA0N_0<,<9DS!0%P)P)K4Q#&><(I'I816\,<,[YRO
M!?B&PNJ800*XL8YV*B !"ZGWR!(H<-=8\"$M-\ ("7;#<@G"Y&$)@"QCOH!0
MM0,!$E@(JF?PP"XB:P\S6$#+"U!"ES/4 '0X>+Y[- &>]>P +3. (1)(\YI?
ME0!06$A9T##R>=,[K'A=&,A#F_ !(K0>(9R"2O=4"!'T=%9 _ ,2!#!#O(  
MABV>,*]QY8=U^NH"?P49Q>0US2<-S([P>(8B'XI<>#"]MA6-M6_V/&^ UO@J
M!/1Z3PU0'+!;*KDGA/:KF<9UABZ@ARPT @1-B 5A+Z"",E"V$F> QPLJH!T%
M:"$\8" 'L9V&CV/G>LQ+!D23 Z#J#@.!V0-1@"_"XS=% V)"KWJ #-XLZ3-@
M -]E=O+1 #UE%81'OO0]P+4E7.]K@*#$H]IPUR"N[V%!P QF $$%1&1D OCM
M#1I0W OF2P"#(WP@$?"#GF 1%!(0K@T< #8"@H .Z\2B&K@# :#1>V4"Q&X%
M59 (8,$  ACD0#2T4!8#7C@ $)!0"'G .A@,<+K5$F1S&P]RQS^>ZQIW+2*H
M 7AZ!OX$J)IA(+9@P*OZ+!4$I(YG/GN5P+4%: .\U3HL-T[5:&[S?"F$#7JZ
M;WZ%!0!^>\'J6-<ZU[VNX; 3A!9C+_N/+"!R!H#!"#"8+P/<S@!@$T!$P%@!
M$BS&8Q\C=K5*CC@(SN" VC6 1/]@0NTTT#(3MEH)%S;#N0!]]N!['-O%UL>,
M$:#W@? = !?PNP, WVZZEY[3 (B:/QK/9L@_05B+.0,-X P%!MA3 __P!^Y(
MWF2OT\2>#8C__'-?\ER9P18^AB3^H$Z8]WF:UQ!=]W6>MQ>M)GH$$7K,9P&;
M,V_TL7;(QA\J5CL*8 8D0'_#LGL8X!EP$&V.US74@#;H]P_]QA@P8&'^)0)R
MYP!F$!YVUTZ%=W@- 0 M-P5 @%]= P(\9D(NEG:99@_'IEK*EAX=< 3QIX$I
MYX&Y@B,B2(+:\64H^"G_< 9>4'I0>').$(,S6'= 8 8W)"'AUR+C-U]J=G E
MF'-Z0GG\1@#&5W579X# L'4(R'E@)W9D-U^CAW;/QW%'F&P9:#H;V('\5W\.
M-X4W!P!]=H6+L8)@P .E)W1$9W1(MWV[-G<T.(;> (0L=@ N1GD;J(G=UXEF
M( PF1(3%AFNC H4$4%,- &P.(&Q/X'I')P9'LXF#IT\T 'XJEW@$H"RG07ZO
M @&C=GZFAFJ2J !0)W47!E@4.!#MQ@*@=C4)YP$6 EX#L2K<-F6 $![@1R';
M&&/4J"_NP(UGE&QPP 3U$A[J:"H%P!]N &7)IAT1H H60GE#< 8H  <_L![7
MJ!T20$1/<(UPX /ON"<E* &> &\" %@G]@('@)!%L)!^HSPF1(P-^9#Z) (#
M^2KY:"&>PA]MX #7&$RO4I#A84*U-I$5F6R@I@!R8 2OP1MHXS=VAP(AB7/Z
M^ 0EB0!M8 $I:4\*0) &65\*T&H;"0RG09 >^9+FN(ZA!@ C>7[#,@3]%@!#
M))%3"6HHF6Q(HP!P( 3UXB5/N9(>*6'P,%;@T)-6^9/\>'< P S4 0%UB $1
M,#JKE9<G!0C*8GB5 @$VY%0?4A$ X A3< 1L0 9P$ 7F,IA"D)<1("[+8T8X
M^00964('H"RF1 F;Q"GK 0<#,"%-@#:<$ID685*4R9=X.9A\$YAO]7 V! -'
M$ W-4$8N!@$=P#<ZT#5%   N00!^ #OW$R"9I0 04 A28 0,$)P;N"AN\$TN
M-)BJ^7 3< R5$@$PH%@D,);UY0 <B9 !R1[VTC5I.1 .&1ZA!0[J")[V))Y.
M294(  = <):_D9Z/LY9J-XC\84)6  24)P!BP 'E@ 1,,ET6P E,Y$3_ P=0
M  8F  =!  8B  =#  8>\',/X7E3L9AMD# =<!@=EC"6A0\04 %\PXKTYI\)
M<P0GJ0(>*@P@*J(DRAA+<:)*J0& P*(5Z*( *J!F)@9(<* )&EFHT*#0(*-2
M(0PIRC<\UT&5U6_=(*%2D$[L\$TB\BI3T8C,82&MY@<9Z@Q^4*'*H'-@8 QP
ML T^.A"&Q!_*8UY$  @S<"Z?UV$3<8],,S%[1 !#\ [\ 8,2H08"0 2!0 (1
M0*A$( A!H \ H%@#P0=*<!H$H ; $0AG( !2  A*$ %KT*>=JJC/(3 $$SM_
M&JB4BJB-^JBFM!NDRA^F"J@(@*B**@B"2@"K"JD P (@T!=+0:EJ0 "4  @@
M@!ROVJ>G.JL1<*NKZG03$0 !LSE*( AF8 "RY43B@ BR( AC8 #CH AD8 _B
M( F2( AD( #2( CC(")D0 ]&\!S0X#1M>0TX  @ND&Q0< @,< AP!0YB,!"&
ML*\&!@!D8  N8" (4#4',&7",&R!$F[\<&JQ" 9*\"H8P !/9@)-  (+, )V
M>@'NX+%2H0X2"@*>=[$[I111T CY:@(5X702@ (GRP!1P @@P 0FX#@$D )-
M8#$'$ 54,RP!@%X@< #0T @B:Q$,@ ) 4+,W*P0BD@)+(!%=5:]L:5K 4)SF
MQ06 , 4E%W]<Q@N(@@ %^Q&F9 R9P Q,BGV ]'MW40'VY%8(V!=(T#V\5[0H
M%'_10 EX84\JP 0HT 2^8 AC( .>8 A%BX<P1 !D\"45D+?^@%Y@0 $J@+@&
M<+1)>P& Y*& = C?A 6   9DD+9*< B7=4*?X@]'"T<$H (ONPN3P;9FX AV
M^Q3,,+)2X*'.4X<70#MF5@8NH[O[A 4O8 "XY0>^=H^O0@$BX+!3H+O=]3; 
MH(ZR-6+ZR;SPV)_/9UY94&+75 EF0 /%:9O3=0'T8"-G4'4'( 5'<*1245)_
M.9H",)JER1ZGJ4_4X!T>  "5,+<^*F2Y5EF" WA/RH8FVW=:=:5@( Z MTD'
MC'U7XU(4:&S7  # <*_\4;H9!@(\(+%@  .E2T(@D .G-@!.1P)2X+FH&W_V
M1)%P@ 3U@C9<=@;4  *7>P@>6\(380!=9<'J.&(<R;#9&S![X 15P 1,T <(
M2 0#40"4  !/T,3J  !1!P %H P @ 5-#"UC,! &0 8$V\1,7 9-+ ]C4<8C
M@L9P5P",8!=>; < , =>+!9UT,34@0=-+"( P,0 , #J  ,Q( ,S0 ,U8 ,W
M@ ,Y$ 1", 1$4 1@9I70@',,8978H)YZ_#AM_#B(T! &4 =S$ 9G4 8Z  (E
M, <@, 9OT 9M$ 9NT"Y;  )A( =G8,HN $,@T 4*D"L-$0$)H T#D0#^$ (-
M,0&]_,O!W%^0( '%# # / *(1P 6P VB80\*TA!$D 5OL#%MX,ET<,JI# =I
MP 9E  )WD 9T@ 8@<,[CC#H& P=TD 9O,)UT\ 8@D 9N, 9L4 =D,,YP( ?V
M3 <:E0)>QP9O$ ;O[ ;I"P=O\,\-00 78 Q#, 1!  4_  D8P,D)"PD+( 1A
MT"X*_<]E<!?V['5R4 9EX (-D,N0D !,( (R8 !;A  .@  *T'H& -,(X 4T
MP  L8 (U+0$DP  :8  (<-,<H 8&@ $<( $!0 C$A0%"P %,$  .( %$@ $*
M0 $N0 (*@ DS[0$,@  RC3$N8 ,J( (*X  N( $;^DXNT$)%30(4  %N0 !%
MS0%S8@0:P 4@L-00  0DP &!@@+*:0 ^X@(68 $LX  Y8@$48 $T@ $2H  *
M8 $WS0(&0-DV<-,F  ,FP $RX ,*P $EA \4P !$?3_79 !!?=,, $.CW8$:
M( (,X  *P *!30$&X! 4\'H%H /0'-P(0 "O-Q '$  0$ "Y# ,(J (6T! *
MH @(R 7]!0#4\".08 "L,(^0X'<E709?T! +@-T#H (5P :KS 8$/0;AW=WD
M+0(4, =T( =C  =YT-X)0-X4, "K;,_M/=X(* (!$-)RX 9OT-Y9C8"T8 %?
M8 :A3 =B@-_DK00+T. /SMX-D=\(R (,T.#@[ ;FW-X8@X#^D !?0 9T4 8.
M+N$(Z X.\ 7R+0=O  =EX ;M+8H(* ,(< ?^G.((3MY^$ $P3@=K, =IH ?@
MW1 '0 $(: X7\ 4/;@9H0 =Y0./M70#DK0H1, 9M0 9B4 =F@-\5@(!D@ %S
M( 9RL ;_3=X2P.#RO<]R( <BSN0P! %/'@8P/@:L# <W3N=^_.1<3@9N$ 9M
MD.20L.0(2 Y/;@9\WA ,X.<J<.=LD 9A, =2?N/D;0,2D-[KS>(P) $5P.C^
M[ 8 +>+DS08#4 9X$.+B3=[4\.)S4 8 />55;NA8CH "( %D4 =P( -KCH#,
M\ #J309I ,<:3=[ \!7X_ :Q[ND#H 4*H-XE71''CH 4, $>7@<0[NS4T.&,
MKNT8OM+D;00-,.3$;N,9[N?<8 $U;@=I(./HWMU^;@L6P 9R0.S&#N P9 P2
M8.[93 =SCH#V4.]Q7@;4KN\#H $38 >-6>RMCH#Z( %ST,__'.8-,>(P1 @#
M\ 5X;@;O+M]]WN(7P/#3_O P! 38CN(%_>,(" $/@'+Y/ =HX.R^H !OT)CM
M+N:)C@&[WNB0 "4PY </\ 7P; =E, ;S+.><[.?"< %PH.US\.LP! @58 ?W
M[O#5CFH+7_ '/^[8+M^Q#/ 9CMT% ..R3N &WMX&0-Z>(/'SK>=B+^XD+@#9
M3@=QK^$PA X-0/&D;O%R#T-2,  Q?L_V;>H(: ,-$NMEH.;03=Y$  '+WNR-
MG^,/$./B'.]X7RL;K^JL#@G*B8 >\ !V@.^.3MY:, $>#^)Q__DPQ X(4-(=
M+?4- @$>KOB,[]X(F#IL<.9ISO(P) P5D :?;/?W/?8(V($6+NLQCND(: P(
9T.#V+/PS?_'DS0(*8.'1'_<8/P#:D  :  :?
 
end
-- 
David Beckemeyer			| "To understand ranch lingo all yuh
Beckemeyer Development Tools		| have to do is to know in advance what
478 Santa Clara Ave, Oakland, CA 94610	| the other feller means an' then pay
UUCP: ...!ihnp4!hoptoad!bdt!david 	| no attention to what he says"