madler@Hamlet.Caltech.Edu (Mark Adler) (02/28/89)
Posting-number: Volume 01, Issue 178
Originally-from: madler@Hamlet.Caltech.Edu (Mark Adler)
Submitted-by: madler@Hamlet.Caltech.Edu (Mark Adler)
Archive-name: newchdir/newchdir.uue
[
From the documentation:
C.COM is an enhanced change directory (CD) command. It is used
like CD, except that abbreviations of subdirectory names are
accepted. Only that part of each subdirectory name that uniquely
distinguishes it from the others is necessary....Whether changing
a directory or not, C will display the current directory of the
drive specified (or the current drive if none is specified).
The program works nicely. If an ambiguous prefix is given the program
prints an error message. The executable is only 828 bytes, and source
in assembly language is included.
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.
checksum size (bytes) file (between BEGIN--cut and END--cut lines)
11317 8595 this uuencoded posting
checksum size (bytes) file
9252 6215 newchdir.arc
-- R.D.
]
BEGIN--cut here--cut here
begin 644 newchdir.arc
M&@A#+D%330!>7EY>7EY>7A$``',1&TTIM;(D```,#13`"7.F#`@;,%C$F"$C
M8,`=((:\@9-'3IHS:.B`0#$D!8@8.7#@``&B21@Y:T`$(<.FC!R24,+,"4.F
MC)LP+"(&>:B2#1L0%C'2F0.TS!R7=LJ0<>%0`0@Z:>BTC`BB10L0-M&$<3-&
M*8@Q6MT4!$$FC9PR8^B\D9/GZYLV;;:2"0CB9AN#0YJ.>7O7C<8138>X&/*D
M2=6F5-"D(0I'SILS<L*T`;$8Q%:L;L)V)?,U[-BR9].N;<N1B,>]<.6Z()E$
M8^4Z1^<J8)-F#5XB.<O@Z0I'(QVM&L.($7/63IHP4-^X(?K&#(@Y=<2`1JN6
M;5W)1BV?M3R&-QVE3!4\<<.F[6_D(`;*T=@<:QBPSZ-/%VW=KL'S&NNX21.G
M3IGR9"T&E5AU+(9&=E$%9(9CD_UFT!L.RD%496Z@9=1,;*T&@A%K886'9'"T
ME!-T<,#QQE%/'?A5'7*<Y1=9%B45D%9$_5;9?-69=U89.C0%`A<@$",,,2`0
M\<04=)$$PC!$"I&$$T$."0(554@AQ!-Y.:7D+"!`<@"3)04Q11-)DL2EE\`0
MV4005"`Q1!!$E`E"FB!4,84441)9!15),$$7)`S0*8004^0946%0V"F%%7]2
M(&@53/BI0$")V92B0:C%Y089/4[J%"0(C/%C'5R(46I3=Z3A$PAQV7;IBBW:
MI!&.H_VH*!>#3H$KI$QH6*E;J6W:Z9^A_FAJ7*BJ^I,;$':VU5@.!AA:CCF)
M48=KRWU'$PAGI)'4JV?-8>)R//H(*JY/<A&7"BZH0!E1DHEQ41UOP&95"U&Q
MBAQ81ND0YI@LK-GFFW%Z6JD;KV8JU["?%JNNNL@ENVJK]ZDX!HLNSFH6=;6B
MZP07`KL)IX97'!BALV*E(99E`=%J78?,TI'3$""DNFI9XK(1AGD68RRKM!R_
M[%RT9,181D#BHI6&&6EXA4*'T5X<ZXM%>VO0TG4I=S5128^Q=--DI!!>0%!<
M.^`9*5;6V&.13::<92!($81A.*<DUW-ET''VJU"PB81E)3K6V''?E1>0S3]1
M3)5,()@A4W!$A9M&32\JO"E1*-#FZA"FC:T`8)X^Q!,4CD$F&=YG]$5'>#OH
MA;KJ=,D$W5T13:'#&"P083ON1>S.PA2[-R6Z`A!-08<<=:3%HD%F="@$%&0A
M%T9X8L!!AO3/'9\\74QO2I88(,@0`UEUP+'1#QXI"<(.1JC,&=,2RER7;AH1
M0440X36.W/'?@_!#EPW801#T9A%K?0<$[6':5)JGGZ4DB0QW``$-R&<^%*"O
M2\2C0AKNDI/K?6=$:=##@YRC0.;5:U/Y,X-]^K<0"IXO?239@1.P@T`2JLJ$
M#:0+'59(!O"UD`SE>Z'Z=D"%,K3!1)&QSDR^U;R7V"=_1;-#__X'B0?L@`A&
M>PX<E,8TKW1(:AF#D=7R-\4N26`'*%`#;'SS!GVY*E]E2(H;4A"0ZGDP#)@A
MPQR$1SR>2"18G*%-A?*W%K3A``9H",@8VA!(X?P'!&+(PW?XV#KB@<!X)V&/
M<P93&+?4A)!R0%L,8(!(I-$ADYTBB1J.^!6*K*=,/?S(#%AP@B)D9BN;Z0QH
M0)`4":7A;3%P`0Q(<@)8@N\$$G'E13*RD8Y\)"0C*<E)4K*2ELCA!`J9Y2B-
M"8(3!&%50<E(Y(R"%/!@<R$*@0$WT;E-+?7O!%5`D8V(8KE`UN8VN=E-&7J3
M(O3DH5YD:6/,0*"5;ZD%!+"I6!F*Z<Y8LE.=#3WF'=#PAJFLL(GN@0]TI+,Q
M^N1!0^,!4+34XQO@('0__?E/'ABJ)(=J$Z(M/>;D9/4U!&ED06]Y%80.)*%W
MS4\IYESG2VFIA1.TP`8TH,L87$F'5%:26!`Y2G[@0,8QL($SD)B``.<P.Z\<
ME*)739%CZH"1>I54;:5K&QDW>DDHL&`.(32(';&G)`'ZY`UC0(Y!Q/4>$[[D
M>=$[)1G;\`8I/N]W4$A22_!(!"RP8`O/ZX(+NH=5`^Q@"GDKTOV>TL9H458[
M99A>D@@KQ2`@02%!2*265*81\:D6JMS*+!A_5K5OW4TMI_Q);8TRV,*JY+0@
M42U)6!N^&`B75;XE`A-8$`0F`/"R8?C6;AO7H:.T)"T!FL,:R*@R404!"Z/U
M+62A(-DH,E=2)"'M;UD`@R*@H4L,N*QL?4:U+!YTMO6U6D[4.`<VQI8.22*N
M:[MDQ5?A-@S+JD,;Q."2&HHQ*7/HK12'L-SF/G<*T;T/A!#LN2XA(*J9#6(]
M02#(,N3$1,2=0A(XVSBS]#=K;FB!&'3FANV&5XHJ9D%SS"#5KS!2L6_0(_@@
M$8$='"&S+1'+;RSCO>_(H0TJTRN)56:05"T9CS"HJACN<&,0",&QW^UR)`_8
MFY=L0<4K^'(7V$N7Q8@AE219I/G&;)`R@^#,25CS";I9)C54",9B*%-W+YF$
M/K-R#A1=S[L"[11FN>'-YOHPWJ[FG*U(4C$K>]N(2UQ55M(Y/?S#\YIA"@(_
M&^0D9]BC.U=I/D2_X0Z[A`3QDN"<F.7D#&UT=02C1E^-36LT^4/U'!CF88BH
M+"K'H8T(TX,<-)SX#:QM\$$'\AL)%RD).C8#CS-+[>.J]]-VW@(1\LQF3Q4;
M!&5;E5D?;&+*.*=K-76@EN0,24G6.=1HCH&>=<#24O^965$LDWJ;^U@5=Z%,
M=R-X#8SP7D@L8`<2<4,O-<*&5TN[C>7;XDOR>A0RQ@=\!/>F46,@\.0Z=L<]
M=HD<2.Y.>A-\?)`(X!`.-(:4B.&$>O2X&L"G\C"4R>7+I3!\=]"$-4+2("WA
M:C\1UJ$R]`?!+#ZP;HT6X3XS.*!K2%+/X:Q*5JH<#P]\PQJXKM[QEE<.=CAO
MR>TPAPA"`@(0GTA;IML2O37X;GNI.,*FW>S\`1SMQ`85B"F-W.V<!V'\#0Z[
M.SUG>X/:S`8OMRK_O!C"GL70K:8HK,V"P1W0.FOR2_QS-`\TC^:O\FLIE[D%
M3]V7A!8^)'4PO+O(F6[GY+-XC`L=P.)W/$C%#FP(O*3A4`=U:WM^OF>VHMO3
M;8^K]\NY6S&@=L"$.#X2Q7YI,(5>[64L.-^WIF7O<Y.P'Z@@.*X!U<A>]+.Z
M,E5<R%V"^Y%OZF+U:R4R:7$)&8GO$SAPW<?F$W(NL&>R)E^$%Q4G`"_IYW'^
M9A``!R%R0AE<\5OC]VYOD!/==1:JDWYNP7X>]X!-)2?]=2)#9D7&DWK.@G].
MQH#O-P<E:&2952')!Q8G\1XK*"=`1TM<0(#$@UF$UVUD\1\;%!4-UG3>TQ[]
M91%BP8!J4&?%9Q.RH3XY>`(OT&^JY(1)%H5*DH.D-GE8R`;FXW">5VL0DA-[
M01&%5P;[]X3"`DMH06@$M@-0`&TO(@;OD1+W=7\V*&TF!85>$14=QGK81W'6
M]Q,#\6(U01M0YF0C4@:$MT(1HF'ZLGMHX''T!FZAIF8Z:(5-^!QKD`;6\Q\_
MYVF.%VZ:2(6<^&\G\HEPD"3:!8J)^'^#]F4XR$K0-VY=\G`^Z&Y,=FDJ@S:'
M6%(&D8A#>(/NU(!9\XJM>(REQDI[\2)B^'G,DH8YX2`($S.8AC8'I7N\ER3,
MHHS"-WB\B(!$(0(N(`((]!+F>([?)T6-%7U#MXM8$RTK5!D(IEL04G7NQ%;O
M2(LMQTK*Q5Q(T&>J2`=DD(^C&("G-0,7YHCC2`<)B$!_!C5WT$8'.10ZQW,?
M@ETQYWFN`2\WDX_W\HQP51,OD2\(=A8TT1;<>"#R1A(Q<Y'#%FGBB#7DR&0>
M8H.3"!\,UD1[%5IR`!:_Z''$AV@J@05=X@#0)5W-LGY^T8[U1F:A-FZC%D-%
M]&111F9]MW9%<G+:UF-`&$-$T$9X]%GPTU]0.02.%0,WT'`/US[>8VD@\(E'
M:$-3H1O>06*.Q`;ZJ"0#=UHTX%Z"]B*N528F$H!(644[(`5&41W#V)0GU'ZK
M!CXQHQLV6";?\6)F-UG[(P?I]%[K(X_.<9-XY#(?U6=Z`'J6F19:MY$A>(RL
MYA;0&%]%X)H[B0;W<I#(IQ&QUQZHIF"R0D:5Z9KA"#A;Y#WNTB'LXBX8=10G
MT8WNE)D:$7ZFE8L&R(MR*9,2>!UW`97?14OMDHJI22/T8YV?-P<7>"G72$,T
M@I/T8Q-PI1P,.()M%X?2V$;ON1R_Y`8Y$08E`H4@(`+L8HY)0IZ^1W;@=UK#
MU)%!\)_>(Z`BP%X>1Y]<MGJ25G%BUWIPTY)0^8XHQVW-5E=C"3=F67]IN99M
MR97A%YC')8&M95Q6ES4MF210<55FX2^*B5G/^5[LIRIP8YJWF1WTB!T,*)UW
M%EF<24"?*2=^EIJ5MR\MBERE!9@,UWDC6I;NLYL,*&`P"IN/]A2J`AK>^!90
MBJ-**1'%1P9N<`+T=X2#Q)4Y]J$:H7(-T7+WF![7HFI^Z5MQ^I4@^AL_=Z?$
M-Q1<Z:%^JGYRP`9F@'E8T2)@9Z$0@6N*UY(Y@:$I@5%X=!3/R!D<VF9ST)((
MZHZ.I6+QF&':<0;`^2*#J'_N%UJ$]EA(JD(T5%<89E`J`HDF=0>,PT`HU*J,
MA6V;N4/8P95JF4UE<A;F0UHN"*?8UEA#QY@CN!V_N8&K*@=DI$)J>J!R\I<L
M0`-56H!7VF+>(X.2J3Y<&J4[ES4RL"ER8J2;Z3A*.DKHFIK8Z@:^1Y/<TBR9
MBA;*P:E0FIN+$2([\RIGZ1L5R62<<:<[Y1*PU9+9<3=G00<L@C!6]EZ7H7)K
M`95]NFV\V6R!NBJ#JJ?IQ:?8)J>-*@<S\+&&F*>^^JK!ND*T2GH%>YN6**@L
MJR7Q`H;_IUX!B4T\>%FD1ZXTNZT)R@)U:JZ$V:7JLU@N&ZOV@8,V2ZCNA*TZ
M&X=,\`89BJG8V&"=RHS<ZJT-EP!71);BRAGDRH`N6EQ16FK@$R_=$X'N&JN=
MN:3,J`;TNBE@R*2'EFC!L6!@J#[KPR$-Q&0+^Q*4.GK<!XA)XK8J$ZI=F6T<
M^Q6)ZAPQQ)@2*P<4&Q7OA;'6RJBNIFA?AZ_3J*G]>IO]209F6P81U)(L]D1T
MP2SKRBF%.JK2%U^U>FJAE*J\28?&J"1,FV,O.ZLQE$PL":5>`8EMA%^$F!0_
MH3+,5FV%BFW^&&<4H;-$RW:,)H6D*)601VY=B(Q+E0=YZT[JE6/..GW0ZIBG
MJKOIP;NL"JDDAK7F\S8DQ1SOMD5>0WO/^UZ94XCM&VTO(3O`R1G..VYBDR3/
M^)I;N+WWUKU5&9H.B34`ZINYJSHZA[L%P:[_V'C<>V>1MV><B,%0R*CV^GL_
M(89-D'KWLC9=H72*ZQ2H!H7%28-B(8D5$D'-)V:E.)7>6U=7"64WH970JR4\
MZY61&Y;#ZQG#V%$Y8FWA-P-"<%SGVF6&&KDJEU1:DJZA"[^ZEC"]5GI-C#2:
M!QIPQK/+M9E1U"4'`(/J]\6F:6T;VV.+Q!E#5#:NP1Z]E#!\<3><UF4KFJ*K
ME;3>9G*0FW(M4@-)HL6.2L5GC*1I["5`RWV[148TP1D]&P0CY\>G=;1I6YA$
MG%S+=0+\%F""S,B;2,HO.L@X5K*'ZF-T'+/<I[Q@#&P('+4B6[ZL'+EC,+FU
M#+(W.UR$B4AQ.)9O&CH*\'5E3+*Y`U[S9LM^[%@T,`0P8%R=]\-9666:>[(9
MB\IJRT<AFQZ.(2H5<A)T44GK<TD`FH2_:!D:0:H'U5\'>2WY8\XA:[WNU(+9
M2Q)&2G#-A9IX.A1O2[Z@K'8"/:5&.YBI[+E\^\]S,+X,W3UP%K$!\<U0N(Q-
M44D007[(=GXBQ!EW=!C'W"+C$TLG0'YV<'X>G46SEP9YE1QKFDWI5&YT^DY.
MD&O)\UY`BDT0I7(,2=(^%2_S4B]S<"_YXK##UDTRW2(31-(FC=*SS!;G-%0[
M?<CO5`4W,6.26!-.!L0*!2MA9)H,M<N*RD)234D\8=7'9G[*YA4?W0(3':(Z
MPV`_06=\)"I0J&H!D<ZG]$H*H`$:"$,N0T]-`%Y>7EY>7E[>`@``<Q$=31U6
M/`,```SI!`1H4,0-FC!NQI0A`V(,&C)IY("P4T;.G#1OW("(X0(&"!!#WL#)
M(R?-&31T0*`8DF)C#APX/C8)(V<-B"!DV%1LH"`(&S8@2IZD,R=HF3D5*9)Q
MP9-G%:0@Z*!)4W3,FS9M$#)DDV9-&9!$6(`H@T<AG)12PZ3,\Z8."#)O0+AY
MD_(@Q:AQZT"56H;G'31O=,H-T^:KF3<2RX1Q"&).'3$0Y9090P=Q'A<?G[AA
MDR<JFJ]P:*(]F+*.FS1QZI3AS#,-F3)NZ*0QD^8HB#0IS<BYZODKW<\6;Q=U
M4V;A0J8*-/`;Q$['(G:-K`"@I:%9"%H9K"N"!@21$1RT'&A'Y@L0`%:8%F$S
M!@``(!X@Z@PPL@[?>P#RTZT(\(L'`6,%N,='`#K4@8$B!)#P!0M`Z.+*`#P$
M(`<!.@1CQP#IZ!"`=SB4<E]^_P"PR#>TG,>#"W4(X`\QJK#"`Q=T(,##"W00
MP`-^[#@!R`\P%K#C"W4@,,0.W^1WBXC7K#"-#M34X2,_`\AQ`10``J"+?[E<
M,)T3UF$A1P+V&%$!!'1@"$E[A)"#BPHH!K!*B:M<24"66UHG!P-ACFD@+4]8
M-P<]OC`S`#J\`."+?^C88F4.!*1CBHC6-&*'!XWXL4(N#0`P#RF+R,.GG3?D
M22:@B#YBZ#>#)@*`I"N@,P@`LK!`BP#62>H!.G=,UV<(<B`@*AWTK&..+HRN
MH\4BD=JQPB+[D/*A/IW>%^-[46$(P3]5RDG+#M;I`J4<+RAB!0[E37=$MQ`0
M()&X.``B#!"S6B>+#O)R85VYZ$A@**/H,`!`,R!TBDZ`N`3`A'6L$`),C-O%
M&\(Z\PR3A!MVA,$50V24=-<<<$PV6QICJ(61&SP!X$1<CC$6V625R=$9`,*!
M0)@8)M71UAPMY(P;"%G1X=!1.H``P,057_Q61"Q;5G(5;H0AAF"5O54&'16U
MD09QO354AQR2Q7:T9)0IK0``&@A#+D1/0P!>7EY>7EY>L@,``+P0<UXPF]P%
M```,#10,<3'D21,08O*`:!)&SAH00<BP*2,'!`@H8>:$(5/&31@6((8$L1@C
M!PX<+@(&'%CP8)HY(,*X`=$1C<PQ9<B`&&/3S9DR(,BDD5-F#)TW<A2B&$(D
MQ<XW;=K()./"8A(Z(%Z"J#,G)P@V:=8`9<HB8!D\..%@I6,3:Q@Q8HC:21.&
M3IHW;F"^,0-B3ATQ0HD:1:K08YLR,!L"#3,F+9V<54$\<<-&(=NZ`>$TQ+J7
M)F,T??\&+GHT*0C#0"]CK>,F39PZ92H'?6G79YV7:!!GQ6I&#E00;,L$?!-<
M#DRM;HHBUI@TLA&D-/&$:0-G(DB_<."\Z0H\]\XZ<HBZP4I&3AH[0&W"9/LR
MX.C!IND0+:-#I0(07$`0$T8,!)$G4P1DD47#]"=$$D[HQQ\(5%0AA1!/#"'@
M@+.``,D!!2X4Q!1-3&A1A1<"TU\305"!A$A$>`B"B"!4,844"O97!15),"$@
M)`RP*(004\08DD%0N"B%%3=2H&,53-BH0$!4Y#93<$]%-55]2]X'"0)CX%<'
M%V)P:=\=:;#!!@A2B=4=4&.`)QYY0Y%&&'Y"<K'C%'(BR41D3:()E51ND$'E
MC5CBUZ547X8YIAO$[=333V?.)EAI>8`D1AU8I9'78QN!<,9YJ7E'U!S:Y46?
M?18B(">"7$BE@@LJ9)58&V*D<48=;W#5PJUI8"45'3PAIH.&'+)`HHDHVI?G
MD]Z-L>>4I%Z99:JI8E8EF&*2&8:94*897D=L/OKFJ4YP,>R)01`1V16Y%:>H
M3)OZ%)-[;<*G$'2(T@'2$"!0.Z90H+(1AF7)JLFMHVZ:UAF4Y7$:$*A%I6%&
M&EZA`%VV`H\7E'GH9<47HLFYVA<<#3^<4PHI57E%KFC4NA8:6L'AVQER3`=2
M$OG6RH9.-F4,Y6-]=C2&96]HRBG!\$$\Q\*6GC$1"!/?$?1$=#Q6T1A)J95&
MEJBM%W29:"Z:=$QMX'7&F?!Z:YYN960$L1P@991O;&.Z7>]6=H&EQ]<(QPMI
M7_+5811XJ;TQG!QGR)2&'D"UH=##$\U1<D!04%K;V.S!Y/(;,$_']$QA@"!%
M$`?Q^]!4?941-=[>05$B$C%EYYO+=#U664#Z6FLFOFZ;D9%;,'V:!D<6*RME
MGS"A`-;M33VN@!%EQ`9";\T#%W17?<;DAD*7BS%1&S"!R1;34^_)K5XSL620
M]']:B0!##D$D$46`0N'"$U4)\08>(-@`0PXFQ9_11AWY2$A&`H(<Q"`&,+"!
%?30`&@!#
`
end
END--cut here--cut here