Changeset 1322

Timestamp:

Dec 13, 2011, 2:41:53 PM (12 years ago)

Author:

George Lilly

Message:

added fileman output transform using namespaces

Location:

fmts/trunk

Files:

• kids/C0X_1_0_0_T8.KID (added)
• p/C0XF2N.m (modified) (5 diffs)
• p/C0XTKSB.m (added)
• p/C0XUTIL.m (added)

fmts/trunk/p/C0XF2N.m

@@ -38 +38 @@
  S @ZFARY@("C0XTN")=$NA(^C0X(101)) ; TRIPLES GLOBAL NAME
  S @ZFARY@("C0XSN")=$NA(^C0X(201)) ; STRING FILE GLOBAL NAME
- S @ZFARY@("C0XDIR")="/home/glilly/fmts/trunk/samples/"
+ S @ZFARY@("C0XDIR")="/home/glilly/snomed/"
  S @ZFARY@("BLKLOAD")=1 ; this file supports block load
  S @ZFARY@("FMTSSTYLE")="F2N" ; fileman style
@@ -104 +104 @@
  K INURL
  K C0XFDA
- K ^TMP("MXMLDOM",$J)
+ ;K ^TMP("MXMLDOM",$J)
  Q
  ;
@@ -221 +221 @@
  S C0XDLC2=$$NOW^XLFDT ; START OF PARSE
  S C0XDOCID=$$EN^MXMLDOM(ZRDF,"W")
+ ;B
  K @ZRDF ; DON'T NEED INPUT BUFFER ANYMORE
  ; -- assign the MXLM dom global name to ZDOM
@@ -252 +253 @@
  . S ZVOC=$P(ZI,"xmlns:",2)
  . I ZVOC'="" S C0XVOC(ZVOC)=$G(@ZDOM@(1,"A",ZI))
- ;W !,"VOCABS:" ZWR C0XVOC
+ W !,"VOCABS:" ZWR C0XVOC
  ;
  ; -- look for children called rdf:Description. quit if none. not an rdf file
  ;
+ S C0XTYPE("rdf:Description")=1
+ S C0XTYPE("owl:ObjectProperty")=1
  S ZI=$O(@ZDOM@(1,"C",""))
- I $G(@ZDOM@(1,"C",ZI))'="rdf:Description" D  Q  ; not an rdf file
+ I '$G(C0XTYPE(@ZDOM@(1,"C",ZI))) D  Q  ; not an rdf file
  . W !,"Error. Not an RDF file. Cannot process."
+ . zwr ^TMP("MXMLDOM",$J,*)
  ;
  ; -- now process the rdf description children
@@ -268 +272 @@
  . ; -- TODO: check to see if this is right in general
  . ;
- . IF $G(@ZDOM@(1,"C",ZI))'="rdf:Description" D  Q  ;
+ . IF '$G(C0XTYPE(@ZDOM@(1,"C",ZI))) D  Q  ;
  . . W !,"SKIPPING NODE: ",ZI
  . ; -- now looking for the subject for the triples