Changeset 1336 for ccr/trunk/p/C0CDOM.m

Timestamp:

Jan 4, 2012, 9:39:08 PM (13 years ago)

Author:

George Lilly

Message:

removed tabs

File:

• ccr/trunk/p/C0CDOM.m (modified) (9 diffs)

ccr/trunk/p/C0CDOM.m

@@ -1 @@
-C0CDOM    ; GPL - DOM PROCESSING ROUTINES ;6/6/11  17:05
+C0CDOM   ; GPL - DOM PROCESSING ROUTINES ;6/6/11  17:05
  ;;0.1;C0C;nopatch;noreleasedate;Build 38
  ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
@@ -20 +20 @@
  Q
  ;
-DOMO(ZOID,ZPATH,ZNARY,ZXIDX,ZXPARY,ZNUM,ZREDUX) ; RECURSIVE ROUTINE TO POPULATE
+DOMO(ZOID,ZPATH,ZNARY,ZXIDX,ZXPARY,ZNUM,ZREDUX) ; RECURSIVE ROUTINE TO POPULATE
  ; THE XPATH INDEX ZXIDX, PASSED BY NAME
  ; THE XPATH ARRAY XPARY, PASSED BY NAME
@@ -82 +82 @@
  Q
  ;
-PARSE(INXML,INDOC)      ;CALL THE MXML PARSER ON INXML, PASSED BY NAME
+PARSE(INXML,INDOC) ;CALL THE MXML PARSER ON INXML, PASSED BY NAME
  ; INDOC IS PASSED AS THE DOCUMENT NAME - DON'T KNOW WHERE TO STORE THIS NOW
  ; EXTRINSIC WHICH RETURNS THE DOCID ASSIGNED BY MXML
@@ -88 +88 @@
  Q $$EN^MXMLDOM(INXML,"W")
  ;
-ISMULT(ZOID)    ; RETURN TRUE IF ZOID IS ONE OF A MULTIPLE
+ISMULT(ZOID) ; RETURN TRUE IF ZOID IS ONE OF A MULTIPLE
  N ZN
  ;I $$TAG(ZOID)["entry" B
@@ -95 +95 @@
  Q 0
  ;
-FIRST(ZOID)     ;RETURNS THE OID OF THE FIRST CHILD OF ZOID
+FIRST(ZOID) ;RETURNS THE OID OF THE FIRST CHILD OF ZOID
  Q $$CHILD^MXMLDOM(C0CDOCID,ZOID)
  ;
-PARENT(ZOID)    ;RETURNS THE OID OF THE PARENT OF ZOID
+PARENT(ZOID) ;RETURNS THE OID OF THE PARENT OF ZOID
  Q $$PARENT^MXMLDOM(C0CDOCID,ZOID)
  ;
-ATT(RTN,NODE)   ;GET ATTRIBUTES FOR ZOID
+ATT(RTN,NODE) ;GET ATTRIBUTES FOR ZOID
  S HANDLE=C0CDOCID
  K @RTN
@@ -107 +107 @@
  Q
  ;
-TAG(ZOID)       ; RETURNS THE XML TAG FOR THE NODE
+TAG(ZOID) ; RETURNS THE XML TAG FOR THE NODE
  ;I ZOID=149 B ;GPLTEST
  N X,Y
@@ -116 +116 @@
  Q Y
  ;
-NXTSIB(ZOID)    ; RETURNS THE NEXT SIBLING
+NXTSIB(ZOID) ; RETURNS THE NEXT SIBLING
  Q $$SIBLING^MXMLDOM(C0CDOCID,ZOID)
  ;
-DATA(ZT,ZOID)   ; RETURNS DATA FOR THE NODE
+DATA(ZT,ZOID) ; RETURNS DATA FOR THE NODE
  ;N ZT,ZN S ZT=""
  ;S C0CDOM=$NA(^TMP("MXMLDOM",$J,C0CDOCID))
@@ -126 +126 @@
  Q
  ;
-OUTXML(ZRTN,INID,NO1ST) ; USES C0CMXMLB (MXMLBLD) TO OUTPUT XML FROM AN MXMLDOM
+OUTXML(ZRTN,INID,NO1ST) ; USES C0CMXMLB (MXMLBLD) TO OUTPUT XML FROM AN MXMLDOM
  ;
  S C0CDOCID=INID
@@ -137 +137 @@
  Q
  ;
-NDOUT(ZOID)     ;CALLBACK ROUTINE - IT IS RECURSIVE
+NDOUT(ZOID) ;CALLBACK ROUTINE - IT IS RECURSIVE
  N ZI S ZI=$$FIRST(ZOID)
  I ZI'=0 D  ; THERE IS A CHILD