Changeset 1483 for fmts/trunk/p

Timestamp:

Jul 12, 2012, 11:17:07 AM (12 years ago)

Author:

George Lilly

Message:

updates for the no-triplestore parse

Location:

fmts/trunk/p

Files:

• C0XF2N.m (modified) (1 diff)
• C0XNOTS.m (added)
• C0XPV.m (added)
• C0XRDF.m (modified) (2 diffs)

fmts/trunk/p/C0XF2N.m

@@ -396 +396 @@
 ADD(ZG,ZS,ZP,ZO,FARY) ; ADD A TRIPLE TO THE TRIPLESTORE. ALL VALUES ARE TEXT
  ; THE FDA IS SET UP BUT THE FILES ARE NOT UPDATED. CALL UPDIE TO COMPLETE
+ I $G(NOFMTS)'="" D  Q  ; just add the triples to C0XARY
+ . S C0XARY(ZS,ZP,ZO)=""
  I '$D(FARY) D  ;
  . D INITFARY("C0XFARY")

fmts/trunk/p/C0XRDF.m

@@ -45 +45 @@
  . I $E(ZB,1,1)="/" D  ;
  . . S ZB=$P(ZB,"/",2) ; handling gpltest:/note situations
- . S ZC=C0XVOC(ZA)
+ . S ZC=$G(C0XVOC(ZA))
+ . I ZC="" S ZC=ZA
  . I ZOBJ["nodeID:" D  Q  ;
  . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
@@ -54 +55 @@
  . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
  . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZB_">")
+ I ZPRED'[":" D  Q  ;
+ . I ZPRED["." S ZPRED=$TR(ZPRED,".","-")
+ . I ZPRED["@" S ZPRED=$TR(ZPRED,"@","_")
+ . D ADD(ZARY,"<"_ZPRED_">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZPRED_">")
  Q
  ;