1 | C0XGET3 ; VEN/SMH - Sam's Getters... let's try to make them simple ;2013-01-25 4:59 PM
|
---|
2 | ;;1.1;FILEMAN TRIPLE STORE;
|
---|
3 | ;
|
---|
4 | IEN(N) ; Public $$; Resolved IEN of a stored string such as "rdf:type" in Strings File
|
---|
5 | Q $$IENOF^C0XGET1($$EXT^C0XUTIL(N))
|
---|
6 | ;
|
---|
7 | ;
|
---|
8 | ;
|
---|
9 | GOPS1(G,O,P) ; Public $$; Get Subject for A Graph/Object/Predicate combination
|
---|
10 | N S S S=$O(^C0X(101,"GOPS",$$IEN(G),$$IEN(O),$$IEN(P),""))
|
---|
11 | Q:S="" ""
|
---|
12 | Q ^C0X(201,S,0)
|
---|
13 | GOPS(R,G,O,P) ; Public Proc; Get Subjects for A Graph/Object/Predicate combination
|
---|
14 | ; R is global style RPC reference
|
---|
15 | N S S S=""
|
---|
16 | F S S=$O(^C0X(101,"GOPS",$$IEN(G),$$IEN(O),$$IEN(P),S)) Q:S="" S @R@(S)=^C0X(201,S,0)
|
---|
17 | QUIT
|
---|
18 | ONETYPE1(G,O) ; Public $$; Get Subject for Graph/Object of a specific type
|
---|
19 | ; This is a conveince call to GOPS1 with Predicate="rdf:type"
|
---|
20 | Q $$GOPS1(G,O,"rdf:type")
|
---|
21 | ONETYPE(R,G,O) ; Public Proc; Get Subjects for Graph/Object of a specific type
|
---|
22 | ; R is global style RPC reference
|
---|
23 | ; This is a conveince call to GOPS with Predicate="rdf:type"
|
---|
24 | D GOPS(R,G,O,"rdf:type")
|
---|
25 | QUIT
|
---|
26 | GSPO1(G,S,P) ; Public $$; Get Object for A Graph/Subject/Predicate combination
|
---|
27 | N O S O=$O(^C0X(101,"GSPO",$$IEN(G),$$IEN(S),$$IEN(P),""))
|
---|
28 | Q:O="" ""
|
---|
29 | Q ^C0X(201,O,0)
|
---|