Changeset 1388 for fmts/trunk

Timestamp:

Mar 25, 2012, 11:53:47 PM (13 years ago)

Author:

George Lilly

Message:

new $$tagRoot command

File:

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

fmts/trunk/p/C0XGET1.m

@@ -37 +37 @@
  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
+ I $G(DEBUG) W !,"s:",zsub," p:",zpred," o:",zobj
  d trip(.tmprtn,zsub,zpred,zobj,zgraph,fary)
  n ztmp
@@ -151 +151 @@
  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
+ I $G(DEBUG) W !,"s:",zsub," p:",zpred," o:",zobj
  d trip(.tmprtn,zsub,zpred,zobj,zgraph,fary)
  d ien2tary(.zrary,"tmprtn") ; convert to triples
@@ -206 +206 @@
  s zobj=$$IENOF($$EXT^C0XUTIL($g(obj)),fary) ; ien of obj
  s zgraph=$$IENOF($g(graph),fary) ; ien of graph
- W !,"s:",zsub," p:",zpred," o:",zobj
+ I $G(DEBUG) W !,"s:",zsub," p:",zpred," o:",zobj
  n c0xflag,zi,zx,zt
  s zt=$na(^C0X(101)) ; 
@@ -240 +240 @@
  s zx=itbl(c0xflag,zi) ; executable instruction to run
  ;i $g(ngraph)'="" s zi="G"_zi ; this is wrong.. don't do graphs yet
- w !,c0xflag," ",zw," ",zt," ",zi," ",zx,!
+ i $g(DEBUG) w !,c0xflag," ",zw," ",zt," ",zi," ",zx,!
  ;zwr itbl
  x zx
@@ -352 +352 @@
  s zx=itbl(c0xflag,zi) ; executable instruction to run
  i $g(ngraph)'="" s zi="G"_zi
- w !,zx
+ i $g(DEBUG) w !,zx
  x zx
  q
@@ -460 +460 @@
  q $$WHERETXT^C0XF2N(zo)
  ;
+tagRoot(ztag) ; extrinsic which returns the root for graphs and subjects
+ ; associated with ztag
+ n zs,zo
+ s zs=$$subject("fmts:fileTag",ztag)
+ i zs="" d  q "" ;
+ . w !,"error, tag is either missing or there are more than one ",ztag
+ s zo=$$object(zs,"fmts:root")
+ i zo="" d  q "" ;
+ . w !,"error, root not found ",zs
+ ;w !,zo
+ q zo
+ ;