updates for add triples

This commit is contained in:
george 2012-03-25 20:10:53 +00:00
parent b1e90f8891
commit f3c4ebbc56
3 changed files with 10 additions and 2 deletions

View File

@ -385,6 +385,11 @@ NEWG(NGRAPH,NMETA) ; CREATES A NEW META GRAPH, MARKS IT AS UNFINISHED
S NMETA=NGRAPH_"A"
Q
;
STARTADD ; INITIALIZE C0XFDA AND BATCNT
K C0XFDA
K BATCNT
Q
;
ADD(ZG,ZS,ZP,ZO,FARY) ; ADD A TRIPLE TO THE TRIPLESTORE. ALL VALUES ARE TEXT
; THE FDA IS SET UP BUT THE FILES ARE NOT UPDATED. CALL UPDIE TO COMPLETE
I '$D(FARY) D ;

View File

@ -451,10 +451,10 @@ tagText(ztag) ; extrinsic which returns the location of the text
; associated with ztag
n zs,zo
s zs=$$subject("fmts:fileTag",ztag)
i zs="" d q ;
i zs="" d q "" ;
. w !,"error, tag is either missing or there are more than one ",ztag
s zo=$$object(zs,"fmts:fileSource")
i zo="" d q ;
i zo="" d q "" ;
. w !,"error, tag source not found ",zs
w !,zo
q $$WHERETXT^C0XF2N(zo)

View File

@ -60,6 +60,9 @@ VOCINIT ; INITIALIZE VOCABULARIES
S C0XVOC("vmu")="http://vista.org/mu/"
S C0XVOC("vq")="http://vista.org/quality/"
S C0XVOC("nodeID")="iDPsDPss"
S C0XVOC("fmts")="http://glilly.net/fmts#"
S C0XVOC("oro")="http://oro.com/vista/sage" ;change to get URL from system
S C0XVOC("sage")="http://oro.com/sage/schema#"
Q
;
EXT(C0XIN) ; EXTRINSIC WHICH EXPANDS NAMESPACES