Changeset 74 for ccr/trunk/p/GPLXPATH.m

Timestamp:

Jul 25, 2008, 10:01:34 PM (16 years ago)

Author:

George Lilly

Message:

First commit for CCD

File:

• ccr/trunk/p/GPLXPATH.m (modified) (3 diffs)

ccr/trunk/p/GPLXPATH.m

@@ -332 +332 @@
          Q
          ;
-MAP(IXML,INARY,OXML)    ; SUBSTITUTE @@X@@ VARS IN IXML WITH VALUES IN INARY
+MAPOLD(IXML,INARY,OXML)    ; SUBSTITUTE @@X@@ VARS IN IXML WITH VALUES IN INARY
      ; AND PUT THE RESULTS IN OXML
          I '$D(@IXML@(0)) W "MALFORMED XML PASSED TO MAP",! Q
@@ -345 +345 @@
          . . . S TVAL=@INARY@(TNAM) ; PULL OUT MAPPED VALUE
          . . . S @OXML@(I)=$P(@OXML@(I),"@@",1)_TVAL_$P(@OXML@(I),"@@",3)
+         W "MAPPED",!
+         Q
+         ;
+MAP(IXML,INARY,OXML)    ; SUBSTITUTE MULTIPLE @@X@@ VARS WITH VALUES IN INARY
+     ; AND PUT THE RESULTS IN OXML
+         I '$D(@IXML@(0)) W "MALFORMED XML PASSED TO MAP",! Q
+         I $O(@INARY@(""))="" W "EMPTY ARRAY PASSED TO MAP",! Q
+         N I,J,TNAM,TVAL,TSTR
+         S @OXML@(0)=@IXML@(0) ; TOTAL LINES IN OUTPUT
+         F I=1:1:@OXML@(0)  D   ; LOOP THROUGH WHOLE ARRAY
+         . S @OXML@(I)=@IXML@(I) ; COPY THE LINE TO OUTPUT
+         . I @OXML@(I)?.E1"@@".E D  ; IS THERE A VARIABLE HERE?
+         . . S TSTR=$P(@IXML@(I),"@@",1) ; INIT TO PART BEFORE VARS
+         . . F J=2:2:10  D  Q:$P(@IXML@(I),"@@",J+2)="" ; QUIT IF NO MORE VARS
+         . . . W "IN MAPPING LOOP: ",TSTR,!
+         . . . S TNAM=$P(@OXML@(I),"@@",J) ; EXTRACT THE VARIABLE NAME
+         . . . S TVAL="" ; DEFAULT FOR UNMAPPED VARIABLES
+         . . . I $D(@INARY@(TNAM))  D  ; IS THE VARIABLE IN THE MAP?
+         . . . . S TVAL=@INARY@(TNAM) ; PULL OUT MAPPED VALUE
+         . . . S TSTR=TSTR_TVAL_$P(@IXML@(I),"@@",J+1) ; ADD VAR AND PART AFTER
+         . . S @OXML@(I)=TSTR ; COPY LINE WITH MAPPED VALUES
+         . . W TSTR
          W "MAPPED",!
          Q
@@ -504 +526 @@
  ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
  ;;>>?@OUTARY@(6)="VALUE2"
+ ;;><MAP2>
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+ ;;>>>S MAPARY="^TMP($J,""MAPVALUES"")"
+ ;;>>>S OUTARY="^TMP($J,""MAPTEST"")"
+ ;;>>>S @MAPARY@("DATA1")="VALUE1"
+ ;;>>>S @MAPARY@("DATA2")="VALUE2"
+ ;;>>>S @MAPARY@("DATA3")="VALUE3"
+ ;;>>>S GXML(4)="<FOURTH>@@DATA1@@ AND @@DATA3@@</FOURTH>"
+ ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
+ ;;>>>D PARY^GPLXPATH(OUTARY)
+ ;;>>?@OUTARY@(4)="<FOURTH>VALUE1 AND VALUE3</FOURTH>"
  ;;><QUEUE>
  ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",2,3)