Changeset 728 for ccr/trunk/p/C0CXPATH.m

Timestamp:

Mar 27, 2010, 1:31:47 AM (14 years ago)

Author:

George Lilly

Message:

updates to XML processing

File:

• ccr/trunk/p/C0CXPATH.m (modified) (4 diffs)

ccr/trunk/p/C0CXPATH.m

@@ -340 +340 @@
  N TMP,I,J,QXPATH
  S FIRST=1
+ I '$D(@IARY@(0)) D  ; LINE COUNT NOT IN ZERO NODE
+ . S @IARY@(0)=$O(@IARY@("//"),-1) ; THIS SHOULD USUALLY WORK
  S LAST=@IARY@(0) ; FIRST AND LAST DEFAULT TO ROOT
  I XPATH'="//" D  ; NOT A ROOT QUERY
@@ -461 +463 @@
  I $G(DEBUG) W "DOING INSERT ",INSXML,INSNEW,INSXPATH,!
  I $G(DEBUG) F G1=1:1:@INSXML@(0) W @INSXML@(G1),!
- I '$D(@INSXML@(0)) D  ; INSERT INTO AN EMPTY ARRAY
+ I '$D(@INSXML@(1)) D  ; INSERT INTO AN EMPTY ARRAY
  . D CP^C0CXPATH(INSNEW,INSXML) ; JUST COPY INTO THE OUTPUT
- I $D(@INSXML@(0)) D  ; IF ORIGINAL ARRAY IS NOT EMPTY
+ I $D(@INSXML@(1)) D  ; IF ORIGINAL ARRAY IS NOT EMPTY
+ . I '$D(@INSXML@(0)) S @INSXML@(0)=$O(@INSXML@(""),-1) ;SET LENGTH
  . I $D(INSXPATH) D  ; XPATH PROVIDED
  . . D QOPEN("INSBLD",INSXML,INSXPATH) ; COPY THE BEFORE
@@ -469 +472 @@
  . I '$D(INSXPATH) D  ; NO XPATH PROVIDED, OPEN AT ROOT
  . . D QOPEN("INSBLD",INSXML,"//") ; OPEN WITH ROOT XPATH
+ . I '$D(@INSNEW@(0)) S @INSNEW@(0)=$O(@INSNEW@(""),-1) ;SIZE OF XML
  . D QUEUE("INSBLD",INSNEW,1,@INSNEW@(0)) ; COPY IN NEW XML
  . I $D(INSXPATH) D  ; XPATH PROVIDED
@@ -527 +531 @@
  . D QUEUE("REBLD",REXML,XLAST+1,@REXML@(0)) ; THE REST
  I $G(DEBUG) W "REPLACE PREBUILD",!
+ I $G(DEBUG) D PARY("REBLD")
+ D BUILD("REBLD","RTMP")
+ K @REXML ; KILL WHAT WAS THERE
+ D CP("RTMP",REXML) ; COPY IN THE RESULT
+ Q
+ ;
+DELETE(REXML,REXPATH)      ; DELETE THE XML AT THE XPATH POINT
+ ; REXML IS PASSED BY NAME XPATH IS A VALUE
+ N REBLD,XFIRST,XLAST,OLD,XNODE,RETMP
+ S OLD=$NA(^TMP($J,"REPLACE_OLD"))
+ D QUERY(REXML,REXPATH,OLD) ; CREATE INDEX, TEST XPATH, MAKE OLD
+ S XNODE=@REXML@(REXPATH) ; PULL OUT FIRST AND LAST LINE PTRS
+ S XFIRST=$P(XNODE,"^",1)
+ S XLAST=$P(XNODE,"^",2)
+ D QUEUE("REBLD",REXML,1,XFIRST-1) ; THE BEFORE
+ D QUEUE("REBLD",REXML,XLAST+1,@REXML@(0)) ; THE REST
  I $G(DEBUG) D PARY("REBLD")
  D BUILD("REBLD","RTMP")