Changeset 156 for ccr

Timestamp:

Sep 21, 2008, 5:57:04 PM (16 years ago)

Author:

George Lilly

Message:

added XVARS^{GPLXPATH to list unique variables in a template}

Location:

ccr/trunk/p

Files:

• GPLXPAT0.m (modified) (1 diff)
• GPLXPATH.m (modified) (1 diff)

ccr/trunk/p/GPLXPAT0.m

@@ -205 +205 @@
  ;;>>?GTMP2(0)=1
  ;;>>?GTMP2(1)="TEST1^1"
+ ;;><XVARS>
+ ;;>>>K GTMP,GTMP2
+ ;;>>>D PUSH^GPLXPATH("GTMP","<VALUE>@@VAR1@@</VALUE>")
+ ;;>>>D XVARS^GPLXPATH("GTMP2","GTMP")
+ ;;>>?GTMP2(1)="VAR1^"
  ;;></TEST>

ccr/trunk/p/GPLXPATH.m

@@ -437 +437 @@
  Q
  ;
+XVARS(XVRTN,XVIXML) ; RETURNS AN ARRAY XVRTN OF ALL UNIQUE VARIABLES
+ ; DEFINED IN INPUT XML XVIXML BY @@VAR@@
+ ; XVRTN AND XVIXML ARE PASSED BY NAME
+ ;
+ N XVI,XVTMP,XVT
+ F XVI=1:1:@XVIXML@(0) D  ; FOR ALL LINES OF THE XML
+ . S XVT=@XVIXML@(XVI)
+ . I XVT["@@" S XVTMP($P(XVT,"@@",2))=""
+ D H2ARY(XVRTN,"XVTMP")
+ Q
+ ;
 TEST     ; Run all the test cases
  D TESTALL^GPLUNIT("GPLXPAT0")