Changeset 1629 for fmts/trunk/p/C0XGET1.m

Timestamp:

Sep 30, 2013, 8:26:21 PM (11 years ago)

Author:

George Lilly

Message:

misc updates

File:

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

fmts/trunk/p/C0XGET1.m

@@ -1 +1 @@
 C0XGET1 ; GPL - Fileman Triples entry point routine ;1/12/12  17:05
-        ;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
+        ;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
         ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
         ;General Public License See attached copy of the License.
@@ -403 +403 @@
         q
         ;
+ISSUB(STR) ; returns true if STR is a subject of some triples
+ N ZZIEN
+ S ZZIEN=$$IENOF(STR) ; string pointer value
+ N ZTN S ZTN=C0XFARY("C0XTN") ; location of triples
+ ;N ZTN S ZTN=$NA(^C0X(101)) ; location of triples -- change this to use FARY --- gpl
+ I $O(@ZTN@("SPO",ZZIEN,""))'="" Q 1
+ E  Q ""
+ Q
+ ;
 IENOF(ZSTRING,FARY)     ; EXTRINSIC WHICH RETURNS THE IEN OF ZS IN THE STRINGS FILE
         I '$D(FARY) D  ;