Changeset 1371 for fmts/trunk


Ignore:
Timestamp:
Mar 2, 2012, 1:23:23 AM (13 years ago)
Author:
George Lilly
Message:

updates for rdf out

Location:
fmts/trunk
Files:
2 added
3 edited

Legend:

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

    r1368 r1371  
    369369 ;
    370370ANONS() ; RETURNS AN ANONOMOUS SUBJECT
    371  Q "_:S"_$$LKY9
     371 Q "iDPsDPss"_$$LKY9
    372372 ;
    373373NEWG(NGRAPH,NMETA) ; CREATES A NEW META GRAPH, MARKS IT AS UNFINISHED
  • fmts/trunk/p/C0XGET1.m

    r1368 r1371  
    237237 q
    238238 ;
     239output(zwhat,zfname,zdir) ; function to write an array to a host file
     240 ; if zdir is ommitted, will output to the CCR directory
     241 ; ^TMP("C0CCCR","ODIR")
     242 ; if fname is ommitted, will output yyyy-mm-dd-hh-mm-ss-C0XOUT.out
     243 ; zwhat is passed by name
     244 ;
     245 i '$d(zdir) s zdir=$G(^TMP("C0CCCR","ODIR"))
     246 i '$d(zfname) d  ;
     247 . s zfname=$$FMTE^XLFDT($$NOW^XLFDT,7)
     248 . s zfname=$tr(zfname,"/","-")
     249 . s zfname=$tr(zfname,"@","-")
     250 . s zfname=$tr(zfname,":","-")
     251 . s zfname=zfname_".out"
     252 i $e(zwhat,1,1)'="^" d  ; not a global
     253 . k ^TMP("C0XOUT",$J)
     254 . m ^TMP("C0XOUT",$J)=@zwhat
     255 . s zwhat=$na(^TMP("C0XOUT",$J,1))
     256 n zout s zout=""
     257 s zout=$$OUTPUT^C0CXPATH(zwhat,zfname,zdir)
     258 K ^TMP("C0XOUT",$J)
     259 Q zout
     260 ;
  • fmts/trunk/p/C0XRDF.m

    r1370 r1371  
    3939 I ZPRED[":" D  Q  ;
    4040 . I ZPRED="rdf:type" D  Q  ;
    41  . . D ADD(ZARY,"<rdf:type rdf:Resource="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
     41 . . D ADD(ZARY,"<rdf:type rdf:resource="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
    4242 . N ZA,ZB,ZC
    4343 . S ZA=$P(ZPRED,":",1)
Note: See TracChangeset for help on using the changeset viewer.