Changeset 1483 for fmts/trunk/p/C0XRDF.m
- Timestamp:
- Jul 12, 2012, 11:17:07 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
fmts/trunk/p/C0XRDF.m
r1391 r1483 45 45 . I $E(ZB,1,1)="/" D ; 46 46 . . S ZB=$P(ZB,"/",2) ; handling gpltest:/note situations 47 . S ZC=C0XVOC(ZA) 47 . S ZC=$G(C0XVOC(ZA)) 48 . I ZC="" S ZC=ZA 48 49 . I ZOBJ["nodeID:" D Q ; 49 50 . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>") … … 54 55 . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>") 55 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_">") 56 61 Q 57 62 ;
Note:
See TracChangeset
for help on using the changeset viewer.