Changeset 1707 for trunk/lang


Ignore:
Timestamp:
Apr 20, 2010, 9:52:51 PM (14 years ago)
Author:
dkearney
Message:

adding temp fix for how we format filenames. the changes will provide more unique filenames down to near millisecond resolution of time for semi-POSIX compliant systems. I needed this fix in particular for workflow stuff i am playing with.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/lang/tcl/scripts/result.tcl

    r1018 r1707  
    4848    }
    4949
    50     set oname "run[clock seconds].xml"
     50    # fake milliseconds by using clock clicks
     51    # fake microseconds by using 000
     52    # this will be fixed when tcl uses C bindings
     53    set timestamp [format %d%03d%03d [clock seconds] [expr [clock clicks -milliseconds]%1000] 0]
     54    set oname "run$timestamp.xml"
    5155    set fid [open $oname w]
    5256    puts $fid "<?xml version=\"1.0\"?>"
Note: See TracChangeset for help on using the changeset viewer.