Changeset 156 for ccr/trunk


Ignore:
Timestamp:
Sep 21, 2008, 5:57:04 PM (16 years ago)
Author:
George Lilly
Message:

added XVARSGPLXPATH to list unique variables in a template

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLXPAT0.m

    r155 r156  
    205205 ;;>>?GTMP2(0)=1
    206206 ;;>>?GTMP2(1)="TEST1^1"
     207 ;;><XVARS>
     208 ;;>>>K GTMP,GTMP2
     209 ;;>>>D PUSH^GPLXPATH("GTMP","<VALUE>@@VAR1@@</VALUE>")
     210 ;;>>>D XVARS^GPLXPATH("GTMP2","GTMP")
     211 ;;>>?GTMP2(1)="VAR1^"
    207212 ;;></TEST>
  • ccr/trunk/p/GPLXPATH.m

    r155 r156  
    437437 Q
    438438 ;
     439XVARS(XVRTN,XVIXML) ; RETURNS AN ARRAY XVRTN OF ALL UNIQUE VARIABLES
     440 ; DEFINED IN INPUT XML XVIXML BY @@VAR@@
     441 ; XVRTN AND XVIXML ARE PASSED BY NAME
     442 ;
     443 N XVI,XVTMP,XVT
     444 F XVI=1:1:@XVIXML@(0) D  ; FOR ALL LINES OF THE XML
     445 . S XVT=@XVIXML@(XVI)
     446 . I XVT["@@" S XVTMP($P(XVT,"@@",2))=""
     447 D H2ARY(XVRTN,"XVTMP")
     448 Q
     449 ;
    439450TEST     ; Run all the test cases
    440451 D TESTALL^GPLUNIT("GPLXPAT0")
Note: See TracChangeset for help on using the changeset viewer.