Changeset 1392 for fmts

Timestamp:

Apr 5, 2012, 11:13:33 AM (13 years ago)

Author:

George Lilly

Message:

added to C0XF2N ADDINN -add if not null

File:

• fmts/trunk/p/C0XF2N.m (modified) (1 diff)

fmts/trunk/p/C0XF2N.m

@@ -517 +517 @@
  Q
  ;
+ADDINN(ZG,ZS,ZARY) ; ADD IF NOT NULL
+ ; ZG IS THE GRAPH NAME, PASSED BY VALUE
+ ; ZS IS THE SUBJECT, PASSED BY VALUE
+ ; ZARY IS AN ARRAY, PASSED BY REFERENCE OF THE PREDICATE AND OBJECT
+ ;  FORMAT IS ZARY(PRED)=OBJ
+ N ZI S ZI=""
+ F  S ZI=$O(ZARY(ZI)) Q:ZI=""  D  ;
+ . I ZARY(ZI)'="" D  ;
+ . . D ADD^C0XF2N(ZG,ZS,ZI,ZARY(ZI))
+ . . W !,"ADDING",ZI," ",ZARY(ZI)
+ ;ZWR ZARY
+ Q
+ ;
 BULKLOAD(ZBFDA) ; BULK LOADER FOR LOADING TRIPLES INTO FILE 172.101
  ; USING GLOBAL SETS INSTEAD OF UPDATE^DIE