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

Timestamp:

May 21, 2009, 1:12:11 PM (15 years ago)

Author:

George Lilly

Message:

formatting for Version 1

File:

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

ccr/trunk/p/C0CXPATH.m

@@ -1 @@
-C0CXPATH   ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
- ;;0.2;CCDCCR;nopatch;noreleasedate
+C0CXPATH          ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
+ ;;1.0;C0C;;May 19, 2009;
  ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
  ;General Public License See attached copy of the License.
@@ -22 +22 @@
  Q
  ;
-OUTPUT(OUTARY,OUTNAME,OUTDIR)   ; WRITE AN ARRAY TO A FILE
+OUTPUT(OUTARY,OUTNAME,OUTDIR)     ; WRITE AN ARRAY TO A FILE
  ;
  N Y
@@ -30 +30 @@
  Q
  ;
-PUSH(STK,VAL)   ; pushs VAL onto STK and updates STK(0)
+PUSH(STK,VAL)     ; pushs VAL onto STK and updates STK(0)
  ;  VAL IS A STRING AND STK IS PASSED BY NAME
  ;
@@ -38 +38 @@
  Q
  ;
-POP(STK,VAL)    ; POPS THE LAST VALUE OFF THE STK AND RETURNS IT IN VAL
+POP(STK,VAL)       ; POPS THE LAST VALUE OFF THE STK AND RETURNS IT IN VAL
  ; VAL AND STK ARE PASSED BY REFERENCE
  ;
@@ -50 +50 @@
  Q
  ;
-PUSHA(ADEST,ASRC) ; PUSH ASRC ONTO ADEST, BOTH PASSED BY NAME
+PUSHA(ADEST,ASRC)       ; PUSH ASRC ONTO ADEST, BOTH PASSED BY NAME
  ;
  N ZGI
@@ -57 +57 @@
  Q
  ;
-MKMDX(STK,RTN)  ; MAKES A MUMPS INDEX FROM THE ARRAY STK
+MKMDX(STK,RTN)   ; MAKES A MUMPS INDEX FROM THE ARRAY STK
  ; RTN IS SET TO //FIRST/SECOND/THIRD FOR THREE ARRAY ELEMENTS
  S RTN=""
@@ -68 +68 @@
  Q
  ;
-XNAME(ISTR)     ; FUNCTION TO EXTRACT A NAME FROM AN XML FRAG
+XNAME(ISTR)         ; FUNCTION TO EXTRACT A NAME FROM AN XML FRAG
  ;  </NAME> AND <NAME ID=XNAME> WILL RETURN NAME
  ; ISTR IS PASSED BY VALUE
@@ -83 +83 @@
  Q CUR
  ;
-INDEX(ZXML)     ; parse the XML in ZXML and produce an XPATH index
+INDEX(ZXML)         ; parse the XML in ZXML and produce an XPATH index
  ; ex. ZXML(FIRST,SECOND,THIRD,FOURTH)=FIRSTLINE^LASTLINE
  ; WHERE FIRSTLINE AND LASTLINE ARE THE BEGINNING AND ENDING OF THE
@@ -141 +141 @@
  Q
  ;
-QUERY(IARY,XPATH,OARY)  ; RETURNS THE XML ARRAY MATCHING THE XPATH EXPRESSION
+QUERY(IARY,XPATH,OARY)   ; RETURNS THE XML ARRAY MATCHING THE XPATH EXPRESSION
  ; XPATH IS OF THE FORM "//FIRST/SECOND/THIRD"
  ; IARY AND OARY ARE PASSED BY NAME
@@ -163 +163 @@
  Q
  ;
-XF(IDX,XPATH)   ; EXTRINSIC TO RETURN THE STARTING LINE FROM AN XPATH
+XF(IDX,XPATH)     ; EXTRINSIC TO RETURN THE STARTING LINE FROM AN XPATH
  ; INDEX WITH TWO PIECES START^FINISH
  ; IDX IS PASSED BY NAME
  Q $P(@IDX@(XPATH),"^",1)
  ;
-XL(IDX,XPATH)   ; EXTRINSIC TO RETURN THE LAST LINE FROM AN XPATH
+XL(IDX,XPATH)     ; EXTRINSIC TO RETURN THE LAST LINE FROM AN XPATH
  ; INDEX WITH TWO PIECES START^FINISH
  ; IDX IS PASSED BY NAME
  Q $P(@IDX@(XPATH),"^",2)
  ;
-START(ISTR)     ; EXTRINSIC TO RETURN THE STARTING LINE FROM AN INDEX
+START(ISTR)         ; EXTRINSIC TO RETURN THE STARTING LINE FROM AN INDEX
  ; TYPE STRING WITH THREE PIECES ARRAY;START;FINISH
  ; COMPANION TO FINISH ; IDX IS PASSED BY NAME
  Q $P(ISTR,";",2)
  ;
-FINISH(ISTR)    ; EXTRINSIC TO RETURN THE LAST LINE FROM AN INDEX
+FINISH(ISTR)       ; EXTRINSIC TO RETURN THE LAST LINE FROM AN INDEX
  ; TYPE STRING WITH THREE PIECES ARRAY;START;FINISH
  Q $P(ISTR,";",3)
  ;
-ARRAY(ISTR)     ; EXTRINSIC TO RETURN THE ARRAY REFERENCE FROM AN INDEX
+ARRAY(ISTR)         ; EXTRINSIC TO RETURN THE ARRAY REFERENCE FROM AN INDEX
  ; TYPE STRING WITH THREE PIECES ARRAY;START;FINISH
  Q $P(ISTR,";",1)
  ;
-BUILD(BLIST,BDEST)      ; A COPY MACHINE THAT TAKE INSTRUCTIONS IN ARRAY BLIST
+BUILD(BLIST,BDEST)           ; A COPY MACHINE THAT TAKE INSTRUCTIONS IN ARRAY BLIST
  ; WHICH HAVE ARRAY;START;FINISH AND COPIES THEM TO DEST
  ; DEST IS CLEARED TO START
@@ -204 +204 @@
  Q
  ;
-QUEUE(BLST,ARRAY,FIRST,LAST)    ; ADD AN ENTRY TO A BLIST
+QUEUE(BLST,ARRAY,FIRST,LAST)       ; ADD AN ENTRY TO A BLIST
  ;
  I DEBUG W "QUEUEING ",BLST,!
@@ -210 +210 @@
  Q
  ;
-CP(CPSRC,CPDEST)        ; COPIES CPSRC TO CPDEST BOTH PASSED BY NAME
+CP(CPSRC,CPDEST)               ; COPIES CPSRC TO CPDEST BOTH PASSED BY NAME
  ; KILLS CPDEST FIRST
  N CPINSTR
@@ -222 +222 @@
  Q
  ;
-QOPEN(QOBLIST,QOXML,QOXPATH)    ; ADD ALL BUT THE LAST LINE OF QOXML TO QOBLIST
+QOPEN(QOBLIST,QOXML,QOXPATH)       ; ADD ALL BUT THE LAST LINE OF QOXML TO QOBLIST
  ; WARNING NEED TO DO QCLOSE FOR SAME XML BEFORE CALLING BUILD
  ; QOXPATH IS OPTIONAL - WILL OPEN INSIDE THE XPATH POINT
@@ -242 +242 @@
  Q
  ;
-QCLOSE(QCBLIST,QCXML,QCXPATH)   ; CLOSE XML AFTER A QOPEN
+QCLOSE(QCBLIST,QCXML,QCXPATH)     ; CLOSE XML AFTER A QOPEN
  ; ADDS THE LIST LINE OF QCXML TO QCBLIST
  ; USED TO FINISH INSERTING CHILDERN NODES
@@ -261 +261 @@
  Q
  ;
-INSERT(INSXML,INSNEW,INSXPATH)  ; INSERT INSNEW INTO INSXML AT THE
+INSERT(INSXML,INSNEW,INSXPATH)   ; INSERT INSNEW INTO INSXML AT THE
  ; INSXPATH XPATH POINT INSXPATH IS OPTIONAL - IF IT IS
  ; OMITTED, INSERTION WILL BE AT THE ROOT
@@ -287 +287 @@
  Q
  ;
-INSINNER(INNXML,INNNEW,INNXPATH)        ; INSERT THE INNER XML OF INNNEW
+INSINNER(INNXML,INNNEW,INNXPATH)               ; INSERT THE INNER XML OF INNNEW
  ; INTO INNXML AT THE INNXPATH XPATH POINT
  ;
@@ -307 +307 @@
  Q
  ;
-INSB4(XDEST,XNEW) ; INSERT XNEW AT THE BEGINNING OF XDEST
+INSB4(XDEST,XNEW)       ; INSERT XNEW AT THE BEGINNING OF XDEST
  ; BUT XDEST AN XNEW ARE PASSED BY NAME
  N XBLD,XTMP
@@ -318 +318 @@
  Q
  ;
-REPLACE(REXML,RENEW,REXPATH)    ; REPLACE THE XML AT THE XPATH POINT
+REPLACE(REXML,RENEW,REXPATH)       ; REPLACE THE XML AT THE XPATH POINT
  ; WITH RENEW - NOTE THIS WILL DELETE WHAT WAS THERE BEFORE
  ; REXML AND RENEW ARE PASSED BY NAME XPATH IS A VALUE
@@ -342 +342 @@
  Q
  ;
-MISSING(IXML,OARY)      ; SEARTH THROUGH INXLM AND PUT ANY @@X@@ VARS IN OARY
+MISSING(IXML,OARY)           ; SEARTH THROUGH INXLM AND PUT ANY @@X@@ VARS IN OARY
  ; W "Reporting on the missing",!
  ; W OARY
@@ -354 +354 @@
  Q
  ;
-MAP(IXML,INARY,OXML)    ; SUBSTITUTE MULTIPLE @@X@@ VARS WITH VALUES IN INARY
+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
@@ -379 +379 @@
  Q
  ;
-DOFLD ; PROCESS A FILEMAN FIELD REFERENCED BY A VARIABLE
- ;
- Q
- ;
-TRIM(THEXML) ; TAKES OUT ALL NULL ELEMENTS
+DOFLD   ; PROCESS A FILEMAN FIELD REFERENCED BY A VARIABLE
+ ;
+ Q
+ ;
+TRIM(THEXML)    ; TAKES OUT ALL NULL ELEMENTS
  ; THEXML IS PASSED BY NAME
  N I,J,TMPXML,DEL,FOUND,INTXT
@@ -421 +421 @@
  Q FOUND
  ;
-UNMARK(XSEC) ; REMOVE MARKUP FROM FIRST AND LAST LINE OF XML
+UNMARK(XSEC)    ; REMOVE MARKUP FROM FIRST AND LAST LINE OF XML
  ; XSEC IS A SECTION PASSED BY NAME
  N XBLD,XTMP
@@ -429 +429 @@
  Q
  ;
-PARY(GLO)       ;PRINT AN ARRAY
+PARY(GLO)             ;PRINT AN ARRAY
  N I
  F I=1:1:@GLO@(0) W I_" "_@GLO@(I),!
  Q
  ;
-H2ARY(IARYRTN,IHASH,IPRE) ; CONVERT IHASH TO RETURN ARRAY
+H2ARY(IARYRTN,IHASH,IPRE)       ; CONVERT IHASH TO RETURN ARRAY
  ; IPRE IS OPTIONAL PREFIX FOR THE ELEMENTS. USED FOR MUPTIPLES 1^"VAR"^VALUE
  I '$D(IPRE) S IPRE=""
@@ -460 +460 @@
  Q
  ;
-XVARS(XVRTN,XVIXML) ; RETURNS AN ARRAY XVRTN OF ALL UNIQUE VARIABLES
+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
@@ -471 +471 @@
  Q
  ;
-DXVARS(DXIN) ;DISPLAY ALL VARIABLES IN A TEMPLATE
+DXVARS(DXIN)    ;DISPLAY ALL VARIABLES IN A TEMPLATE
  ; IF PARAMETERS ARE NULL, DEFAULTS TO CCR TEMPLATE
  ;
@@ -487 +487 @@
  Q
  ;
-TEST     ; Run all the test cases
+TEST        ; Run all the test cases
  D TESTALL^C0CUNIT("C0CXPAT0")
  Q
  ;
-ZTEST(WHICH)    ; RUN ONE SET OF TESTS
+ZTEST(WHICH)       ; RUN ONE SET OF TESTS
  N ZTMP
  S DEBUG=1
@@ -498 +498 @@
  Q
  ;
-TLIST   ; LIST THE TESTS
+TLIST     ; LIST THE TESTS
  N ZTMP
  D ZLOAD^C0CUNIT("ZTMP","C0CXPAT0")