Changeset 1367 for fmts/trunk/p/C0XF2N.m

Timestamp:

Feb 26, 2012, 11:37:05 PM (12 years ago)

Author:

George Lilly

Message:

RDF output from triples

File:

• fmts/trunk/p/C0XF2N.m (modified) (6 diffs)

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/vista/gpl/C0Q/trunk/rdf/"
+ S @ZFARY@("C0XDIR")="/home/glilly/fmts/trunk/samples/smart-rdf-in/"
  S @ZFARY@("BLKLOAD")=1 ; this file supports block load
  S @ZFARY@("FMTSSTYLE")="F2N" ; fileman style
@@ -271 +271 @@
  W !,"VOCABS:"
  N ZZ S ZZ=""
- F  S ZZ=$O(C0XVOC(ZZ)) Q:ZZ=""  W !,ZZ,":",C0CVOC(ZZ)
+ F  S ZZ=$O(C0XVOC(ZZ)) Q:ZZ=""  W !,ZZ,":",C0XVOC(ZZ)
  ;
  ; -- look for children called rdf:Description. quit if none. not an rdf file
@@ -398 +398 @@
  ;S ZOIEN=$$IENOF(ZO)
  ;I $D(C0XFDA) D UPDIE ; ADD THE STRINGS IF NEEDED
+ I '$D(BATCNT) S BATCNT=0
  S BATCNT=BATCNT+1
  S C0XCNT=C0XCNT+1
@@ -412 +413 @@
  . S C0XFDA(C0XTFN,"?+"_ATCNT_",",.04)=$O(ZIENS("IEN","ZP",""))
  . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.05)=$O(ZIENS("IEN","ZO",""))
+ I '$D(BATMAX) S BATMAX=10000
  I BATCNT=BATMAX D  ; BATCH IS DONE
  . I $G(BLKLOAD) D  ; bulk load
@@ -452 +454 @@
  Q ZIEN
  ;
-IENOFA(ZOUTARY,ZINARY,FARY) ; RESOLVE STRINGS TO IEN IN STRINGS FILE 
+IENOFA(ZOUTARY,INARY,FARY) ; RESOLVE STRINGS TO IEN IN STRINGS FILE 
  ; OR ADD THEM IF
  ; MISSING. ZINARY AND ZOUTARY ARE PASSED BY REFERENCE 
@@ -462 +464 @@
  K ZOUTARY ; START WITH CLEAN RESULTS
  K C0XFDA2 ; USE A SEPARATE FDA FOR THIS
+ I '$D(C0XVOC) D INITVOC^C0XUTIL
+ N ZINARY 
  N ZI S ZI=""
+ F  S ZI=$O(INARY(ZI)) Q:ZI=""  D  ;
+ . N ZK
+ . S ZK=$O(INARY(ZI,""))
+ . S ZINARY($$EXT^C0XUTIL(ZI),$$EXT^C0XUTIL(ZK))=""
  N ZV,ZIEN
  N ZCNT S ZCNT=0