Re: XYENCode and -DECode: Some updated U2 apps

[Carl Distefano cld@xxxxxxxx]

Reply to note from Carl Distefano  Sun, 18 Jan 2009
14:21:51 -0500

I wrote earlier:
> Here are updates to frames XYENC and XYDEC.

I'm considering a mod to frame XYENC that would add boundaries to
encoded material, like this:

'%--_XYENCode_start--
{{5reverse}}_Convert_string_to_its_reverse_(SG_50_in,_SG_50_
out)_[CLD]'^~B~>0~>'JM2.HIDE'.51-54'Q2~~>~~~~>0~>~
~~+~~>~~>
~~'JM2.UNHIDE'Q2~~~B'^'^
'%--_XYENCode___end--

There are several advantages, relative to decoding: 1) No need to
DeFine before decoding, simply locate the cursor within or ahead of
the "start" boundary and issue XYDEC. 2) Decoding of a
series of encodes within a file becomes a matter of repeatedly
hitting . 3) You avoid the problem of an initial 126d being
left out of a manual DeFine when decoding in non-eXPanded view.
Frame XYDEC can now force a toggle to eXPanded view before decoding.

Note that you can still DeFine the encoded material manually,
including the boundaries. Since the boundaries are themselves
XYENCode comments, XYDEC.COM will delete them as a matter of course.

Here's the revised frame XYENC*,XYDEC*, if you'd like to take it for
a spin yourselves.

'%--_XYENCode_start--
{{5xyenc*,xydec*}}_XYENCode|XYDECode_(DF_block_or_entire_fil
e)_[CLD_rev.1/18/09]'^~B~==1~>',*','^'BXes_1'Q2'DX
~~)~>',*','^'DZ~<1~>'YD',*','^~~',*','^~~="DEC"~>',*','^'XP'LB'BXse__'`'/--'-XYENCode'-start--'Q2
',*','^~)~>',*','^'LB~',*','^~',*','^~~
',*','^~'DF~'DF~',*','^~~>
'JM2.GetPath'Q2',*','^~+"\"+~+"."~>',*',
'^'DE'BXsad/nv_~in'Q2'BXwait'Q2',*','^~~>',*
','^~~',*','^~',*','^'DN'BXernv_~out'Q2'BXwait'Q2',*','^'BXdos/n
v/x/z_/c_~com_._~out<~in'Q2',*','^'BXwa
it'Q2',*','^~~'BXexist_~out'Q2',*',
'^~)~>~',*','^~',*','^'BXp'Q2~
'GT'DO'FF'DX',*','^~~="ENC"~>~~'LU'LU
~~~>'BXme_~out'Q2'BXwait'Q2',*','^'BX
ernv_~out'Q2'BXwait'Q2',*','^~)~="ENC
"~>',*','^~',*','^~>0&~<>8~>'TG~<
SV01,'TG~>',*','^~',*','^~~>'BXseba__'?Z'Q2
',*','^~)&~==~-2~>'RC'RC~',
*','^~',*','^~',*','^~~>'JM2.ReJuMP'Q2
',*','^'DO'FF~~~~~B'^'^
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx