Changeset 1367 for fmts/trunk/p

Timestamp:

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

Author:

George Lilly

Message:

RDF output from triples

Location:

fmts/trunk/p

Files:

• C0XF2N.m (modified) (6 diffs)
• C0XGET1.m (modified) (2 diffs)
• C0XRDF.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/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

fmts/trunk/p/C0XGET1.m

@@ -114 +114 @@
  W !,"s:",zsub," p:",zpred," o:",zobj
  d trip(.tmprtn,zsub,zpred,zobj,zgraph,fary)
- n zzz,zrsub,zrpred,zrobj,zgraph,zcnt,zrary
- s zzz=""
- f  s zzz=$o(tmprtn(zzz)) q:zzz=""  d  ;
- . s zrsub=$$GET1^DIQ(C0XTFN,zzz_",",.03,"E")
- . s zrpred=$$GET1^DIQ(C0XTFN,zzz_",",.04,"E")
- . s zrobj=$$GET1^DIQ(C0XTFN,zzz_",",.05,"E")
- . s zrgraph=$$GET1^DIQ(C0XTFN,zzz_",",.02,"E")
- . s zrary(zrsub,zrpred_"^"_zrobj)=""
- ;b
- ;
+ d ien2tary(.zrary,"tmprtn") ; convert to triples
+ ;
+ d rdfout^C0XRDF(.triplertn,.zrary) q  ;
  i REPLYFMT="JSON" d jsonout(.triplertn,.zrary) q  ; what follows is 'else'
  ;
@@ -135 +128 @@
  . . s triplertn(zcnt)=zrsub_"^"_zzz
  . . s zcnt=zcnt+1
+ q
+ ;
+ien2tary(zrary,zinary) ; zinary is an array of iens passed by name
+ ; zrary is passed by reference and is return array of triples
+ ; format zrary(zsub,"zpred^zobj")=""
+ ;
+ n zzz,zrsub,zrpred,zrobj,zgraph,zcnt
+ s zzz=""
+ f  s zzz=$o(@zinary@(zzz)) q:zzz=""  d  ;
+ . s zrsub=$$GET1^DIQ(C0XTFN,zzz_",",.03,"E")
+ . s zrpred=$$GET1^DIQ(C0XTFN,zzz_",",.04,"E")
+ . s zrobj=$$GET1^DIQ(C0XTFN,zzz_",",.05,"E")
+ . s zrgraph=$$GET1^DIQ(C0XTFN,zzz_",",.02,"E")
+ . s zrary(zrsub,zrpred_"^"_zrobj)=""
  q
  ;