Changeset 1349 for fmts

Timestamp:

Jan 27, 2012, 10:51:57 PM (13 years ago)

Author:

George Lilly

Message:

added retrival of triples

Location:

fmts/trunk/p

Files:

• C0XF2N.m (modified) (2 diffs)
• C0XGET1.m (modified) (3 diffs)
• C0XUTIL.m (modified) (1 diff)

fmts/trunk/p/C0XF2N.m

@@ -416 +416 @@
  . S FARY="C0XFARY"
  N ZIEN
+ I $G(ZSTRING)="" Q "" ; NO STRING
  S ZIEN=$O(@C0XSN@("B",ZSTRING,""))
  I ZIEN="" D  ;
@@ -501 +502 @@
  . S ZIEN=ZI+ZBASE ; the new ien
  . S ^C0X(101,ZIEN,0)=ZN_U_ZG_U_ZS_U_ZP_U_ZO ; set the zero node
- . S ^C0X(101,"B",ZN,ZIEN)="" ; the B index
- . S ^C0X(101,"G",ZG,ZIEN)="" ; the G for Graph index
- . S ^C0X(101,"SPO",ZS,ZP,ZO)=""
- . S ^C0X(101,"SOP",ZS,ZO,ZP)=""
- . S ^C0X(101,"OPS",ZO,ZP,ZS)=""
- . S ^C0X(101,"OSP",ZO,ZS,ZP)=""
- . S ^C0X(101,"GOPS",ZG,ZO,ZP,ZS)=""
- . S ^C0X(101,"GOSP",ZG,ZO,ZS,ZP)=""
- . S ^C0X(101,"GPSO",ZG,ZP,ZS,ZO)=""
- . S ^C0X(101,"GSPO",ZG,ZS,ZP,ZO)=""
+ . D INDEX(ZIEN,ZN,ZG,ZS,ZP,ZO)
+ Q
+ ;
+INDEX(ZIEN,ZN,ZG,ZS,ZP,ZO) ; HARD SET THE INDEX FOR ONE ENTRY
+ S ^C0X(101,"B",ZN,ZIEN)="" ; the B index
+ S ^C0X(101,"G",ZG,ZIEN)="" ; the G for Graph index
+ S ^C0X(101,"SPO",ZS,ZP,ZO,ZIEN)=""
+ S ^C0X(101,"SOP",ZS,ZO,ZP,ZIEN)=""
+ S ^C0X(101,"OPS",ZO,ZP,ZS,ZIEN)=""
+ S ^C0X(101,"OSP",ZO,ZS,ZP,ZIEN)=""
+ S ^C0X(101,"PSO",ZP,ZS,ZO,ZIEN)=""
+ S ^C0X(101,"POS",ZP,ZO,ZS,ZIEN)=""
+ S ^C0X(101,"GOPS",ZG,ZO,ZP,ZS,ZIEN)=""
+ S ^C0X(101,"GOSP",ZG,ZO,ZS,ZP,ZIEN)=""
+ S ^C0X(101,"GPSO",ZG,ZP,ZS,ZO,ZIEN)=""
+ S ^C0X(101,"GPOS",ZG,ZP,ZO,ZS,ZIEN)=""
+ S ^C0X(101,"GSPO",ZG,ZS,ZP,ZO,ZIEN)=""
+ S ^C0X(101,"GSOP",ZG,ZS,ZO,ZP,ZIEN)=""
+ Q
+ ;
+REINDEX ; REINDEX THE ^C0X(101, TRIPLE STORE
+ K ^C0X(101,"B")
+ K ^C0X(101,"G")
+ K ^C0X(101,"SPO")
+ K ^C0X(101,"SOP")
+ K ^C0X(101,"OPS")
+ K ^C0X(101,"OSP")
+ K ^C0X(101,"PSO")
+ K ^C0X(101,"POS")
+ K ^C0X(101,"GOPS")
+ K ^C0X(101,"GOSP")
+ K ^C0X(101,"GPSO")
+ K ^C0X(101,"GPOS")
+ K ^C0X(101,"GSPO")
+ K ^C0X(101,"GSOP")
+ N ZIEN,ZZ
+ S ZIEN=0
+ F  S ZIEN=$O(^C0X(101,ZIEN)) Q:+ZIEN=0  D  ; FOR EACH NODE
+ . S ZZ=$G(^C0X(101,ZIEN,0))
+ . I ZZ="" D  Q  ;
+ . . W !,"ERROR REINDEXING NODE ",ZI
+ . S ZN=$P(ZZ,"^",1)
+ . S ZG=$P(ZZ,"^",2)
+ . S ZS=$P(ZZ,"^",3)
+ . S ZP=$P(ZZ,"^",4)
+ . S ZO=$P(ZZ,"^",5) 
+ . D INDEX(ZIEN,ZN,ZG,ZS,ZP,ZO)
  Q
  ;

fmts/trunk/p/C0XGET1.m

@@ -26 +26 @@
  Q
  ;
-LSGRFS(RTN,C0XFARY) ; LIST ALL GRAPHS
+GRAPHS(RTN,C0XFARY) ; LIST ALL GRAPHS
  ;
  I '$D(C0XFARY) D INITFARY^C0XF2N("C0XFARY")
@@ -57 +57 @@
  ;
 NXT(ZRTN) ;EXTRINSIC FOR THE NEXT NODE IN ARRAY ZRTN, PASSED BY REF
+ I '$D(ZRTN) S ZRTN=""
  Q $O(ZRTN(""),-1)+1
  ;
@@ -62 +63 @@
  ;
  I '$D(C0XFARY) D INITFARY^C0XF2N("C0XFARY")
+ I '$D(ZRTN) S ZRTN=""
  N ZI,ZN S ZI=""
- F  S ZI=$O(@C0XTN@("GSO",ZG,ZI)) Q:ZI=""  D  ;
- . S ZRTN($$NXT(ZRTN),"S")=$$STR(ZI)
+ F  S ZI=$O(@C0XTN@("GSPO",ZG,ZI)) Q:ZI=""  D  ;
+ . S ZRTN($$NXT(.ZRTN),"S")=$$STR(ZI)
  Q
  ;
+triples(triplertn,sub,pred,obj,graph,fary) ; returns triples
+ I '$D(fary) D  ;
+ . D INITFARY^C0XF2N("C0XFARY")
+ . S fary="C0XFARY"
+ D USEFARY^C0XF2N(fary)
+ k triplertn ; start with a clean return
+ n zsub,zpred,zobj,zgraph,tmprtn
+ s zsub=$$IENOF^C0XF2N($$EXT^C0XUTIL($g(sub)),fary) ; ien of subject
+ s zpred=$$IENOF^C0XF2N($$EXT^C0XUTIL($g(pred)),fary) ; ien of predicate
+ s zobj=$$IENOF^C0XF2N($$EXT^C0XUTIL($g(obj)),fary) ; ien of object
+ s zgraph=$$IENOF^C0XF2N($g(graph),fary) ; ien of graph
+ W !,"s:",zsub," p:",zpred," o:",zobj
+ d trip(.tmprtn,zsub,zpred,zobj,zgraph,fary)
+ n zzz,zrsub,zrpred,zrobj,zgraph
+ 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 triplertn(zzz)=zrsub_"^"_zrpred_"^"_zrobj ; _"^"_zrgraph
+ q
+ ;
+trip(triprtn,nsub,npred,nobj,ngraph,fary) ; returns triples iens
+ ; nsub,npred,nobj are all optional
+ ; graf is also optional, and will limit the search to a particular ngraph
+ ; fary is which triple store (not implemented yet)
+ n c0xflag,zi,zx,zt
+ s zt=$na(^C0X(101)) ; 
+ n zf1,zf2,zf3
+ s zf1=$s($g(nsub)="":0,1:1)
+ s zf2=$s($g(npred)="":0,1:1)
+ s zf3=$s($g(nobj)="":0,1:1)
+ s c0xflag="I"_zf1_zf2_zf3
+ n itbl
+ s itbl("I000","SPO")="d do3(.triprtn,zt,zi)"
+ s itbl("I001","OSP")="d do2(.triprtn,zt,zi,nobj)"
+ s itbl("I010","PSO")="d do2(.triprtn,zt,zi,npred)"
+ s itbl("I011","POS")="d do1(.triprtn,zt,zi,npred,nobj)"
+ s itbl("I100","SPO")="d do2(.triprtn,zt,zi,nsub)"
+ s itbl("I101","SOP")="d do1(.triprtn,zt,zi,nsub,nobj)"
+ s itbl("I110","SPO")="d do1(.triprtn,zt,zi,nsub,npred)"
+ s itbl("I111","SPO")="d do0(.triprtn,zt,zi,nsub,npred,nobj)"
+ s zi=$o(itbl(c0xflag,""))
+ s zx=itbl(c0xflag,zi) ; executable instruction to run
+ i $g(ngraph)'="" s zi="G"_zi
+ w !,zx
+ x zx
+ q
+ ;
+do0(dortn,zt,zi,z1,z2,z3)
+ ; looking for only one triple
+ n zz
+ s zz=$o(@zt@(zi,z1,z2,z3,""))
+ i zz'="" s dortn(zz)=""
+ q
+ ;
+do1(dortn,zt,zi,z1,z2) ; have 2, looking for one
+ n zr,zx1
+ s zx1=""
+ f  s zx1=$o(@zt@(zi,z1,z2,zx1)) q:zx1=""  d  ;
+ . s zr=$o(@zt@(zi,z1,z2,zx1,""))
+ . s dortn(zr)=""
+ q
+ ;
+do2(dortn,zt,zi,z1) ; have one, looking for 2
+ n zr,zx1,zx2
+ s (zx1,zx2)=""
+ f  s zx1=$o(@zt@(zi,z1,zx1)) q:zx1=""  d  ;
+ . f  s zx2=$o(@zt@(zi,z1,zx1,zx2)) q:zx2=""  d  ;
+ . . s zr=$o(@zt@(zi,z1,zx1,zx2,""))
+ . . s dortn(zr)=""
+ q
+ ;
+do3(dortn,zt,zi) ; have none, looking for three
+ n zr,zx1,zx2,zx3
+ s (zx1,zx2,zx3)=""
+ f  s zx1=$o(@zt@(zi,zx1)) q:zx1=""  d  ;
+ . f  s zx2=$o(@zt@(zi,zx1,zx2)) q:zx2=""  d  ;
+ . . f  s zx3=$o(@zt@(zi,zx1,zx2,zx3)) q:zx3=""  d  ;
+ . . . s zr=$o(@zt@(zi,zx1,zx2,zx3,""))
+ . . . s dortn(zr)=""
+ q
+ ;

fmts/trunk/p/C0XUTIL.m

@@ -52 +52 @@
  S C0XVOC("file")="/home/glilly/fmts/trunk/samples/"
  S C0XVOC("foaf")="http://xmlns.com/foaf/0.1/"
+ S C0XVOC("skos")="http://www.w3.org/2004/02/skos/core#"
+ S C0XVOC("gpl")="http://georgetriples.org/"
+ S C0XVOC("cg")="http://datasets.caregraf.org/"
  Q
  ;
+EXT(C0XIN) ; EXTRINSIC WHICH EXPANDS NAMESPACES
+ ; SO skos:xxx would return http://www.w3.org/2004/02/skos/core#xxx
+ N C0XPRE
+ S C0XPRE=C0XIN
+ I '$D(C0XVOC) D VOCINIT ; INITIALIZE NAME SPACE TABLE
+ I C0XPRE[":" D  ; expand using vocabulary
+ . N ZB,ZA
+ . S ZB=$P(C0XPRE,":",1)
+ . S ZA=$P(C0XPRE,":",2)
+ . I $G(C0XVOC(ZB))'="" D  ;
+ . . S C0XPRE=C0XVOC(ZB)_ZA ; expanded 
+ Q C0XPRE
+ ;