Lines Matching full:my
16 my $VERSION = "0.2";
20 my %opt;
21 my %repeat_tests;
22 my %repeats;
23 my %evals;
26 my %default = (
85 my $test_log_start = 0;
87 my $ktest_config = "ktest.conf";
88 my $version;
89 my $have_version = 0;
90 my $machine;
91 my $last_machine;
92 my $ssh_user;
93 my $tmpdir;
94 my $builddir;
95 my $outputdir;
96 my $output_config;
97 my $test_type;
98 my $build_type;
99 my $build_options;
100 my $final_post_ktest;
101 my $pre_ktest;
102 my $post_ktest;
103 my $pre_test;
104 my $pre_test_die;
105 my $post_test;
106 my $pre_build;
107 my $post_build;
108 my $pre_build_die;
109 my $post_build_die;
110 my $reboot_type;
111 my $reboot_script;
112 my $power_cycle;
113 my $reboot;
114 my $reboot_return_code;
115 my $reboot_on_error;
116 my $switch_to_good;
117 my $switch_to_test;
118 my $poweroff_on_error;
119 my $reboot_on_success;
120 my $die_on_failure;
121 my $powercycle_after_reboot;
122 my $poweroff_after_halt;
123 my $max_monitor_wait;
124 my $ssh_exec;
125 my $scp_to_target;
126 my $scp_to_target_install;
127 my $power_off;
128 my $grub_menu;
129 my $last_grub_menu;
130 my $grub_file;
131 my $grub_number;
132 my $grub_reboot;
133 my $grub_bls_get;
134 my $syslinux;
135 my $syslinux_path;
136 my $syslinux_label;
137 my $target;
138 my $make;
139 my $pre_install;
140 my $post_install;
141 my $no_install;
142 my $noclean;
143 my $minconfig;
144 my $start_minconfig;
145 my $start_minconfig_defined;
146 my $output_minconfig;
147 my $minconfig_type;
148 my $use_output_minconfig;
149 my $warnings_file;
150 my $ignore_config;
151 my $ignore_errors;
152 my $addconfig;
153 my $in_bisect = 0;
154 my $bisect_bad_commit = "";
155 my $reverse_bisect;
156 my $bisect_manual;
157 my $bisect_skip;
158 my $bisect_tries;
159 my $config_bisect_good;
160 my $bisect_ret_good;
161 my $bisect_ret_bad;
162 my $bisect_ret_skip;
163 my $bisect_ret_abort;
164 my $bisect_ret_default;
165 my $in_patchcheck = 0;
166 my $run_test;
167 my $buildlog;
168 my $testlog;
169 my $dmesg;
170 my $monitor_fp;
171 my $monitor_pid;
172 my $monitor_cnt = 0;
173 my $sleep_time;
174 my $bisect_sleep_time;
175 my $patchcheck_sleep_time;
176 my $ignore_warnings;
177 my $store_failures;
178 my $store_successes;
179 my $test_name;
180 my $timeout;
181 my $run_timeout;
182 my $connect_timeout;
183 my $config_bisect_exec;
184 my $booted_timeout;
185 my $detect_triplefault;
186 my $console;
187 my $close_console_signal;
188 my $reboot_success_line;
189 my $success_line;
190 my $stop_after_success;
191 my $stop_after_failure;
192 my $stop_test_after;
193 my $build_target;
194 my $target_image;
195 my $checkout;
196 my $localversion;
197 my $iteration = 0;
198 my $successes = 0;
199 my $stty_orig;
200 my $run_command_status = 0;
202 my $bisect_good;
203 my $bisect_bad;
204 my $bisect_type;
205 my $bisect_start;
206 my $bisect_replay;
207 my $bisect_files;
208 my $bisect_reverse;
209 my $bisect_check;
211 my $config_bisect;
212 my $config_bisect_type;
213 my $config_bisect_check;
215 my $patchcheck_type;
216 my $patchcheck_start;
217 my $patchcheck_cherry;
218 my $patchcheck_end;
220 my $build_time;
221 my $install_time;
222 my $reboot_time;
223 my $test_time;
225 my $warning_found = 0;
227 my $pwd;
228 my $dirname = $FindBin::Bin;
230 my $mailto;
231 my $mailer;
232 my $mail_path;
233 my $mail_max_size;
234 my $mail_command;
235 my $email_on_error;
236 my $email_when_finished;
237 my $email_when_started;
238 my $email_when_canceled;
240 my $script_start_time = localtime();
244 my $buildonly = 1;
247 my $warnings_ok = 0;
250 my $newconfig = 0;
252 my %entered_configs;
253 my %config_help;
254 my %variable;
258 my %force_config;
261 my $no_reboot = 1;
264 my $reboot_success = 0;
266 my %option_map = (
386 my %used_options;
520 my $d = 0;
523 my $in_die = 0;
526 my $check_build_re = ".*:.*(warning|error|Error):.*";
527 my $utf8_quote = "\\x{e2}\\x{80}(\\x{98}|\\x{99})";
530 my $child_done;
535 my %config_ignore;
538 my %config_set;
543 my %config_off;
546 my @config_off_tmp;
549 my %config_list;
550 my %null_config;
552 my %dependency;
555 my $pass = 1;
559 my %depends;
560 my %depcount;
561 my $iflevel = 0;
562 my @ifdeps;
565 my %read_kconfigs;
568 my %min_configs;
569 my %keep_configs;
570 my %save_configs;
571 my %processed_configs;
572 my %nochange_config;
602 my ($cancel, $prompt) = @_;
604 my $ans;
639 my ($prompt) = @_;
645 my ($prompt) = @_;
651 my ($config) = @_;
652 my $ans;
682 my ($time) = @_;
684 my $hours = 0;
685 my $minutes = 0;
774 my $rtype = $opt{"REBOOT_TYPE"};
800 my ($value, $remove_undef) = @_;
801 my $retval = "";
811 my $begin = $1;
812 my $var = $2;
813 my $end = $3;
852 my ($lvalue, $rvalue, $override, $overrides, $name) = @_;
854 my $prvalue = process_variables($rvalue);
874 my $extra = "";
887 my ($lvalue, $rvalue, $name) = @_;
889 my $prvalue = process_variables($rvalue);
890 my $arr;
903 my ($lvalue, $rvalue) = @_;
914 my ($lval, $cmp, $rval) = @_;
934 my $statement = "$lval $cmp $rval";
935 my $ret = eval $statement;
946 my ($val) = @_;
953 my ($name, $val) = @_;
955 my $c = $d++;
958 my $express = $1;
968 my $OR = "\\|\\|";
969 my $AND = "\\&\\&";
972 my $express = $1;
973 my $op = $2;
987 my $ret = process_compare($1, $2, $3);
1003 my $express = $1;
1004 my $ret = process_expression($name, $express);
1018 my ($name, $value) = @_;
1021 my $val = process_variables($value, 1);
1022 my $ret = process_expression $name, $val;
1028 my ($config, $current_test_num) = @_;
1030 my $in;
1033 my $name = $config;
1036 my $test_num = $$current_test_num;
1037 my $default = 1;
1038 my $repeat = 1;
1039 my $num_tests_set = 0;
1040 my $skip = 0;
1041 my $rest;
1042 my $line;
1043 my $test_case = 0;
1044 my $if = 0;
1045 my $if_set = 0;
1046 my $override = 0;
1048 my %overrides;
1057 my $type = $1;
1061 my $old_test_num;
1062 my $old_repeat;
1171 my $file = process_variables($1);
1194 my $lvalue = $1;
1195 my $rvalue = $2;
1200 my $val = "$lvalue\[$test_num\]";
1208 my $lvalue = $1;
1209 my $rvalue = $2;
1231 my $val = "$lvalue\[$test_num\]";
1241 my $lvalue = $1;
1242 my $rvalue = $2;
1276 my $ans = <STDIN>;
1282 my ($config) = @_;
1284 my $test_case;
1285 my $test_num = 0;
1300 foreach my $default (keys %default) {
1310 my %not_used;
1313 foreach my $option (keys %opt) {
1314 my $op = $option;
1325 my $s = "s are";
1328 foreach my $option (keys %not_used) {
1339 my ($name, $option, $i) = @_;
1343 my $retval = "";
1344 my $repeated = 0;
1345 my $parent = 0;
1347 foreach my $test (keys %repeat_tests) {
1358 my $start = $1;
1359 my $var = $2;
1360 my $end = $3;
1368 my $o = "$var\[$i\]";
1369 my $parento = "$var\[$parent\]";
1403 my ($name, $option, $i) = @_;
1405 my $option_name = "$name\[$i\]";
1406 my $ev;
1408 my $old_option = $option;
1418 for my $e (@{$ev}) {
1430 my ($name, $option, $i) = @_;
1432 my $prev = "";
1437 my $r = 0;
1455 my ($time) = @_;
1456 my $powercycle = 0;
1459 my $stat = run_ssh("echo check machine status", $connect_timeout);
1500 my $save_ignore_errors = $ignore_errors;
1521 my ($time) = @_;
1531 my $i = $iteration;
1540 my $name;
1560 my $i = $iteration;
1577 my $name = get_test_name;
1578 my $log_file;
1581 my $whence = 2; # End of file
1582 my $log_size = tell LOG;
1583 my $size = $log_size - $test_log_start;
1590 my $pos = - $size;
1614 my ($ptm, $pts) = @_;
1615 my $tmp;
1616 my $TIOCSPTLCK = 0x40045431;
1617 my $TIOCGPTN = 0x80045430;
1637 my ($ptm, $pts) = @_;
1656 my ($ptm) = @_;
1657 my $pts = \*PTSFD;
1658 my $pid;
1685 my ($fp, $pid) = @_;
1721 my ($time, $stop) = @_;
1722 my $full_line = "";
1723 my $line;
1724 my $booted = 0;
1725 my $start_time = time;
1726 my $skip_call_trace = 0;
1727 my $bug = 0;
1728 my $bug_ignored = 0;
1729 my $now;
1787 my ($result, $basedir) = @_;
1788 my @t = localtime;
1789 my $date = sprintf "%04d%02d%02d%02d%02d%02d",
1792 my $type = $build_type;
1797 my $dir = "$machine-$test_type-$type-$result-$date";
1806 my %files = (
1813 while (my ($name, $source) = each(%files)) {
1831 my $i = $iteration;
1839 my $name = "";
1865 my ($command, $redirect, $timeout) = @_;
1866 my $start_time;
1867 my $end_time;
1868 my $dolog = 0;
1869 my $dord = 0;
1870 my $dostdout = 0;
1871 my $pid;
1872 my $command_orig = $command;
1907 my $hit_timeout = 0;
1910 my $fp = \*CMD;
1911 my $line = wait_for_input($fp, $timeout);
1913 my $now = time;
1939 my $delta = $end_time - $start_time;
1961 my ($cmd, $timeout) = @_;
1962 my $cp_exec = $ssh_exec;
1969 my ($src, $dst, $cp_scp) = @_;
1978 my ($src, $dst) = @_;
1980 my $cp_scp = $scp_to_target_install;
1986 my ($src, $dst) = @_;
1988 my $cp_scp = $scp_to_target;
1995 my ($command, $target, $skip, $submenu) = @_;
2004 my $ssh_grub = $ssh_exec;
2010 my $found = 0;
2012 my $submenu_number = 0;
2040 my $command;
2041 my $target;
2042 my $skip;
2043 my $submenu;
2044 my $grub_menu_qt;
2073 my ($fp, $time) = @_;
2074 my $start_time;
2075 my $rin;
2076 my $rout;
2077 my $nr;
2078 my $buf;
2079 my $line;
2080 my $ch;
2147 my ($commit) = @_;
2150 my $sha1 = `git rev-list --max-count=1 $commit`;
2151 my $ret = $?;
2168 my $booted = 0;
2169 my $bug = 0;
2170 my $bug_ignored = 0;
2171 my $skip_call_trace = 0;
2172 my $loops;
2174 my $start_time = time;
2178 my $line;
2179 my $full_line = "";
2186 my $success_start;
2187 my $failure_start;
2188 my $monitor_start = time;
2189 my $done = 0;
2190 my $version_found = 0;
2195 my $time = $stop_after_failure - (time - $failure_start);
2205 my $s = $booted_timeout == 1 ? "" : "s";
2212 my $s = $timeout == 1 ? "" : "s";
2231 my $now = time;
2255 my $now = time;
2299 my $end_time = time;
2322 my ($option) = @_;
2333 my $cp_post_install = eval_kernel_version $post_install;
2350 my $start_time = time;
2353 my $cp_pre_install = eval_kernel_version $pre_install;
2358 my $cp_target = eval_kernel_version $target_image;
2365 my $install_mods = 0;
2383 my $end_time = time;
2391 my $modlib = "/lib/modules/$version";
2392 my $modtar = "ktest-mods.tar.bz2";
2413 my $end_time = time;
2451 my ($line) = @_;
2477 my %warnings_list;
2480 my $save_no_reboot = $no_reboot;
2489 my $warning = process_warning_line $_;
2500 my $warning = process_warning_line $_;
2520 my ($patch) = @_;
2522 my @files = `git show $patch | diffstat -l`;
2524 foreach my $file (@files) {
2541 my $err = $1;
2542 foreach my $file (@files) {
2543 my $fullpath = "$builddir/$file";
2556 my $outconfig = "$output_config.new";
2578 foreach my $config (keys %force_config) {
2588 my @force_list = keys %force_config;
2609 my ($config) = @_;
2626 my ($type) = @_;
2630 my $start_time = time;
2633 my $save_no_reboot = $no_reboot;
2640 my $ret = run_command $pre_build;
2695 my $build_ret = run_command "$make $build_options", $buildlog;
2701 my $ret = run_command $post_build;
2719 my $end_time = time;
2738 my ($i) = @_;
2742 my $name = "";
2774 my $ans = <STDIN>;
2805 my $child_pid;
2806 my $child_exit;
2807 my $line;
2808 my $full_line;
2809 my $bug = 0;
2810 my $bug_ignored = 0;
2812 my $start_time = time;
2859 my $failure_start = time;
2860 my $now;
2880 my $end_time = time;
2928 my ($command) = @_;
2932 my $output = `$command 2>&1`;
2933 my $ret = $?;
2964 my ($type, $buildtype) = @_;
2966 my $failed = 0;
2967 my $result;
3013 my ($type) = @_;
3014 my $buildtype = "oldconfig";
3023 my $ret = 1;
3030 for (my $i = 0; $i < $bisect_tries; $i++) {
3032 my $t = $i + 1;
3060 my $tmp_log = "$tmpdir/ktest_bisect_log";
3067 my ($i) = @_;
3069 my $result;
3075 my $good = $bisect_good;
3076 my $bad = $bisect_bad;
3077 my $type = $bisect_type;
3078 my $start = $bisect_start;
3079 my $replay = $bisect_replay;
3080 my $start_files = $bisect_files;
3105 my $bisect_start_file = "$builddir/.git/BISECT_START";
3107 my $check = $bisect_check;
3108 my $do_check = defined($check) && $check ne "0";
3130 my $head = get_sha1("HEAD");
3180 my $test;
3199 my ($hash, $config) = @_;
3219 my ($config) = @_;
3225 my ($config) = @_;
3227 my $arr = $dependency{$config};
3232 my @deps = @{$arr};
3234 foreach my $dep (@{$arr}) {
3243 my ($pc, $file) = @_;
3245 my %configs = %{$pc};
3251 foreach my $config (keys %configs) {
3258 my ($name, $pc) = @_;
3268 my ($type) = @_;
3270 my $ret = run_bisect_test $type, "oldconfig";
3280 my ($good, $bad) = @_;
3281 my $diffexec = "diff -u";
3293 my ($good, $bad, $last_result) = @_;
3294 my $reset = "";
3295 my $cmd;
3296 my $ret;
3329 my ($i) = @_;
3331 my $good_config;
3332 my $bad_config;
3334 my $type = $config_bisect_type;
3335 my $ret;
3355 my @locations = (
3360 foreach my $loc (@locations) {
3376 my %good_configs;
3377 my %bad_configs;
3378 my %tmp_configs;
3427 my $last_run = "";
3454 my ($i) = @_;
3461 my $start = $patchcheck_start;
3463 my $cherry = $patchcheck_cherry;
3468 my $end = "HEAD";
3479 my $type = $patchcheck_type;
3494 my @list;
3515 foreach my $l (@list) {
3519 my $save_clean = $noclean;
3520 my %ignored_warnings;
3523 foreach my $sha1 (split /\s+/, $ignore_warnings) {
3529 foreach my $item (@list) {
3530 my $sha1 = $item;
3562 my $failed = 0;
3585 my ($config, $dep) = @_;
3603 my ($kconfig) = @_;
3605 my $state = "NONE";
3606 my $config;
3607 my @kconfigs;
3609 my $cont = 0;
3610 my $line;
3645 for (my $i = 0; $i < $iflevel; $i++) {
3662 my $deps = $1;
3667 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
3695 my $arch;
3716 my $kconfig = "$builddir/arch/$arch/Kconfig";
3719 my $orig = $arch;
3734 my @configs = @_;
3739 foreach my $config (@configs) {
3746 my ($config) = @_;
3754 my ($dep) = @_;
3756 my $kconfig = chomp_config $dep;
3764 my $valid = "A-Za-z_0-9";
3766 my @configs;
3770 my $conf = "CONFIG_" . $1;
3784 my ($config) = @_;
3786 my $found;
3799 my $kconfig = chomp_config $config;
3803 my @parents = get_depends $config;
3804 foreach my $parent (@parents) {
3818 my %configs = %min_configs;
3838 my ($i) = @_;
3840 my $type = $minconfig_type;
3871 my $temp_config = "$tmpdir/temp_config";
3877 my $save_minconfig = $minconfig;
3903 my @config_keys = keys %min_configs;
3906 foreach my $config (@config_keys) {
3907 my $kconfig = chomp_config $config;
3915 foreach my $config (@config_keys) {
3918 my $file = $ignore_config;
3940 my $done = 0;
3941 my $take_two = 0;
3944 my $config;
3945 my $found;
3950 my @test_configs = keys %min_configs;
3957 my $reset = 1;
3958 for (my $i = 0; $i < $#test_configs; $i++) {
3965 my $config = shift @test_configs;
3977 foreach my $config (@test_configs) {
4007 my $failed = 0;
4032 foreach my $config (keys %save_configs) {
4047 my %configs;
4049 my @config_keys = keys %min_configs;
4050 foreach my $config (@config_keys) {
4060 foreach my $config (keys %keep_configs) {
4063 foreach my $config (keys %min_configs) {
4081 my ($i) = @_;
4113 my ($option) = @_;
4123 my ($name, $i) = @_;
4125 my $option = "$name\[$i\]";
4131 foreach my $test (keys %repeat_tests) {
4149 my ($name, $i) = @_;
4151 my $option = __set_test_option($name, $i);
4158 my ($mailer) = @_;
4160 my @paths = split /:/, $ENV{PATH};
4165 foreach my $path (@paths) {
4175 my ($subject, $message, $file) = @_;
4185 my $header_file = "$tmpdir/header";
4215 my $ret = run_command $mail_command;
4238 my $name = get_test_name;
4292 my @new_configs = keys %entered_configs;
4296 foreach my $config (@new_configs) {
4308 my $dir = $1;
4320 for (my $i = 0, my $repeat = 1; $i <= $opt{"NUM_TESTS"}; $i += $repeat) {
4333 foreach my $option (sort keys %opt) {
4347 for (my $i = 1; $i <= $opt{"NUM_TESTS"}; $i++) {
4364 my $makecmd = set_test_option("MAKE_CMD", $i);
4379 foreach my $opt (keys %option_map) {
4392 my $name = get_test_name;
4434 my $run_type = $build_type;
4452 my $installme = "";
4455 my $name = "";
4470 my $ret = run_command $pre_test;
4482 my $min = $minconfig;
4534 my $failed = 0;
4554 my $cp_final_post_ktest = eval_kernel_version $final_post_ktest;