some bug fixes

This commit is contained in:
george 2012-03-07 22:16:49 +00:00
parent 5aa04241d3
commit fd9863b165
2 changed files with 3 additions and 2 deletions

View File

@ -142,7 +142,7 @@ INSRDF(ZRDF,ZNAME,FARY) ; INSERT AN RDF FILE INTO THE STORE AND PROCESS
S BATMAX=10000 ; TRY BATCHES OF THIS SIZE
N ZGRAPH,ZSUBJECT
S ZGRAPH="_:G"_$$LKY9 ; RANDOM GRAPH NAME
S ZSUBJECT=$$ANONS ; RANDOM ANOYMOUS SUBJECT
S ZSUBJECT=$$ANONS() ; RANDOM ANOYMOUS SUBJECT
D ADD(ZGRAPH,ZSUBJECT,"fmts:url",ZNAME,FARY)
N ZTXTNM
S ZTXTNM="_TXT_INCOMING_RDF_FILE_"_ZNAME_"_"_$$LKY9 ; NAME FOR TEXT NODE
@ -463,7 +463,7 @@ IENOFA(ZOUTARY,INARY,FARY) ; RESOLVE STRINGS TO IEN IN STRINGS FILE
. S FARY="C0XFARY"
K ZOUTARY ; START WITH CLEAN RESULTS
K C0XFDA2 ; USE A SEPARATE FDA FOR THIS
I '$D(C0XVOC) D INITVOC^C0XUTIL
I '$D(C0XVOC) D VOCINIT^C0XUTIL
N ZINARY
N ZI S ZI=""
F S ZI=$O(INARY(ZI)) Q:ZI="" D ;

View File

@ -151,6 +151,7 @@ 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")=""
;
k zrary ; start out clean
n zzz,zrsub,zrpred,zrobj,zgraph,zcnt
s zzz=""
f s zzz=$o(@zinary@(zzz)) q:zzz="" d ;