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

Timestamp:

Jul 7, 2008, 1:30:04 AM (16 years ago)

Author:

George Lilly

Message:

Added "GPLCCR" to ^{TMP globals for SAC compliance}

File:

• ccr/trunk/p/GPLXPATH.m (modified) (1 diff)

ccr/trunk/p/GPLXPATH.m

@@ -331 +331 @@
          Q
          ;
+TRIM(THEXML) ; TAKES OUT ALL NULL ELEMENTS
+       ; THEXML IS PASSED BY NAME
+       N I,J,TMPXML,DEL
+       F I=1:1:@THEXML@(0) D  ; LOOP THROUGH ENTIRE ARRAY
+       . I @THEXML@(I)'["><" D PUSH("TMPXML",@THEXML@(I))
+       D INDEX("TMPXML") ; MAKE AN XPATH INDEX
+       S I="" S I=$O(TMPXML(I))
+       F K=0:0  D  Q:I="" ; NOW LOOK FOR EMPTY SECTIONS
+       . I I["//" D  ;
+       . . W I,TMPXML(I),!
+       . . S J=$P(TMPXML(I),"^",1)
+       . . I J+1=$P(TMPXML(I),"^",2) D  ;
+       . . . W I,!
+       . . . S DEL(J)=""
+       . . . S DEL(J+1)=""
+       . S I=$O(TMPXML(I))
+       F I=1:1:TMPXML(0) D  ;
+       . I '$D(DEL(I))
+       . D PUSH("TMPXML2",TMPXML(I))
+       D CP("TMPXML2",THEXML)
+       Q
+       ;
 PARY(GLO)       ;PRINT AN ARRAY
         N I