1 | C0XRDF ; GPL - Fileman Triples RDF out ;11/07/11 17:05
|
---|
2 | ;;0.1;C0X;nopatch;noreleasedate;Build 7
|
---|
3 | ;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
---|
4 | ;General Public License See attached copy of the License.
|
---|
5 | ;
|
---|
6 | ;This program is free software; you can redistribute it and/or modify
|
---|
7 | ;it under the terms of the GNU General Public License as published by
|
---|
8 | ;the Free Software Foundation; either version 2 of the License, or
|
---|
9 | ;(at your option) any later version.
|
---|
10 | ;
|
---|
11 | ;This program is distributed in the hope that it will be useful,
|
---|
12 | ;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
13 | ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
14 | ;GNU General Public License for more details.
|
---|
15 | ;
|
---|
16 | ;You should have received a copy of the GNU General Public License along
|
---|
17 | ;with this program; if not, write to the Free Software Foundation, Inc.,
|
---|
18 | ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
---|
19 | ;
|
---|
20 | Q
|
---|
21 | ;
|
---|
22 | REPLYSTART(ZARY);
|
---|
23 | D ADD(ZARY,"<?xml version=""1.0"" encoding=""UTF-8""?>")
|
---|
24 | D ADD(ZARY,"<rdf:RDF xmlns:rdf=""http://www.w3.org/1999/02/22-rdf-syntax-ns#"">")
|
---|
25 | Q
|
---|
26 | ;
|
---|
27 | LISTSTART(ZARY,ZNAM)
|
---|
28 | Q
|
---|
29 | ;
|
---|
30 | DICTSTART(ZARY,ZSUB)
|
---|
31 | I ZSUB["http" D Q ;
|
---|
32 | . D ADD(ZARY,"<rdf:Description rdf:about="""_ZSUB_""">")
|
---|
33 | I $E(ZSUB,1,1)="/" D Q ;
|
---|
34 | . D ADD(ZARY,"<rdf:Description rdf:about="""_ZSUB_""">")
|
---|
35 | D ADD(ZARY,"<rdf:Description rdf:nodeID="""_ZSUB_""">")
|
---|
36 | Q
|
---|
37 | ;
|
---|
38 | DASSERT(ZARY,ZPRED,ZOBJ)
|
---|
39 | I ZPRED[":" D Q ;
|
---|
40 | . I ZPRED="rdf:type" D Q ;
|
---|
41 | . . D ADD(ZARY,"<rdf:type rdf:resource="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
|
---|
42 | . N ZA,ZB,ZC
|
---|
43 | . S ZA=$P(ZPRED,":",1)
|
---|
44 | . S ZB=$P(ZPRED,":",2)
|
---|
45 | . I $E(ZB,1,1)="/" D ;
|
---|
46 | . . S ZB=$P(ZB,"/",2) ; handling gpltest:/note situations
|
---|
47 | . S ZC=$G(C0XVOC(ZA))
|
---|
48 | . I ZC="" S ZC=ZA
|
---|
49 | . I ZOBJ["nodeID:" D Q ;
|
---|
50 | . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
|
---|
51 | . S ZOBJ=$$EXT^C0XUTIL(ZOBJ)
|
---|
52 | . I ZOBJ["http" D Q ;
|
---|
53 | . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
|
---|
54 | . I $E(ZOBJ,1,1)="/" D Q ;
|
---|
55 | . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
|
---|
56 | . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZB_">")
|
---|
57 | I ZPRED'[":" D Q ;
|
---|
58 | . I ZPRED["." S ZPRED=$TR(ZPRED,".","-")
|
---|
59 | . I ZPRED["@" S ZPRED=$TR(ZPRED,"@","_")
|
---|
60 | . D ADD(ZARY,"<"_ZPRED_">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZPRED_">")
|
---|
61 | Q
|
---|
62 | ;
|
---|
63 | DICTEND(ZARY)
|
---|
64 | D ADD(ZARY,"</rdf:Description>")
|
---|
65 | Q
|
---|
66 | ;
|
---|
67 | LISTEND(ZARY)
|
---|
68 | Q
|
---|
69 | ;
|
---|
70 | REPLYEND(ZARY)
|
---|
71 | D ADD(ZARY,"</rdf:RDF>")
|
---|
72 | Q
|
---|
73 | ;
|
---|
74 | ADD(ZARY,ZELE)
|
---|
75 | N ZI
|
---|
76 | I '$D(ZARY) S @ZARY@(1)=ZELE Q ;
|
---|
77 | S ZI=$O(@ZARY@(""),-1)
|
---|
78 | S @ZARY@(ZI+1)=ZELE
|
---|
79 | Q
|
---|
80 | ;
|
---|
81 | rdfout(rdfout,zary) ;
|
---|
82 | d REPLYSTART("rdfout")
|
---|
83 | d LISTSTART("rdfout","results")
|
---|
84 | n zi s zi=""
|
---|
85 | f s zi=$o(zary(zi)) q:zi="" d ; for each subject
|
---|
86 | . n zii s zii=""
|
---|
87 | . D DICTSTART("rdfout",$$EXT^C0XUTIL(zi))
|
---|
88 | . f s zii=$o(zary(zi,zii)) q:zii="" d ; for each pred^obj pair
|
---|
89 | . . d DASSERT("rdfout",$p(zii,"^",1),$p(zii,"^",2))
|
---|
90 | . D DICTEND("rdfout")
|
---|
91 | d LISTEND("rdfout")
|
---|
92 | d REPLYEND("rdfout")
|
---|
93 | q
|
---|
94 | ;
|
---|