Changeset 1483 for fmts


Ignore:
Timestamp:
Jul 12, 2012, 11:17:07 AM (12 years ago)
Author:
George Lilly
Message:

updates for the no-triplestore parse

Location:
fmts/trunk
Files:
4 added
2 edited

Legend:

Unmodified
Added
Removed
  • fmts/trunk/p/C0XF2N.m

    r1420 r1483  
    396396ADD(ZG,ZS,ZP,ZO,FARY) ; ADD A TRIPLE TO THE TRIPLESTORE. ALL VALUES ARE TEXT
    397397 ; THE FDA IS SET UP BUT THE FILES ARE NOT UPDATED. CALL UPDIE TO COMPLETE
     398 I $G(NOFMTS)'="" D  Q  ; just add the triples to C0XARY
     399 . S C0XARY(ZS,ZP,ZO)=""
    398400 I '$D(FARY) D  ;
    399401 . D INITFARY("C0XFARY")
  • fmts/trunk/p/C0XRDF.m

    r1391 r1483  
    4545 . I $E(ZB,1,1)="/" D  ;
    4646 . . 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
    4849 . I ZOBJ["nodeID:" D  Q  ;
    4950 . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
     
    5455 . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
    5556 . 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_">")
    5661 Q
    5762 ;
Note: See TracChangeset for help on using the changeset viewer.