Changeset 1359 for fmts/trunk/p

Timestamp:

Feb 14, 2012, 6:42:07 PM (13 years ago)

Author:

George Lilly

Message:

changes to support VistAOWL

Location:

fmts/trunk/p

Files:

• C0XF2N.m (modified) (7 diffs)
• C0XUTIL.m (modified) (1 diff)

fmts/trunk/p/C0XF2N.m

@@ -206 +206 @@
  Q
  ;
+VISTAOWL ;
+ S ZRDF=$NA(^TMP("C0X",542,"FILEIN"))
+ S ZNAME="/home/glilly/vistaowl/VistAOWL.owl"
+ S ZGRAPH="_:G431590209"
+ S FARY="C0XFARY"
+ D INITFARY(FARY)
+ S C0XDOCID=1
+ S BATCNT=0
+ S BATMAX=10000
+ D PROCESS(.G,ZRDF,ZGRAPH,ZNAME,FARY)
+ Q
+ ;
 PROCESS(ZRTN,ZRDF,ZGRF,ZMETA,FARY) ; PROCESS AN INCOMING RDF FILE
  ; ZRTN IS PASS BY REFERENCE AND RETURNS MESSAGES ABOUT THE PROCESSING
@@ -221 +233 @@
  ;S C0XDOCID=$$PARSE^C0CNHIN(ZRDF,"C0XARRAY") ; PARSE WITH MXML
  S C0XDLC2=$$NOW^XLFDT ; START OF PARSE
- S C0XDOCID=$$EN^MXMLDOM(ZRDF,"W")
+ ;S C0XDOCID=$$EN^MXMLDOM(ZRDF,"W") ; DON'T PARSE JUST NOW
  ;B
  K @ZRDF ; DON'T NEED INPUT BUFFER ANYMORE
  ; -- assign the MXLM dom global name to ZDOM
- S ZDOM=$NA(^TMP("MXMLDOM",$J,C0XDOCID))
+ ;S ZDOM=$NA(^TMP("MXMLDOM",$J,C0XDOCID))
+ S ZDOM=$NA(^TMP("MXMLDOM",16850,C0XDOCID)) ;VISTAOWL DOM
  S C0XNODE=$O(@ZDOM@(""),-1)
  W !,C0XNODE," XML NODES PARSED"
@@ -260 +273 @@
  S C0XTYPE("rdf:Description")=1
  S C0XTYPE("owl:ObjectProperty")=1
+ S C0XTYPE("owl:Ontology")=1
  S ZI=$O(@ZDOM@(1,"C",""))
  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,*)
+ . ;zwr ^TMP("MXMLDOM",$J,*)
  ;
  ; -- now process the rdf description children
@@ -339 +353 @@
  ;
 SHOW(ZN) ;
- ZWR ^TMP("MXMLDOM",$J,1,ZN,*)
+ ;ZWR ^TMP("MXMLDOM",$J,1,ZN,*)
+ ZWR ^TMP("MXMLDOM",16850,1,ZN,*)
  Q
  ;
@@ -384 +399 @@
  . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.02)=$O(ZIENS("IEN","ZG",""))
  . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.03)=$O(ZIENS("IEN","ZS",""))
- . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.04)=$O(ZIENS("IEN","ZP",""))
+ . S C0XFDA(C0XTFN,"?+"_ATCNT_",",.04)=$O(ZIENS("IEN","ZP",""))
  . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.05)=$O(ZIENS("IEN","ZO",""))
  I BATCNT=BATMAX D  ; BATCH IS DONE
@@ -441 +456 @@
  F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; LOOK FOR MISSING STRINGS
  . S ZV=$O(ZINARY(ZI,""))
+ . I ZV["^" S ZV=$TR(ZV,"^","|")
  . I $O(@C0XSN@("B",ZV,""))="" D  ;
  . . S ZCNT=ZCNT+1
@@ -449 +465 @@
  F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; NOT GET ALL IENS
  . S ZV=$O(ZINARY(ZI,""))
+ . I ZV["^" S ZV=$TR(ZV,"^","|")
  . S ZIEN=$O(@C0XSN@("B",ZV,"")) ; THEY SHOULD BE THERE NOW
  . I ZIEN="" D  ;

fmts/trunk/p/C0XUTIL.m

@@ -55 +55 @@
  S C0XVOC("gpl")="http://georgetriples.org/"
  S C0XVOC("cg")="http://datasets.caregraf.org/"
+ S C0XVOC("mv")="http://metavista.name/foundation#"
+ S C0XVOC("rdfs")="http://www.w3.org/2000/01/rdf-schema#"
+ S C0XVOC("os")="http://osehra.org/ns#"
  Q
  ;