[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Un*x hacks for the IBM XScheme 0.17 code
There are a couple of hacks needed for U*ix. The following may
save some time (uudecode, then unarc).
Name Length Date
============ ======== =========
Makefile.unx 316 31 Aug 89 - has cflag "-DUNIX"
downcase-name 482 31 Aug 89 - downcases *.[HC] file names
format.s 4733 31 Aug 89 - simple format function
macros.s 2633 31 Aug 89
qquote.s 2743 31 Aug 89
utils.s 1466 31 Aug 89 - when, unless, ...
xschemerc 1111 31 Aug 89 - my "xscheme.ini"
==== ========
Total 7 13484
Notes:
I had to comment out the "#define MSDOS" in xscheme.h.
You may have to get rid of the CPM/MSDOS ^Z and ^M characters.
I have done very little testing.
You will want to change the pathnames in xschemerc.
I did *not* put in the tilda (#\~) path expansion hack.
Enjoy!
-Ken Dickey kend@mrloog.LA.TEK.COM
========================================================
begin 660 xschmisc.arc
M&@A-86ME9FEL92YU;G@ V0 !\3G5YNU3P! ,+MZX&*-#00(2*(8,20$"
MX1 C3((<F<*0A(J!"A0H[#%FC$:($J?T:$&DBI,D6#(^$:(D1@\\<\:@*=.F
M3$ 0,,G4;',3IADZ8<3TG).F39@S-M_@)"I0*<PW8M3<Y*( )APY:=S0&2JG
M3!@R0^?DX>ETCIDZ;F(,/>M&QE"C=-#<1)L&)ITZ9@*J9"GC)5$W:;:6'?.&
M[-*L@C/"E$FSC(Z#*%:VK!B9;PJ#'4&T&#RS9L/*DS]+EL&P!9LV&1%*CI'B
M\>+.-M$H4&W9=4S8+M L%4.83&P%&@AD;W=N8V%S92UN86UE* $ !\3G5X$
M^^(! ,(T+,0:.@C1T038(,D?)DBHLI(-J$&2/GS1P7<PH>C!*ERA,J11Z"
MB!.GSALZ93!J!%'%21(L4ZA4,>)B"(@Z;M+@F4.GCAD78U;"%#+D"9&02$#L
M%#/F#9F4! V"@#D$29$F(6WN'(.F3)N40:52M8K5!9$G6N=P]9J2S)NP!\=>
M1:I4;=>O+J+&G5)UKHLD+NNNQ9LFIU"^3YK4%/RF#=##1+ J3DOFJV.X4Z<8
MH1)$R.*=9NB$$?-8K.:6,3[/,8,S-6:81EK*4,W:S>S74Y(D/)*U;AJ)9\ >
M!IR$BNK":>B4W@O8>-K"RG$G>7+\S?+,":D@42V1#IKK,)\(4:+ZC1@UX*=
MD=)<-1PYT--+*1*$B&HY9<*023\ER^2Z<^1QF0(* !H(9F]R;6%T+G, ;F%M
M920( ?$V5@_K=]$@ ##L4[ QY V</'+2G$%#!P2*(2E Q,B! P<(,7E
M+"GCQDT9.FA $$DR9DV9/ )!4$&39@Z(.6_,T+D31DX9$"U!P&$39DP9,CC=
M@ !Y$TX=,6S2C %!YDV;,&F$PI'SQDX:,C^'H@E#)R7(G&[>T%%ZT^;3J"ZC
MTNE)QX7 E%/JP('S1DY#HTB5OHPYLV:9$ H$#D029,B2(D1 &'DB!026*4.0
M%&E2! 0,%S%LI+Q2TTW4,R% I 211.CC,6C*M+F) JN9J#?'LL$*8@07/Q%1
ME(GSH_;MH6EFEXGX-*.8FV;"L)GS%T0/'R#J, =1)(J5'Z-/IU[-]$T9EV$;
M;K5S<TB0*44 "VP!28%BQDV"4%$ :4#K,J\].C13]VG#-W70810=+=!E%PC\
MR>%?"W/0D9 ;9X#@ @@UG3%'"NXYQ,9'#CED8$,HI&&&0[OU!J" 1985T,C
MT)';&'7(89,;!)XXH(IV161CBA^F$!&&[D%"P'WYL9:@?S$@V!]7##H8885L
MY-$@AB! 8@ *&SI8QA@*) ""0X%Y61^6')T!4@LQM7 DDPT^&"$*;7[6PH80
M@J2D@FPZZ6.85=H7AAMYH%93"V2T! =7J'59Y9 \M2$&&6%X^(9+4+;DHJ)6
MAC@B"C[TH-.D(-!I)AIHFJ'FD@3&"2&&"7A)H1QG)-4@" -)EU6"(/C1VQAO
MT!A5'7_ZU*6K9(+HD*!R.*3J&2W8-.*:J3KYZ84_#KLH"KRZ08:UD!2 @FYQ
MV+'K5LG:AANW5\J&%:&&(AH2"BM,*U%$E4[)JIC>EK%<&>BB<$="=)31 K(@
M$-QCOW\&2BZ[<QQ*!VH.Q4N72S'0"ZNLE[9:I0%[:BQDQQO[2"L(' &5,+(,
M.YPHID.J*W"A#;N+J;>-/AHI"A._&JNEK%9Y +:];MOJMYW**^J9:4+;I)OW
M.O1O&@$/3*YO?GR:X\@N4]A0R2#$])*#G^'DDAK2_1?@@-;6VU"MS &%JZX%
M]SJ6&\"Z(:S&]^JVK[7%=HB"RU+7I"S8$#:+WYT+MAGAQ")3"<D$0&O+K7TH
MK-:&'< )%WBR)Z!@6Z2V!2'R0$$ "D(++=P) AIU/.7&'-P."?-.862$K>!J
M1W2PQT.>O/#L[D8L;\7'DI%L[DU_'*:8E%N..> $=VZ;2[9-,3H(4_ T!TNO
M986ZZH?*P9SXL?L+,&MCX'XQSU9G+&;O@*(,_,/O2@PJ\=@:KS/&';\/I,?-
M4\WS@K.NZ'F."T"Q#1&N1X0MI>$I;"C?['ABN_0=;WU3:E_RX*>P0<T/8O :
MWHOTA[S8_8]YWW)>Y@HX->EQ 0^^P<+UD% &/(0!*V-XH'*"1(&^?6L.82 /
M&=0T(A48(0E8<$(5FM""Q4@A/E10P9ZJ9 $X?20T1D2B$IGH1"BJ 0B* $;
M\"""Y%UI@K4[EOIVEL'=B>E*S*$#%H^8Q"4V$3[R^2(0A4A$QU%@@RCPG0?;
M13_AY0Q_8R A!EVT02#M ( I%. *!69 VXC!-T*XGA"B4A.4# 02/<R20^ 4
MQ)\0$019K",7\1C%/7VRBG&<HQ;MV,4\@E&,8BBC0#QV1D-14(T79*.+-+C+
M-UI1CJBDXQ;O^$1;[M&49C #AA[IOV)>2Y!R2%GP0GC($0:3?]/DW32M.:;*
M21)Z+3S@&WSSA.L]80QKB> G0\FA'Y9RB-%,YBQ7V<Q63I.*QY2E*IGIQ5NR
M(9?A-"8:*[A&_A&3FAL+J#X'6LLHON2>?20G 1)ZS?C]CI @M!_%O+D_GG%4
M>9.+Y.4FN3D0N' IMH%(1 8R!'*QI0QR*-_3HD:PVWV3?3T2#>\"Z=%!QJR0
MW+P?24LHSN7U2:4#U%PEN0 'WT#A>E!@0XQV.%01.<13/BUI!BO6I?J,8$0#
M"0N%X)F&7I75/CNEY-2FIT% 8E.;2!7IO(KW4WN9T*GEW(VX6$HP<\U4)03D
MUU#CVE)S$7.H=_U@_40H5O<MZH1/!==@T2DXVY3@L$XHPQV2XA&=GJ^Q7/#(
M:&'SV/<1M8/9E*PAE5K91@*6<H+M#6?+Q84O''8*A[J;:QE;6"[$S">M[2AL
M\1I2RN;NKRG5K&X3BUH3'-8(-MD>:6_R/2>(!019X% 2VK 3U7 D8$(;[FF+
MJ]KM)E=(KY4?2"?;S=I"MTJ0,^=*=^O2 U+!-XP<&17"<,D@7<!\4)-K9[G@
MI: .1#7'P0I0UB(& \?WHT=M;GV?BU]'?C("W[(-'PX+A3"<X293* ,<<,J5
MNIPN=>,M[VIHQ)6V"@4K*];6>053I0H@F*=SY<(/ZJ-!T>S@DSZ.['QG.U+[
M'KE*$ICFAT/,A2/XY@PDM@D=Z)"' CVH(7N@0A]&%H0YS*%UWP$!%*! (3M
MA2=(*8-;G@P)'T_E(USVLEJ 6=N'(OG"1E49?6F;O[XRDL>0B/)MG[P'$>A*
M!$$AB%/:T"L0,,%08@.C'Y8 Z:BHI _1S2UA@_R#PT:E4#9A:Z6_MQ:3@, C
M>&A(A2CD$FA]S4UN@6Q18[ODI#:YK 2(*+22%-;<\;6V]>&6!0;BW8#I '%<
M29*68_2ZZ-"M;3J#75-3JB_F\% W,G*Q"*#U[#JX80UAN8-0LO:=]*T8TD':
M )P(QRQG03M:L)I6"I(]N7T'^\':BIODQ'2 ZW$-<)+ET\<20.0P#638(#B+
M4+H$:%YG."0PV)^4,F;P@ \[,(MZ.*HB#A4W!&E($%?:LK+M. )T[K#3EH-0
MW*Q5[J9NY0892Z6=D(4D@/QC(^-:EA1P6*Y!2P$:"&UA8W)O<RYS &YA;65U
M! 'Q-E8&R"20H PHR)0QD\9-&1 EQKQI R<-FX,*&3HLDT*!@H #"QY$
M4:(,'CAAW)!IT2;,&#EOYH#P"$=.11 @4*0Q$Q-D&CD_5GYTJ0 $) (R::*8
MDZ>-F#=L<J(8$T:.SI8I7D(R@.(AG9@H6(84Z!3%F3)7ES9]ZA+$B1)$W= )
M@R<%I $](2$(^G1K&3EQ+VH5>9>LU(M6L>[E&O-K6*9.698]6_+D&[=P?3*@
M._AN7 <<!Y,TB5)EUH]V$^^,>GGI&S>>$?N-V1&TR!9LTLPY3$8T5$@'XE)M
M#?)U[-E^I1)03/JB0((&66O^?95-GMDO8\ZL&>9F3N?0XP)5B%JYZY&-.\=4
MC9U.5.^]1S(?7QM$><C:WU<TGC&Y:8D/R8(8$>(-'#IIG!8&&RNY84=T=&%D
M1AAUL$%'"V^(H4898]"14QD&"L=11 WEE]EWFSFF$G$:)K10AQOQME6(XA%7
MX(%O6:2@1B"$]X99*!2' AQU7'6"C6:58&-/,;$1AE%DA!&3&6_(T8:&ZYW
M(QUY526;CW'4\08=&S'5'I-.DN838%>:E>66!S'&V6-5>OEEDT_^)".0::V%
M!Y%5'2E&DDO"*=P(9N@()(<3R=%"G6SA:2222J( YI/:60F<E#U6&>697(X7
MQIMA_B4IEEIF>A:B;;6Y*:=Q$B CH0\92BH(F):AJ)Y\.NHG"(^2E@!,%[%Z
MUZ%YJ,66>[2&,2NC?889*7=SZ';"HGL:ZQ-5S,8UEY=.Y6KMA^G!5N929*#J
ME@&KGE@HL,+B <)Q&AT;;;*0^K3=:<U.>P*[!NEF&FK;8HNKG]NJZ-NW8X2;
MK9]3$=FKN:VB:R<(<X 5@KNU:BOOOO5.=4+$=$P\+<;];GJPLC[-);!Z!!O\
M;Y@)TX=<BMR-5)E3[^$9L[X[5H>3>\^9%]<!(/N40((V[2P6S3V+"<D"W*ZX
MWM$\0R<5T^0E+=70)KXV,WM(0R?GQV6P$7'4YL6X,'Z_OGHS3'DB:RO)/V%L
M5LRLQ=S"UN".'&<!%NT A5H',0D&VR\<4=!9X"@D$ KUR42XNZ!]8)5*DP.
MEAP4@G!'&"J1(2"79( @1AXZ*+"#Z2 @T=2 H:ONQAB!M_"$V!BB#OA!5;B1
MAAUWS9$&'7F \ 9-5* D4N!IM&%[X" XT>0=99R11D@@)($:@'3T>-#P?U.(
MAAM(O7%&'J@3L;ML ;HA/$U-A$%'X"4!.$:S?CO1P@TPS$##W\:3@7P;S:,"
M$E#G/#ELCGPNHU'3? .6%G#.=V=P0QLP=)6B(6@Z.;,.""RX+'KI2S4<_-C)
M6)02KFU09_"1EP7G,R/[C- J+7C4RN(U'@]>3#46BUNU/A88%%2E9YH25XQ*
M1C2=72=I52H)'!"RG 8^, T1G*!:R/87^>CKA2D3(M_.AB)7!>MA@7EA [5U
MGRXZ;%B48R*(8$A&7WDQ79&C ^;&H,9NL1%@%P$2OLK0@H)PZ0QR"(,8'D*Q
M1N5P7MVY5WVZ)$15Y7%-ZZ*0D3!72'BE8#^!J@@:"'%Q=6]T92YS &YA;64B
M!@ 'Q-E8*/2MPH P[( T $25*E2=4BKB8 @($C!@M8M!H@2,'B!@Q=,R@
M 2)($Q!B\H!0\@:-FXYRVLRA(^>-FS,*%.S8 :(('CAAW)"90[!*D"E)#"(L
M\J**$Z$)BQX]F!!$F#%CWL@AD^8E"#IO0$@I8\?+#*UEX$BE V(.G#)CYKB0
MN8,M""IHTO TDX9-&1!C<H*\6W4,FSIDRI!QRE,NB*H@L$P9@J1($X5)G"1A
M 4(J7KUB^+J)*D>LG#!T!(-P6Q4KB"9!ADAY,F4AY3MIZ* !4>9FSL!R0)BI
MLYE.&I<\<^:Y@Z:,G+NW0;1YVC*XF=!RW(9Y;AQ$8+IN8O\^^<8,B"%/FD!)
MPJ2(E!93LCBA$@1+S( #BV"!$L0)$?,MC!@=0B7)$R=3Z(#7&VW 45<88M@%
M F^X757<@,<EMEACCU&6UTF9T69'&'^!)IA, AVF4UAEC.@&'6R(U-UIJ:U6
M5AXKE=%&3"A<5]5=04 !11'VM? 8>EE\A,(9)<Z11QLII #"3,K5L=)>3H%
MI!M&MG%55F'8\48:@^4%!QUU1%B5 @E 0@"38QA'1QB(H8"3;&^P\<89:>3%
MAI)SQ%8':-O-0:.-;MQ54 ORT6>?>0HTA (;8;0A!AEA@+!H"F0J:A=+:%4J
M$ J:$H!"''&T8)<=#BE)$X=WA $C"#[TX%"G* PZ1!#G#4&$%)H6L&BCCT:*
M0FUP4)I B! HNNEDGX::EZY*2LIL[3=E() 9(:X*:@MC$%&LZ ^NVVTP9I9
M[4"2IN$="LFYR:8</X" +;/"FEGL +_&T2X*T+X;AAQ*A@''63JUT$89+529
MY+C%&K"H7&2=X"_ @^'[K;[\NKOLMO$.!(G";# ,P@E146EQMON.K"V_QL):
M4*Z[.@JII, *2ZRQ^+H4,0I5BA%GNS$C;.;"3YX01QUOA ;NP65J3"\*=J"%
M%;M'^^QIQT%334<+/C0]QM.2=LNTTU)A;?71XB8]+PKH8M4&S](N"4)V;%#F
M1AV.5F>9SG&6D9/4/9N]:;WW0AOSQT.'D>?019>1<;&>SE$&'2&,/*JD,:P@
M.5=(6SOUX\EBNR$;U1)PMKF2NHKMY#&8JAQBGSM%76Y]A5[L 32U@'5E=4#7
MQAM/CEH&Z&6*#LD!SN(;QK<QQRL\\11GB[RT9<N+\^.1G\Z5I!%9;KT=F8ON
M.8>9*XVV98 _6_+@)_"&>&C*EV]\;NBK3W1H!</1\1A5G1$^X]-#?CFI*,C>
M__;W,V2A[7O D]>F2(<"TX5J<C!071M8QZ'1!&]VM;O=&W)GG-WUCBN_D]WP
M4,# ,MC+?/!K6_K<L#Z"F>5^^8M7 <X6LN#\JT1D$)@+CV3!C4FJ!,"ZC<"8
MPSOS/2]< ZC6##<%1-L$;#EC:(X14XC$'BY/6223@_.H."T"R*Y_U7O@]5!0
MN0$J;V2?(R"]?N<XJ6&165LD6P$Z):RS&?!73LR32[H6!Q#<B5K#(J%WQE"<
M,:RA!=@*(I6VTP(S, HFP^(?(=%RR$3F<3O@RHD>W9 DMQFG);G9HQG8])?C
MD"D!BMQD%_]4!NS<A3%%&,(26C"H0M4'*/])E*08Y3)?]4U1(;N9UI[&MF"=
M\EF%K&2H4HG)KVTM;#X86\P F0"T@89 Q909"$9@!IG]B@UMC*0@87;"]QW-
M*3=\X@Z1=$R:?=(R(C *4HJ 'B@P(0E#B,P11+0@*MFO3GI+T%W$DB??N$0$
M;AS;"EM8/QA:16)<I&:Q=$6^21H2D<N\Y![-F3R$X2N9&&T!,S=Z,K(A@)6N
M_$YC9$G+*!!J/K?TCQ/RPX0@[',$=% =&;)BT37D#Z4W H$\7VJH^^#*4KQZ
MV:1@)@=0@B">2QD*[NB0I\#TY"=!84H11.#':251 35J95"'.@5[$K4^1M5E
MRWJU2R7]JJGPE*=605#6>^;3"?O<(%6Y)"B? &6>7/WC5^'#(M6P1D!M<!)9
M,L05#NTI-(.!C6P*ZR(CQ<A*B+'?4\I HZ@4J"[&*5@>3A0&/%SUKW.U)$Y&
MQ"^P>M9 =M&BD4AK6KE*57TB=2)N*%6SS\96M+05:E034D^[ZK.?H7IA;E>[
MV_>$B$=$4 :"'5T:6QS+G, &YA;651 P 'Q-E8("(N@4 P*=H ( F+,
MFSIPV)0!\<8,0S9D0)B1DZ:,&S)S=("X@J2($Q8@JCAA4F3*%!<*%*!H$V:,
MG#<@[J"QJ $) ,HV(1I(X9,&! HPL@Y,R=%34@/P*!(XY %BC%AR,@!(92H
MT00V&Z 04^9,&C<@6 !Y2D8JU:%%C=JL,,),"D@#4JYL^1)$'3<*Y\PY>B#G
MSIX_@Z)5BU0IT[!/HTZM6E1!@@0CZ#A.L+7KU[!CQY1=/!A2 05P!3)),H5*
MBR%/H&0!T:(%"#EEZ-21XV8.51!LTLRA$S,-'30@W)2Y4_!-[3*VWTS]O5!Y
M&J]NPK!!J9),&3-?%Z(87?ITZM4\<N_V07C 4H<HW+SAC0).F#1R?H (KYL.
M><('Z(_G^]2X[9SUM6 0''D !=54^MF70@I B4>'@&\0:*!9"9+G64H"35&%
M$*4E04455!0QGW!W^""1<O.] 9&)E_$PQT%RC%&&#P&]%MMLM=VVFQQUC"$;
M;"W,@8907YU1'($N@ "%3,Q1!%TTLWWXFPRLFC;76,,Z<8999!!'0K682<<
M4!IR2(6'((K( XDF\J B&6U.&>.,#!Y% )C790<4&6\$68<8NXTX7)MOQ@EC
ME80AT-]%0*%01AQU2">?FRM*>2B=#08X8(%K#KJ@8S;AE-YZ0+D'WZ1R(LJ@
MBY>2!^I-CK(Q1QFO4C;K@P>&8"F5,^[9YQQ_!MIIB2E6FAB"J=()5ZU@_AHL
M;\,2:JQFR+;ZZ6.[SGF?G83=R:>?@$++9K%P9KH;A!*RRNNV1H4& A12).&$
M::5)44003<@5IIXHP"LOO538BZ^4=,"VDXE)\@"'<@K6U&!L0)7*,%"'H7 0
M'7#4\>#"<M Q*<<-VS2!P@S3B"U<3\T&FQL/7ISQQ@Q_:E,"^)6'IYC:?0L'
M12P'67 9.X'0F$U]D:%;0F$4B,),40G-(,CX@7FT3@6.P 6)N8T)-7\Z\_S@
MCD"W 10=[['A]+)'F=?U5U__'+2+;K?A*H-&!200V$&7@<=."96A0T !F7@S
MOPZYP>"B<_ALL-A@H8#>"L&!$,-;! 1D1N![YCGF?PY-;M0.>^T@^,YL*QZV
MTP'%$) , <T0$ T!U1"0#0'=$) +<(7!Z(L,N8%[7!H(>'-C:&5M97)C &%M
M9<D" ?$UI@5*57! ##M N, S9PR:,FW*R!D3D*!!A&5<I'&3!D0+$!/3
MT$D3ADT:/6$VOG$#8LP;,F5 F'DC!P26*0\3@K"C<$Z:D2!@N(AA0X$"%&S>
MA"$#0L2+.G/DQ'BQIHP;,B_$3'PQL.#!A"W:A!DCY\V<%UJY>G4Q1T2*GT&'
M%CV:=&G3IU&G5HU9)NO6KE_CQ*GSAD[$LF>!"B5J%*E2IDZA2G5#U>'5NF'Q
M'MW(9@Y9LV@'KS7L-G%<QG,?VQ7[=:4<K70NGU40D Z:-'-FUKQ)\HT9$$6L
M!&$"8HV;-W=BAQ'SI@X=$*Y3OH$CTDU'$$[MI.F:T,UQ.&'DA$GH5\Y/E&8F
MID11QLYS/"!&A%C>_'GTLR! H$"1YC8*\&'JL*'3XHT8-66,0<</T+EA!WR0
M%(""26W D08;*>&!H((,.@@A".B]!PD!/MU71GANC)<?'6^D148+9E"'XH,I
MA7?A''FT$9MZ[-'FGH'PR:<5'/*QL9T89(0A'XQMI" ?',:!0"0()Y0P8HF:
MN5A&"D82.4>.)Z! I0+Q??>A>/*I4(<;Q(UY(AIA/ 6A'"HH&6-)(]&1(U!E
M'#>?E/*=4:>;;3#II'%0#I4") -PN2%]M^$IF%I2;@G"H?7)]YN=93Y%()&.
M0F( >7)TU9((8U9*E'ER<"0&A"+PF2D!"\;)I)8;=@@>F >I-49V@<T:HGQT
MA/$@AD:B8-H8XXU!1DL2$NHEB"DAQ%P>+<Q!AQQE;$>@&_JQ\4.N7^Z:7 O.
MT@&MM-1N]^J6RX)IDAMS1#MMM7UFN24*D;T!)[ONEML&ESW^&*1\$AK*JD?2
M,KEN; L.A6RP!!]W DH^YB'?K60<"VR"'=8+@E9-@6O@="-51P>_0/DK) H!
M/\IJ&'# D=BK$-I)Y<062_@J"M]&![(;(@]:@*S=II311AVU@)1"'DO7%<].
*V9GSQTOW?!8: -I)
end