Changeset 1349 for fmts/trunk/p/C0XF2N.m

Timestamp:

Jan 27, 2012, 10:51:57 PM (12 years ago)

Author:

George Lilly

Message:

added retrival of triples

File:

• fmts/trunk/p/C0XF2N.m (modified) (2 diffs)

fmts/trunk/p/C0XF2N.m

@@ -416 +416 @@
  . S FARY="C0XFARY"
  N ZIEN
+ I $G(ZSTRING)="" Q "" ; NO STRING
  S ZIEN=$O(@C0XSN@("B",ZSTRING,""))
  I ZIEN="" D  ;
@@ -501 +502 @@
  . S ZIEN=ZI+ZBASE ; the new ien
  . S ^C0X(101,ZIEN,0)=ZN_U_ZG_U_ZS_U_ZP_U_ZO ; set the zero node
- . S ^C0X(101,"B",ZN,ZIEN)="" ; the B index
- . S ^C0X(101,"G",ZG,ZIEN)="" ; the G for Graph index
- . S ^C0X(101,"SPO",ZS,ZP,ZO)=""
- . S ^C0X(101,"SOP",ZS,ZO,ZP)=""
- . S ^C0X(101,"OPS",ZO,ZP,ZS)=""
- . S ^C0X(101,"OSP",ZO,ZS,ZP)=""
- . S ^C0X(101,"GOPS",ZG,ZO,ZP,ZS)=""
- . S ^C0X(101,"GOSP",ZG,ZO,ZS,ZP)=""
- . S ^C0X(101,"GPSO",ZG,ZP,ZS,ZO)=""
- . S ^C0X(101,"GSPO",ZG,ZS,ZP,ZO)=""
+ . D INDEX(ZIEN,ZN,ZG,ZS,ZP,ZO)
+ Q
+ ;
+INDEX(ZIEN,ZN,ZG,ZS,ZP,ZO) ; HARD SET THE INDEX FOR ONE ENTRY
+ S ^C0X(101,"B",ZN,ZIEN)="" ; the B index
+ S ^C0X(101,"G",ZG,ZIEN)="" ; the G for Graph index
+ S ^C0X(101,"SPO",ZS,ZP,ZO,ZIEN)=""
+ S ^C0X(101,"SOP",ZS,ZO,ZP,ZIEN)=""
+ S ^C0X(101,"OPS",ZO,ZP,ZS,ZIEN)=""
+ S ^C0X(101,"OSP",ZO,ZS,ZP,ZIEN)=""
+ S ^C0X(101,"PSO",ZP,ZS,ZO,ZIEN)=""
+ S ^C0X(101,"POS",ZP,ZO,ZS,ZIEN)=""
+ S ^C0X(101,"GOPS",ZG,ZO,ZP,ZS,ZIEN)=""
+ S ^C0X(101,"GOSP",ZG,ZO,ZS,ZP,ZIEN)=""
+ S ^C0X(101,"GPSO",ZG,ZP,ZS,ZO,ZIEN)=""
+ S ^C0X(101,"GPOS",ZG,ZP,ZO,ZS,ZIEN)=""
+ S ^C0X(101,"GSPO",ZG,ZS,ZP,ZO,ZIEN)=""
+ S ^C0X(101,"GSOP",ZG,ZS,ZO,ZP,ZIEN)=""
+ Q
+ ;
+REINDEX ; REINDEX THE ^C0X(101, TRIPLE STORE
+ K ^C0X(101,"B")
+ K ^C0X(101,"G")
+ K ^C0X(101,"SPO")
+ K ^C0X(101,"SOP")
+ K ^C0X(101,"OPS")
+ K ^C0X(101,"OSP")
+ K ^C0X(101,"PSO")
+ K ^C0X(101,"POS")
+ K ^C0X(101,"GOPS")
+ K ^C0X(101,"GOSP")
+ K ^C0X(101,"GPSO")
+ K ^C0X(101,"GPOS")
+ K ^C0X(101,"GSPO")
+ K ^C0X(101,"GSOP")
+ N ZIEN,ZZ
+ S ZIEN=0
+ F  S ZIEN=$O(^C0X(101,ZIEN)) Q:+ZIEN=0  D  ; FOR EACH NODE
+ . S ZZ=$G(^C0X(101,ZIEN,0))
+ . I ZZ="" D  Q  ;
+ . . W !,"ERROR REINDEXING NODE ",ZI
+ . S ZN=$P(ZZ,"^",1)
+ . S ZG=$P(ZZ,"^",2)
+ . S ZS=$P(ZZ,"^",3)
+ . S ZP=$P(ZZ,"^",4)
+ . S ZO=$P(ZZ,"^",5) 
+ . D INDEX(ZIEN,ZN,ZG,ZS,ZP,ZO)
  Q
  ;