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 Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members