Lines Matching full:my
16 my $VERSION = "0.2";
20 my %opt;
21 my %repeat_tests;
22 my %repeats;
23 my %evals;
24 my @command_vars;
25 my %command_tmp_vars;
28 my %default = (
87 my $test_log_start = 0;
89 my $ktest_config = "ktest.conf";
90 my $version;
91 my $have_version = 0;
92 my $machine;
93 my $last_machine;
94 my $ssh_user;
95 my $tmpdir;
96 my $builddir;
97 my $outputdir;
98 my $output_config;
99 my $test_type;
100 my $build_type;
101 my $build_options;
102 my $final_post_ktest;
103 my $pre_ktest;
104 my $post_ktest;
105 my $pre_test;
106 my $pre_test_die;
107 my $post_test;
108 my $pre_build;
109 my $post_build;
110 my $pre_build_die;
111 my $post_build_die;
112 my $reboot_type;
113 my $reboot_script;
114 my $power_cycle;
115 my $reboot;
116 my $reboot_return_code;
117 my $reboot_on_error;
118 my $switch_to_good;
119 my $switch_to_test;
120 my $poweroff_on_error;
121 my $reboot_on_success;
122 my $die_on_failure;
123 my $powercycle_after_reboot;
124 my $poweroff_after_halt;
125 my $max_monitor_wait;
126 my $ssh_exec;
127 my $scp_to_target;
128 my $scp_to_target_install;
129 my $power_off;
130 my $grub_menu;
131 my $last_grub_menu;
132 my $grub_file;
133 my $grub_number;
134 my $grub_reboot;
135 my $grub_bls_get;
136 my $syslinux;
137 my $syslinux_path;
138 my $syslinux_label;
139 my $target;
140 my $make;
141 my $pre_install;
142 my $post_install;
143 my $no_install;
144 my $noclean;
145 my $minconfig;
146 my $start_minconfig;
147 my $start_minconfig_defined;
148 my $output_minconfig;
149 my $minconfig_type;
150 my $use_output_minconfig;
151 my $warnings_file;
152 my $ignore_config;
153 my $ignore_errors;
154 my $addconfig;
155 my $in_bisect = 0;
156 my $bisect_bad_commit = "";
157 my $reverse_bisect;
158 my $bisect_manual;
159 my $bisect_skip;
160 my $bisect_tries;
161 my $config_bisect_good;
162 my $bisect_ret_good;
163 my $bisect_ret_bad;
164 my $bisect_ret_skip;
165 my $bisect_ret_abort;
166 my $bisect_ret_default;
167 my $in_patchcheck = 0;
168 my $run_test;
169 my $buildlog;
170 my $testlog;
171 my $dmesg;
172 my $monitor_fp;
173 my $monitor_pid;
174 my $monitor_cnt = 0;
175 my $sleep_time;
176 my $bisect_sleep_time;
177 my $patchcheck_sleep_time;
178 my $ignore_warnings;
179 my $store_failures;
180 my $store_successes;
181 my $test_name;
182 my $timeout;
183 my $run_timeout;
184 my $connect_timeout;
185 my $config_bisect_exec;
186 my $booted_timeout;
187 my $detect_triplefault;
188 my $console;
189 my $close_console_signal;
190 my $reboot_success_line;
191 my $success_line;
192 my $stop_after_success;
193 my $stop_after_failure;
194 my $stop_test_after;
195 my $build_target;
196 my $target_image;
197 my $checkout;
198 my $localversion;
199 my $iteration = 0;
200 my $successes = 0;
201 my $stty_orig;
202 my $run_command_status = 0;
204 my $bisect_good;
205 my $bisect_bad;
206 my $bisect_type;
207 my $bisect_start;
208 my $bisect_replay;
209 my $bisect_files;
210 my $bisect_reverse;
211 my $bisect_check;
213 my $config_bisect;
214 my $config_bisect_type;
215 my $config_bisect_check;
217 my $patchcheck_type;
218 my $patchcheck_start;
219 my $patchcheck_cherry;
220 my $patchcheck_end;
221 my $patchcheck_skip;
223 my $build_time;
224 my $install_time;
225 my $reboot_time;
226 my $test_time;
228 my $warning_found = 0;
230 my $pwd;
231 my $dirname = $FindBin::Bin;
233 my $mailto;
234 my $mailer;
235 my $mail_path;
236 my $mail_max_size;
237 my $mail_command;
238 my $email_on_error;
239 my $email_when_finished;
240 my $email_when_started;
241 my $email_when_canceled;
243 my $script_start_time = localtime();
247 my $buildonly = 1;
250 my $warnings_ok = 0;
253 my $newconfig = 0;
255 my %entered_configs;
256 my %config_help;
257 my %variable;
261 my %force_config;
264 my $no_reboot = 1;
267 my $reboot_success = 0;
269 my %option_map = (
390 my %used_options;
524 my $d = 0;
527 my $in_die = 0;
530 my $check_build_re = ".*:.*(warning|error|Error):.*";
531 my $utf8_quote = "\\x{e2}\\x{80}(\\x{98}|\\x{99})";
534 my $child_done;
539 my %config_ignore;
542 my %config_set;
547 my %config_off;
550 my @config_off_tmp;
553 my %config_list;
554 my %null_config;
556 my %dependency;
559 my $pass = 1;
563 my %depends;
564 my %depcount;
565 my $iflevel = 0;
566 my @ifdeps;
569 my %read_kconfigs;
572 my %min_configs;
573 my %keep_configs;
574 my %save_configs;
575 my %processed_configs;
576 my %nochange_config;
606 my ($cancel, $prompt) = @_;
608 my $ans;
643 my ($prompt) = @_;
649 my ($prompt) = @_;
655 my ($config) = @_;
656 my $ans;
686 my ($time) = @_;
688 my $hours = 0;
689 my $minutes = 0;
778 my $rtype = $opt{"REBOOT_TYPE"};
804 my ($value, $remove_undef) = @_;
805 my $retval = "";
815 my $begin = $1;
816 my $var = $2;
817 my $end = $3;
856 my ($lvalue, $rvalue, $override, $overrides, $name) = @_;
858 my $prvalue = process_variables($rvalue);
878 my $extra = "";
891 my ($lvalue, $rvalue, $name) = @_;
893 my $prvalue = process_variables($rvalue);
894 my $arr;
907 my ($lvalue, $rvalue, $command) = @_;
926 my ($lval, $cmp, $rval) = @_;
946 my $statement = "$lval $cmp $rval";
947 my $ret = eval $statement;
958 my ($val) = @_;
965 my ($name, $val) = @_;
967 my $c = $d++;
970 my $express = $1;
980 my $OR = "\\|\\|";
981 my $AND = "\\&\\&";
984 my $express = $1;
985 my $op = $2;
999 my $ret = process_compare($1, $2, $3);
1015 my $express = $1;
1016 my $ret = process_expression($name, $express);
1030 my ($name, $value) = @_;
1033 my $val = process_variables($value, 1);
1034 my $ret = process_expression $name, $val;
1040 my ($config, $current_test_num) = @_;
1042 my $in;
1045 my $name = $config;
1048 my $test_num = $$current_test_num;
1049 my $default = 1;
1050 my $repeat = 1;
1051 my $num_tests_set = 0;
1052 my $skip = 0;
1053 my $rest;
1054 my $line;
1055 my $test_case = 0;
1056 my $if = 0;
1057 my $if_set = 0;
1058 my $override = 0;
1060 my %overrides;
1069 my $type = $1;
1073 my $old_test_num;
1074 my $old_repeat;
1183 my $file = process_variables($1);
1206 my $lvalue = $1;
1207 my $rvalue = $2;
1212 my $val = "$lvalue\[$test_num\]";
1220 my $lvalue = $1;
1221 my $rvalue = $2;
1243 my $val = "$lvalue\[$test_num\]";
1253 my $lvalue = $1;
1254 my $rvalue = $2;
1288 my $ans = <STDIN>;
1294 my ($config) = @_;
1296 my $test_case;
1297 my $test_num = 0;
1301 foreach my $val (@command_vars) {
1303 my %command_overrides;
1305 my $lvalue = $1;
1306 my $rvalue = $2;
1325 foreach my $default (keys %default) {
1335 my %not_used;
1338 foreach my $option (keys %opt) {
1339 my $op = $option;
1350 my $s = "s are";
1353 foreach my $option (keys %not_used) {
1364 my ($name, $option, $i) = @_;
1368 my $retval = "";
1369 my $repeated = 0;
1370 my $parent = 0;
1372 foreach my $test (keys %repeat_tests) {
1383 my $start = $1;
1384 my $var = $2;
1385 my $end = $3;
1393 my $o = "$var\[$i\]";
1394 my $parento = "$var\[$parent\]";
1431 my ($name, $option, $i) = @_;
1433 my $option_name = "$name\[$i\]";
1434 my $ev;
1436 my $old_option = $option;
1446 for my $e (@{$ev}) {
1458 my ($name, $option, $i) = @_;
1460 my $prev = "";
1465 my $r = 0;
1483 my ($time) = @_;
1484 my $powercycle = 0;
1487 my $stat = run_ssh("echo check machine status", $connect_timeout);
1528 my $save_ignore_errors = $ignore_errors;
1549 my ($time) = @_;
1559 my $i = $iteration;
1568 my $name;
1588 my $i = $iteration;
1605 my $name = get_test_name;
1606 my $log_file;
1609 my $whence = 2; # End of file
1610 my $log_size = tell LOG;
1611 my $size = $log_size - $test_log_start;
1618 my $pos = - $size;
1642 my ($ptm, $pts) = @_;
1643 my $tmp;
1644 my $TIOCSPTLCK = 0x40045431;
1645 my $TIOCGPTN = 0x80045430;
1665 my ($ptm, $pts) = @_;
1684 my ($ptm) = @_;
1685 my $pts = \*PTSFD;
1686 my $pid;
1713 my ($fp, $pid) = @_;
1749 my ($time, $stop) = @_;
1750 my $full_line = "";
1751 my $line;
1752 my $booted = 0;
1753 my $start_time = time;
1754 my $skip_call_trace = 0;
1755 my $bug = 0;
1756 my $bug_ignored = 0;
1757 my $now;
1815 my ($result, $basedir) = @_;
1816 my @t = localtime;
1817 my $date = sprintf "%04d%02d%02d%02d%02d%02d",
1820 my $type = $build_type;
1825 my $dir = "$machine-$test_type-$type-$result-$date";
1834 my %files = (
1841 while (my ($name, $source) = each(%files)) {
1859 my $i = $iteration;
1867 my $name = "";
1893 my ($command, $redirect, $timeout) = @_;
1894 my $start_time;
1895 my $end_time;
1896 my $dolog = 0;
1897 my $dord = 0;
1898 my $dostdout = 0;
1899 my $pid;
1900 my $command_orig = $command;
1935 my $hit_timeout = 0;
1938 my $fp = \*CMD;
1939 my $line = wait_for_input($fp, $timeout);
1941 my $now = time;
1967 my $delta = $end_time - $start_time;
1989 my ($cmd, $timeout) = @_;
1990 my $cp_exec = $ssh_exec;
1997 my ($src, $dst, $cp_scp) = @_;
2006 my ($src, $dst) = @_;
2008 my $cp_scp = $scp_to_target_install;
2014 my ($src, $dst) = @_;
2016 my $cp_scp = $scp_to_target;
2023 my ($command, $target, $skip, $submenu) = @_;
2032 my $ssh_grub = $ssh_exec;
2038 my $found = 0;
2040 my $submenu_number = 0;
2068 my $command;
2069 my $target;
2070 my $skip;
2071 my $submenu;
2072 my $grub_menu_qt;
2101 my ($fp, $time) = @_;
2102 my $start_time;
2103 my $rin;
2104 my $rout;
2105 my $nr;
2106 my $buf;
2107 my $line;
2108 my $ch;
2175 my ($commit) = @_;
2178 my $sha1 = `git rev-list --max-count=1 $commit`;
2179 my $ret = $?;
2196 my $booted = 0;
2197 my $bug = 0;
2198 my $bug_ignored = 0;
2199 my $skip_call_trace = 0;
2200 my $loops;
2202 my $start_time = time;
2206 my $line;
2207 my $full_line = "";
2214 my $success_start;
2215 my $failure_start;
2216 my $monitor_start = time;
2217 my $done = 0;
2218 my $version_found = 0;
2223 my $time = $stop_after_failure - (time - $failure_start);
2233 my $s = $booted_timeout == 1 ? "" : "s";
2240 my $s = $timeout == 1 ? "" : "s";
2259 my $now = time;
2283 my $now = time;
2327 my $end_time = time;
2350 my ($option) = @_;
2361 my $cp_post_install = eval_kernel_version $post_install;
2378 my $start_time = time;
2381 my $cp_pre_install = eval_kernel_version $pre_install;
2386 my $cp_target = eval_kernel_version $target_image;
2393 my $install_mods = 0;
2411 my $end_time = time;
2419 my $modlib = "/lib/modules/$version";
2420 my $modtar = "ktest-mods.tar.bz2";
2441 my $end_time = time;
2479 my ($line) = @_;
2505 my %warnings_list;
2508 my $save_no_reboot = $no_reboot;
2517 my $warning = process_warning_line $_;
2528 my $warning = process_warning_line $_;
2548 my ($patch) = @_;
2550 my @files = `git show $patch | diffstat -l`;
2552 foreach my $file (@files) {
2569 my $err = $1;
2570 foreach my $file (@files) {
2571 my $fullpath = "$builddir/$file";
2584 my $outconfig = "$output_config.new";
2606 foreach my $config (keys %force_config) {
2616 my @force_list = keys %force_config;
2637 my ($config) = @_;
2654 my ($type) = @_;
2658 my $start_time = time;
2661 my $save_no_reboot = $no_reboot;
2668 my $ret = run_command $pre_build;
2723 my $build_ret = run_command "$make $build_options", $buildlog;
2729 my $ret = run_command $post_build;
2747 my $end_time = time;
2766 my ($i) = @_;
2770 my $name = "";
2802 my $ans = <STDIN>;
2833 my $child_pid;
2834 my $child_exit;
2835 my $line;
2836 my $full_line;
2837 my $bug = 0;
2838 my $bug_ignored = 0;
2840 my $start_time = time;
2887 my $failure_start = time;
2888 my $now;
2908 my $end_time = time;
2956 my ($command) = @_;
2960 my $output = `$command 2>&1`;
2961 my $ret = $?;
2992 my ($type, $buildtype) = @_;
2994 my $failed = 0;
2995 my $result;
3041 my ($type) = @_;
3042 my $buildtype = "oldconfig";
3051 my $ret = 1;
3058 for (my $i = 0; $i < $bisect_tries; $i++) {
3060 my $t = $i + 1;
3088 my $tmp_log = "$tmpdir/ktest_bisect_log";
3095 my ($i) = @_;
3097 my $result;
3103 my $good = $bisect_good;
3104 my $bad = $bisect_bad;
3105 my $type = $bisect_type;
3106 my $start = $bisect_start;
3107 my $replay = $bisect_replay;
3108 my $start_files = $bisect_files;
3133 my $bisect_start_file = "$builddir/.git/BISECT_START";
3135 my $check = $bisect_check;
3136 my $do_check = defined($check) && $check ne "0";
3158 my $head = get_sha1("HEAD");
3208 my $test;
3227 my ($hash, $config) = @_;
3247 my ($config) = @_;
3253 my ($config) = @_;
3255 my $arr = $dependency{$config};
3260 my @deps = @{$arr};
3262 foreach my $dep (@{$arr}) {
3271 my ($pc, $file) = @_;
3273 my %configs = %{$pc};
3279 foreach my $config (keys %configs) {
3286 my ($name, $pc) = @_;
3296 my ($type) = @_;
3298 my $ret = run_bisect_test $type, "oldconfig";
3308 my ($good, $bad) = @_;
3309 my $diffexec = "diff -u";
3321 my ($good, $bad, $last_result) = @_;
3322 my $reset = "";
3323 my $cmd;
3324 my $ret;
3357 my ($i) = @_;
3359 my $good_config;
3360 my $bad_config;
3362 my $type = $config_bisect_type;
3363 my $ret;
3383 my @locations = (
3388 foreach my $loc (@locations) {
3404 my %good_configs;
3405 my %bad_configs;
3406 my %tmp_configs;
3455 my $last_run = "";
3482 my ($i) = @_;
3489 my $start = $patchcheck_start;
3491 my $cherry = $patchcheck_cherry;
3496 my $end = "HEAD";
3507 my $type = $patchcheck_type;
3522 my @list;
3542 my %skip_list;
3543 my $will_skip = 0;
3546 foreach my $s (split /\s+/, $patchcheck_skip) {
3556 foreach my $l (@list) {
3557 my $sha1 = $l;
3565 foreach my $l (@list) {
3566 my $sha1 = $l;
3573 my $save_clean = $noclean;
3574 my %ignored_warnings;
3577 foreach my $sha1 (split /\s+/, $ignore_warnings) {
3583 foreach my $item (@list) {
3584 my $sha1 = $item;
3621 my $failed = 0;
3644 my ($config, $dep) = @_;
3662 my ($kconfig) = @_;
3664 my $state = "NONE";
3665 my $config;
3666 my @kconfigs;
3668 my $cont = 0;
3669 my $line;
3704 for (my $i = 0; $i < $iflevel; $i++) {
3721 my $deps = $1;
3726 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
3754 my $arch;
3775 my $kconfig = "$builddir/arch/$arch/Kconfig";
3778 my $orig = $arch;
3793 my @configs = @_;
3798 foreach my $config (@configs) {
3805 my ($config) = @_;
3813 my ($dep) = @_;
3815 my $kconfig = chomp_config $dep;
3823 my $valid = "A-Za-z_0-9";
3825 my @configs;
3829 my $conf = "CONFIG_" . $1;
3843 my ($config) = @_;
3845 my $found;
3858 my $kconfig = chomp_config $config;
3862 my @parents = get_depends $config;
3863 foreach my $parent (@parents) {
3877 my %configs = %min_configs;
3897 my ($i) = @_;
3899 my $type = $minconfig_type;
3930 my $temp_config = "$tmpdir/temp_config";
3936 my $save_minconfig = $minconfig;
3962 my @config_keys = keys %min_configs;
3965 foreach my $config (@config_keys) {
3966 my $kconfig = chomp_config $config;
3974 foreach my $config (@config_keys) {
3977 my $file = $ignore_config;
3999 my $done = 0;
4000 my $take_two = 0;
4003 my $config;
4004 my $found;
4009 my @test_configs = keys %min_configs;
4016 my $reset = 1;
4017 for (my $i = 0; $i < $#test_configs; $i++) {
4024 my $config = shift @test_configs;
4036 foreach my $config (@test_configs) {
4066 my $failed = 0;
4091 foreach my $config (keys %save_configs) {
4106 my %configs;
4108 my @config_keys = keys %min_configs;
4109 foreach my $config (@config_keys) {
4119 foreach my $config (keys %keep_configs) {
4122 foreach my $config (keys %min_configs) {
4140 my ($i) = @_;
4172 my ($option) = @_;
4182 my ($name, $i) = @_;
4184 my $option = "$name\[$i\]";
4190 foreach my $test (keys %repeat_tests) {
4208 my ($name, $i) = @_;
4210 my $option = __set_test_option($name, $i);
4217 my ($mailer) = @_;
4219 my @paths = split /:/, $ENV{PATH};
4224 foreach my $path (@paths) {
4234 my ($subject, $message, $file) = @_;
4244 my $header_file = "$tmpdir/header";
4274 my $ret = run_command $mail_command;
4297 my $name = get_test_name;
4328 my $val = shift;
4337 my $val = $1;
4398 my @new_configs = keys %entered_configs;
4402 foreach my $config (@new_configs) {
4414 my $dir = $1;
4426 for (my $i = 0, my $repeat = 1; $i <= $opt{"NUM_TESTS"}; $i += $repeat) {
4439 foreach my $option (sort keys %opt) {
4453 for (my $i = 1; $i <= $opt{"NUM_TESTS"}; $i++) {
4470 my $makecmd = set_test_option("MAKE_CMD", $i);
4485 foreach my $opt (keys %option_map) {
4498 my $name = get_test_name;
4540 my $run_type = $build_type;
4558 my $installme = "";
4561 my $name = "";
4580 my $ret = run_command $pre_test;
4592 my $min = $minconfig;
4644 my $failed = 0;
4664 my $cp_final_post_ktest = eval_kernel_version $final_post_ktest;