gprofng/gp-display-html/gp-display-html.in

1413   my $input_line = ${ $input_line_ref };
1426   if (   ($input_line =~ /$g_branch_regex/)
1427       or ($input_line =~ /$g_endbr_regex/))
1509   my $input_line = ${ $input_line_ref };
1521   if ( $input_line =~ /$g_function_call_v2_regex/ )
1523       $msg = "found a function call - line[$line_no] = $input_line";
3668   my $input_line;
3691       $input_line = $_;
3692       chomp ($input_line);
3693       gp_message ("debug", $subr_name, "read input_line = $input_line");
3694 …if ($input_line =~   /^<event kind="map"\s.*vaddr="0x([0-9a-fA-F]+)"\s+.*foffset="\+*0x([0-9a-fA-F…
3696           gp_message ("debug", $subr_name, "target line = $input_line");
3822   my ($src_times_regex, $function_regex, $number_of_metrics, $input_line) = @_;
3837       @fields_in_line = split (" ", $input_line);
3838       if ( $input_line =~ /$src_times_regex/ )
3856       elsif ($input_line =~ /$function_regex/)
4095   my $input_line = ${ $input_line_ref };
4106   gp_message ("debugXL", $subr_name, "input_line = $input_line");
4111         $space = index ($input_line, " ", $space_position);
4124                 my $keyword = substr ($input_line, $start_word, $end_word - $start_word + 1);
4128             elsif ( ($space == $space_position) and ($space < length ($input_line) - 1))
4144             $end_word = length ($input_line) - 1;
4145             my $keyword = substr ($input_line, $start_word, $end_word - $start_word + 1);
4625   my $input_line;
4780       my $input_line = $caller_callee_data[$line];
4782       if ($input_line =~ /$line_of_interest_regex/)
4822               my $msg = "input_line = $input_line has an unknown format";
4826           my @fields_in_line = split (" ", $input_line);
4909       my $input_line = $caller_callee_data[$line];
4911       if ($input_line =~ /$header_name_regex/)
4916       elsif (($input_line =~ /$sorted_by_regex/) or ($input_line =~ /$current_regex/))
4919                      "input_line = " . $input_line;
4922           push (@top_level_header, $input_line);
4924       elsif ($input_line =~ /$line_of_interest_regex/)
4929           $data_function_block    .= $separator . $input_line;
4934       elsif (($input_line =~ /$empty_line_regex/) and ($scan_caller_callee_data))
5001           elsif ($input_line =~ /\s*(.*)/)
5061           my $input_line = $entries[$k];
5066           @fields = split (" ", $input_line);
5092           if ($input_line =~ /$name_regex/)
5429       my $input_line = $disassembly_file[$line_no];
5430       gp_message ("debugXL", $subr_name, "[line $line_no] $input_line");
5432       if ($input_line =~ /$line_of_interest_regex/)
5449               my $msg = "$input_line has an unexpected format";
5492                                                    \$input_line,
5511                                                \$input_line,
5590       my $input_line = $disassembly_file[$line_no];
5591       gp_message ("debugXL", $subr_name, "[line $line_no] $input_line");
5593       if ($input_line =~ /$end_src_header_regex/)
5599       if ($input_line =~ /$end_dis_header_regex/)
5604       push (@modified_html, "<i>" . $input_line . "</i>");
5635       my $input_line = $disassembly_file[$line_no];
5637       if ( $input_line =~ /$dis_regex/ )
5718       my $input_line = $disassembly_file[$line_no];
5719       if ( $input_line =~ /$dis_regex/ )
5784       my $input_line = $disassembly_file[$line_no];
5785       gp_message ("debugXL", $subr_name, "input_line[$line_no] = $input_line");
5786       if ( $input_line =~ /$dis_regex/ )
5788           gp_message ("debugXL", $subr_name, "found a disassembly line: $input_line");
6064               my $msg = "parsing line $input_line";
6068       elsif ( $input_line =~ /$src_regex/ )
6073               gp_message ("debugXL", $subr_name, "found a source code line: $input_line");
6095               my $msg = "parsing line $input_line";
6099       elsif ( $input_line =~ /$function_regex/ )
6133               my $msg = "parsing line $input_line";
6442       my $input_line = $input_data[$line];
6445       if ($input_line =~ /\s*(\d+:0x[a-fA-F0-9]+)\s+(\S+)\s+(.*)/)
6449       elsif ($input_line =~ /$empty_line_regex/)
6923       my $input_line = $the_metrics[$i];
6934       if ($input_line =~ /[\w0-9$decimal_separator]*(0$decimal_separator$)/)
6940               my $txt = "input_line = $input_line = ended with 0";
7364   my $input_line;
7372       $input_line = $metrics_data[$line_no];
7375       if ( not ($input_line =~ /$ignore_lines_regex/) and not ($input_line =~ /$empty_line_regex/) )
7377           if ($input_line =~ /$split_line_regex/)
7514       my $input_line = $exp_info[$i];
7518       if ($input_line =~ /^\s*(\d+)\s+(.+)/)
10962   my $input_line;
11041           $input_line = $exp_info[$line];
11043           my $msg = "exp_id = $exp_id: input_line = $input_line";
11046           if ($input_line =~ /$target_cmd_regex/)
11052           elsif ($input_line =~ /$host_system_regex/)
11064           elsif ($input_line =~ /$start_date_regex/)
11070           elsif ($input_line =~ /$end_experiment_regex/)
11076           elsif ($input_line =~ /$data_collection_duration_regex/)
11103           elsif ($input_line =~ /$total_thread_time_regex/)
11109           elsif ($input_line =~ /$user_cpu_regex/)
11117           elsif ($input_line =~ /$system_cpu_regex/)
11125           elsif ($input_line =~ /$sleep_regex/)
11568   my $input_line;
11645       $input_line = $function_data[$line];
11646       gp_message ("debugXL", $subr_name, "input_line = $input_line");
11652       if ($input_line =~ /$header_name_regex/)
11656       elsif ($input_line =~ /$total_marker_regex/)
11694           elsif ($input_line =~ /$catch_all_regex/)
11716       if ($scan_function_data and (not ($input_line =~ /$empty_line_regex/)))
11718           @fields = split (" ", $input_line);
11743           if ($input_line =~ /$name_regex/)
12660   my $input_line;
12669       $input_line = $file_contents[$line_no];
12678                                              $input_line);
12680       if ($input_line =~ /$function_regex/)
12688       $input_line =~ s/$g_less_than_regex/$g_html_less_than_regex/g;
12700                              $input_line,
12708           $modified_line .= "$input_line";
13159   my $input_line;
13325       $input_line = $file_contents[$line_number];
13330       if (($input_line =~ /$end_src1_header_regex/) or
13331           ($input_line =~ /$end_src2_header_regex/))
13335           gp_message ("debugXL", $subr_name, "input_line = $input_line");
13343           $modified_line = "<i>" . $input_line . "</i>";
13361       $input_line = $file_contents[$line_number];
13363       gp_message ("debugXL", $subr_name, "[$line_number] $input_line");
13365       if ($input_line =~ /$function_regex/)
13396               my $msg = "parsing line $input_line";
13442       $input_line = $file_contents[$line_number];
13443       gp_message ("debugXL", $subr_name, " $line_number : check input_line = $input_line");
13445       if ( $input_line =~ /$hot_lines_regex/ )
13625   my $input_line;
13636       $input_line = $file_contents[$line_number];
13641       $input_line =~ s/$g_less_than_regex/$g_html_less_than_regex/g;
13646                                              $input_line);
13648 …gp_message ("debug", $subr_name, "line_number = $line_number : input_line = $input_line line_id = …
13650       if ($input_line =~ /$function2_regex/)
13681       elsif ($input_line =~ /$src_times_regex/)
13703               @components = split (" ", $input_line, 1+$number_of_metrics+2);
13705                                  $input_line,
13713               @components = split (" ", $input_line, $number_of_metrics + 2);
13725 …$modified_line = set_background_color_string ($input_line, $g_html_color_scheme{"background_color_…
13730                   $modified_line .= "$input_line";
13744           $modified_line .= "$input_line";