?? summarize_make_and_test.pl
字號(hào):
: # *-*-perl-*-* eval 'exec perl -S $0 "$@"' if $running_under_some_shell;# Called with# @ARGV = arch os compiler config## Input and output files are hardwired -- they should be parameterized#format My_Top_Format =S ARCH OS CXX FLAGS FM CF BUILDS WARNINGS ERRORS TESTS----------------------------------------------------------------------------------------------------------. format My_Other_Format = @<< @<<<<< @<<<<<<<<<< @<<< @<<<<<<<<<<<<<<<<<<<<<<<<< @> @> @>>>>>>>>>> @>>>>>>> @>>>>>>> @>>>>>>>>>>>>>>$subdir, $arch, $os, $compiler,$flags, $farm, $conf, $builds, $build_warnings, $build_errors, $tests.open (OUTF, ">-");use FileHandle;format_name OUTF "My_Other_Format";format_top_name OUTF "My_Top_Format";foreach $subdir ( @ARGV ) { $bad_farms = 0; $good_builds = 0; $bad_builds = 0; $bad_execs = 0; $good_execs = 0; $good_tests = 0; $bad_tests = 0; $build_warnings = 0; $build_errors = 0; $arch = ""; $os = ""; $compiler = ""; $flags = "None"; $farm = 0; $conf = 0; $built_result_errs = 0; $test_result_errs = 0; if (-d $subdir) { if (-f "$subdir/LOG") { $loglines = ""; open(INF, "<$subdir/LOG"); while (<INF>) { $loglines .= $_; } close(INF); @loglines = split(/\n/, $loglines); $num_loglines = scalar(@loglines); if ($num_loglines != 6) { print "Something is wrong with LOG file"; print "$num_loglines"; $farm = 0; } else { $farm = 1; } } if (-f "$subdir/config_results.txt") { open(INF, "<$subdir/config_results.txt"); while (<INF>) { if (/^%ARCH/) { @rfields = split(' '); $arch = @rfields[1]; } if (/^%OS/) { @rfields = split(' '); $os = @rfields[1]; } if (/^%COMPILER/) { @rfields = split(' '); $compiler = @rfields[1]; } if (/^%FLAGS/) { @rfields = split(':'); $flags = @rfields[1]; $flags =~ s/\#//; $flags =~ s/\s//; $flags =~ s/.*configure\s//; } if (/^%RESULT/) { @rfields = split(' '); if (@rfields[1] eq "FAILURE") { $conf = 0; } elsif (@rfields[1] eq "SUCCESS") { $conf = 1; } else { $conf = "?"; } } } close(INF); } else { print "Missing config\n"; } if (-f "$subdir/make_and_test_results.txt") { open(INF, "<$subdir/make_and_test_results.txt"); while (<INF>) { if (/^%BUILD/) { while (<INF>) { if (/^%WARN/) { @rfields = split(' '); $build_warnings += @rfields[1]; } if (/^%ERR/) { @rfields = split(' '); $build_errors += @rfields[1]; } if (/^%RESULT/) { @rfields = split(' '); if (@rfields[1] eq "FAILURE") { $bad_builds++; } elsif (@rfields[1] eq "SUCCESS") { $good_builds++; } else { $build_result_errs++; } last; } } } if (/^%TEST/) { while (<INF>) { if (/^%RESULT/) { @rfields = split(' '); if (@rfields[1] eq "FAILURE") { $bad_tests++; } elsif (@rfields[1] eq "SUCCESS") { $good_tests++; } else { $test_result_errs++; } last; } } } } close(INF); } else { print "No make_and_test_results.txt\n"; } $sum_builds = $good_builds + $bad_builds; $builds = "$good_builds/$sum_builds"; if ($build_result_errs > 0) { $builds .= "?"; } $sum_tests = $good_tests + $bad_tests; $tests = "$good_tests/$sum_tests"; if ($test_result_errs > 0) { $tests .= "?"; } write OUTF; }}close(OUTF);
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -