Changeset 1371 for fmts/trunk
- Timestamp:
- Mar 2, 2012, 1:23:23 AM (13 years ago)
- Location:
- fmts/trunk
- Files:
-
- 2 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
fmts/trunk/p/C0XF2N.m
r1368 r1371 369 369 ; 370 370 ANONS() ; RETURNS AN ANONOMOUS SUBJECT 371 Q " _:S"_$$LKY9371 Q "iDPsDPss"_$$LKY9 372 372 ; 373 373 NEWG(NGRAPH,NMETA) ; CREATES A NEW META GRAPH, MARKS IT AS UNFINISHED -
fmts/trunk/p/C0XGET1.m
r1368 r1371 237 237 q 238 238 ; 239 output(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 39 39 I ZPRED[":" D Q ; 40 40 . 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)_"""/>") 42 42 . N ZA,ZB,ZC 43 43 . S ZA=$P(ZPRED,":",1)
Note:
See TracChangeset
for help on using the changeset viewer.