[comp.windows.x] xdvorak source

ramsdell@linus.UUCP (John D. Ramsdell) (05/10/88)

Here is a version of xdvorak that makes allowances for 
differing servers.  This version requires a command line
argument that gives the key marked "D" for a particular
server.  Use xrdb to store the key code appropriate for
the current server.  Note: the key code is given in
hexadecimal.
John
--------------CUT HERE--------------------------------
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	xdvorak.c
# This archive created: Mon May  9 13:26:21 1988
export PATH; PATH=/bin:$PATH
if test -f 'xdvorak.c'
then
	echo shar: will not over-write existing file "'xdvorak.c'"
else
uudecode << \SHAR_EOF
begin 644 xdvorak.c.Z
M'YV0+U2 P$/&SALY8=: 2.-F#ITP;-C, 1$&!!&#"!6N*9-'S)LP<LB :!,&
M#H@W;BBFQ )B3ADY=EZZ *'BA0(% 0<6/)@0A)PR<>JD^3F1#IHR(#;F&?.&
M#%*&(([B">-T3!J2;$Z: 6$4J=*1(#>*%$%$A (Z;T"(00J':!DW=,J(O',T
M)4&,/1V"I#-G)@@J1Y-R9.H4A)F#(/*\J2,'!$N7,%\J&!,FY5K#B]V(K#.'
MX9F!;=>((>,7L-?!39].A-H5!)LR9NA$K2R2*9LZ;5*B/!N8#4.D=](8!4%6
MA-\I#^7(OLM38?#A<]ZT*6/4L^LT&W7<3)" >480+8@(7IKZYA7A:$"X2?NF
M:V.09W"_Y<N":^"V;\X@;,,U_YG7$ZU%QQUEO$6117@I1!M%"L1!H')YC.<1
M2"*1!(=?0;@181EXT($017+$-QU<$QTFQQA(M<:07A&%04<:*&G%H(,OT1&A
M4A.&!-:%X+4 @A)OH)$2$3-)$48;<S@548\@-!%&A#'D@ ,.,]5TDUXOC@'"
M&&B M.4;<.0A1QIGH$''%EV T(,"(! W!)ABDFDF"%%.J5:$IC69!!52% '"
MFW+ P=.+*&&XY)AE\N53&9#%1)H(.^ D$!0OM9'&')W%B!8(G)51'U-AUM=&
M4VF8D4=]"Y)QJ8=IB%%'7/9=VM(;L=T!$E*T*2#<1&2\,89\<+D(8THFJA0A
M'(P)ZI)*<Z&WF&QF%+C01$?])$:$^E46%QDL*("?'6DX)9)1+MJ'JT<Q?1DF
MHG.NER6N<,!1AI=00905J&DP6MI1"C2Q9Y]_'B0H0H2F1-)&$ZVW:%N,SB<L
M2A.%X=&KYK8DU$-BI.&;C5KQ)FMTM=Z*V7L:@H!LH&^XY%<2LLGZ;;AR$1?&
M:G.( ,)S:#P+ H<,8ZH 8E?!X5O,MLJ!$%QY^&6EI &W 8?&P*%7,5-MD*29
M#EMJV<(3X*7E74]?K^&"UFRPM/0(#(UQ6V$\.*3J&RZ@X8,":+NA=AUL.S2F
M&V?$/7?==[.-10PQO("%;V+X37?::R/%P^"%8_&JQHH#WC@(CQ-NN(O25<XX
MWHY#_H)2<^31AN),)_%E'6R(Y*YA#(E4$4E<_K:09F7(BSM<(U&7\[AI48TL
MK%TIH!1A2-%:\5<DR2$6<67=7K$98: HH[*=B?':EEWRS6A_YAK/48X5EO0T
MWQA&O.@<K--1G^H_!354BH$=GYI:;,WLDNP1NZ$ ?,"2S:9:@Y]LG8XF-J&;
M4\Q@NR44(0M?(,(7C,"$(!R!..$QRQ(X\J;"*.4+S1-+!".E0-C8S@E#0$(0
MI  "&=3 !@K88!ZF8#H0T A"6T"A"J70A?KL)",Y3.$*N[ #$.3$-,L*SI*8
M$BS6W*=2KWI80ZID$X;(Y@VM^P+I3/<%M("P)%^('8>"N$,B*H (EQ+:DVA"
MAC"1,"<>JLP<V. BI)A!#M(!B_-B]I5-_; G=H!('<I Q1(RT TI.MH<ZXB"
M*-2'""D P1Y ($,:\B<.:@)!%(I8R1J*I <6*2(7=+45%&"2!R#0X0HC^<<U
M;"$.:0(E&8I8*A"@0"2H5*44(GE#&VV!#+&T81'[<),C!N8P$7E#</@VK0-1
M;RALB!#MT& [,>K.*;QSRAS&,"8X%*QCEG+#52#"O<J<X7OQ$\I/@ >6C1SH
M(LV1T$="XI<L+&8D<I*-K7B'EK.$06.(J4Z)$*,8QH"E=HA46@(/5H8OR$L.
M;8ABP5"0 @7L@4VW:UFDVE0L%*0ADS"@)>92*40IT'(%*XCD1=O4IE9N(0W!
M3,,.N).3)(CS11!)@QZB-IS6(!"C;>IE'EX:TYDF("<P@TNIC@7%AQ2LD&TB
M)D;CV! ZP@H%6%@""!G"F?HD(*M?$ -"QK 1.KPF-BG8J!$%X@0.R0:/=X J
M5Q1I5:1@5:N._*I6@]*>E^0SK5.E:QUM"=8KL$"O7Z :20#;)JHN\JI@+<)A
MP?I0&)&!L7.58UT)JU4I3%:K4,"L8S=[UR]0X;-?R()H!0M9K68!M498K68'
M6]HJH/8(LJTJ;<&:!-0.(;>/M2M8GX#:7:IUM+L%+6J9 %S2@E6LU2OK6=V'
MV$7. 0V8S4E;.^039<H5N:W]PA10^X3F)C>"J"V"><-K!-168;W"U>H14)L$
M^'+V"TA +22/R]KX?D$)J$6"?4N[!-128<!@90)JG8!@K;K$4K9!"6JGT. O
M\#4N[*(N6,/)F>RRU:W=C>M/&]O?^VH!M0].0X3=4&$LH#8*%1X":I5082N@
M=@D5%@)JL5!A)Z!6"!56;!A0>X4*5[8IJ+5"A:V+!M1J ;!2M:+)FMI0',V3
M#%^$ PI,A"(+/\A&%65IFZ3,Y88*-5(KI21'+$D31-XAR_51 1:Q;*$X/S2B
M3AV66J4<3BVBIC"R#%,+?-!G^SEES[PC"1[\3!Y @Z"->1BTHAF-/$3+9HM(
M<NA+*)T:M=94/062W4&IB<C;.>6:\[G9&I4GO,DQ\TA>KE'21IQ1BK0AUA#*
MY =#*)<(J@F46>5(Z=I A3?($'FW#)5CM+K?FXRYE&7&-9@E"=2%E!+60HWD
M3^C F)2$]*AL#5[WS@EJN<A%KFVZLT2'E<DS8[0/.Y,(6YHJQ4QB^\L1^L&C
M$P0"K)UYK2 H@KS[<X;_$)+6#-4T1->-$HJJ=<Y95A-WP'V2+%KH9AK+RNLN
M,RI5,?#<M&X3%HY '1F2STGQ\DRR3Z6 B1?ZSYYJ.7<F;6BD^.CEC4;*"NC4
MK8F; --S4#BGG8)9-T>\!Q//B=$O?DY%M<;-.T*W8TA.!Y-?&>7G.\/*>SYS
MA@P]YBX/PZ)K#AY\NN'K(-AY#+B>@)\+VW1!?^C7 8NVK2SP-R(A0A&$4(4C
M8+0M5C0#"D2@:%$QI#X/!64)N 6"Q==G\5QP@PAZ#I:QP]SP9Z]Y?8 N])K3
M_2T>Q^@DI9R&S1LU)V]JB(?J,(:6N2$F<EB6A:3>T8^"$N?(VSQ(1<J#VXO]
MZR=-*;7%_&Q;0MQ"6UA#FG)94A"8P 05IW-)DI^F$(#2"6^PI$?84-$$0!S3
M77Q#EL.(.SQLX?C35WXPUZ!6,2MD!:#DO-QKWGX0$#.JSI9DK4L/ C5LOCYL
M<'H"H6ZPLG0E07N(X5&9A'NIH7N@%%(+@3F^9WDY%WQA1GRUA +H!P?4!P(^
M<'W-QP=\$'U9UH$]<'W99SK;UW)M(H(DB'S*]VM3MG!YAA+G9W'IUP5=T'WO
M%W]OEVGS!W/UUR9E,' 7E0!9 4K?]X/A-WYB9'X$*$4W*'T<J'YFE  9J! G
MZ!J1U(/C,6QQMVGTUW)%Z!(L.#*VI :[UW\C)7]B*(3]AU*;)X>N@5(J=89M
M8H!5&$P;N 5L8$9U]V@FA$AYMW=]AX<FLS=T('@B@'7640)S,&B0" )<0 <H
ML'B2>%F1-WDRQU+!E@?#5FS(L3=:UX?*EP)<YXDR%(K9QRI\@P)Z2'VHV(EM
MP@:;]WF:42IG>'_$QXO$E !BAE%8, 3C5@961R&.^(J0=E@UI7KV FIW$'4_
M-7%F]W5L]X5PUWF7)W/ J(?72',P5W8,6!AJ!UC": 0_408H@ )<XB4J$$D;
MF%84)P5%."_+XA \<4YRA07H6"#KV(Z-\8[0F&68Q8^W<5TK)X\T)1!&<!#6
MHS/MZ#U]06N !Q>,.(E61B&WPR*O01J;2'E1^$U;V$H@H&]DD2 V@S4B$ 7X
M)@*8M6W=!@+?MI @0"DT6&_L,P8H8FZD\5-1QCMB0!5? !\3@0+P,0:H$B)V
M<($L)65'.80 21,J !]V@&889085N8BVY#8O(0?U(0*0&)9S()9BR8G V"94
MN04PT$-X:#/I-#_J0W8 -")TX *1=Y=T8)8LE99K27EM8C-ZV28.!$$21$$6
MY)?$H69YD%BI\04FTD5'P6A?M$=8)D%>)Q544096@14@X *>^9%M&7E5L"QX
M$!JC 3Z'-"[UPQ%?XA1V*7DO21TQ&0.1(E4DP1!&&2)("2)GL)355FM/^9M1
MJ0)3J916.6:\ Q]?$$BW409[=FVZ.5(S$$D<(ARV%)181I2Y>0:[294I@%D9
MJ#=CX#3;:0=;$ ,]1$D/%$$35$&X!0+6)Y,ID #55IVR@0+8.90A,@?;V9U*
M^9W/:4LQ )^@A"F4X0;0V9M;( /I"99X,'G.IYS,.4C?69]X(!SX*93:>90L
MX)WRF!-0@$<H@BF\.1%6TB:[%A:])AZ@)*&"Y)P4MQ8FDCRZ8QTG:FVVE**4
MZ6M;" /S"4>!H2ISH$:S=J-$>*&6F)\;JIL=^I^8A5$9& (KETE8\ 2Z@T9#
M2D=Y@ ).4 5,P%S?.7PL]5!X) >#-P25\3I@8B!"2J2;B%E'BJ$Q@%E2U28Y
MT9 G\A3.V"+?I#Q"=3-U82P[TR$?,I?S$3$_ 0)GD 8QX09R99^V1(!5-CY7
+EF7]Z8$@,)U0I@!"
 
end
SHAR_EOF
uncompress xdvorak.c
fi # end of overwriting check
#	End of shell archive
exit 0