[comp.binaries.atari.st] v11i096: xmore -- Configurable "more" for various file types

koreth@panarthea.ebay.sun.com (Steven Grimm) (08/14/90)

Submitted-by: cs325ec@ux1.cso.uiuc.edu (Gregory Lemperle-Kerr)
Posting-number: Volume 11, Issue 96
Archive-name: xmore

eXtended more V1.0 by Gregory Mathias Lemperle-Kerr

	For use with Gemini/Mupfel & maybe Gulam.

	I use Gemini/Mupfel, so I can't guarantee Gulam will work.  If
shellp is past as a pointer to a null null terminated set of null terminated
VARIABLE=VALUE type strings, it will work.

	I originally started this as a more that would work with .PI3 files.
It still does that as well as .DOO files.  If you put the line:

alias more xmore

into your mupfel.mup or gemini.mup or gulam.g files, and place xmore.ttp into
one of your paths in $PATH, xmore will replace the more command.  It will
display degas and doodle pictures on its own, but after a frustrating bout
with .IMG displaying, I decided that there were enough external programs
that do a better job.  XMORE will search through the environment variables
for a variable of the form: MORE???=path\program,arg.  The ???'s can be 1-3
characters or nonexistant.  The extension of the program chosen will decide
which program will view it.  For example, in my mupfel.mup file, I have:

alias more xmore
setenv MOREDFT E:\BIN\MORE.TTP
setenv MOREDOC E:\TEMPUS.APP
setenv MORETXT C:\AUTO\QUICK\QVIEW.PRG
setenv MOREARC E:\BIN\ARC.TTP,v
setenv MORELZH E:\BIN\LZH.TTP,v
setenv MOREZOO E:\BIN\ZOO.TTP,v
setenv MOREPS  G:\USCRIPT\USCRIPT.PRG

(notice the MOREDFT which sets the default viewer if none of the extensions
	match that of the file)

I suppose the dvi viewer could be set up to take dvi files also.

Turbo C 2.0 source is included.  [In the sources group. -sg]


Have fun.

		-- Greg

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 xmore.arc
M&@A834]212Y45%      HA(  *$4@Q%.1],6   ,8#0  %"!S,  " 8&4@  z
MD@,P8 9":+C !Z0!(*A4D2+D28LA('A (@ "A)DW<D $H1)$2I(64ZB @%1 y
M2ADV9<+,*0,BQLP"*(:D ($#!P@A*-F$<4.F9!(W=,K(<1.&3IHW5-F4''A$x
MGS].(Y8-M,!&R2H )*P 0P)H!K"Q<$"L < @VCH %.P"X "-7P  (!9 0P2,w
M!P!^+H"\0/!BP0_# !X#4.(DR)-W=.$$$!(DR%U -"#0X@/&PQD0H\&X.*-!v
M H8S%F@$H"*$&)\'_CP)$_%$]A0A$K!%4?:/GY!3=$!,"5*& ZT09/ )20$@u
MP/(R#)Z7P8<D374I0,"0>Y$ /!(]_\B(F,L"Q!,GN08.X/4#<(Z!%<R<(0G$t
M"23[^*EQA@(@]/<?? -%0(ED3%0&!P!@<" " .4D D(> TTB!PD4*C)$/F/)s
M,0(L& "  @!2  (++P-] $0;W#A1QX,13EAA$" "8,&&'8J (0 :CECBB2FNr
MV.*+,=;QPP O*$ "$D[H\@\I0@ ! F6Z3,")#8#]J*$<(D0Y@1479@@F9'T q
M ,, 8A*QIIAJ@*$ COA!$R4"^(AY)1!FN",F!DH <4:>4@)"PA<V?"#CDDT^p
M&>4_1E1YI9@^<%DFD&<.E&:4$M#S9I8:R$DG07;J@@ JG$(3:)^<(A/HH(_"o
M<&BB,H+A  00P!+!?E7** 42+N%ZA@$,1 ! #V:@HYF,2)P#@ >7^://"T@$n
M(  +29CP1@ :"/%"=7"TMT24#5B  A(@,' &!T.P4UT0F 5 +@@?XN<&O-5%m
MR8 K<H(PKBX-0)'$/ DM@9D@(# 1R3(@("#"$B T0:YZE<6KKR'XR@LP"AX l
M@L0;U7T, ,8Y5@!'E '@ L43+[Q@[1"8D=1$K[I(P 463UP6@ %,?(,' ,R>k
M P$+63QQ+@E)P.$""$GH*X@*P#8A0A-!7 ,'FP #UL!^M0!CA@!"7"#$$*5!j
M< ,, + 5I0.DO'KKV6D#LC8J'P""MA1#V,('  / Z"W?*C Q-AABH- $&$PPi
M0 $ 39C! P,L /!$=6;0 #F*  A@!@N7%\&W&22T"P !54?I#R^O6E"Z+@R0h
M@00="!0@@A(1FTX,SG8$D+"^3J28#3 04& &+/42=,?J"]"#M]Z9FX$)SCW3g
M@$#0$*!PV3_P</DD"DWK$@$B(R!CYJ@5[!%E ? H,<09 _VW9CE(B"#'8<B[f
M4N7J$4@0*!L.D _+^<:(" #D$*4(S.D:41*,">AR P!  0?], ,"&-# ).# e
M'V>   4!  <(FD&##4S#!26XNGX@ 0R/:R 1/#C!!CX!!__(X ;)X$$0 N -d
M,"0A G71#S^ @0)#N,;N=.$/08BJ9+PX'T> <!D 0*!G%)A>'5[@@*(UX1HLc
M> 3,Z'(> #@@# -! <YPQH(O, L(54("$(IG 1O((0!@+  B K4& <C(!5: b
MPS_ P(UF>0 '77C"DTR0!!2 S 1CPT,)]'@E\&A  ^P3  QT00 ST.-5!+!&a
M?R@AA")  )*9XP%G)   21@&!+(P# 3$P $)[  ""%B#!101 #"((P#_^(< z
M_@&) Q#@'PC(Y43X\ ]8&$8%9B  #S8 !A.0TI1J2B4 $B &E:@CET&$@P+ y
MJ !TD. *1@+ '_XAANJ(0Y6@#( VZ%!,P[C ##;XI#$!@$P"T("9)/B/86 Px
M3VI:$YM6VR8 %*"*;X9SG.4, "EHX,1T<H*4PC#,-Z3)!#,P  '% , #/LF^w
M !@"# :8)QK.( ]8$(!] !"%'(#PGP# (@ &"8 ;@+&W'T #"##8 0 ,X(1]v
M9"X 7@"J4(,:5"8(U:A$':I2D\K4I0X5 /IP:E.GVI"!:", 1LTJ4 %P5:H"u
M(@ >L-934;%573S5'U)=*@BV (-!1,0??L 7 2! "# @  8;D"L$  &! LC t
M ")@ A@%P 1-OM4+:^WK7P,[6"48%@#^8((2BJ &DC"3  _"ZP\$(($"T,  s
M"0.C[JCPA,?Z@P63K2P(+HM7) !CLYW];&@'X@K2FO:B&2U :BT+!LRJ:0.Pr
M]2QH!3L0=]@V/ #H!SIVN]K>9A:XG!7N; /@@.-&I!_(T*03*+$F+CRA9QS q
M@XP>) , T( 'N0R"/NC"V.J 0H^V;( "KA"&J:3!#6?0 0CJL).,#,$(3* "p
M$Y(@!!#0X0T@.$,9DF,&-KRA*B"8PXS@@!(&HP0$<)##?>E@!A?(=R#-PH![o
MWO$/=-A! 4H A!HD\(&]M6"G/]C;7Q! !$ (4!4(^(L ,MAB *P QC(&  ($n
M2(D<#^0,#N@Q"(!<'2&#P0\Q;L@ AFR'$(^XQ">.\D6&[+ISB/AZ)H;E7P(@m
M02U/&7$]1IL!C%P ,R1Y;S\[0)0%X&09]!@+ )#SWN@\Y"=Y^<HF1H"1R8P l
M,P^9 6EF\HR?Y(- #&,(.!" &@3P,WP)% &RL+0>E8"!*R"C.$8 P@^ H",$k
M#   !3B#!RQ=WN6L@0)T" ,M,#"%9!1'# H0P(F^D<LHV!H>,O@6 J0!!!I\j
M"P63ID, * &$9 - &D(P]>@R*.T!F$$!,"# ?X+PAF$#@1I P$00V$#IR AAi
M=#\@0N; @(80RPH)A!3"B0*0.S!(P-V#3((=_L'I*RP#U$-0@A F38,!T&((h
M8A" #<JMA""L =-#& ,!<!  3 PA(9^#@+^R#<:1K6E2DP # SY.F4EDVU]Ag
M@,.:H$&$GC$  S*RP05^!H-O[?BBI[:V ;!A)26$ 0HU%_(9$,!S?/%4$D$_f
MZ<Y['@86!-T"0R\Z9A3@!*3;_ PXY]NP>'ZE,%@@VTW$0,\( /,ZN+L(Z[6!e
M7<^^7AJ8  E<4C4. &".)6!]"B!1 ARF-XDH_!L?5\HV3?-\!CM.PN5EAP$Dd
M$# 3!+#1!AWO7X[:J,V(!,#8"W@! TP0!11XYZ+4^8L$SF #)4#@#"A 0#IVc
M"@ )0. U'K  ,&[!C#+80P2+6 QYF"9:7HC@"R#XPJHLP'DP4*-*N$?!%TQ@b
MQCK,@!\ : !^R*!Z5+<>ON8(L0[RC8(IL& N#/C9 L\@!24$X@Q.0,"/17\&a
M*"#@+@9H/0D&@ %MY,(99&# % 1A!GM(@1"X$ AEX Y@P (FP @N\P("@'+Yz
M0@(?( (?L"HJT'WOQWH2L']FX S_%X!F8 P(<!;Q)P$'" )8]0U<4';/%WW3y
M5X$%<'U[A XB  6S@ ZC0WU5 @$9  *)("/5TWH)<1%GH (89P!G( $8%P"Jx
MMA@=9P[!MRH:H(0#809-" 1KX !F( $Q" ;$D(+21Q#41X,M* %Z)",Q* ' w
MH(.#]P\S2!?4AP T&((R@@#SUGIG0 'U 84 0 G!9V>K,G+RXGS0UX4%X8;6v
M)X;_0#T8\'8H,!>,QP0P\&,0( (_Q@"2P BB90 IM@92< 9&H'YYUGIFH ()u
MTVI!0 <-,&M78&O\8 86( )(, 5), 5 X&H,8 $8( '#8 L"D(K_@ ]GP ZOt
M@@L'.#_EE0W!< ),,#I5TC,8($452 #75TOP %_LT"ROIXB,: .0*(FC4XD9s
MM"9$$ C*-EBS PAS 0""X(D' (I4( (34(G+$5A,HTVPD &\N(HH, %[TP"Yr
M] ,!0!XBD "2@ AK(EJZ\'M\:(Y($ 3ID$O:M%>^]@_2T"Q   P!.9 %61V8q
MT#,#(  IMF)@0 )KXHZ5.%V"D(D4<(#(.#H?:('+^ W-.%Y[9 ^IHWL!4!^2p
M\0.5T40,D(D\50<D:"N#A09N,7UC:'9>!@%O)WX , 6#@%*6<([BH 3WH2-Bo
ML 9P8 9X(%H",$\(<!KSM#4V,$^0I 3S! )E0 ZX, AD  [_)WL=APY@8 U*n
M0 AG( U30 A3L 1[UW'8$!<=)PU].1#,  :Z\']P4"[ T'' , '0]Q=6J4T=m
M)PM@8 =U>09RX)BY-!9BP&X_(P15:0&=Z05X$  6 'T* )J<"0900)6<N09>l
M8 9F4%]>>088$)9G8 )DF5]G60;F\']A !'@<)G<D)=]206 "05]R01@P R(k
MV0!A0 2.V621N4U&00 ]@P!E=YGTH)G_L)KJ\)FAV9G@4)JG.5"J:95@( V2j
M<0"505J+$AF&84=!@#,R8I,X:1C]81F8T9/F&%*!\$$R(EH(4)1>>)0IR '3i
M)R.CD3GE1'<R(&H"\ ,)X#*2(00[.74?.1"^L"*\- !>,Q"V\!NGH098(!D3h
MF@ /\BT7FJ$#E8D#80D< @8G:A@WJ:( P**&@:'\^:+FB ?0$ @3L@9R@*(4g
MNJ+R"0 \VD0H9HY:,*,>8*0XJJ-*ZJ)-N@8^P"'28(Y&$0#_(0@<L@8P<![_f
M  4A,1#02 N 4 8$\"U@(  *2*&2L9\\F8D,0 DL,CH ( ;40((#.A 28* %e
M<90P8!@6  ;P0 0L!0![ P*PL#<B( 8&  $Z)45P4  R8@$"0 $8T  )4  ,d
ML  %0!,34  %( "CZ@ =4  2P  -PVGK JN \AH4 *L0 *L]^1H( *L$P&EFc
M  Y3@ 00D WK,JRV::P48*RX0JP,8*P(8*QSE0V_6B R,@G)X!H#(@L 8 ;Xb
M, 3HD$M@( ]*  #[P30R$JPRTC#&R@/&B@/&&AK$"@/&R@+&B@+&2@+&"@+&a
MR@'&B@'(JJS&VJS$^JS$&JUF<(;]40>N"*L<(*NP6JNO<:NOD:M#QZN^"@X-z
M\Q^), 5RH[ (P+%EL*S<*@0>"0C# @'"P+%FH \J03WO]JC5@5*T +,D\*"Ly
MT!4"H KS0P>M!TKHJ 0S,!%K0 ]3H 02 $ETL"HBH$W2! -FH -[=[1G( 86x
M$ #&(%&V8!A88 8H  <0<+1F( )@X 0P"P%FH %-:P84(+4^4+57"P#?D+4 w
ML+4$(+4NT!4#8+1!"P#:JAX4$ !'&Z@3T;?$)P!(, 3&L!8!-P1G2PS 0 V#v
M0 V!0 ;B  8:)P FD #[4;0BH @N)T4I."$'ND<*D((A8)0 D+EG  XB@ A\u
M] ),@@"> 'TB(!M5( 0-&JE:L$4BP$X+=+CJPXJ $ R_.P03L ,PT#M"H$9It
MQ"?L$)(_0  +-'=C<[B&$ QK8@,$<+UJM":'>[PP8 (<D6*_B@,?,*S#41Q"s
M@ '>0+O!9P** H@ <+I>" ;J  ,Q( ,S0 ,U8 ,W@ ,Y$ 9B, 9D4 ;Z@09Ir
MH 9KP 9MX 9O  =Q( =S0 =U8 =W@ =YH >-<023UQ0+@&2-80)3(!E-$P3>q
M!0;NP,%C@0:! <(+(,(D7!DG[ [,)R-IJ%[< @%H P"#1P R,DH H%Y"IL,3p
M(2/5(0 #0  %8  '@  )H  +P  -X  ;E3\30 $58 $7@ $9H $;P $=X $?o
M  (A( (C0 (E8 (G@ (IH (KP (MX (O@+_ZR[_^"\ ZL ,\T ,^,&I!,#9$n
M4 1&< 1(D 1*L 1,(#%/  51( 4Q4056< 58D 5:L 5<T 5>\ 5@\,=#$,B#m
M7,B'G,A.L,B-_,B1/,E:L =\T =^\ > $ B", B$4 B&< B(D B*L B,T B.l
M\ C_$0F2, F44 F6< F8D F:L F<T F>\ F@$ JB, JD4 JF< JHD JJL JLk
MT JN\ JP$ NR, NT4 NV< NXD NZL N\T N^\ O $ S", S$4 S&< S(D S*j
ML S,T S.\ S0$ W2, W44 W6< W8D W:L W<T W>\ W@$ [B, [D4 [F< [Hi
MD [JL [LT [N\ [P$ _R, _T4 _V< _XD _ZL _\T _^\ \LE0# 0!,L)0%?h
M!0D/( &0H !>&G\Z  D&@ .0\+<^;0,^30-![:4$  0(H&T-@  700!+#0D)g
M$-6"!HU230!0C=5.;=6"UA ^P$MH8RU)O,1-G "\= !0+,54# %6C,5:S,5>f
M#,9B3,9FS$L&D-937,42<,59O,5=_,5A/,9E/ *\5 A-(AD+\)Z"U'SXF:0Ze
MV:,,$)^+(1E.4!DKLRB&\0**3:U*DJ0^4!GVV=F3;1@]8-GO,47?TJ856FA)d
M.BX]"@'WJ0 H6MFD52"'8L0YO60E, <@L-L,001&0 4 4 98$!5,409-T00Hc
MP1-6$ ,N  ,@( 9Y  )'( =E< 8H,=U-4!4(K!,)4P9M  =2@1,ML 12(0?Kb
MZ 1OD!Q&\ 9UP!0AD-YE@-P@L!3U+0=G4 =M4 90<0"G.Q(58 [X(> $0>!Ma
M=! -4046D 1CP> ZXN 6,*X[TQ %8 %?,!87KB,9?JBY%'^0  %HX #_,4&*z
M0R *P#D:@ ,8( =(@ TN8  J0 <41Q,LH !6( A68 0!( 4>P 44H  .@ !&y
M@ % _CCJ$ #PP !^X (8@-0HH&T#H 50K@!0#@ :"%A-3U)%+E185      Wx
M!   H12D$UTU$@8   QEL- IXX9,&3(@VKR14P:$E1@N8( 0DP?$$89G%E9Lw
M$H8.FC1AYH!@4J8-G#)RV)1IL02EG 8*8,),8&0AB#IS&MY)X]%BR31NTKQHv
M4@>.F3)L0)A(&":/F(9'ZK )T\:%3 4)DMS,Z;,-4*%$C2)E 6+.&Q!:QX1Qu
M<X(.B#-UPLA9.Q"J5*H@=K))>F?A&A<@T)J!.0<-4C9P0*01"2>DVY @PH" t
M\P;H0#D@Z)R5[$9JTLY[,Z/TZJ;CP;)EW+XQ P)TTLND39.!:26(E"1!A# Is
MTJ,VDRI%,N<Y69:.'*!GYI#EF3=-Z+YR_E[-"F)AFC- P^RM.(>.W($(/2Z.r
M+%*R0H:9T73,^T8J0NAKFO=T 27)#!!FG)>98U5!$K?=.9<4&6_LE]YZD-UQq
M&'D@N$#$$T_@IQ]_@27!6A[M35:'6QXUQ 909>APE78@B71>0WB<>)5E9V%8p
M!V9M%'44&R[$F)A-9_P45(U%58<97%-5=8:$*BD764&3334&BB>Z0 <=B;$(o
MTQMN-+0:""YBUIA'(@$% @E0!$$%$F2EN)!. H+ $!Q*-M1A0F>",,8;;;2Qn
M%AF H>667FS 1,9B;#8%@D%G0';GH&^\089*DZ4Q!ATO&DBE8G2(],8=;I Em
MQH:1F7%99/C)@9-Q'2$W47MTP+33?$DT<<2@@$Z5!W)D:670&&D8%)YZ'!J&l
MGH+H$=3>&6B 4 8>EY66%!QRO''&7&W, 9-'ZQ$(ZE-/H@2"&F^(D2<633PAk
M17!\HB;7&,5ZU&P=Q*;7$$%VI-&L&VT0Y)8=<H$D1I$PF6&39/@>%\:^5K+Vj
MIK]RM*$#".&.^P,D _2P)1I<,.LLM"S(=4:>5!@&PL,#G""26FY,U% ,+<P i
M$[IRA?$H2I9BY@:5QR[FG1MT<.SQL0.Y,4<:DU[YIL7/XH7N&SF57.ZMN9:Ah
MZD?H3M9LT6TT%UJ\9=Q!:9XU878L56R6L5S);51DXXP\)I:?2K6"H)X=(8[Xg
M(60G@F F0X2E!B_#XA9!A!%4@%"$#EP(D8037#1<A M44 %%WCW;P?>X#PXAf
M..%4%-$$%%5,X4(04#RN0$Z13UX$%5@$/@3A051!Q1-<1%%%$D,L$;L5211Qe
M!7U2' 'YWHK;9OG@A1_.A?",.\Z"';^[(;GB3&B!Q.7%(QX]$LE#L7SSS_>Md
M!834&X[X]T]DO_WH>CMO.A13!'8$X9T/<1L45' 1__Q4\.Y[3 J@,#,=CG*3c
MQQ3WM\#= 6K%(IU(WF00,X1!*O=*0]:TE0;6S*Q*U3'8SI!%D)]125I8L1,=b
MHD8MU6BP(6LK0PJNHI4Y%(4R7&%@O$" -6#)J3UL0,A34..6'FDF,V%80T/(a
M,,,4EH<-9ND/3*CP(C&<Q7(RB$A9VB.')2FF2VX8 QOJH"LE\@\)88 ;?NK@z
.!B\F( $M:(%%, (3&@"<y
 x
end