Changeset 1371 for fmts/trunk/p

Timestamp:

Mar 2, 2012, 1:23:23 AM (13 years ago)

Author:

George Lilly

Message:

updates for rdf out

Location:

fmts/trunk/p

Files:

• C0XF2N.m (modified) (1 diff)
• C0XGET1.m (modified) (1 diff)
• C0XRDF.m (modified) (1 diff)

fmts/trunk/p/C0XF2N.m

@@ -369 +369 @@
  ;
 ANONS() ; RETURNS AN ANONOMOUS SUBJECT
- Q "_:S"_$$LKY9
+ Q "iDPsDPss"_$$LKY9
  ;
 NEWG(NGRAPH,NMETA) ; CREATES A NEW META GRAPH, MARKS IT AS UNFINISHED

fmts/trunk/p/C0XGET1.m

@@ -237 +237 @@
  q
  ;
+output(zwhat,zfname,zdir) ; function to write an array to a host file
+ ; if zdir is ommitted, will output to the CCR directory
+ ; ^TMP("C0CCCR","ODIR")
+ ; if fname is ommitted, will output yyyy-mm-dd-hh-mm-ss-C0XOUT.out
+ ; zwhat is passed by name
+ ;
+ i '$d(zdir) s zdir=$G(^TMP("C0CCCR","ODIR"))
+ i '$d(zfname) d  ;
+ . s zfname=$$FMTE^XLFDT($$NOW^XLFDT,7)
+ . s zfname=$tr(zfname,"/","-")
+ . s zfname=$tr(zfname,"@","-")
+ . s zfname=$tr(zfname,":","-")
+ . s zfname=zfname_".out"
+ i $e(zwhat,1,1)'="^" d  ; not a global
+ . k ^TMP("C0XOUT",$J)
+ . m ^TMP("C0XOUT",$J)=@zwhat
+ . s zwhat=$na(^TMP("C0XOUT",$J,1))
+ n zout s zout=""
+ s zout=$$OUTPUT^C0CXPATH(zwhat,zfname,zdir)
+ K ^TMP("C0XOUT",$J)
+ Q zout
+ ;

fmts/trunk/p/C0XRDF.m

@@ -39 +39 @@
  I ZPRED[":" D  Q  ;
  . I ZPRED="rdf:type" D  Q  ;
- . . D ADD(ZARY,"<rdf:type rdf:Resource="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
+ . . D ADD(ZARY,"<rdf:type rdf:resource="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
  . N ZA,ZB,ZC
  . S ZA=$P(ZPRED,":",1)