Re: Missing U2 routine

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Fri, 05 Sep 2008
20:56:19 -0400

Harry:

> I think CLEARSGTS works, since the framename ends with an
> asterisk.

Right you are. So it seems that Patricia needs to download a fresh
copy of U2.

> I'm making heavy use of your VA@ routine now. Thanks.

Well, then, you might as well have the latest code. Smaller, faster.
Also, I've added a variant, VN@*, that writes output to the same S/G
used for input (as opposed to VA@*, which, as you know, writes output
to S/G 50). In code:

JM 2.VA@01,7Q2 is the equivalent of >
   ^                ^^
JM 2.VN@01,7Q2 is the equivalent of >
   ^                ^^
The advantage of VN@* is that it has a smaller memory footprint,
especially important when the input S/G is lengthy. So, use VN@* if
possible (i.e., if the input is expendable); otherwise, use VA@*.

Note well that I've renumbered the Save/Gets in these routines to the
44-49 range, to minimize the possibility of conflicts with other U2
routines. Do NOT use S/Gs 44-49 in any routine that calls these
frames.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5VA@*}} "VA@[S/G]{separator}#"-style parsing operator (e.g
{046}, [JM_]2.VA@01,35[Q2_]) uses XS parsing to avoid 77-byte lim
it of native VA@nn [S/G 50 out; cf. frame VN@*] CLD rev.9/5/
08[cr|lf]{002}{<}SX44,{<}VA$FR{>}{>}{<}SX44,{<}VA@44@2{>}{>}{
<}SV45,{027}S{>}{<}XS44,45,45,46,47{>}{<}SX48,"{<}IF{<}VA|"+{
<}IS45{>}+"{>}<0{>}{<}SV"+{<}IS45{>}+",{>}{<}EI{>}{<}SX44,{<}
IS"+{<}IS45{>}+"{>}{>}"{>}{<}PV48{>}{<}SV48,{>}{<}IF{<}IS46{>
}{238}{<}IS44{>}<0{>}{<}LBa{>}{<}SX50,{<}IS44{>}{>}{<}LBb{>}{
<}SV44,{>}{<}SV45,{>}{<}SV46,{>}{<}SV47,{>}{<}SV48,{>}{<}EX{>
}{<}EI{>}{<}SX48,0{>}{<}LBc{>}{<}IF{<}PV48{>}<{<}PV47{>}{>}{<
}SV45,{>}{<}XS44,46,50,,45{>}{<}SX48,{<}PV48{>}+1{>}{<}IF{<}P
V48{>}<{<}PV47{>}{>}{<}SX44,{<}IS45{>}{>}{<}GLc{>}{<}EI{>}{<}
EI{>}{<}IF{<}IS44{>}{240}{<}IS46{>}{>}{<}XS44,46,50,,45{>}{<}
GLb{>}{<}EI{>}{<}GLa{>}{002}[cr|lf][cr|lf]{{;5VN@*}} "VN@[S/G
]{separator}#"-style parsing operator (e.g., [JM_]2.VN@01,35[
Q2_]) uses XS parsing to avoid 77-byte limit of native VA@nn{032}
[output is written to input S/G; cf. frame VA@*] CLD rev.9/5
/08[cr|lf]{002}{<}SX44,{<}VA$FR{>}{>}{<}SX44,{<}VA@44@2{>}{>}
{<}SV45,{027}S{>}{<}XS44,45,45,46,47{>}{<}SX44,"{<}IF{<}VA|"+
{<}IS45{>}+"{>}<0{>}{<}SV"+{<}IS45{>}+",{>}{<}EI{>}"{>}{<}PV4
4{>}{<}SX44,"{<}IF{<}IS46{>}{238}{<}IS"+{<}IS45{>}+"{>}<0{>}{
<}LBa{>}{<}SV49,{>}{<}SV48,{>}{<}SV47,{>}{<}SV46,{>}{<}SV45,{
{062}}{<}SV44,{>}{<}EX{>}{<}EI{>}{<}SX48,0{>}{<}LBb{>}{<}IF{<}PV4
8{>}<{<}PV47{>}{>}{<}SV45,{>}{<}XS"+{<}IS45{>}+",46,49,,45{>}
{<}SX48,{<}PV48{>}+1{>}{<}IF{<}PV48{>}<{<}PV47{>}{>}{<}SX"+{<
}IS45{>}+",{<}IS45{>}{>}{<}GLb{>}{<}EI{>}{<}EI{>}{<}IF{<}IS"+
{<}IS45{>}+"{>}{240}{<}IS46{>}{>}{<}XS"+{<}IS45{>}
+",46,49,,48{>}{<}SX"+{<}IS45{>}+",{<}IS49{>}{>}{<}EI{>}{<}GL
a{>}"{>}{<}PV44{>}{002}[cr|lf]
-nd
XPLeNCODE

Enjoy.

--
Carl Distefano
cld@xxxxxxxx