Changeset 1707

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.

Location:

trunk

Files:

• lang/tcl/scripts/result.tcl (modified) (1 diff)
• src/core/RpLibrary.cc (modified) (2 diffs)

trunk/lang/tcl/scripts/result.tcl

@@ -48 +48 @@
     }
 
-    set oname "run[clock seconds].xml"
+    # fake milliseconds by using clock clicks
+    # fake microseconds by using 000
+    # this will be fixed when tcl uses C bindings
+    set timestamp [format %d%03d%03d [clock seconds] [expr [clock clicks -milliseconds]%1000] 0]
+    set oname "run$timestamp.xml"
     set fid [open $oname w]
     puts $fid "<?xml version=\"1.0\"?>"

trunk/src/core/RpLibrary.cc

@@ -27 +27 @@
 #include <iterator>
 #include <cctype>
+
+#ifdef _POSIX_SOURCE
+    #include <sys/time.h>
+#endif /* _POSIX_SOURCE */
 
 // no arg constructor
@@ -2200 +2204 @@
 
     if (this->root) {
+#ifdef _POSIX_SOURCE
+        // if the posix function gettimeofday is available,
+        // we can get more precision on the time and more
+        // unique filenames.
+        struct timeval tv;
+        gettimeofday(&tv,NULL);
+        outputFile << "run" << tv.tv_sec << tv.tv_usec << ".xml";
+#else
         outputFile << "run" << (int)time(&t) << ".xml";
+#endif
         file.open(outputFile.str().c_str(),std::ios::out);