Changeset 1377 for fmts/trunk/p

Timestamp:

Mar 13, 2012, 9:40:02 PM (13 years ago)

Author:

George Lilly

Message:

fixed subjects preds and objects

File:

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

fmts/trunk/p/C0XGET1.m

@@ -137 +137 @@
  q
  ;
-subjects(listrtn,sub,pred,obj,graph,form,fary) ; return list of subjects
- d onelist("S") ;subjects
- q
- ;
-preds(listrtn,sub,pred,obj,graph,form,fary) ; return list of subjects
- d onelist("P") ;subjects
- q
- ;
-objects(listrtn,sub,pred,obj,graph,form,fary) ; return list of subjects
+subjects(listrtn,pred,obj,graph,form,fary) ; return list of subjects
+ d onelist("S",,$g(pred),$g(obj),$g(fary)) ;subjects
+ q
+ ;
+preds(listrtn,sub,obj,graph,form,fary) ; return list of subjects
+ d onelist("P",$g(sub),,$g(obj),$g(fary)) ;subjects
+ q
+ ;
+objects(listrtn,sub,pred,graph,form,fary) ; return list of subjects
  d onelist("O",$g(sub),$g(pred),"",$g(fary)) ;subjects
  q