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

Timestamp:

Mar 22, 2012, 9:38:37 AM (12 years ago)

Author:

George Lilly

Message:

added $$subject and $$object and LKY5 for randoms

File:

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

fmts/trunk/p/C0XGET1.m

@@ -141 +141 @@
  q
  ;
+subject(pred,obj,graph,form,fary) ; extrinsic which returns the first
+ ; multiple of return from subjects - returns null if more than one
+ ; subjects(.G,sub,pred)
+ ; G("nodeID:1234") ==> "nodeID:1234"
+ n zin,zrtn
+ d subjects(.zin,$g(pred),$g(obj),$g(form),$g(fary))
+ s zrtn=$o(zin(""))
+ i $o(zin(zrtn))'="" s zrtn=""
+ q zrtn
+ ;
 preds(listrtn,sub,obj,graph,form,fary) ; return list of subjects
  d onelist("P",$g(sub),,$g(obj),$g(fary)) ;subjects
@@ -148 +158 @@
  d onelist("O",$g(sub),$g(pred),"",$g(fary)) ;subjects
  q
+ ;
+object(sub,pred,graph,form,fary) ; extrinsic which returns the first
+ ; multiple of return from objects - returns null if more than one
+ ; objects(.G,sub,pred)
+ ; G("location") ==> "location"
+ n zin,zrtn
+ d objects(.zin,$g(sub),$g(pred),$g(form),$g(fary))
+ s zrtn=$o(zin(""))
+ i $o(zin(zrtn))'="" s zrtn=""
+ q zrtn
  ;
 onelist(zw,sub,pred,obj,fary) ; returns list