[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

Re: Xy4 routine to format XYENCode output



One further tweak was needed to get the IFs to indent properly. Here's a resend
of what I posted last night. Use this, please, and discard the earlier one.


'%--_XYENCode_start--
{{5xyenc*,xydec}}_XYENCode|XYDECode_(DF_block_or_entire_file
)_[CLD_rev.1/21/09]'^~B~==1~>'BXes_1'Q2'DX~~)~>~~~="/"
~>~~~>~~'DZ~<1~>'YD~~~~="DEC"~>'XP'LB'BXse__~start--'Q2~
)~>'LB~~'-'-end--'Q2~>~
~~'DF~'DF~~~>'JM2.Get
Path'Q2~+"\"+~+"."~>'DE'BXsad/nv_~in'Q2~~>~~~
'BXwt'Q2'DN'BXernv_~out'Q2'BXwt'Q2'BXdos/nv/x/z_/c_~<
PV06~>com_._~out<~in'Q2'BXwt'Q2~~'BXexist_~out'Q2~)~>~~'BX
p'Q2~'GT'DO'FF'DX~~="ENC"&~<1~>~+"start--'^'^"+~+"'-'-end--'^"~>~~<
SV03,~>'LU'LU~~~>'BXme_~out'Q2'BXwt'Q2
'BXernv_~out'Q2'BXwt'Q2~)~="ENC"~>~~>0&~<>8~>'TG~~~~>'BXseba__'?Z'Q2~)&~==~
-2~>'RC'RC~~~~~>'JM2.ReJuMP'Q2
'DO'FF~~~~~B'^'^{{5xyfmt}}_Fo
rmat_XYENCoded_XPL_[CLD_rev.1/22/09]'^~B'BXes_1'Q2'XP'TF'BXc
ia__'?<_:~<'Q2'BXcia__'?>_:~>'Q2',*','^~~~~~~~~~~~~~~~~~>~'TF',*','^'BX
ci__;~['Q2'BXwt'Q2',*','^'BXci_~252:~'BXci_~252;~[;~[:~)~>'BXwt'Q2~~',*','^'BXci_~252:~~252;~[:~~252'Q2'BXwt'Q2',*','^~'BXci_~252;~[;
~[:~~252;~[:~~252'Q2~)~>'BXwt'Q2~<
GLb~>~',*','^'BXci_~252:~~252:~;~[~252'Q2'BX
wt'Q2',*','^'BXci_~252:~;~[;~[~252:~;~[~252'Q2'BX
wt'Q2',*','^~'BXci__;~[;~[;~)~>'BXwt'Q2~~',*','^'BXcia_~252;NDI;~>;~[~252
;NDI;~>~252'Q2',*','^'BXci_~252'`;A;X~252;~'`;A;X_;~<
MDNM;~>~252'Q2'BXwt'Q2',*','^'BXci_~252:~~252;~:~;~~252'Q2'BXwt'Q2',*','^'BXci_~252:~~252;~:~;~~252'Q2'BXwt'Q2',*','^
'BXci_~252:~~252;~:~;~~252'Q2
'BXwt'Q2',*','^'BXci_~252:~~252;~:~;~~252'Q2'BXwt'Q2',*','^'BXci_~252:~~252;~
:~;~~252'Q2'BXwt'Q2',*','^'BXci_~252;~[:~>;~<
MDNM;~>~252:~>;~;~[~252'Q2'BXwt'Q2',*','^'BXcia__'`^
_'`^;~['Q2'BXwt'Q2',*','^~'BXcia__'`^;~[;~[_'`^;~['Q2~<
IF@not(~)~>'BXwt'Q2~~',*','^'BXci_~252:~'BXci_~252;~[;~[:~<
S;L~252;~[:~)~>~~'BXwt'Q2
',*','^'BXci_~252;~:~:~:~:~;~
~252:~;~;~[~252'Q2'BXwt'Q2',*','^'BXci__;~[,
_,'Q2'BXwt'Q2',*','^'BXci_~252;~'`BX~252;~[;~
'`BX~252'Q2'BXwt'Q2',*','^'BXci_~252;~[;~[;~'`BX~252
;~[;~'`BX~252'Q2'BXwt'Q2',*','^'BXci_~252'`Q2_;~~252'`Q2_;~;~[~252'Q2'BXwt'Q2',*','^'BXci_~252'`
Q2_;~;~[;~[~252'`Q2_;~;~[~252'Q2'BXwt'Q2',*',
'^'BXci_~252;~;~[;~[~252;~;~[~252'Q2'BXwt'Q2
',*','^'BXci_~252'`Q2_;~;~['`,*'`,'`^;~[~252'`Q2_;~<
MDNM;~>'`,*'`,'`^;~[~252'Q2'BXwt'Q2',*','^~
/'?176):~176/'?177):~177/'?178):~178/'?179):~179/'?180):~180
/'?181):~181/'?182):~182/'?183):~183/'?184):~184/'?185):~185
/'?186):~186/'?187):~187/'?188):~188/'?189):~189/'?190):~190
/'?191):~191/'?192):~192/'?193):~193/'?194):~194/'?195):~195
/'?196):~196/'?197):~197/'?198):~198/'?199):~199/'?200):~200
/'?201):~201/'?202):~202/'?203):~203/'?204):~204/'?205):~205
/'?206):~206/'?207):~207/'?208):~208/'?209):~209/'?210):~210
/'?211):~211/'?212):~212/'?213):~213/'?214):~214/'?215):~215
/'?216):~216/'?217):~217/'?218):~218/'?219):~219/'?220):~220
/'?221):~221/'?222):~222/'?223):~223/'?224):~224/'?225):~225
/'?226):~226/'?227):~227/'?228):~228/'?229):~229/'?230):~230
/'?231):~231/'?232):~232/'?233):~233/'?234):~234/'?235):~235
/'?236):~236/'?237):~237/'?{):~{/'?239):~239/'?=):~=/'?241):
~241/'?242):~242/'?243):~243/'?244):~244/'?245):~245/'?246):
~246/'?247):~247/'?248):~248/'?249):~249/'?250):~250/'?251):
~251/'?252):~252/~>~',*','^~~>0~>
~~~~>',*','^'BXcha_
)~)'Q2'BXwt'Q2~~',*','^~3DI,~3DI'Q2'CR~>',*','^~~'BXse__:~'Q2',*','^~~>'TF'WG~<
9~>'MK~'DO'FF~~~',*','^'DF'CL'DF~'YD'BXseb__:~'Q2',*','^~)=="F"~>~~~',*','^'BXse__:~>'Q2~~'CL~~B'^'^
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx