Wow! Did you write that special for me? I'll check this code out!
Dave Whitten called and pointed out that I could do this, also:
> >set X=$UP^XLFSTR("SET TEMP=$GET("_myref_")") do ^DIM
By forcing uppercase, I am changing the actual variable examined. But
it will still catch null nodes etc.
Thanks all!
Kevin
On 2/16/06, Jim Self <[EMAIL PROTECTED]> wrote:
> Kevin wrote:
> >Well, I had hope the ^DIM would work for me. Unfortunately it imposes
> >SAC (SAAC? SACC?) restrictions. It I try this"
> >
> >set X="SET TEMP=$GET(k)" do ^DIM
> >
> >X will be deleted. I assume this is because lowercase variables are
> >not allowed.
> >My debugger is not designed to be VA specific, so allow a user to use
> >variables with lower case.
> >
> >I'll have to keep looking for a solution. My next plan is to $piece
> >through the parts of a reference to ensure no null nodes.
>
> If that's all you want, how about this for a start?
>
> eval(k) ;function - evaluate a simple array reference
> if k'?.1"^"1(1"%",1A).7AN1"("1.ANP1")" q "ERROR: not an array
> reference"
> n subs s subs=$e(k,$f(k,"("),$l(k)-1)
> n i,j,sub,error
> f i=1:1 d q:subs=""!$d(error)
> . f j=1:1:$l(subs,",") s sub=$p(subs,",",1,j) q:$l(sub,"""")#2
> . s subs=$p(subs,",",j+1,$l(subs,","))
> . if sub="" s error="missing subscript" q
> . e if $l(sub,"""")#2=0 s error="unbalanced quotes" q
> . e if sub?.1"-"1.n,sub=+sub q ;canonic number OK
> . e if sub?1(1"%",1A).7AN d q ;simple variable name OK if defined
> . . if $d(@sub)#2=0 s error="variable '"_sub_"' undefined"
> . e if sub'?1""""1.e1"""" s error="malformed subscript" q
> if $d(error) q "ERROR: "_error_", subscript "_i_"."
> q $g(@k)
>
> Examples---
>
> ^DIC(1,0,"GL") ^DIC(
> ^DIC(1,,"GL") ERROR: missing subscript, subscript 2.
> ^DIC(1,x,"GL") ERROR: variable 'x' undefined, subscript 2.
> ^DIC(1,0,"GL) ERROR: unbalanced quotes, subscript 3.
> ^DIC(1,0X,"GL") ERROR: malformed subscript, subscript 2.
> ^DIC(1,00,"GL") ERROR: malformed subscript, subscript 2.
>
> ---------------------------------------
> Jim Self
> Systems Architect, Lead Developer
> VMTH Computer Services, UC Davis
> (http://www.vmth.ucdavis.edu/us/jaself)
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
> for problems? Stop! Download the new AJAX search engine that makes
> searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems? Stop! Download the new AJAX search engine that makes
searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid3432&bid#0486&dat1642
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
