Re: Re tilde in program files directory

[Robert Holmgren holmgren@xxxxxxxx]

** Reply to message from Judith Davidsen  on Thu, 14
Mar 2002 16:31:13 -0500

> I just succeeded in getting that directory on xy4.018, but
> only by changing directory all the way back to c:, changing
> it again to c:\progra~1 (not cd \progra~1--that didn't work)
> and then issuing dir from there. All the other routes I
> tried didn't work.

> Judith Davidsen

It's true that, under Win32, Xy4-DOS cannot display DIRectories of 8.3 (short)
subdir names that contain tildes, unless that directory is the
*current* directory. Worse still, Xy's native FIND command doesn't
work at all on drives that contain *any* subdirs with tildes (no
internal workaround is possible).

However, the next U2 has a fix for both these DIR/FIND issues
(and other DIR/FIND problems as well). Here's the frame; you
can CAll the current msg into a XyWrite window, DECODE
it, plug the decoded frame below into U2 (replacing the current
frame of the same name), & finally "LOADHELP". Under
Win32, the FIND component needs Rexx, absent which it won't work
(because there's no internal fix, the frame uses Rexx to build
a FIND file *outside* XyWrite, then plugs that into
a XyWrite window, where it functions perfectly). But the DIR
component of the frame will work fine without further ado.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5dir*,find*}} Sort any DIR|FIND spec by Filename|Date|Exte
nsion|Size RJH 3/28/93,LastRev.10/3/01[cr|lf]{2}{<}SX01,{<}V
A$FR{>}{>}{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI
{>}{<}SX02,"[BX_]dsort "+{<}VA$SD{>}+"[Q2_]"{>}{<}PRSort by (
F)ilename|(D)ate|(E)xt|(S)ize [`Esc' aborts]{>}{<}SX03,"|"+@
UPR({<}RK{>})+"|"{>}{<}IF{<}VA$KC{>}==1{>}{<}LBA{>}{<}PV02{>}
{<}PRAbort{>}{<}EX{>}{<}EI{>}{<}IF{<}IS03{>}{238}"|F|D|E|S|">
-1{>}{<}SV04,|F|f,e,h|D|d,f,h,r|E|e,f,h|S|s,f,h,r|{>}{<}XS04,
03,,03,05{>}{<}SX04,{<}VA@05|1{>}{>}[BX_]dsort {<}PV04{>}[Q2_
]{<}SX04,{<}VA$WA{>}{>}[BX_]func #{<}PV04{>}[Q2_]{<}SV06,[XC_
]{>}[JM_]2.GetXyOS[Q2_]{<}IF{<}VA|50{>}>0{>}{<}IF"W"{238}{<}V
A@652=2{>}<0{>}{<}SX06,"[BX_]"+{<}IS01{>}+" "+{<}IS50{>}+"[Q2
_]"{>}{<}EI{>}{<}IF{<}VA@652=2{>}{240}"W"{>}{<}SX04,{<}VA$PA{
>}{>}[BX_]es 1[Q2_]{<}IF"FIND"{238}@UPR({<}IS01{>})==0{>}{<}S
X01,{<}IS50{>}{>}[JM_]2.tmpfile/nv[Q2_]{<}SX06,{<}IS50{>}{>}{
<}LBB{>}[JM_]2.tmpfile/nv[Q2_]{<}IF{<}IS50{>}=={<}IS06{>}{>}{
<}GLB{>}{<}EI{>}{<}SX04,{<}IS50{>}{>}{<}LBC{>}[JM_]2.tmpfile/
nv[Q2_]{<}IF{<}IS50{>}=={<}IS06{>}{>}{<}GLC{>}{<}EI{>}{<}SX05
,{<}IS50{>}{>}{<}IF{<}IS03{>}=="|F|"{>}{<}SV03,|N|{>}{<}EI{>}
{<}SX50,"/fs /max /r d=substr('"+{<}IS03{>}+"',2,1);'dir "+{<
}IS01{>}+" /S/O'd'/X>"+{<}IS06{>}+"';if stream('"+{<}IS06{>}+
"','C','query exists')\='' then do;call stream '"+{<}IS06{>}+
"','C','open read';call stream '"+{<}IS04{>}+"','C','open wri
te';call linein '"+{<}IS06{>}+"',1,0;call charout '"+{<}IS04{
>}+"',x2c('AE')'LM0'x2c('AFAE')'PW271DI'x2c('AFAE')'RM271DI'x
2c('AF');do until lines('"+{<}IS06{>}+"')=0;li=linein('"+{<}I
S06{>}+"');fn=substr(li,1,1);if fn=' ' then do;if pos('Direct
ory of',li)=2 then di=substr(li,15);fn='';end;else do;if subs
tr(li,40,12)='      ' then do;tfn=substr(li,56
,12);if pos('.',tfn)>0 then do;bfn=substr(tfn,1,pos('.',tfn)-
1);efn=substr(tfn,pos('.',tfn)+1,5);tfn=substr(bfn,1,10)||efn
;end;fn=tfn||strip(substr(li,1,55))||'  '||di||' ';end;else
 do;tfn=substr(li,40,12);if pos('.',tfn)>0 then do;bfn=substr
(tfn,1,pos('.',tfn)-1);efn=substr(tfn,pos('.',tfn)+1,5);tfn=s
ubstr(bfn,1,10)||efn;end;fn=tfn||strip(substr(li,1,39))||subs
tr(li,54)||'  '||di||' ';end;end;if fn\='' then call lineou
t '"+{<}IS04{>}+"',fn;end;end;call stream '"+{<}IS06{>}+"','C
','CLOSE';call stream '"+{<}IS04{>}+"','C','CLOSE';'del "+{<}
IS06{>}+"';'ren "+{<}IS04{>}+" "+{<}IS05{>}+"';"{>}[JM_]2.w2[
Q2_][BX_]find \.[Q2_][XP_][TF_][DF_][BF_][DF_][DN_][WG_]{<}SX
50,"40,"+{<}IS05{>}{>}[JM_]2.AwaitFile[Q2_][GH_][BX_]me {<}PV
05{>}[Q2_][BX_]wait[Q2_]{<}PR {>}[BX_]ernv {<}PV05{>}[Q2_][BX
_]wait[Q2_][TF_]{<}LBD{>}{<}PV02{>}[BC_]CA[GT_]{<}PRDone{>}{<
}EX{>}{<}EI{>}{<}LBE{>}{<}SX50,@UPR({<}IS50{>}){>}{<}SV05,[25
5+55+69]{>}{<}LBF{>}{<}IF{<}IS50{>}{240}{<}IS05{>}{>}{<}XS50,
05,07,,08{>}{<}SX50,{<}IS07{>}+"~"+{<}IS08{>}{>}{<}GLF{>}{<}E
I{>}{<}SX03,{<}IS50{>}{>}{<}IF":"{238}{<}IS50{>}==1{>}{<}SV05
,:{>}{<}SV03,{>}{<}XS50,05,06,,03{>}[BX_]{<}PV06{>}:[Q2_]{<}E
I{>}{<}IF{<}IS03{>}{240}"\"{>}[BX_]cd \[Q2_]{<}SX07,2{>}{<}LB
G{>}{<}SV08,{>}{<}SX05,"{<}SX08,{<}VA@03\"+{<}IS07{>}+"{>}{>}
"{>}{<}PV05{>}{<}IF{<}VA|08{>}>0{>}[BX_]cd .\{<}PV08{>}[Q2_]{
<}IF@NOT({<}ER{>}){>}{<}SX07,{<}PV07{>}+1{>}{<}GLG{>}{<}EI{>}
{<}EI{>}{<}SX03,{<}IS08{>}{>}{<}EI{>}[BX_]es 0[Q2_]{<}IF{<}VA
|01{>}<1{>}[TF_][LD_][LD_]{<}GLD{>}{<}EI{>}{<}SX06,"[BX_]"+{<
}IS01{>}+" "+{<}IS03{>}+"[Q2_]"{>}{<}EI{>}{<}EI{>}{<}PV06{>}[
BX_]wait[Q2_]{<}IF{<}VA|50{>}>0&{<}VA@652{>}{240}"W"{>}{<}SV0
1,{>}{<}SX50,{<}IS04{>}{>}{<}GLE{>}{<}EI{>}[TF_][LD_][LD_]{<}
GLD{>}{<}EI{>}{<}GLA{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE

-----------------------------
Robert Holmgren
holmgren@xxxxxxxx
-----------------------------