source: fmts/trunk/p/C0XRDF.m@ 1572

Last change on this file since 1572 was 1539, checked in by Sam Habiel, 12 years ago

Proper KIDS build + Routines

File size: 2.7 KB
Line 
1C0XRDF ; GPL - Fileman Triples RDF out ;11/07/11 17:05
2 ;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
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 ;
22REPLYSTART(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 ;
27LISTSTART(ZARY,ZNAM)
28 Q
29 ;
30DICTSTART(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 ;
38DASSERT(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=C0XVOC(ZA)
48 . I ZOBJ["nodeID:" D Q ;
49 . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
50 . S ZOBJ=$$EXT^C0XUTIL(ZOBJ)
51 . I ZOBJ["http" D Q ;
52 . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
53 . I $E(ZOBJ,1,1)="/" D Q ;
54 . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
55 . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZB_">")
56 Q
57 ;
58DICTEND(ZARY)
59 D ADD(ZARY,"</rdf:Description>")
60 Q
61 ;
62LISTEND(ZARY)
63 Q
64 ;
65REPLYEND(ZARY)
66 D ADD(ZARY,"</rdf:RDF>")
67 Q
68 ;
69ADD(ZARY,ZELE)
70 N ZI
71 I '$D(ZARY) S @ZARY@(1)=ZELE Q ;
72 S ZI=$O(@ZARY@(""),-1)
73 S @ZARY@(ZI+1)=ZELE
74 Q
75 ;
76rdfout(rdfout,zary) ;
77 d REPLYSTART("rdfout")
78 d LISTSTART("rdfout","results")
79 n zi s zi=""
80 f s zi=$o(zary(zi)) q:zi="" d ; for each subject
81 . n zii s zii=""
82 . D DICTSTART("rdfout",$$EXT^C0XUTIL(zi))
83 . f s zii=$o(zary(zi,zii)) q:zii="" d ; for each pred^obj pair
84 . . d DASSERT("rdfout",$p(zii,"^",1),$p(zii,"^",2))
85 . D DICTEND("rdfout")
86 d LISTEND("rdfout")
87 d REPLYEND("rdfout")
88 q
89 ;
Note: See TracBrowser for help on using the repository browser.