timing traces: Executive: Provide processing timestamp facilities

Nothing uses these yet.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index c46a979d7e01bcef0fdf30f54704ed69dd0575bc..1e94b2820afb4b94a1ebd5adc01fd12b53ec0afd 100644 (file)
--- a/Osstest/Executive.pm
+++ b/Osstest/Executive.pm
@@ -51,6 +51,7 @@ BEGIN {
                       report_run_getinfo report_altcolour
                       report_altchangecolour opendb_tests
                       report_blessingscond report_find_push_age_info
+                     log_stderr_timestamped
                       tcpconnect_queuedaemon plan_search
                       manual_allocation_base_jobinfo
                       alloc_resources alloc_resources_rollback_begin_work
@@ -293,11 +294,23 @@ sub restrictflight_arg ($) {
         $restrictflight_cond .= " AND flights.flight != $_"
            foreach split /,/, $1;
        return 1;
+    } elsif ($arg =~ m/^--report-processing-start-time$/) {
+       # This functionality is wanted by all the callers of
+       # restrictflight_arg and is here for convenience, rather than
+       # out of principle.
+       log_stderr_timestamped("starting...");
+       return 1;
     } else {
        return 0;
     }
 }
 
+sub log_stderr_timestamped ($) {
+    my $us = $0;
+    $us =~ s{.*/}{};
+    print STDERR (show_abs_time time)." $us: @_\n";
+}
+
 sub restrictflight_cond () {
     return "($restrictflight_cond)";
 }