diff options
Diffstat (limited to 'third_party/git/t/t0212/parse_events.perl')
| -rw-r--r-- | third_party/git/t/t0212/parse_events.perl | 251 |
1 files changed, 0 insertions, 251 deletions
diff --git a/third_party/git/t/t0212/parse_events.perl b/third_party/git/t/t0212/parse_events.perl deleted file mode 100644 index 6584bb563427..000000000000 --- a/third_party/git/t/t0212/parse_events.perl +++ /dev/null @@ -1,251 +0,0 @@ -#!/usr/bin/perl -# -# Parse event stream and convert individual events into a summary -# record for the process. -# -# Git.exe generates one or more "event" records for each API method, -# such as "start <argv>" and "exit <code>", during the life of the git -# process. Additionally, the input may contain interleaved events -# from multiple concurrent git processes and/or multiple threads from -# within a git process. -# -# Accumulate events for each process (based on its unique SID) in a -# dictionary and emit process summary records. -# -# Convert some of the variable fields (such as elapsed time) into -# placeholders (or omit them) to make HEREDOC comparisons easier in -# the test scripts. -# -# We may also omit fields not (currently) useful for testing purposes. - -use strict; -use warnings; -use JSON::PP; -use Data::Dumper; -use Getopt::Long; - -# The version of the trace2 event target format that we understand. -# This is reported in the 'version' event in the 'evt' field. -# It comes from the GIT_TRACE2_EVENT_VERSION macro in trace2/tr2_tgt_event.c -my $evt_version = '1'; - -my $show_children = 1; -my $show_exec = 1; -my $show_threads = 1; - -# A hack to generate test HEREDOC data for pasting into the test script. -# Usage: -# cd "t/trash directory.t0212-trace2-event" -# $TT trace ... >trace.event -# VV=$(../../git.exe version | sed -e 's/^git version //') -# perl ../t0212/parse_events.perl --HEREDOC --VERSION=$VV <trace.event >heredoc -# Then paste heredoc into your new test. - -my $gen_heredoc = 0; -my $gen_version = ''; - -GetOptions("children!" => \$show_children, - "exec!" => \$show_exec, - "threads!" => \$show_threads, - "HEREDOC!" => \$gen_heredoc, - "VERSION=s" => \$gen_version ) - or die("Error in command line arguments\n"); - - -# SIDs contains timestamps and PIDs of the process and its parents. -# This makes it difficult to match up in a HEREDOC in the test script. -# Build a map from actual SIDs to predictable constant values and yet -# keep the parent/child relationships. For example: -# {..., "sid":"1539706952458276-8652", ...} -# {..., "sid":"1539706952458276-8652/1539706952649493-15452", ...} -# becomes: -# {..., "sid":"_SID1_", ...} -# {..., "sid":"_SID1_/_SID2_", ...} -my $sid_map; -my $sid_count = 0; - -my $processes; - -while (<>) { - my $line = decode_json( $_ ); - - my $sid = ""; - my $sid_sep = ""; - - my $raw_sid = $line->{'sid'}; - my @raw_sid_parts = split /\//, $raw_sid; - foreach my $raw_sid_k (@raw_sid_parts) { - if (!exists $sid_map->{$raw_sid_k}) { - $sid_map->{$raw_sid_k} = '_SID' . $sid_count . '_'; - $sid_count++; - } - $sid = $sid . $sid_sep . $sid_map->{$raw_sid_k}; - $sid_sep = '/'; - } - - my $event = $line->{'event'}; - - if ($event eq 'version') { - $processes->{$sid}->{'version'} = $line->{'exe'}; - if ($gen_heredoc == 1 && $gen_version eq $line->{'exe'}) { - # If we are generating data FOR the test script, replace - # the reported git.exe version with a reference to an - # environment variable. When our output is pasted into - # the test script, it will then be expanded in future - # test runs to the THEN current version of git.exe. - # We assume that the test script uses env var $V. - $processes->{$sid}->{'version'} = "\$V"; - } - } - - elsif ($event eq 'start') { - $processes->{$sid}->{'argv'} = $line->{'argv'}; - $processes->{$sid}->{'argv'}[0] = "_EXE_"; - } - - elsif ($event eq 'exit') { - $processes->{$sid}->{'exit_code'} = $line->{'code'}; - } - - elsif ($event eq 'atexit') { - $processes->{$sid}->{'exit_code'} = $line->{'code'}; - } - - elsif ($event eq 'error') { - # For HEREDOC purposes, use the error message format string if - # available, rather than the formatted message (which probably - # has an absolute pathname). - if (exists $line->{'fmt'}) { - push( @{$processes->{$sid}->{'errors'}}, $line->{'fmt'} ); - } - elsif (exists $line->{'msg'}) { - push( @{$processes->{$sid}->{'errors'}}, $line->{'msg'} ); - } - } - - elsif ($event eq 'cmd_path') { - ## $processes->{$sid}->{'path'} = $line->{'path'}; - # - # Like in the 'start' event, we need to replace the value of - # argv[0] with a token for HEREDOC purposes. However, the - # event is only emitted when RUNTIME_PREFIX is defined, so - # just omit it for testing purposes. - # $processes->{$sid}->{'path'} = "_EXE_"; - } - - elsif ($event eq 'cmd_name') { - $processes->{$sid}->{'name'} = $line->{'name'}; - $processes->{$sid}->{'hierarchy'} = $line->{'hierarchy'}; - } - - elsif ($event eq 'alias') { - $processes->{$sid}->{'alias'}->{'key'} = $line->{'alias'}; - $processes->{$sid}->{'alias'}->{'argv'} = $line->{'argv'}; - } - - elsif ($event eq 'def_param') { - my $kv; - $kv->{'param'} = $line->{'param'}; - $kv->{'value'} = $line->{'value'}; - push( @{$processes->{$sid}->{'params'}}, $kv ); - } - - elsif ($event eq 'child_start') { - if ($show_children == 1) { - $processes->{$sid}->{'child'}->{$line->{'child_id'}}->{'child_class'} = $line->{'child_class'}; - $processes->{$sid}->{'child'}->{$line->{'child_id'}}->{'child_argv'} = $line->{'argv'}; - $processes->{$sid}->{'child'}->{$line->{'child_id'}}->{'child_argv'}[0] = "_EXE_"; - $processes->{$sid}->{'child'}->{$line->{'child_id'}}->{'use_shell'} = $line->{'use_shell'} ? 1 : 0; - } - } - - elsif ($event eq 'child_exit') { - if ($show_children == 1) { - $processes->{$sid}->{'child'}->{$line->{'child_id'}}->{'child_code'} = $line->{'code'}; - } - } - - # TODO decide what information we want to test from thread events. - - elsif ($event eq 'thread_start') { - if ($show_threads == 1) { - } - } - - elsif ($event eq 'thread_exit') { - if ($show_threads == 1) { - } - } - - # TODO decide what information we want to test from exec events. - - elsif ($event eq 'exec') { - if ($show_exec == 1) { - } - } - - elsif ($event eq 'exec_result') { - if ($show_exec == 1) { - } - } - - elsif ($event eq 'def_param') { - # Accumulate parameter key/value pairs by key rather than in an array - # so that we get overwrite (last one wins) effects. - $processes->{$sid}->{'params'}->{$line->{'param'}} = $line->{'value'}; - } - - elsif ($event eq 'def_repo') { - # $processes->{$sid}->{'repos'}->{$line->{'repo'}} = $line->{'worktree'}; - $processes->{$sid}->{'repos'}->{$line->{'repo'}} = "_WORKTREE_"; - } - - # A series of potentially nested and threaded region and data events - # is fundamentally incompatibile with the type of summary record we - # are building in this script. Since they are intended for - # perf-trace-like analysis rather than a result summary, we ignore - # most of them here. - - # elsif ($event eq 'region_enter') { - # } - # elsif ($event eq 'region_leave') { - # } - - elsif ($event eq 'data') { - my $cat = $line->{'category'}; - if ($cat eq 'test_category') { - - my $key = $line->{'key'}; - my $value = $line->{'value'}; - $processes->{$sid}->{'data'}->{$cat}->{$key} = $value; - } - } - - # This trace2 target does not emit 'printf' events. - # - # elsif ($event eq 'printf') { - # } -} - -# Dump the resulting hash into something that we can compare against -# in the test script. These options make Dumper output look a little -# bit like JSON. Also convert variable references of the form "$VAR*" -# so that the matching HEREDOC doesn't need to escape it. - -$Data::Dumper::Sortkeys = 1; -$Data::Dumper::Indent = 1; -$Data::Dumper::Purity = 1; -$Data::Dumper::Pair = ':'; - -my $out = Dumper($processes); -$out =~ s/'/"/g; -$out =~ s/\$VAR/VAR/g; - -# Finally, if we're running this script to generate (manually confirmed) -# data to add to the test script, guard the indentation. - -if ($gen_heredoc == 1) { - $out =~ s/^/\t\|/gms; -} - -print $out; |