Changeset 1376 for fmts/trunk/p

Timestamp:

Mar 10, 2012, 12:16:58 AM (13 years ago)

Author:

George Lilly

Message:

more on objects preds subjects

Location:

fmts/trunk/p

Files:

• C0XF2N.m (modified) (1 diff)
• C0XGET1.m (modified) (7 diffs)

fmts/trunk/p/C0XF2N.m

@@ -440 +440 @@
  Q ZN
  ;
+ ; these routines add the string if it is not found
+ ;
 IENOF(ZSTRING,FARY) ; EXTRINSIC WHICH RETURNS THE IEN OF ZS IN THE STRINGS FILE
  I '$D(FARY) D  ;

fmts/trunk/p/C0XGET1.m

@@ -123 +123 @@
  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
+ 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)
@@ -146 +146 @@
  ;
 objects(listrtn,sub,pred,obj,graph,form,fary) ; return list of subjects
- d onelist("O") ;subjects
- q
- ;
-onelist(zw) ; returns list
+ d onelist("O",$g(sub),$g(pred),"",$g(fary)) ;subjects
+ q
+ ;
+onelist(zw,sub,pred,obj,fary) ; returns list
  ; zw is S P or O depending on what should be returned
- I '$D(fary) D  ;
+ I $g(fary)="" D  ;
  . D INITFARY^C0XF2N("C0XFARY")
  . S fary="C0XFARY"
@@ -158 +158 @@
  k listrtn ; 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
+ s zsub=$$IENOF($$EXT^C0XUTIL($g(sub)),fary) ; ien of sub
+ s zpred=$$IENOF($$EXT^C0XUTIL($g(pred)),fary) ; ien of pred
+ 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
  n c0xflag,zi,zx,zt
  s zt=$na(^C0X(101)) ; 
- s c0xflag=$$meta(zsub,zpred,zobj) ; get meta flags
+ s c0xflag=$$mask(zsub,zpred,zobj) ; get mask flags
  k tmprtn
  n itbl,ii,ix
@@ -173 +173 @@
  s ix=$s(zw="O":"d just(zobj)",1:"d zip1(.tmprtn,zt,zi,zobj)")
  s itbl("I001",ii)=ix
- s ii=$s(zw="S":"PSO",zw="P":"POS",zw="O":"OPS") ; pred constraint
- s ix=$s(zw="O":"d just(zpred)",1:"d zip1(.tmprtn,zt,zi,zpred)")
- s itbl("I010","PSO")=ix
+ s ii=$s(zw="S":"PSO",zw="P":"POS",zw="O":"POS") ; pred constraint
+ s ix=$s(zw="P":"d just(zpred)",1:"d zip1(.tmprtn,zt,zi,zpred)")
+ s itbl("I010",ii)=ix
  s ii=$s(zw="S":"POS",zw="P":"OPS",zw="O":"OSP") ; pred + obj constraint
  s ix=$s(zw="S":"d zip2(.tmprtn,zt,zi,zpred,zobj)",zw="P":"d just(zpred)",zw="O":"d just(zobj)",1:"d just(zobj)")
- s itbl("I011","POS")=ix
- s itbl("I100","SPO")="d zip(.tmprtn,zt,zi)"
- s itbl("I101","OSP")="d zip1(.tmprtn,zt,zi,zobj)"
- s itbl("I110","PSO")="d zip1(.tmprtn,zt,zi,zpred)"
- s itbl("I111","POS")="d zip2(.tmprtn,zt,zi,zpred,zobj)"
- s zi=$o(itbl(c0xflag,""))
+ s itbl("I011",ii)=ix
+ s ii=$s(zw="S":"SPO",zw="P":"SPO",zw="O":"SOP") ; sub constraint
+ s ix=$s(zw="S":"d just(zsub)",1:"d zip1(.tmprtn,zt,zi,zsub)")
+ s itbl("I100",ii)=ix
+ s ii=$s(zw="S":"SPO",zw="P":"SOP",zw="O":"OSP") ; sub + obj constraint
+ s ix=$s(zw="P":"d zip2(.tmprtn,zt,zi,zsub,zobj)",zw="S":"d just(zsub)",zw="O":"d just(zobj)",1:"d just(zobj)")
+ s itbl("I101",ii)=ix
+ s ii=$s(zw="S":"SPO",zw="P":"POS",zw="O":"SPO") ; sub + pred constraint
+ s ix=$s(zw="O":"d zip2(.tmprtn,zt,zi,zsub,zpred)",zw="S":"d just(zsub)",zw="P":"d just(zpred)",1:"d just(zsub)")
+ s itbl("I110",ii)=ix
+ s ii=$s(zw="S":"SPO",zw="P":"POS",zw="O":"OSP") ; sub + pred + obj constraint
+ s ix=$s(zw="O":"d just(zobj)",zw="S":"d just(zsub)",zw="P":"d just(zpred)",1:"d just(zsub)")
+ s itbl("I111",ii)=ix
+ ; end itbl definition
+ ;
+ s zi=$o(itbl(c0xflag,"")) ; find index to use
  s zx=itbl(c0xflag,zi) ; executable instruction to run
- i $g(ngraph)'="" s zi="G"_zi
- w !,zx
+ ;i $g(ngraph)'="" s zi="G"_zi ; this is wrong.. don't do graphs yet
+ w !,c0xflag," ",zw," ",zt," ",zi," ",zx,!
+ ;zwr itbl
  x zx
  k listrtn
@@ -268 +279 @@
  q
  ;
-meta(zsub,zpred,zobj) ; function to return meta information
+mask(zsub,zpred,zobj) ; function to return mask information
  ; about the inputs ie I100 for just a subject and no pred or obj
  n zf1,zf2,zf3,zflag
@@ -283 +294 @@
  n c0xflag,zi,zx,zt
  s zt=$na(^C0X(101)) ; 
- s c0xflag=$$meta(nsub,npred,nobj) ; get meta flags
+ s c0xflag=$$mask(nsub,npred,nobj) ; get mask flags
  n itbl
  s itbl("I000","SPO")="d do3(.triprtn,zt,zi)"
@@ -333 +344 @@
  . . . s dortn(zr)=""
  q
+ ;
+IENOF(ZSTRING,FARY) ; EXTRINSIC WHICH RETURNS THE IEN OF ZS IN THE STRINGS FILE
+ I '$D(FARY) D  ;
+ . D INITFARY^C0XF2N("C0XFARY")
+ . S FARY="C0XFARY"
+ N ZIEN
+ I $G(ZSTRING)="" Q "" ; NO STRING
+ S ZIEN=$O(@C0XSN@("B",ZSTRING,""))
+ Q ZIEN
+ ;
+IENOFA(ZOUTARY,INARY,FARY) ; RESOLVE STRINGS TO IEN IN STRINGS FILE 
+ ; RETURNS IN ZOUTARY OF THE FORM ZOUTARY("IEN","VAR",IEN)=""
+ I '$D(FARY) D  ;
+ . D INITFARY^C0XF2N("C0XFARY")
+ . S FARY="C0XFARY"
+ K ZOUTARY ; START WITH CLEAN RESULTS
+ K C0XFDA2 ; USE A SEPARATE FDA FOR THIS
+ I '$D(C0XVOC) D VOCINIT^C0XUTIL
+ N ZINARY 
+ N ZI S ZI=""
+ F  S ZI=$O(INARY(ZI)) Q:ZI=""  D  ;
+ . N ZK
+ . S ZK=$O(INARY(ZI,""))
+ . S ZINARY($$EXT^C0XUTIL(ZI),$$EXT^C0XUTIL(ZK))=""
+ N ZV,ZIEN
+ N ZCNT S ZCNT=0
+ F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; LOOK FOR MISSING STRINGS
+ . S ZV=$O(ZINARY(ZI,""))
+ . I ZV["^" S ZV=$TR(ZV,"^","|")
+ F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; NOW GET ALL IENS
+ . S ZV=$O(ZINARY(ZI,""))
+ . I ZV["^" S ZV=$TR(ZV,"^","|")
+ . S ZIEN=$O(@C0XSN@("B",ZV,"")) ; THEY SHOULD BE THERE NOW
+ . I ZIEN="" S ZOUTARY("IEN",ZI)=""
+ . E  S ZOUTARY("IEN",ZI,ZIEN)=""
+ Q
  ;
 output(zwhat,zfname,zdir) ; function to write an array to a host file