Changeset 1382 for fmts/trunk/p

Timestamp:

Mar 22, 2012, 1:14:13 PM (13 years ago)

Author:

George Lilly

Message:

new graph and tagText functions

File:

• fmts/trunk/p/C0XGET1.m (modified) (3 diffs)

fmts/trunk/p/C0XGET1.m

@@ -25 +25 @@
  D USEFARY^C0XF2N("C0XFARY")
  Q
+ ;
+graph(sub,pred,obj,form,fary) ; extrinsic which returns a graph name
+ I '$D(fary) D  ;
+ . S fary="C0XFARY"
+ . D INITFARY^C0XF2N(fary)
+ D USEFARY^C0XF2N(fary)
+ k triplertn ; start with a clean return
+ n zsub,zpred,zobj,zgraph,tmprtn
+ s zsub=$$IENOF($$EXT^C0XUTIL($g(sub)),fary) ; ien of subject
+ s zpred=$$IENOF($$EXT^C0XUTIL($g(pred)),fary) ; ien of predicate
+ s zobj=$$IENOF($$EXT^C0XUTIL($g(obj)),fary) ; ien of object
+ s zgraph=$$IENOF($g(graph),fary) ; ien of graph
+ W !,"s:",zsub," p:",zpred," o:",zobj
+ d trip(.tmprtn,zsub,zpred,zobj,zgraph,fary)
+ n ztmp
+ d trip(.ztmp,$g(sub),$g(pred),$g(obj),"",$g(fary))
+ n zi,zg,zrtn
+ s zi=$o(tmprtn(""))
+ s zg=$$GET1^DIQ(C0XTFN,zi,.02,"E") ;
+ i zg="" q ""
+ s zrtn=zg
+ i $o(tmprtn(zi))'="" d  
+ . s zrtn=""
+ q zrtn
  ;
 GRAPHS(RTN,C0XFARY) ; LIST ALL GRAPHS
@@ -265 +289 @@
  f  s zzz=$o(@zinary@(zzz)) q:zzz=""  d  ;
  . n zs
- . s zs=$$GET1^DIQ(C0XSFN,zzz_",",.01)
+ . ;s zs=$$GET1^DIQ(C0XSFN,zzz_",",.01)
+ . s zs=$$NSP^C0XUTIL(zzz) ; get namespaced string
  . q:zs=""
- . s zrary(zs)=""
+ . s zrary(zs)="" ; 
  q
  ;
@@ -423 +448 @@
  Q zout
  ;
+tagText(ztag) ; extrinsic which returns the location of the text
+ ; associated with ztag
+ n zs,zo
+ s zs=$$subject("fmts:tag",ztag)
+ i zs="" d  q  ;
+ . w !,"error, tag is either missing or there are more than one ",ztag
+ s zo=$$object(zs,"fmts:rdfSource")
+ i zo="" d  q  ;
+ . w !,"error, tag source not found ",zs
+ w !,zo
+ q $$WHERETXT^C0XF2N(zo)
+ ;