| /linux-4.1.27/drivers/crypto/vmx/ |
| H A D | ppc-xlate.pl | 5 my $flavour = shift;
6 my $output = shift;
9 my %GLOBALS;
10 my $dotinlocallabels=($flavour=~/linux/)?1:0;
15 my $globl = sub {
16 my $junk = shift;
17 my $name = shift;
18 my $global = \$GLOBALS{$name};
19 my $ret;
40 my $text = sub {
41 my $ret = ($flavour =~ /aix/) ? ".csect\t.text[PR],7" : ".text";
45 my $machine = sub {
46 my $junk = shift;
47 my $arch = shift;
54 my $size = sub {
57 my $name = shift; $name =~ s|^[\.\_]||;
58 my $ret = ".size $name,.-".($flavour=~/64$/?".":"").$name;
65 my $asciz = sub {
67 my $line = join(",",@_);
73 my $quad = sub {
75 my @ret;
76 my ($hi,$lo);
96 my $cmplw = sub {
97 my $f = shift;
98 my $cr = 0; $cr = shift if ($#_>1);
104 my $bdnz = sub {
105 my $f = shift;
106 my $bo = $f=~/[\+\-]/ ? 16+9 : 16; # optional "to be taken" hint
109 my $bltlr = sub {
110 my $f = shift;
111 my $bo = $f=~/\-/ ? 12+2 : 12; # optional "not to be taken" hint
116 my $bnelr = sub {
117 my $f = shift;
118 my $bo = $f=~/\-/ ? 4+2 : 4; # optional "not to be taken" hint
123 my $beqlr = sub {
124 my $f = shift;
125 my $bo = $f=~/-/ ? 12+2 : 12; # optional "not to be taken" hint
132 my $extrdi = sub {
133 my ($f,$ra,$rs,$n,$b) = @_;
137 my $vmr = sub {
138 my ($f,$vx,$vy) = @_;
144 my ($f, $vrt, $ra, $rb, $op) = @_;
148 my $lvx_u = sub { vsxmem_op(@_, 844); }; # lxvd2x
149 my $stvx_u = sub { vsxmem_op(@_, 972); }; # stxvd2x
150 my $lvdx_u = sub { vsxmem_op(@_, 588); }; # lxsdx
151 my $stvdx_u = sub { vsxmem_op(@_, 716); }; # stxsdx
152 my $lvx_4w = sub { vsxmem_op(@_, 780); }; # lxvw4x
153 my $stvx_4w = sub { vsxmem_op(@_, 908); }; # stxvw4x
157 my ($f, $vrt, $vra, $vrb, $op) = @_;
160 my $vcipher = sub { vcrypto_op(@_, 1288); };
161 my $vcipherlast = sub { vcrypto_op(@_, 1289); };
162 my $vncipher = sub { vcrypto_op(@_, 1352); };
163 my $vncipherlast= sub { vcrypto_op(@_, 1353); };
164 my $vsbox = sub { vcrypto_op(@_, 0, 1480); };
165 my $vshasigmad = sub { my ($st,$six)=splice(@_,-2); vcrypto_op(@_, $st<<4|$six, 1730); };
166 my $vshasigmaw = sub { my ($st,$six)=splice(@_,-2); vcrypto_op(@_, $st<<4|$six, 1666); };
167 my $vpmsumb = sub { vcrypto_op(@_, 1032); };
168 my $vpmsumd = sub { vcrypto_op(@_, 1224); };
169 my $vpmsubh = sub { vcrypto_op(@_, 1096); };
170 my $vpmsumw = sub { vcrypto_op(@_, 1160); };
171 my $vaddudm = sub { vcrypto_op(@_, 192); };
173 my $mtsle = sub {
174 my ($f, $arg) = @_;
194 my $c = $1; $c = "\t" if ($c eq "");
195 my $mnemonic = $2;
196 my $f = $3;
197 my $opcode = eval("\$$mnemonic");
|
| H A D | aesp8-ppc.pl | 61 my ($inp,$bits,$out,$ptr,$cnt,$rounds)=map("r$_",(3..8));
62 my ($zero,$in0,$in1,$key,$rcon,$mask,$tmp)=map("v$_",(0..6));
63 my ($stage,$outperm,$outmask,$outhead,$outtail)=map("v$_",(7..11));
398 my $dir = shift;
399 my $n = $dir eq "de" ? "n" : "";
400 my ($inp,$out,$key,$rounds,$idx)=map("r$_",(3..7));
475 my ($inp,$out,$len,$key,$ivp,$enc,$rounds,$idx)=map("r$_",(3..10));
476 my ($rndkey0,$rndkey1,$inout,$tmp)= map("v$_",(0..3));
477 my ($ivec,$inptail,$inpperm,$outhead,$outperm,$outmask,$keyperm)=
641 my $key_="r11";
642 my ($x00,$x10,$x20,$x30,$x40,$x50,$x60,$x70)=map("r$_",(0,8,26..31));
643 my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10..13));
644 my ($out0,$out1,$out2,$out3,$out4,$out5,$out6,$out7)=map("v$_",(14..21));
645 my $rndkey0="v23"; # v24-v25 rotating buffer for first found keys
647 my ($tmp,$keyperm)=($in3,$in4); # aliases with "caller", redundant assignment
1230 my ($inp,$out,$len,$key,$ivp,$x10,$rounds,$idx)=map("r$_",(3..10));
1231 my ($rndkey0,$rndkey1,$inout,$tmp)= map("v$_",(0..3));
1232 my ($ivec,$inptail,$inpperm,$outhead,$outperm,$outmask,$keyperm,$one)=
1234 my $dat=$tmp;
1344 my $key_="r11";
1345 my ($x00,$x10,$x20,$x30,$x40,$x50,$x60,$x70)=map("r$_",(0,8,26..31));
1346 my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10,12..14));
1347 my ($out0,$out1,$out2,$out3,$out4,$out5,$out6,$out7)=map("v$_",(15..22));
1348 my $rndkey0="v23"; # v24-v25 rotating buffer for first found keys
1350 my ($tmp,$keyperm)=($in3,$in4); # aliases with "caller", redundant assignment
1351 my ($two,$three,$four)=($outhead,$outperm,$outmask);
1878 my $consts=1;
1884 my $conv=$3;
1885 my @bytes=();
1890 my $l = /^0/?oct:int;
|
| H A D | ghashp8-ppc.pl | 45 my ($Xip,$Htbl,$inp,$len)=map("r$_",(3..6)); # argument block
47 my ($Xl,$Xm,$Xh,$IN)=map("v$_",(0..3));
48 my ($zero,$t0,$t1,$t2,$xC2,$H,$Hh,$Hl,$lemask)=map("v$_",(4..12));
49 my $vrsave="r12";
|
| /linux-4.1.27/scripts/ |
| H A D | get_maintainer.pl | 15 my $P = $0;
16 my $V = '0.26';
20 my $lk_path = "./";
21 my $email = 1;
22 my $email_usename = 1;
23 my $email_maintainer = 1;
24 my $email_reviewer = 1;
25 my $email_list = 1;
26 my $email_subscriber_list = 0;
27 my $email_git_penguin_chiefs = 0;
28 my $email_git = 0;
29 my $email_git_all_signature_types = 0;
30 my $email_git_blame = 0;
31 my $email_git_blame_signatures = 1;
32 my $email_git_fallback = 1;
33 my $email_git_min_signatures = 1;
34 my $email_git_max_maintainers = 5;
35 my $email_git_min_percent = 5;
36 my $email_git_since = "1-year-ago";
37 my $email_hg_since = "-365";
38 my $interactive = 0;
39 my $email_remove_duplicates = 1;
40 my $email_use_mailmap = 1;
41 my $output_multiline = 1;
42 my $output_separator = ", ";
43 my $output_roles = 0;
44 my $output_rolestats = 1;
45 my $scm = 0;
46 my $web = 0;
47 my $subsystem = 0;
48 my $status = 0;
49 my $keywords = 1;
50 my $sections = 0;
51 my $file_emails = 0;
52 my $from_filename = 0;
53 my $pattern_depth = 0;
54 my $version = 0;
55 my $help = 0;
57 my $vcs_used = 0;
59 my $exit = 0;
61 my %commit_author_hash;
62 my %commit_signer_hash;
64 my @penguin_chief = ();
69 my @penguin_chief_names = ();
70 foreach my $chief (@penguin_chief) {
72 my $chief_name = $1;
73 my $chief_addr = $2;
77 my $penguin_chiefs = "\(" . join("|", @penguin_chief_names) . "\)";
82 my @signature_tags = ();
87 my $signature_pattern = "\(" . join("|", @signature_tags) . "\)";
90 my $rfc822_lwsp = "(?:(?:\\r\\n)?[ \\t])";
91 my $rfc822_char = '[\\000-\\377]';
95 my %VCS_cmds;
97 my %VCS_cmds_git = (
135 my %VCS_cmds_hg = (
163 my $conf = which_conf(".get_maintainer.conf");
165 my @conf_args;
166 open(my $conffile, '<', "$conf")
170 my $line = $_;
179 my @words = split(" ", $line);
180 foreach my $word (@words) {
258 my $selections = $email + $scm + $status + $subsystem + $web;
278 my @typevalue = ();
279 my %keyword_hash;
281 open (my $maint, '<', "${lk_path}MAINTAINERS")
284 my $line = $_;
287 my $type = $1;
288 my $value = $2;
315 my $mailmap;
327 open(my $mailmap_file, '<', "${lk_path}.mailmap")
343 my $real_name = $1;
344 my $address = $2;
351 my $real_address = $1;
352 my $wrong_address = $2;
357 my $real_name = $1;
358 my $real_address = $2;
359 my $wrong_address = $3;
368 my $real_name = $1;
369 my $real_address = $2;
370 my $wrong_name = $3;
371 my $wrong_address = $4;
381 my $wrong_email = format_email($wrong_name, $wrong_address, 1);
391 my @files = ();
392 my @range = ();
393 my @keyword_tvi = ();
394 my @file_emails = ();
400 foreach my $file (@ARGV) {
412 open(my $f, '<', $file)
414 my $text = do { local($/) ; <$f> };
417 foreach my $line (keys %keyword_hash) {
424 my @poss_addr = $text =~ m$[A-Za-zÀ-ÿ\"\' \,\.\+-]*\s*[\,]*\s*[\(\<\{]{0,1}[A-Za-z0-9_\.\+-]+\@[A-Za-z0-9\.-]+\.[A-Za-z0-9]+[\)\>\}]{0,1}$g;
429 my $file_cnt = @files;
430 my $lastfile;
432 open(my $patch, "< $file")
440 my $patch_prefix = ""; #Parsing the intro
443 my $patch_line = $_;
445 my $filename = $1;
456 foreach my $line (keys %keyword_hash) {
475 my %email_hash_name;
476 my %email_hash_address;
477 my @email_to = ();
478 my %hash_list_to;
479 my @list_to = ();
480 my @scm = ();
481 my @web = ();
482 my @subsystem = ();
483 my @status = ();
484 my %deduplicate_name_hash = ();
485 my %deduplicate_address_hash = ();
487 my @maintainers = get_maintainers();
517 my ($start, $end) = @_;
519 for (my $i = $start; $i < $end; $i++) {
520 my $line = $typevalue[$i];
522 my $type = $1;
523 my $value = $2;
535 my ($start, $end) = @_;
537 for (my $i = $start; $i < $end; $i++) {
538 my $line = $typevalue[$i];
540 my $type = $1;
541 my $value = $2;
572 my %exact_pattern_match_hash = ();
574 foreach my $file (@files) {
576 my %hash;
577 my $tvi = find_first_section();
579 my $start = find_starting_index($tvi);
580 my $end = find_ending_index($tvi);
581 my $exclude = 0;
582 my $i;
587 my $line = $typevalue[$i];
589 my $type = $1;
590 my $value = $2;
602 my $line = $typevalue[$i];
604 my $type = $1;
605 my $value = $2;
608 my $value_pd = ($value =~ tr@/@@);
609 my $file_pd = ($file =~ tr@/@@);
633 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
636 my $i;
637 my $start = find_starting_index($line);
638 my $end = find_ending_index($line);
640 my $line = $typevalue[$i];
657 foreach my $line (@keyword_tvi) {
662 foreach my $email (@email_to, @list_to) {
666 foreach my $file (@files) {
678 foreach my $chief (@penguin_chief) {
680 my $email_address;
691 foreach my $email (@file_emails) {
692 my ($name, $address) = parse_email($email);
694 my $tmp_email = format_email($name, $address, $email_usename);
700 my @to = ();
718 my ($file, $pattern) = @_;
725 my $s1 = ($file =~ tr@/@@);
726 my $s2 = ($pattern =~ tr@/@@);
819 my ($lk_path) = @_;
846 my ($formatted_email) = @_;
848 my $name = "";
849 my $address = "";
873 my ($name, $address, $usename) = @_;
875 my $formatted_email;
900 my $index = 0;
903 my $tv = $typevalue[$index];
914 my ($index) = @_;
917 my $tv = $typevalue[$index];
928 my ($index) = @_;
931 my $tv = $typevalue[$index];
942 my ($index) = @_;
944 my $i;
945 my $start = find_starting_index($index);
946 my $end = find_ending_index($index);
948 my $role = "unknown";
949 my $subsystem = $typevalue[$start];
957 my $tv = $typevalue[$i];
959 my $ptype = $1;
960 my $pvalue = $2;
986 my ($index) = @_;
988 my $i;
989 my $start = find_starting_index($index);
990 my $end = find_ending_index($index);
992 my $subsystem = $typevalue[$start];
1007 my ($index) = @_;
1009 my $i;
1010 my $start = find_starting_index($index);
1011 my $end = find_ending_index($index);
1016 my $tv = $typevalue[$i];
1018 my $ptype = $1;
1019 my $pvalue = $2;
1021 my $list_address = $pvalue;
1022 my $list_additional = "";
1023 my $list_role = get_list_role($i);
1055 my ($name, $address) = parse_email($pvalue);
1058 my $tv = $typevalue[$i - 1];
1068 my $role = get_maintainer_role($i);
1072 my ($name, $address) = parse_email($pvalue);
1075 my $tv = $typevalue[$i - 1];
1099 my ($name, $address) = @_;
1109 my ($line, $role) = @_;
1111 my ($name, $address) = parse_email($line);
1129 my ($address, $role) = @_;
1131 my @address_list = ();
1136 my $array_count = shift(@address_list);
1137 while (my $entry = shift(@address_list)) {
1148 my ($line, $role) = @_;
1150 my ($name, $address) = parse_email($line);
1151 my $email = format_email($name, $address, $email_usename);
1153 foreach my $entry (@email_to) {
1155 my ($entry_name, $entry_address) = parse_email($entry->[0]);
1180 my ($bin) = @_;
1182 foreach my $path (split(/:/, $ENV{PATH})) {
1192 my ($conf) = @_;
1194 foreach my $path (split(/:/, ".:$ENV{HOME}:.scripts")) {
1204 my ($line) = @_;
1206 my ($name, $address) = parse_email($line);
1207 my $email = format_email($name, $address, 1);
1208 my $real_name = $name;
1209 my $real_address = $address;
1231 my (@addresses) = @_;
1233 my @mapped_emails = ();
1234 foreach my $line (@addresses) {
1242 my %address_map;
1243 my (@emails) = @_;
1245 foreach my $email (@emails) {
1246 my ($name, $address) = parse_email($email);
1257 my ($cmd) = @_;
1258 my @lines = ();
1260 my $output = `$cmd`;
1268 my ($cmd) = @_;
1269 my @lines = ();
1271 my $output = `$cmd`;
1278 my (@signature_lines) = @_;
1280 my @type = @signature_lines;
1289 foreach my $signer (@signature_lines) {
1297 my ($cmd, $file) = @_;
1298 my $commits;
1299 my @lines = ();
1300 my @signatures = ();
1301 my @authors = ();
1302 my @stats = ();
1306 my $pattern = $VCS_cmds{"commit_pattern"};
1307 my $author_pattern = $VCS_cmds{"author_pattern"};
1308 my $stat_pattern = $VCS_cmds{"stat_pattern"};
1329 my ($author_ref, $authors_ref) = extract_formatted_signatures(@authors);
1330 my ($types_ref, $signers_ref) = extract_formatted_signatures(@signatures);
1336 my ($cmd) = @_;
1337 my @lines = ();
1347 my @authors = ();
1348 foreach my $line (@lines) {
1350 my $author = $1;
1351 my ($name, $address) = parse_email($author);
1364 my ($cmd) = @_;
1365 my @lines = ();
1366 my @commits = ();
1370 foreach my $line (@lines) {
1380 my ($file) = @_;
1381 my $cmd;
1382 my @commits = ();
1387 my @all_commits = ();
1393 foreach my $file_range_diff (@range) {
1395 my $diff_file = $1;
1396 my $diff_start = $2;
1397 my $diff_length = $3;
1399 for (my $i = $diff_start; $i < $diff_start + $diff_length; $i++) {
1404 foreach my $file_range_diff (@range) {
1406 my $diff_file = $1;
1407 my $diff_start = $2;
1408 my $diff_length = $3;
1420 foreach my $commit (@commits) {
1427 my $printed_novcs = 0;
1454 my ($list_ref) = @_;
1455 my @list = @$list_ref;
1459 my %selected;
1460 my %authored;
1461 my %signed;
1462 my $count = 0;
1463 my $maintained = 0;
1464 foreach my $entry (@list) {
1473 my $done = 0;
1474 my $print_options = 0;
1475 my $redraw = 1;
1487 foreach my $entry (@list) {
1488 my $email = $entry->[0];
1489 my $role = $entry->[1];
1490 my $sel = "";
1492 my $commit_author = $commit_author_hash{$email};
1493 my $commit_signer = $commit_signer_hash{$email};
1494 my $authored = 0;
1495 my $signed = 0;
1503 my $commit_author = $commit_author_hash{$email};
1504 foreach my $ref (@{$commit_author}) {
1509 my $commit_signer = $commit_signer_hash{$email};
1510 foreach my $ref (@{$commit_signer}) {
1518 my $date_ref = \$email_git_since;
1555 my $input = <STDIN>;
1559 my $rerun = 0;
1560 my @wish = split(/[, ]+/, $input);
1561 foreach my $nr (@wish) {
1563 my $sel = substr($nr, 0, 1);
1564 my $str = substr($nr, 1);
1565 my $val = 0;
1577 my $toggle = 0;
1579 for (my $i = 0; $i < $count; $i++) {
1583 for (my $i = 0; $i < $count; $i++) {
1588 for (my $i = 0; $i < $count; $i++) {
1593 for (my $i = 0; $i < $count; $i++) {
1598 for (my $i = 0; $i < $count; $i++) {
1603 for (my $i = 0; $i < $count; $i++) {
1612 my $toggle = 0;
1614 for (my $i = 0; $i < $count; $i++) {
1622 my $toggle = 0;
1624 for (my $i = 0; $i < $count; $i++) {
1723 my @new_emailto = ();
1724 foreach my $entry (@list) {
1734 my ($bool_ref) = @_;
1744 my ($email) = @_;
1746 my $matched = 0;
1747 my ($name, $address) = parse_email($email);
1774 my (@lines) = @_;
1776 my @authors = ();
1777 my @commits = ();
1778 my @subjects = ();
1780 foreach my $line (@lines) {
1782 my $author = $1;
1790 for (my $i = 0; $i < @authors; $i++) {
1791 my $exists = 0;
1792 foreach my $ref(@{$commit_author_hash{$authors[$i]}}) {
1807 my (@lines) = @_;
1809 my $commit = "";
1810 my $subject = "";
1812 foreach my $line (@lines) {
1816 my @signatures = ($line);
1817 my ($types_ref, $signers_ref) = extract_formatted_signatures(@signatures);
1818 my @types = @$types_ref;
1819 my @signers = @$signers_ref;
1821 my $type = $types[0];
1822 my $signer = $signers[0];
1826 my $exists = 0;
1827 foreach my $ref(@{$commit_signer_hash{$signer}}) {
1844 my ($role, $divisor, @lines) = @_;
1846 my %hash;
1847 my $count = 0;
1866 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1867 my $sign_offs = $hash{$line};
1868 my $percent = $sign_offs * 100 / $divisor;
1877 my $fmt_percent = sprintf("%.0f", $percent);
1886 my ($file) = @_;
1888 my $authors_ref;
1889 my $signers_ref;
1890 my $stats_ref;
1891 my @authors = ();
1892 my @signers = ();
1893 my @stats = ();
1894 my $commits;
1899 my $cmd = $VCS_cmds{"find_signers_cmd"};
1910 foreach my $signer (@signers) {
1917 my $stat_pattern = $VCS_cmds{"stat_pattern"};
1920 my $added = 0;
1921 my $deleted = 0;
1922 for (my $i = 0; $i <= $#stats; $i++) {
1928 my @tmp_authors = uniq(@authors);
1929 foreach my $author (@tmp_authors) {
1933 my @list_added = ();
1934 my @list_deleted = ();
1935 foreach my $author (@tmp_authors) {
1936 my $auth_added = 0;
1937 my $auth_deleted = 0;
1938 for (my $i = 0; $i <= $#stats; $i++) {
1945 for (my $i = 0; $i < $auth_added; $i++) {
1948 for (my $i = 0; $i < $auth_deleted; $i++) {
1958 my ($file) = @_;
1960 my @signers = ();
1961 my @all_commits = ();
1962 my @commits = ();
1963 my $total_commits;
1964 my $total_lines;
1976 my $commit_count;
1977 my $commit_authors_ref;
1978 my $commit_signers_ref;
1979 my $stats_ref;
1980 my @commit_authors = ();
1981 my @commit_signers = ();
1982 my $commit = join(" -r ", @commits);
1983 my $cmd;
1994 foreach my $commit (@commits) {
1995 my $commit_count;
1996 my $commit_authors_ref;
1997 my $commit_signers_ref;
1998 my $stats_ref;
1999 my @commit_authors = ();
2000 my @commit_signers = ();
2001 my $cmd;
2017 my @blame_signers;
2019 my $commit_count;
2020 my @commit_signers = ();
2023 my $commit = join(" -r ", @commits);
2024 my $cmd;
2029 my @lines = ();
2039 my @authors = ();
2040 foreach my $line (@lines) {
2042 my $author = $1;
2054 foreach my $commit (@commits) {
2055 my $i;
2056 my $cmd = $VCS_cmds{"find_commit_author_cmd"};
2058 my @author = vcs_find_author($cmd);
2061 my $formatted_author = deduplicate_email($author[0]);
2063 my $count = grep(/$commit/, @all_commits);
2073 foreach my $signer (@signers) {
2078 foreach my $signer (@signers) {
2086 my (@parms) = @_;
2088 my %saw;
2094 my (@parms) = @_;
2096 my %saw;
2103 my (@file_emails) = @_;
2104 my @fmt_emails = ();
2106 foreach my $email (@file_emails) {
2108 my ($name, $address) = parse_email($email);
2113 my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2115 my $first = $nw[@nw - 3];
2116 my $middle = $nw[@nw - 2];
2117 my $last = $nw[@nw - 1];
2141 my $fmt_email = format_email($name, $address, $email_usename);
2148 my @lines;
2149 my %saw;
2152 my ($address, $role) = @$_;
2167 my (@parms) = @_;
2170 foreach my $line (@parms) {
2179 my $rfc822re;
2187 my $specials = '()<>@,;:\\\\".\\[\\]';
2188 my $controls = '\\000-\\037\\177';
2190 my $dtext = "[^\\[\\]\\r\\\\]";
2191 my $domain_literal = "\\[(?:$dtext|\\\\.)*\\]$rfc822_lwsp*";
2193 my $quoted_string = "\"(?:[^\\\"\\r\\\\]|\\\\.|$rfc822_lwsp)*\"$rfc822_lwsp*";
2197 my $atom = "[^$specials $controls]+(?:$rfc822_lwsp+|\\Z|(?=[\\[\"$specials]))";
2198 my $word = "(?:$atom|$quoted_string)";
2199 my $localpart = "$word(?:\\.$rfc822_lwsp*$word)*";
2201 my $sub_domain = "(?:$atom|$domain_literal)";
2202 my $domain = "$sub_domain(?:\\.$rfc822_lwsp*$sub_domain)*";
2204 my $addr_spec = "$localpart\@$rfc822_lwsp*$domain";
2206 my $phrase = "$word*";
2207 my $route = "(?:\@$domain(?:,\@$rfc822_lwsp*$domain)*:$rfc822_lwsp*)";
2208 my $route_addr = "\\<$rfc822_lwsp*$route?$addr_spec\\>$rfc822_lwsp*";
2209 my $mailbox = "(?:$addr_spec|$phrase$route_addr)";
2211 my $group = "$phrase:$rfc822_lwsp*(?:$mailbox(?:,\\s*$mailbox)*)?;\\s*";
2212 my $address = "(?:$mailbox|$group)";
2218 my $s = shift;
2232 my $s = rfc822_strip_comments(shift);
2252 my $s = rfc822_strip_comments(shift);
2260 my @r;
|
| H A D | headerdep.pl | 12 my $opt_all;
13 my @opt_include;
14 my $opt_graph;
27 my %deps = ();
28 my %linenos = ();
30 my @headers = grep { strip($_) } @ARGV;
62 my $filename = shift;
64 for my $i (@opt_include) {
65 my $stripped = $filename;
76 my $filename = shift;
79 for my $i (@opt_include) {
80 my $path = "$i/$filename";
88 my @queue = @_;
90 my $header = pop @queue;
95 my $path = search($header);
98 open(my $file, '<', $path) or die($!);
99 chomp(my @lines = <$file>);
102 for my $i (0 .. $#lines) {
103 my $line = $lines[$i];
104 if(my($dep) = ($line =~ m/^#\s*include\s*<(.*?)>/)) {
115 my $cycle = shift;
118 for my $i (0 .. $#$cycle - 1) {
123 my $first = shift @$cycle;
124 my $last = pop @$cycle;
126 my $msg = "In file included";
129 for my $header (reverse @$cycle) {
142 my @queue = map { [[0, $_]] } @_;
144 my $top = pop @queue;
145 my $name = $top->[-1]->[1];
147 for my $dep (@{$deps{$name}}) {
148 my $chain = [@$top, [$dep->[0], $dep->[1]]];
176 for my $header (keys %deps) {
184 for my $header (keys %deps) {
185 for my $dep (@{$deps{$header}}) {
|
| H A D | sign-file | 6 my $USAGE =
15 my %opts;
17 my $verbose = $opts{'v'};
18 my $signature_file = $opts{'s'};
23 my $dgst = shift @ARGV;
24 my $private_key;
28 my $x509 = shift @ARGV;
29 my $module = shift @ARGV;
30 my ($dest, $keep_orig);
48 my ($file) = @_;
49 my $contents;
50 my $len;
54 my @st = stat(FD);
80 my $x509_certificate = read_file($x509);
82 my $UNIV = 0 << 6;
83 my $APPL = 1 << 6;
84 my $CONT = 2 << 6;
85 my $PRIV = 3 << 6;
87 my $CONS = 0x20;
89 my $BOOLEAN = 0x01;
90 my $INTEGER = 0x02;
91 my $BIT_STRING = 0x03;
92 my $OCTET_STRING = 0x04;
93 my $NULL = 0x05;
94 my $OBJ_ID = 0x06;
95 my $UTF8String = 0x0c;
96 my $SEQUENCE = 0x10;
97 my $SET = 0x11;
98 my $UTCTime = 0x17;
99 my $GeneralizedTime = 0x18;
101 my %OIDs = (
121 my ($cursor, $expected_tag, $optional) = @_;
129 my ($tag, $len) = unpack("CC", substr(${$cursor->[2]}, $cursor->[0], 2));
147 my $l = $len - 0x80;
171 my $ret = [ $tag, [ $cursor->[0], $len, $cursor->[2] ] ];
185 my ($cursor) = @_;
186 my ($offset, $len, $data) = @$cursor;
195 my $cursor = [ 0, length($x509_certificate), \$x509_certificate ];
197 my $cert = asn1_extract($cursor, $UNIV | $CONS | $SEQUENCE);
198 my $tbs = asn1_extract($cert->[1], $UNIV | $CONS | $SEQUENCE);
199 my $version = asn1_extract($tbs->[1], $CONT | $CONS | 0, 1);
200 my $serial_number = asn1_extract($tbs->[1], $UNIV | $INTEGER);
201 my $sig_type = asn1_extract($tbs->[1], $UNIV | $CONS | $SEQUENCE);
202 my $issuer = asn1_extract($tbs->[1], $UNIV | $CONS | $SEQUENCE);
203 my $validity = asn1_extract($tbs->[1], $UNIV | $CONS | $SEQUENCE);
204 my $subject = asn1_extract($tbs->[1], $UNIV | $CONS | $SEQUENCE);
205 my $key = asn1_extract($tbs->[1], $UNIV | $CONS | $SEQUENCE);
206 my $issuer_uid = asn1_extract($tbs->[1], $CONT | $CONS | 1, 1);
207 my $subject_uid = asn1_extract($tbs->[1], $CONT | $CONS | 2, 1);
208 my $extension_list = asn1_extract($tbs->[1], $CONT | $CONS | 3, 1);
210 my $subject_key_id = ();
211 my $authority_key_id = ();
217 my $extensions = asn1_extract($extension_list->[1], $UNIV | $CONS | $SEQUENCE);
220 my $ext = asn1_extract($extensions->[1], $UNIV | $CONS | $SEQUENCE);
221 my $x_oid = asn1_extract($ext->[1], $UNIV | $OBJ_ID);
222 my $x_crit = asn1_extract($ext->[1], $UNIV | $BOOLEAN, 1);
223 my $x_val = asn1_extract($ext->[1], $UNIV | $OCTET_STRING);
225 my $raw_oid = asn1_retrieve($x_oid->[1]);
227 my $x_type = $OIDs{$raw_oid};
229 my $raw_value = asn1_retrieve($x_val->[1]);
232 my $vcursor = [ 0, length($raw_value), \$raw_value ];
245 my $org = "";
246 my $cn = "";
247 my $email = "";
250 my $rdn = asn1_extract($subject->[1], $UNIV | $CONS | $SET);
251 my $attr = asn1_extract($rdn->[1], $UNIV | $CONS | $SEQUENCE);
252 my $n_oid = asn1_extract($attr->[1], $UNIV | $OBJ_ID);
253 my $n_val = asn1_extract($attr->[1], -1);
255 my $raw_oid = asn1_retrieve($n_oid->[1]);
257 my $n_type = $OIDs{$raw_oid};
259 my $raw_value = asn1_retrieve($n_val->[1]);
270 my $signers_name = $email;
300 my $key_identifier = asn1_retrieve($subject_key_id->[1]);
311 my $algo = 1; # Public-key crypto algorithm: RSA
312 my $hash = 0; # Digest algorithm
313 my $id_type = 1; # Identifier type: X.509
318 my $prologue;
353 my $signature;
360 my $digest;
367 my $pid;
386 my $unsigned_module = read_file($module);
388 my $magic_number = "~Module signature appended~\n";
390 my $info = pack("CCCCCxxxN",
|
| H A D | headers_check.pl | 24 my ($dir, $arch, @files) = @ARGV;
26 my $ret = 0;
27 my $line;
28 my $lineno = 0;
29 my $filename;
31 foreach my $file (@files) {
34 open(my $fh, '<', $filename)
52 my $inc = $1;
53 my $found;
86 my $linux_asm_types;
106 my $linux_types;
107 my %import_stack = ();
110 my $path = $_[0];
111 my $import_path;
113 my $fh;
114 my @file_paths = ($path, $dir . "/" . $path, dirname($filename) . "/" . $path);
115 for my $possible ( @file_paths ) {
126 my $line;
132 if (my $included = ($line =~ /^\s*#\s*include\s+[<"](\S+)[>"]/)[0]) {
154 if (my $included = ($line =~ /^\s*#\s*include\s+[<"](\S+)[>"]/)[0]) {
|
| H A D | export_report.pl | 14 my $no1 = (split /\s+/, $a)[1];
15 my $no2 = (split /\s+/, $b)[1];
20 my ($module1, $value1) = @{$a};
21 my ($module2, $value2) = @{$b};
26 my ($href) = @_;
28 for my $mod (sort keys %$href) {
29 my $list = $href->{$mod};
31 foreach my $sym (sort numerically @{$list}) {
32 my ($symbol, $no) = split /\s+/, $sym;
53 my @file;
55 open my $fh, '<', $_ or die "cannot open $_: $!\n";
65 my (%SYMBOL, %MODULE, %opt, @allcfiles);
81 open (my $module_symvers, '<', $opt{'k'})
85 open (my $out, '>', $opt{'o'})
97 my (undef, $symbol, $module, $gpl) = split;
105 my $modversion_warnings = 0;
107 foreach my $thismod (@allcfiles) {
108 my $module;
115 my $state=0;
130 my $sym = (split /([,"])/,)[4];
131 my ($module, $value, $symbol, $gpl) = @{$SYMBOL{$sym}};
157 foreach my $list (sort alphabetically values(%SYMBOL)) {
158 my ($module, $value, $symbol, $gpl) = @{$list};
176 for my $thismod (sort keys %MODULE) {
177 my $list = $MODULE{$thismod};
178 my %depends;
181 foreach my $symbol (@{$list}) {
182 my ($module, $value, undef, $gpl) = @{$SYMBOL{$symbol}};
|
| H A D | markup_oops.pl | 19 my $cross_compile = "";
20 my $vmlinux_name = "";
21 my $modulefile = "";
29 my $vmlinux_name = $ARGV[0];
31 my $kerver = `uname -r`;
36 my $filename = $vmlinux_name;
40 my $target = "0";
41 my $function;
42 my $module = "";
43 my $func_offset = 0;
44 my $vmaoffset = 0;
46 my %regs;
51 my ($line) = @_;
91 my ($reg) = @_;
100 my ($line, $cntr) = @_;
101 my $str = "";
130 my $clobberprime = reg_name($clobber);
131 my $lastwordprime = reg_name($lastword);
132 my $val = $regs{$reg};
160 my $line = $_;
186 my $decodestart = Math::BigInt->from_hex("0x$target") - Math::BigInt->from_hex("0x$func_offset");
187 my $decodestop = Math::BigInt->from_hex("0x$target") + 8192;
208 my $fu = $1;
215 my $counter = 0;
216 my $state = 0;
217 my $center = -1;
218 my @lines;
219 my @reglines;
222 my ($address, $target) = @_;
223 my $ad = "0x".$address;
224 my $ta = "0x".$target;
225 my $delta = Math::BigInt->from_hex($ad) - Math::BigInt->from_hex($ta);
241 my $line = $_;
252 my $val = $1;
278 my $start;
279 my $finish;
280 my $codelines = 0;
281 my $binarylines = 0;
288 my $line = $lines[$start];
308 my $line = $lines[$finish];
323 my $i;
339 my $line;
347 my $c = 60 - length($line);
|
| H A D | bootgraph.pl | 42 my $header = 0;
45 my $text = << "EOM";
53 my $std=shift;
67 my %start;
68 my %end;
69 my %type;
70 my $done = 0;
71 my $maxtime = 0;
72 my $firsttime = 99999;
73 my $count = 0;
74 my %pids;
75 my %pidctr;
77 my $headerstep = 20;
78 my $xheader = 15;
79 my $yheader = 25;
80 my $cyheader = 0;
83 my $line = $_;
85 my $func = $2;
100 my $pid = $2;
101 my $func;
128 my $pid = $2;
129 my $func = "wait_" . $pid . "_" . $pidctr{$pid};
155 my $version = `uname -a`;
156 my $date = `date`;
162 my @styles;
177 my $style_wait = "fill:rgb(128,128,128);fill-opacity:0.5;stroke-width:0;stroke:rgb(0,0,0)";
179 my $mult = 1950.0 / ($maxtime - $firsttime);
180 my $threshold2 = ($maxtime - $firsttime) / 120.0;
181 my $threshold = $threshold2/10;
182 my $stylecounter = 0;
183 my %rows;
184 my $rowscount = 1;
185 my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start);
187 foreach my $key (@initcalls) {
188 my $duration = $end{$key} - $start{$key};
191 my ($s, $s2, $s3, $e, $w, $y, $y2, $style);
192 my $pid = $pids{$key};
229 my $time = $firsttime;
230 my $step = ($maxtime - $firsttime) / 15;
232 my $s3 = ($time - $firsttime) * $mult;
233 my $tm = int($time * 100) / 100.0;
|
| H A D | checkpatch.pl | 13 my $P = $0;
14 my $D = dirname(abs_path($P));
16 my $V = '0.32';
20 my $quiet = 0;
21 my $tree = 1;
22 my $chk_signoff = 1;
23 my $chk_patch = 1;
24 my $tst_only;
25 my $emacs = 0;
26 my $terse = 0;
27 my $file = 0;
28 my $check = 0;
29 my $check_orig = 0;
30 my $summary = 1;
31 my $mailback = 0;
32 my $summary_file = 0;
33 my $show_types = 0;
34 my $fix = 0;
35 my $fix_inplace = 0;
36 my $root;
37 my %debug;
38 my %camelcase = ();
39 my %use_type = ();
40 my @use = ();
41 my %ignore_type = ();
42 my @ignore = ();
43 my $help = 0;
44 my $configuration_file = ".checkpatch.conf";
45 my $max_line_length = 80;
46 my $ignore_perl_version = 0;
47 my $minimum_perl_version = 5.10.0;
48 my $min_conf_desc_length = 4;
49 my $spelling_file = "$D/spelling.txt";
50 my $codespell = 0;
51 my $codespellfile = "/usr/local/share/codespell/dictionary.txt";
54 my ($exitcode) = @_;
104 my $conf = which_conf($configuration_file);
106 my @conf_args;
107 open(my $conffile, '<', "$conf")
111 my $line = $_;
120 my @words = split(" ", $line);
121 foreach my $word (@words) {
165 my $exit = 0;
180 my ($hashRef, $arrayRef) = @_;
182 my @array = split(/,/, join(',', @$arrayRef));
183 foreach my $word (@array) {
197 my ($hashRef, $prefix) = @_;
201 foreach my $word (sort keys %$hashRef) {
211 my $dbg_values = 0;
212 my $dbg_possible = 0;
213 my $dbg_type = 0;
214 my $dbg_attr = 0;
215 for my $key (keys %debug) {
221 my $rpt_cleaners = 0;
248 my $emitted_corrupt = 0;
442 foreach my $entry (@mode_permission_funcs) {
464 my $misspellings;
465 my %spelling_fix;
467 if (open(my $spelling, '<', $spelling_file)) {
469 my $line = $_;
477 my ($suspect, $fix) = split(/\|\|/, $line);
487 if (open(my $spelling, '<', $codespellfile)) {
489 my $line = $_;
500 my ($suspect, $fix) = split(/->/, $line);
513 my $mods = "(?x: \n" . join("|\n ", @modifierList) . "\n)";
514 my $all = "(?x: \n" . join("|\n ", @typeList) . "\n)";
515 my $Misordered = "(?x: \n" . join("|\n ", @typeListMisordered) . "\n)";
516 my $allWithAttr = "(?x: \n" . join("|\n ", @typeListWithAttr) . "\n)";
582 my ($string) = @_;
596 my ($file) = @_;
602 open(my $include_file, '<', "$file")
604 my $text = <$include_file>;
607 my @lines = split('\n', $text);
609 foreach my $line (@lines) {
621 my $camelcase_seeded = 0;
625 my $files;
626 my $camelcase_cache = "";
627 my @include_files = ();
632 my $git_last_include_commit = `git log --no-merges --pretty=format:"%h%n" -1 -- include`;
636 my $last_mod_date = 0;
639 foreach my $file (@include_files) {
640 my $date = POSIX::strftime("%Y%m%d%H%M",
648 open(my $camelcase_file, '<', "$camelcase_cache")
664 foreach my $file (@include_files) {
670 open(my $camelcase_file, '>', "$camelcase_cache")
680 my ($commit, $id, $desc) = @_;
684 my $output = `git log --no-color --format='%H %s' -1 $commit 2>&1`;
686 my @lines = split("\n", $output);
711 my @rawlines = ();
712 my @lines = ();
713 my @fixed = ();
714 my @fixed_inserted = ();
715 my @fixed_deleted = ();
716 my $fixlinenr = -1;
718 my $vname;
719 for my $filename (@ARGV) {
720 my $FILE;
754 my ($root) = @_;
756 my @tree_check = (
762 foreach my $check (@tree_check) {
771 my ($formatted_email) = @_;
773 my $name = "";
774 my $address = "";
775 my $comment = "";
818 my ($name, $address) = @_;
820 my $formatted_email;
841 my ($bin) = @_;
843 foreach my $path (split(/:/, $ENV{PATH})) {
853 my ($conf) = @_;
855 foreach my $path (split(/:/, ".:$ENV{HOME}:.scripts")) {
865 my ($str) = @_;
867 my $res = '';
868 my $n = 0;
869 for my $c (split(//, $str)) {
885 (my $res = shift) =~ tr/\t/ /c;
890 my ($line) = @_;
897 my ($white) = ($line =~ /^(\s*)/);
902 my $sanitise_quote = '';
905 my ($in_comment) = @_;
914 my ($line) = @_;
916 my $res = '';
917 my $l = '';
919 my $qlen = 0;
920 my $off = 0;
921 my $c;
989 my $clean = 'X' x length($1);
994 my $clean = 'X' x length($1);
1002 my ($line, $rawline) = @_;
1009 my ($linenr, $remain, $off) = @_;
1010 my $line = $linenr - 1;
1011 my $blk = '';
1012 my $soff = $off;
1013 my $coff = $off - 1;
1014 my $coff_set = 0;
1016 my $loff = 0;
1018 my $type = '';
1019 my $level = 0;
1020 my @stack = ();
1021 my $p;
1022 my $c;
1023 my $len = 0;
1025 my $remainder;
1130 my $statement = substr($blk, $soff, $off - $soff + 1);
1131 my $condition = substr($blk, $soff, $coff - $soff + 1);
1143 my ($stmt) = @_;
1150 my @stmt_lines = ($stmt =~ /\n/g);
1156 my ($stmt) = @_;
1158 my @stmt_lines = ($stmt =~ /\n/g);
1164 my ($stmt) = @_;
1172 my @stmt_lines = ($stmt =~ /\n/g);
1173 my @stmt_statements = ($stmt =~ /;/g);
1175 my $stmt_lines = $#stmt_lines + 2;
1176 my $stmt_statements = $#stmt_statements + 1;
1186 my ($linenr, $remain, $off) = @_;
1187 my ($statement, $condition, $level);
1189 my (@chunks);
1215 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1216 my $line;
1217 my $start = $linenr - 1;
1218 my $blk = '';
1219 my @o;
1220 my @c;
1221 my @res = ();
1223 my $level = 0;
1224 my @stack = ($level);
1240 foreach my $c (split(//, $lines[$line])) {
1265 my ($linenr, $remain) = @_;
1267 my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
1271 my ($linenr, $remain) = @_;
1273 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1277 my ($linenr, $remain, $off) = @_;
1279 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1283 my ($linenr, $remain) = @_;
1288 my ($linenr, $remain, $off) = @_;
1294 my ($first_line, $end_line) = @_;
1297 my ($current_comment) = ($rawlines[$end_line - 1] =~ m@.*(/\*.*\*/)\s*(?:\\\s*)?$@);
1302 my $in_comment = 0;
1304 for (my $linenr = $first_line; $linenr < $end_line; $linenr++) {
1305 my $line = $rawlines[$linenr - 1];
1326 my ($first_line, $end_line) = @_;
1327 my $cmt = ctx_locate_comment($first_line, $end_line);
1336 my ($linenr, $cnt) = @_;
1338 my $offset = $linenr - 1;
1341 my $line;
1352 my ($vet) = @_;
1353 my ($res, $coded);
1368 my $av_preprocessor = 0;
1369 my $av_pending;
1370 my @av_paren_type;
1371 my $av_pend_colon;
1381 my ($stream, $type) = @_;
1383 my $res;
1384 my $var = '_' x length($stream);
1385 my $cur = $stream;
1490 my $new_type = pop(@av_paren_type);
1550 my $variant;
1581 my ($possible, $line) = @_;
1582 my $notPermitted = qr{(?:
1610 for my $modifier (split(' ', $possible)) {
1627 my $prefix = '';
1630 my ($type) = @_;
1638 my ($level, $type, $msg) = @_;
1644 my $line;
1662 my ($lineRef, $offset, $length) = @_;
1665 my $o = $1;
1666 my $l = $2;
1667 my $no = $o + $offset;
1668 my $nl = $l + $length;
1674 my ($linesRef, $insertedRef, $deletedRef) = @_;
1676 my $range_last_linenr = 0;
1677 my $delta_offset = 0;
1679 my $old_linenr = 0;
1680 my $new_linenr = 0;
1682 my $next_insert = 0;
1683 my $next_delete = 0;
1685 my @lines = ();
1687 my $inserted = @{$insertedRef}[$next_insert++];
1688 my $deleted = @{$deletedRef}[$next_delete++];
1690 foreach my $old_line (@{$linesRef}) {
1691 my $save_line = 1;
1692 my $line = $old_line; #don't modify the array
1725 my ($linenr, $line) = @_;
1727 my $inserted = {
1735 my ($linenr, $line) = @_;
1737 my $deleted = {
1746 my ($type, $msg) = @_;
1756 my ($type, $msg) = @_;
1766 my ($type, $msg) = @_;
1777 my ($absolute, $herecurr) = @_;
1778 my $file = $absolute;
1794 my $prefix = $absolute;
1805 my ($string) = @_;
1813 my ($string) = @_;
1821 my ($string) = @_;
1829 my ($string, $find, $replace) = @_;
1837 my ($leading) = @_;
1839 my $source_indent = 8;
1840 my $max_spaces_before_tab = $source_indent - 1;
1841 my $spaces_to_tab = " " x $source_indent;
1852 my ($line) = @_;
1854 my $pos = 0;
1856 my $opens = $line =~ tr/\(/\(/;
1857 my $closes = $line =~ tr/\)/\)/;
1859 my $last_openparen = 0;
1865 my $len = length($line);
1868 my $string = substr($line, $pos);
1882 my $filename = shift;
1884 my $linenr=0;
1885 my $prevline="";
1886 my $prevrawline="";
1887 my $stashline="";
1888 my $stashrawline="";
1890 my $length;
1891 my $indent;
1892 my $previndent=0;
1893 my $stashindent=0;
1896 my $signoff = 0;
1897 my $is_patch = 0;
1899 my $in_header_lines = $file ? 0 : 1;
1900 my $in_commit_log = 0; #Scanning lines before patch
1901 my $commit_log_long_line = 0;
1902 my $reported_maintainer_file = 0;
1903 my $non_utf8_charset = 0;
1905 my $last_blank_line = 0;
1906 my $last_coalesced_string_linenr = -1;
1915 my $realfile = '';
1916 my $realline = 0;
1917 my $realcnt = 0;
1918 my $here = '';
1919 my $in_comment = 0;
1920 my $comment_edge = 0;
1921 my $first_line = 0;
1922 my $p1_prefix = '';
1924 my $prev_values = 'E';
1927 my %suppress_ifbraces;
1928 my %suppress_whiletrailers;
1929 my %suppress_export;
1930 my $suppress_statement = 0;
1932 my %signatures = ();
1937 my @setup_docs = ();
1938 my $setup_docs = 0;
1940 my $camelcase_file_seeded = 0;
1943 my $line;
1944 foreach my $rawline (@rawlines) {
1970 my $edge;
1971 my $cnt = $realcnt;
1972 for (my $ln = $linenr + 1; $cnt > 0; $ln++) {
2026 foreach my $line (@lines) {
2029 my $sline = $line; #copy of $line
2032 my $rawline = $rawlines[$linenr - 1];
2074 my $hunk_line = ($realcnt != 0);
2083 my $found_file = 0;
2120 my $hereline = "$here\n$rawline\n";
2121 my $herecurr = "$here\n$rawline\n";
2122 my $hereprev = "$here\n$prevrawline\n$rawline\n";
2128 my $permhere = $here . "FILE: $realfile\n";
2151 my $space_before = $1;
2152 my $sign_off = $2;
2153 my $space_after = $3;
2154 my $email = $4;
2155 my $ucfirst_sign_off = ucfirst(lc($sign_off));
2187 my ($email_name, $email_address, $comment) = parse_email($email);
2188 my $suggested_email = format_email(($email_name, $email_address));
2193 my $dequoted = $suggested_email;
2207 my $sig_nospace = $line;
2247 my $init_char = $1;
2248 my $orig_commit = lc($2);
2249 my $short = 1;
2250 my $long = 0;
2251 my $case = 1;
2252 my $space = 1;
2253 my $hasdesc = 0;
2254 my $hasparens = 0;
2255 my $id = '0123456789ab';
2256 my $orig_desc = "commit description";
2257 my $description = "";
2311 my $file = $1;
2325 my ($utf8_prefix) = ($rawline =~ /^($UTF8*)/);
2327 my $blank = copy_spacing($rawline);
2328 my $ptr = substr($blank, 0, length($utf8_prefix)) . "^";
2329 my $hereptr = "$hereline$ptr\n";
2362 my $typo = $1;
2363 my $typo_fix = $spelling_fix{lc($typo)};
2366 my $msg_type = \&WARN;
2381 my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2388 my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2402 my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2403 my $msg_type = \&ERROR;
2414 my $length = 0;
2415 my $cnt = $realcnt;
2416 my $ln = $linenr + 1;
2417 my $f;
2418 my $is_start = 0;
2419 my $is_end = 0;
2467 my $flag = $1;
2468 my $replacement = {
2484 my @compats = $rawline =~ /\"([a-zA-Z0-9\-\,\.\+_]+)\"/g;
2486 my $dt_path = $root . "/Documentation/devicetree/bindings/";
2487 my $vp_file = $dt_path . "vendor-prefixes.txt";
2489 foreach my $compat (@compats) {
2490 my $compat2 = $compat;
2492 my $compat3 = $compat;
2501 my $vendor = $1;
2534 my $herevet = "$here\n" . cat_vet($line) . "\n";
2539 my $herevet = "$here\n" . cat_vet($line) . "\n";
2552 my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2563 my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2584 my $oldindent = $1;
2585 my $rest = $2;
2587 my $pos = pos_last_openparen($rest);
2590 my $newindent = $2;
2592 my $goodtabindent = $oldindent .
2595 my $goodspaceindent = $oldindent . " " x $pos;
2732 my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2747 my $tabs = length($1) + 1;
2760 my $tabs = $1;
2781 my $herevet = "$here\n" . cat_vet($line) . "\n";
2786 my $herevet = "$here\n" . cat_vet($line) . "\n";
2798 my ($stat, $cond, $line_nr_next, $remain_next, $off_next,
2812 my $frag = $stat; $frag =~ s/;+\s*$//;
2826 my $s = $stat;
2839 my $type = $1;
2857 my ($name_len) = length($1);
2859 my $ctx = $s;
2863 for my $arg (split(/\s*,\s*/, $ctx)) {
2880 my $err = '';
2881 my $sep = '';
2882 my @ctx = ctx_block_outer($linenr, $realcnt);
2884 for my $ctx (@ctx) {
2885 my ($clen, $cindent) = line_stats($ctx);
2903 my $pre_ctx = "$1$2";
2905 my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
2912 my $ctx_cnt = $realcnt - $#ctx - 1;
2913 my $ctx = join("\n", @ctx);
2915 my $ctx_ln = $linenr;
2916 my $ctx_skip = $realcnt;
2938 my ($nlength, $nindent) = line_stats($lines[$ctx_ln - 1]);
2952 my ($s, $c) = ($stat, $cond);
2962 my @newlines = ($c =~ /\n/gs);
2963 my $cond_lines = 1 + $#newlines;
2970 my $continuation = 0;
2971 my $check = 0;
2989 my $cond_ptr = -1;
3015 my (undef, $sindent) = line_stats("+" . $s);
3016 my $stat_real = raw_line($linenr, $cond_lines);
3038 my $opline = $line; $opline =~ s/^./ /;
3039 my ($curr_values, $curr_vars) =
3043 my $outline = $opline; $outline =~ s/\t/ /g;
3084 my $fixedline = $prevrawline;
3099 my $path = $1;
3115 my $line = $fixed[$fixlinenr];
3117 my $comment = trim($1);
3138 my $name = $1;
3192 my $tmp = trim($1);
3213 my $found = $1;
3232 my $array = $1;
3234 my $array_div = $1;
3277 my ($ident, $from, $to) = ($1, $2, $2);
3292 my $sub_from = $ident;
3293 my $sub_to = $ident;
3302 my ($match, $from, $to, $ident) = ($1, $2, $2, $3);
3320 my $sub_from = $match;
3321 my $sub_to = $match;
3353 my $ok = 0;
3354 for (my $ln = $linenr - 1; $ln >= $first_line; $ln--) {
3372 my $orig = $1;
3373 my $level = lc($orig);
3375 my $level2 = $level;
3391 my $orig = $1;
3392 my $level = lc($orig);
3415 my $fixed_line = $rawline;
3417 my $line1 = $1;
3418 my $line2 = $2;
3435 my $fixedline = rtrim($prevrawline) . " {";
3459 my $declare = $1;
3460 my $pre_pointer_space = $2;
3461 my $post_pointer_space = $3;
3462 my $funcname = $4;
3463 my $post_funcname_space = $5;
3464 my $pre_args_space = $6;
3469 my $post_declare_space = "";
3530 my ($where, $prefix) = ($-[1], $1);
3545 my $name = $1;
3546 my $ctx_before = substr($line, 0, $-[1]);
3547 my $ctx = "$ctx_before$name";
3580 my $fixed_line = "";
3581 my $line_fixed = 0;
3583 my $ops = qr{
3590 my @elements = split(/($ops|;)/, $opline);
3593 ## foreach my $el (@elements) {
3597 my @fix_elements = ();
3598 my $off = 0;
3600 foreach my $el (@elements) {
3607 my $blank = copy_spacing($opline);
3608 my $last_after = -1;
3610 for (my $n = 0; $n < $#elements; $n += 2) {
3612 my $good = $fix_elements[$n] . $fix_elements[$n + 1];
3619 my $ca = substr($opline, 0, $off);
3620 my $cc = '';
3624 my $cb = "$ca$;$cc";
3626 my $a = '';
3634 my $op = $elements[$n + 1];
3636 my $c = '';
3648 my $ctx = "${a}x${c}";
3650 my $at = "(ctx:$ctx)";
3652 my $ptr = substr($blank, 0, $off) . "^";
3653 my $hereptr = "$hereline$ptr\n";
3656 my $op_type = substr($curr_values, $off + 1, 1);
3659 my $opv = $op . substr($curr_vars, $off, 1);
3702 my $rtrim_before = 0;
3703 my $space_after = 0;
3837 my $ok = 0;
3858 my $msg_type = \&ERROR;
3912 ## my $ln = $line;
3993 my $var = $1;
4005 my $var = $2;
4009 my $var2 = deparenthesize($var);
4028 my $spacing = $1;
4031 my $value = $1;
4058 my $openparens = $1;
4059 my $count = $openparens =~ tr@\(@\(@;
4060 my $msg = "";
4062 my $comp = $4; #Not $1 because of $LvalOrFunc
4071 my $name = $1;
4094 my ($stat_next) = ctx_statement_block($line_nr_next,
4102 my ($whitespace) =
4104 my $offset =
4114 my ($s, $c) = ($stat, $cond);
4130 my @newlines = ($c =~ /\n/gs);
4131 my $cond_lines = 1 + $#newlines;
4132 my $stat_real = '';
4163 my $s = $1;
4196 my $fixedline = $prevrawline;
4209 my ($s, $c) = ctx_statement_block($linenr, $realcnt, 0);
4222 my $fixedline = $prevrawline;
4223 my $trailing = $rawline;
4234 my $var = $1;
4241 my $hexval = sprintf("0x%x", oct($var));
4257 my $word = $1;
4287 my $file = "$1.h";
4288 my $checkfile = "include/linux/$file";
4293 my $asminclude = `grep -Ec "#include\\s+<asm/$file>" $root/$checkfile`;
4311 my $ln = $linenr;
4312 my $cnt = $realcnt;
4313 my ($off, $dstat, $dcond, $rest);
4314 my $ctx = '';
4315 my $has_flow_statement = 0;
4316 my $has_arg_concat = 0;
4345 my $exceptions = qr{
4374 my $herectx = $here . "\n";
4375 my $cnt = statement_rawlines($ctx);
4377 for (my $n = 0; $n < $cnt; $n++) {
4393 my $herectx = $here . "\n";
4394 my $cnt = statement_rawlines($ctx);
4396 for (my $n = 0; $n < $cnt; $n++) {
4421 my $ln = $linenr;
4422 my $cnt = $realcnt;
4423 my ($off, $dstat, $dcond, $rest);
4424 my $ctx = '';
4433 my $stmts = $2;
4434 my $semis = $3;
4437 my $cnt = statement_rawlines($ctx);
4438 my $herectx = $here . "\n";
4440 for (my $n = 0; $n < $cnt; $n++) {
4455 my $cnt = statement_rawlines($ctx);
4456 my $herectx = $here . "\n";
4458 for (my $n = 0; $n < $cnt; $n++) {
4479 my ($level, $endln, @chunks) =
4484 my @allowed = ();
4485 my $allow = 0;
4486 my $seen = 0;
4487 my $herectx = $here . "\n";
4488 my $ln = $linenr - 1;
4489 for my $chunk (@chunks) {
4490 my ($cond, $block) = @{$chunk};
4493 my ($whitespace) = ($cond =~ /^((?:\s*\n[+-])*\s*)/s);
4494 my $offset = statement_rawlines($whitespace) - 1;
4525 my $sum_allowed = 0;
4542 my $allowed = 0;
4550 my ($level, $endln, @chunks) =
4554 my ($cond, $block) = @{$chunks[0]};
4573 my ($cond, $block) = @{$chunks[1]};
4583 my $herectx = $here . "\n";
4584 my $cnt = statement_rawlines($block);
4586 for (my $n = 0; $n < $cnt; $n++) {
4612 my $asm_volatile = qr{\b(__asm__|asm)\s+(__volatile__|volatile)\b};
4630 my $extracted_string = get_quoted_string($line, $rawline);
4631 my $comma_close = "";
4638 my $fixedline = $prevrawline;
4680 my $string;
4706 my $expr = '\s*\(\s*' . quotemeta($1) . '\s*\)\s*;';
4718 my $testval = $2;
4719 my $testline = $lines[$linenr - 3];
4721 my ($s, $c) = ctx_statement_block($linenr - 3, $realcnt, 0);
4733 my $level = $1;
4752 my $val = $1;
4753 my $equal = "!";
4765 my $attr = $1;
4767 my $ptr = $1;
4768 my $var = $2;
4783 my $attr = $1;
4785 my $attr_prefix = $1;
4786 my $attr_type = $2;
4797 my $attr = $1;
4801 my $lead = $fixed[$fixlinenr] =~
4823 my $constant_func = $1;
4824 my $func = $constant_func;
4835 my $delay = $1;
4888 my $which = $1;
4999 my $fmt = get_quoted_string($line, $rawline);
5015 my $ms_addr = $2;
5016 my $ms_val = $7;
5017 my $ms_size = $12;
5043 my $call = $1;
5044 my $cast1 = deparenthesize($2);
5045 my $arg1 = $3;
5046 my $cast2 = deparenthesize($7);
5047 my $arg2 = $8;
5048 my $cast;
5066 my $min = $1;
5067 my $max = $7;
5085 my $lc = $stat =~ tr@\n@@;
5087 my $stat_real = raw_line($linenr, 0);
5088 for (my $count = $linenr + 1; $count <= $lc; $count++) {
5099 my $lc = $stat =~ tr@\n@@;
5101 my $stat_real = raw_line($linenr, 0);
5102 for (my $count = $linenr + 1; $count <= $lc; $count++) {
5106 my $format = $6;
5107 my $count = $format =~ tr@%@%@;
5130 my $function_name = $1;
5131 my $paren_space = $2;
5133 my $s = $stat;
5158 my $name = $1;
5183 my $oldfunc = $3;
5184 my $a1 = $4;
5185 my $a2 = $10;
5186 my $newfunc = "kmalloc_array";
5188 my $r1 = $a1;
5189 my $r2 = $a2;
5229 my $ull = "";
5240 my $has_break = 0;
5241 my $has_statement = 0;
5242 my $count = 0;
5243 my $prevline = $linenr;
5246 my $rline = $rawlines[$prevline - 1];
5247 my $fline = $lines[$prevline - 1];
5267 my $ctx = '';
5268 my $herectx = $here . "\n";
5269 my $cnt = statement_rawlines($stat);
5270 for (my $n = 0; $n < $cnt; $n++) {
5300 my $lead = $1;
5301 my $arg = $2;
5302 my $test = $3;
5303 my $otype = $4;
5304 my $trail = $5;
5305 my $op = "!";
5309 my $type = lc($otype);
5344 my $const_structs = qr{
5449 foreach my $entry (@mode_permission_funcs) {
5450 my $func = $entry->[0];
5451 my $arg_pos = $entry->[1];
5453 my $skip_args = "";
5458 my $test = "\\b$func\\s*\\(${skip_args}([\\d]+)\\s*[,\\)]";
5460 my $val = $1;
5535 my $newfile = $filename;
5537 my $linecount = 0;
5538 my $f;
5544 foreach my $fixed_line (@fixed) {
|
| H A D | kernel-doc | 100 # * my_function - does my stuff
103 # * Does my stuff explained.
108 # * my_function - does my stuff
110 # * Description: Does my stuff explained.
169 my $errors = 0;
170 my $warnings = 0;
171 my $anon_struct_union = 0;
174 my $type_constant = '\%([-_\w]+)';
175 my $type_func = '(\w+)\(\)';
176 my $type_param = '\@(\w+)';
177 my $type_struct = '\&((struct\s*)*[_\w]+)';
178 my $type_struct_xml = '\\&((struct\s*)*[_\w]+)';
179 my $type_env = '(\$\w+)';
185 my %highlights_html = ( $type_constant, "<i>\$1</i>",
190 my $local_lt = "\\\\\\\\lt:";
191 my $local_gt = "\\\\\\\\gt:";
192 my $blankline_html = $local_lt . "p" . $local_gt; # was "<p>"
195 my %highlights_html5 = ( $type_constant, "<span class=\"const\">\$1</span>",
200 my $blankline_html5 = $local_lt . "br /" . $local_gt;
203 my %highlights_xml = ( "([^=])\\\"([^\\\"<]+)\\\"", "\$1<quote>\$2</quote>",
209 my $blankline_xml = $local_lt . "/para" . $local_gt . $local_lt . "para" . $local_gt . "\n";
212 my %highlights_gnome = ( $type_constant, "<replaceable class=\"option\">\$1</replaceable>",
217 my $blankline_gnome = "</para><para>\n";
220 my %highlights_man = ( $type_constant, "\$1",
224 my $blankline_man = "";
227 my %highlights_text = ( $type_constant, "\$1",
231 my $blankline_text = "";
234 my %highlights_list = ( $type_constant, "\$1",
238 my $blankline_list = "";
245 my $kernelversion;
246 my $dohighlight = "";
248 my $verbose = 0;
249 my $output_mode = "man";
250 my $output_preformatted = 0;
251 my $no_doc_sections = 0;
252 my %highlights = %highlights_man;
253 my $blankline = $blankline_man;
254 my $modulename = "Kernel API";
255 my $function_only = 0;
256 my $man_date = ('January', 'February', 'March', 'April', 'May', 'June',
260 my $show_not_found = 0;
266 my ($function, %function_table, %parametertypes, $declaration_purpose);
267 my ($type, $declaration_name, $return_type);
268 my ($newsection, $newcontents, $prototype, $brcount, %source_map);
280 my $section_counter = 0;
282 my $lineprefix="";
290 my $state;
291 my $in_doc_sect;
295 my $decl_type;
297 my $doc_special = "\@\%\$\&";
299 my $doc_start = '^/\*\*\s*$'; # Allow whitespace at end of comment start.
300 my $doc_end = '\*/';
301 my $doc_com = '\s*\*\s*';
302 my $doc_com_body = '\s*\* ?';
303 my $doc_decl = $doc_com . '(\w+)';
304 my $doc_sect = $doc_com . '([' . $doc_special . ']?[\w\s]+):(.*)';
305 my $doc_content = $doc_com_body . '(.*)';
306 my $doc_block = $doc_com . 'DOC:\s*(.*)?';
308 my %constants;
309 my %parameterdescs;
310 my @parameterlist;
311 my %sections;
312 my @sectionlist;
313 my $sectcheck;
314 my $struct_actual;
316 my $contents = "";
317 my $section_default = "Description"; # default section
318 my $section_intro = "Introduction";
319 my $section = $section_default;
320 my $section_context = "Context";
321 my $section_return = "Return";
323 my $undescribed = "-- undescribed --";
328 my $cmd = shift @ARGV;
393 my $version = 'unknown kernel version';
405 my $file = shift;
406 my $name = shift;
407 my $contents = join "\n", @_;
438 my $file = shift;
439 my $name = shift;
440 my $contents = join "\n", @_;
470 my $contents = join "\n",@_;
471 my $line;
517 my %args = %{$_[0]};
518 my $section;
530 my %args = %{$_[0]};
531 my ($parameter);
532 my $count;
561 my %args = %{$_[0]};
562 my ($parameter);
563 my $count;
573 my %args = %{$_[0]};
574 my ($parameter);
583 my $parameter_name = $parameter;
605 my $parameter_name = $parameter;
620 my %args = %{$_[0]};
621 my ($parameter, $section);
622 my $count;
647 my $parameter_name = $parameter;
662 my %args = %{$_[0]};
663 my ($parameter, $section);
664 my $count;
677 my %args = %{$_[0]};
678 my $section;
692 my %args = %{$_[0]};
693 my ($parameter);
694 my $count;
695 my $html5id;
736 my %args = %{$_[0]};
737 my ($parameter);
738 my $count;
739 my $html5id;
758 my %args = %{$_[0]};
759 my ($parameter);
760 my $html5id;
781 my $parameter_name = $parameter;
812 my $parameter_name = $parameter;
829 my %args = %{$_[0]};
830 my ($parameter, $section);
831 my $count;
832 my $html5id;
874 my $parameter_name = $parameter;
891 my %args = %{$_[0]};
892 my ($parameter, $section);
893 my $count;
894 my $html5id;
909 my %args = %{$_[0]};
910 my $section;
935 my %args = %{$_[0]};
936 my ($parameter, $section);
937 my $count;
938 my $id;
992 my $parameter_name = $parameter;
1013 my %args = %{$_[0]};
1014 my ($parameter, $section);
1015 my $id;
1045 my $prm = $parameter;
1053 my $parameter_name = $parameter;
1081 my $parameter_name = $parameter;
1106 my %args = %{$_[0]};
1107 my ($parameter, $section);
1108 my $count;
1109 my $id;
1154 my $parameter_name = $parameter;
1174 my %args = %{$_[0]};
1175 my ($parameter, $section);
1176 my $id;
1211 my %args = %{$_[0]};
1212 my ($parameter, $section);
1213 my $count;
1215 my $id = $args{'module'};
1247 my %args = %{$_[0]};
1248 my ($parameter, $section);
1249 my $count;
1250 my $id;
1287 my $parameter_name = $parameter;
1327 my %args = %{$_[0]};
1328 my ($parameter, $section);
1329 my $count;
1343 my $parenth = "(";
1344 my $post = ",";
1345 foreach my $parameter (@{$args{'parameterlist'}}) {
1363 my $parameter_name = $parameter;
1378 my %args = %{$_[0]};
1379 my ($parameter, $section);
1380 my $count;
1390 foreach my $parameter (@{$args{'parameterlist'}}) {
1404 my $parameter_name = $parameter;
1419 my %args = %{$_[0]};
1420 my ($parameter, $section);
1430 foreach my $parameter (@{$args{'parameterlist'}}) {
1435 my $parameter_name = $parameter;
1458 my $parameter_name = $parameter;
1474 my %args = %{$_[0]};
1475 my ($parameter, $section);
1489 my %args = %{$_[0]};
1490 my ($parameter, $section);
1491 my $count;
1504 my %args = %{$_[0]};
1505 my ($parameter, $section);
1506 my $start;
1519 my $count = 0;
1520 foreach my $parameter (@{$args{'parameterlist'}}) {
1539 my $parameter_name = $parameter;
1549 my %args = %{$_[0]};
1550 my $section;
1562 my %args = %{$_[0]};
1563 my ($parameter);
1564 my $count;
1591 my %args = %{$_[0]};
1592 my ($parameter);
1593 my $count;
1602 my %args = %{$_[0]};
1603 my ($parameter);
1613 my $parameter_name = $parameter;
1634 my $parameter_name = $parameter;
1646 my %args = %{$_[0]};
1647 my ($parameter, $section);
1659 my %args = %{$_[0]};
1666 my %args = %{$_[0]};
1672 my %args = %{$_[0]};
1678 my %args = %{$_[0]};
1684 my %args = %{$_[0]};
1685 my ($parameter, $section);
1698 my $name = shift;
1699 my $functype = shift;
1700 my $func = "output_${functype}_$output_mode";
1714 my $func = "output_blockhead_" . $output_mode;
1724 my ($prototype, $file) = @_;
1725 my $func = "dump_" . $decl_type;
1734 my $x = shift;
1735 my $file = shift;
1736 my $nested;
1739 #my $decl_type = $1;
1741 my $members = $3;
1781 my $x = shift;
1782 my $file = shift;
1789 my $members = $2;
1791 foreach my $arg (split ',', $members) {
1820 my $x = shift;
1821 my $file = shift;
1848 my $actual = shift;
1856 my $args = shift;
1857 my $splitter = shift;
1858 my $file = shift;
1859 my $type;
1860 my $param;
1867 foreach my $arg (split($splitter, $args)) {
1893 my @args = split('\s*,\s*', $arg);
1898 my @first_arg;
1931 my $param = shift;
1932 my $type = shift;
1933 my $file = shift;
1941 my $param_name = $param;
2000 my ($file, $decl_name, $decl_type, $sectcheck, $prmscheck, $nested) = @_;
2001 my @sects = split ' ', $sectcheck;
2002 my @prms = split ' ', $prmscheck;
2003 my $err;
2004 my ($px, $sx);
2005 my $prm_clean; # strip trailing "[array size]" and/or beginning "*"
2050 my $file = shift;
2051 my $declaration_name = shift;
2052 my $return_type = shift;
2074 my $prototype = shift;
2075 my $file = shift;
2076 my $noret = 0;
2091 my $define = $prototype =~ s/^#\s*define\s+//; #ak added
2137 my $args = $3;
2145 my $prms = join " ", @parameterlist;
2187 my $file = shift;
2188 my $tracepointname = 0;
2189 my $tracepointargs = 0;
2213 my $void = 0;
2231 my $count = 0;
2232 my $len = length($prototype);
2236 for (my $ix = 0; $ix < $len; $ix++) {
2247 my $x = shift;
2248 my $file = shift;
2277 my $x = shift;
2278 my $file = shift;
2316 my $text = shift;
2329 my $text = shift;
2339 my $file;
2340 my $identifier;
2341 my $func;
2342 my $descr;
2343 my $in_purpose = 0;
2344 my $initial_section_counter = $section_counter;
2590 foreach my $pattern (keys %highlights) {
2598 my ($relname, $absname);
|
| H A D | cleanpatch | 19 my($li) = @_;
20 my($lo) = '';
21 my $pos = 0;
22 my $nsp = 0;
23 my($i, $c);
28 my $npos = ($pos+$nsp+8) & ~7;
29 my $ntab = ($npos >> 3) - ($pos >> 3);
57 my($li) = @_;
58 my($c, $i);
59 my $pos = 0;
60 my $mlen = 0;
192 my $i;
193 my $l;
194 my @h = ();
195 my $adj = 0;
196 my $done = 0;
216 my $mstart = $1;
217 my $mlin = $2;
218 my $pstart = $3;
219 my $plin = $4;
220 my $tail = $5; # doesn't include the final newline
|
| H A D | checkincludes.pl | 23 my $remove = 0;
40 foreach my $file (@ARGV) {
41 open(my $f, '<', $file)
44 my %includedfiles = ();
45 my @file_lines = ();
57 foreach my $filename (keys %includedfiles) {
68 my $dups = 0;
71 foreach my $filename (keys %includedfiles) {
|
| H A D | cleanfile | 19 my($li) = @_;
20 my($lo) = '';
21 my $pos = 0;
22 my $nsp = 0;
23 my($i, $c);
28 my $npos = ($pos+$nsp+8) & ~7;
29 my $ntab = ($npos >> 3) - ($pos >> 3);
57 my($li) = @_;
58 my($c, $i);
59 my $pos = 0;
60 my $mlen = 0;
|
| H A D | namespace.pl | 69 my $nm = ($ENV{'NM'} || "nm") . " -p";
70 my $objdump = ($ENV{'OBJDUMP'} || "objdump") . " -s -j .comment";
71 my $srctree = "";
72 my $objtree = "";
81 my %nmdata = (); # nm data for each object
82 my %def = (); # all definitions for each name
83 my %ksymtab = (); # names that appear in __ksymtab_
84 my %ref = (); # $ref{$name} exists if there is a true external reference to $name
85 my %export = (); # $export{$name} exists if there is an EXPORT_... of $name
87 my %nmexception = (
111 my %nameexception = (
160 my $basename = $_;
220 my ($basename, $fullname) = @_;
221 my ($source, $type, $name);
238 open(my $objdumpdata, "$objdump $basename|")
241 my $comment;
259 open (my $nmdata, "$nm $basename|")
262 my @nmdata;
344 my ($object, $name) = @_;
345 my $nmdata = $nmdata{$object};
346 my ($i, $j);
350 my $def = $def{$name};
363 foreach my $name (keys(%def)) {
377 foreach my $module (@{$def{$name}}) {
386 my ($kstrtab, $ksymtab, $export);
389 foreach my $object (keys(%nmdata)) {
390 my $nmdata = $nmdata{$object};
391 for (my $i = 0; $i <= $#{$nmdata}; ++$i) {
392 my ($type, $name) = split(' ', $nmdata->[$i], 2);
401 for (my $j = 0; $j <= $#{$nmdata}; ++$j) {
442 my %noref = ();
444 foreach my $name (keys(%def)) {
446 my @module = @{$def{$name}};
447 foreach my $module (@module) {
457 foreach my $module (sort(keys(%noref))) {
460 my $export;
|
| H A D | recordmcount.pl | 111 my $P = $0;
114 my $V = '0.1';
122 my ($arch, $endian, $bits, $objdump, $objcopy, $cc,
131 my %text_sections = (
153 my %locals; # List of local (static) functions
154 my %weak; # List of weak functions
155 my %convert; # List of local functions used that needs conversion
157 my $type;
158 my $local_regex; # Match a local function (return function)
159 my $weak_regex; # Match a weak function (return function)
160 my $section_regex; # Find the start of a section
161 my $function_regex; # Find the name of a function
163 my $mcount_regex; # Find the call site to mcount (return offset)
164 my $mcount_adjust; # Address adjustment to mcount offset
165 my $alignment; # The .align value to use for $mcount_section
166 my $section_type; # Section header plus possible alignment command
167 my $can_use_local = 0; # If we can use local function references
170 my $quiet_recordmcount = ".tmp_quiet_recordmcount";
171 my $print_warning = 1;
379 my $text_found = 0;
380 my $read_function = 0;
381 my $opened = 0;
382 my $mcount_section = "__mcount_loc";
384 my $dirname;
385 my $filename;
386 my $prefix;
387 my $ext;
405 my $mcount_s = $dirname . "/.tmp_mc_" . $prefix . ".s";
406 my $mcount_o = $dirname . "/.tmp_mc_" . $prefix . ".o";
424 my @offsets; # Array of offsets of mcount callers
425 my $ref_func; # reference function to use for offsets
426 my $offset = 0; # offset of ref_func to section beginning
463 foreach my $cur_offset (@offsets) {
473 my $text;
477 my $read_headers = 1;
554 my @converts = keys %convert;
560 my $globallist = "";
561 my $locallist = "";
563 foreach my $con (@converts) {
568 my $globalobj = $dirname . "/.tmp_gl_" . $filename;
569 my $globalmix = $dirname . "/.tmp_mx_" . $filename;
591 my $mix = $dirname . "/.tmp_mx_" . $filename;
|
| /linux-4.1.27/tools/perf/scripts/perl/ |
| H A D | rw-by-pid.pl | 21 my %reads;
22 my %writes;
26 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
42 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
53 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
64 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
82 foreach my $pid (sort { ($reads{$b}{bytes_read} || 0) <=>
84 my $comm = $reads{$pid}{comm} || "";
85 my $total_reads = $reads{$pid}{total_reads} || 0;
86 my $bytes_requested = $reads{$pid}{bytes_requested} || 0;
87 my $bytes_read = $reads{$pid}{bytes_read} || 0;
99 my @errcounts = ();
101 foreach my $pid (keys %reads) {
102 foreach my $error (keys %{$reads{$pid}{errors}}) {
103 my $comm = $reads{$pid}{comm} || "";
104 my $errcount = $reads{$pid}{errors}{$error} || 0;
111 for my $i (0 .. $#errcounts) {
123 foreach my $pid (sort { ($writes{$b}{bytes_written} || 0) <=>
125 my $comm = $writes{$pid}{comm} || "";
126 my $total_writes = $writes{$pid}{total_writes} || 0;
127 my $bytes_written = $writes{$pid}{bytes_written} || 0;
141 foreach my $pid (keys %writes) {
142 foreach my $error (keys %{$writes{$pid}{errors}}) {
143 my $comm = $writes{$pid}{comm} || "";
144 my $errcount = $writes{$pid}{errors}{$error} || 0;
151 for my $i (0 .. $#errcounts) {
159 my %unhandled;
173 foreach my $event_name (keys %unhandled) {
180 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
|
| H A D | rwtop.pl | 22 my $default_interval = 3;
23 my $nlines = 20;
24 my $print_thread;
25 my $print_pending = 0;
27 my %reads;
28 my %writes;
30 my $interval = shift;
37 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
55 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
68 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
81 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
94 my $sa = POSIX::SigAction->new(\&set_print_pending);
123 my $count;
136 foreach my $pid (sort { ($reads{$b}{bytes_read} || 0) <=>
138 my $comm = $reads{$pid}{comm} || "";
139 my $total_reads = $reads{$pid}{total_reads} || 0;
140 my $bytes_requested = $reads{$pid}{bytes_requested} || 0;
141 my $bytes_read = $reads{$pid}{bytes_read} || 0;
160 foreach my $pid (sort { ($writes{$b}{bytes_written} || 0) <=>
162 my $comm = $writes{$pid}{comm} || "";
163 my $total_writes = $writes{$pid}{total_writes} || 0;
164 my $bytes_written = $writes{$pid}{bytes_written} || 0;
178 my %unhandled;
192 foreach my $event_name (keys %unhandled) {
199 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
|
| H A D | wakeup-latency.pl | 21 my %last_wakeup;
23 my $max_wakeup_latency;
24 my $min_wakeup_latency;
25 my $total_wakeup_latency = 0;
26 my $total_wakeups = 0;
30 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
35 my $wakeup_ts = $last_wakeup{$common_cpu}{ts};
37 my $switch_ts = nsecs($common_secs, $common_nsecs);
38 my $wakeup_latency = $switch_ts - $wakeup_ts;
53 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
82 my %unhandled;
96 foreach my $event_name (keys %unhandled) {
103 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
|
| H A D | rw-by-file.pl | 21 my $usage = "perf script -s rw-by-file.pl <comm>\n";
23 my $for_comm = shift or die $usage;
25 my %reads;
26 my %writes;
30 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
41 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
57 foreach my $fd (sort {$reads{$b}{bytes_requested} <=>
59 my $total_reads = $reads{$fd}{total_reads};
60 my $bytes_requested = $reads{$fd}{bytes_requested};
69 foreach my $fd (sort {$writes{$b}{bytes_written} <=>
71 my $total_writes = $writes{$fd}{total_writes};
72 my $bytes_written = $writes{$fd}{bytes_written};
79 my %unhandled;
93 foreach my $event_name (keys %unhandled) {
100 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
|
| H A D | check-perf-trace.pl | 30 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
45 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
65 my ($context) = @_;
73 my %unhandled;
87 foreach my $event_name (keys %unhandled) {
94 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
102 my ($event_name, $cpu, $secs, $nsecs, $pid, $comm) = @_;
|
| H A D | failed-syscalls.pl | 14 my $for_comm = shift;
16 my %failed_syscalls;
20 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
41 foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}}
|
| /linux-4.1.27/tools/testing/ktest/ |
| H A D | ktest.pl | 14 my $VERSION = "0.2";
18 my %opt;
19 my %repeat_tests;
20 my %repeats;
21 my %evals;
24 my %default = (
75 my $ktest_config = "ktest.conf";
76 my $version;
77 my $have_version = 0;
78 my $machine;
79 my $last_machine;
80 my $ssh_user;
81 my $tmpdir;
82 my $builddir;
83 my $outputdir;
84 my $output_config;
85 my $test_type;
86 my $build_type;
87 my $build_options;
88 my $final_post_ktest;
89 my $pre_ktest;
90 my $post_ktest;
91 my $pre_test;
92 my $post_test;
93 my $pre_build;
94 my $post_build;
95 my $pre_build_die;
96 my $post_build_die;
97 my $reboot_type;
98 my $reboot_script;
99 my $power_cycle;
100 my $reboot;
101 my $reboot_on_error;
102 my $switch_to_good;
103 my $switch_to_test;
104 my $poweroff_on_error;
105 my $reboot_on_success;
106 my $die_on_failure;
107 my $powercycle_after_reboot;
108 my $poweroff_after_halt;
109 my $max_monitor_wait;
110 my $ssh_exec;
111 my $scp_to_target;
112 my $scp_to_target_install;
113 my $power_off;
114 my $grub_menu;
115 my $last_grub_menu;
116 my $grub_file;
117 my $grub_number;
118 my $grub_reboot;
119 my $syslinux;
120 my $syslinux_path;
121 my $syslinux_label;
122 my $target;
123 my $make;
124 my $pre_install;
125 my $post_install;
126 my $no_install;
127 my $noclean;
128 my $minconfig;
129 my $start_minconfig;
130 my $start_minconfig_defined;
131 my $output_minconfig;
132 my $minconfig_type;
133 my $use_output_minconfig;
134 my $warnings_file;
135 my $ignore_config;
136 my $ignore_errors;
137 my $addconfig;
138 my $in_bisect = 0;
139 my $bisect_bad_commit = "";
140 my $reverse_bisect;
141 my $bisect_manual;
142 my $bisect_skip;
143 my $bisect_tries;
144 my $config_bisect_good;
145 my $bisect_ret_good;
146 my $bisect_ret_bad;
147 my $bisect_ret_skip;
148 my $bisect_ret_abort;
149 my $bisect_ret_default;
150 my $in_patchcheck = 0;
151 my $run_test;
152 my $buildlog;
153 my $testlog;
154 my $dmesg;
155 my $monitor_fp;
156 my $monitor_pid;
157 my $monitor_cnt = 0;
158 my $sleep_time;
159 my $bisect_sleep_time;
160 my $patchcheck_sleep_time;
161 my $ignore_warnings;
162 my $store_failures;
163 my $store_successes;
164 my $test_name;
165 my $timeout;
166 my $booted_timeout;
167 my $detect_triplefault;
168 my $console;
169 my $close_console_signal;
170 my $reboot_success_line;
171 my $success_line;
172 my $stop_after_success;
173 my $stop_after_failure;
174 my $stop_test_after;
175 my $build_target;
176 my $target_image;
177 my $checkout;
178 my $localversion;
179 my $iteration = 0;
180 my $successes = 0;
181 my $stty_orig;
183 my $bisect_good;
184 my $bisect_bad;
185 my $bisect_type;
186 my $bisect_start;
187 my $bisect_replay;
188 my $bisect_files;
189 my $bisect_reverse;
190 my $bisect_check;
192 my $config_bisect;
193 my $config_bisect_type;
194 my $config_bisect_check;
196 my $patchcheck_type;
197 my $patchcheck_start;
198 my $patchcheck_cherry;
199 my $patchcheck_end;
201 my $build_time;
202 my $install_time;
203 my $reboot_time;
204 my $test_time;
208 my $buildonly = 1;
211 my $warnings_ok = 0;
214 my $newconfig = 0;
216 my %entered_configs;
217 my %config_help;
218 my %variable;
222 my %force_config;
225 my $no_reboot = 1;
228 my $reboot_success = 0;
230 my %option_map = (
335 my %used_options;
484 my ($cancel, $prompt) = @_;
486 my $ans;
521 my ($prompt) = @_;
527 my ($prompt) = @_;
533 my ($config) = @_;
534 my $ans;
564 my ($time) = @_;
566 my $hours = 0;
567 my $minutes = 0;
649 my $rtype = $opt{"REBOOT_TYPE"};
675 my ($value, $remove_undef) = @_;
676 my $retval = "";
686 my $begin = $1;
687 my $var = $2;
688 my $end = $3;
716 my ($lvalue, $rvalue, $override, $overrides, $name) = @_;
718 my $prvalue = process_variables($rvalue);
745 my $extra = "";
758 my ($lvalue, $rvalue, $name) = @_;
760 my $prvalue = process_variables($rvalue);
761 my $arr;
774 my ($lvalue, $rvalue) = @_;
785 my ($lval, $cmp, $rval) = @_;
805 my $statement = "$lval $cmp $rval";
806 my $ret = eval $statement;
817 my ($val) = @_;
823 my $d = 0;
825 my ($name, $val) = @_;
827 my $c = $d++;
830 my $express = $1;
840 my $OR = "\\|\\|";
841 my $AND = "\\&\\&";
844 my $express = $1;
845 my $op = $2;
859 my $ret = process_compare($1, $2, $3);
884 my ($name, $value) = @_;
887 my $val = process_variables($value, 1);
888 my $ret = process_expression $name, $val;
894 my ($config, $current_test_num) = @_;
896 my $in;
899 my $name = $config;
902 my $test_num = $$current_test_num;
903 my $default = 1;
904 my $repeat = 1;
905 my $num_tests_set = 0;
906 my $skip = 0;
907 my $rest;
908 my $line;
909 my $test_case = 0;
910 my $if = 0;
911 my $if_set = 0;
912 my $override = 0;
914 my %overrides;
923 my $type = $1;
927 my $old_test_num;
928 my $old_repeat;
1039 my $file = process_variables($1);
1062 my $lvalue = $1;
1063 my $rvalue = $2;
1068 my $val = "$lvalue\[$test_num\]";
1076 my $lvalue = $1;
1077 my $rvalue = $2;
1099 my $val = "$lvalue\[$test_num\]";
1109 my $lvalue = $1;
1110 my $rvalue = $2;
1143 my $ans = <STDIN>;
1149 my ($config) = @_;
1151 my $test_case;
1152 my $test_num = 0;
1167 foreach my $default (keys %default) {
1177 my %not_used;
1180 foreach my $option (keys %opt) {
1181 my $op = $option;
1192 my $s = "s are";
1195 foreach my $option (keys %not_used) {
1206 my ($name, $option, $i) = @_;
1210 my $retval = "";
1211 my $repeated = 0;
1212 my $parent = 0;
1214 foreach my $test (keys %repeat_tests) {
1225 my $start = $1;
1226 my $var = $2;
1227 my $end = $3;
1235 my $o = "$var\[$i\]";
1236 my $parento = "$var\[$parent\]";
1270 my ($name, $option, $i) = @_;
1272 my $option_name = "$name\[$i\]";
1273 my $ev;
1275 my $old_option = $option;
1285 for my $e (@{$ev}) {
1297 my ($name, $option, $i) = @_;
1299 my $prev = "";
1304 my $r = 0;
1327 my ($time) = @_;
1354 my $save_ignore_errors = $ignore_errors;
1374 my ($time) = @_;
1384 my $i = $iteration;
1394 my $i = $iteration;
1419 my ($ptm, $pts) = @_;
1420 my $tmp;
1421 my $TIOCSPTLCK = 0x40045431;
1422 my $TIOCGPTN = 0x80045430;
1442 my ($ptm, $pts) = @_;
1461 my ($ptm) = @_;
1462 my $pts = \*PTSFD;
1463 my $pid;
1490 my ($fp, $pid) = @_;
1523 my ($time, $stop) = @_;
1524 my $full_line = "";
1525 my $line;
1526 my $booted = 0;
1527 my $start_time = time;
1528 my $skip_call_trace = 0;
1529 my $bug = 0;
1530 my $bug_ignored = 0;
1531 my $now;
1589 my ($result, $basedir) = @_;
1590 my @t = localtime;
1591 my $date = sprintf "%04d%02d%02d%02d%02d%02d",
1594 my $type = $build_type;
1599 my $dir = "$machine-$test_type-$type-$result-$date";
1608 my %files = (
1615 while (my ($name, $source) = each(%files)) {
1637 my $i = $iteration;
1645 my $name = "";
1667 my ($command, $redirect) = @_;
1668 my $start_time;
1669 my $end_time;
1670 my $dolog = 0;
1671 my $dord = 0;
1672 my $pid;
1702 my $failed = $?;
1709 my $delta = $end_time - $start_time;
1727 my ($cmd) = @_;
1728 my $cp_exec = $ssh_exec;
1735 my ($src, $dst, $cp_scp) = @_;
1744 my ($src, $dst) = @_;
1746 my $cp_scp = $scp_to_target_install;
1752 my ($src, $dst) = @_;
1754 my $cp_scp = $scp_to_target;
1768 my $ssh_grub = $ssh_exec;
1774 my $found = 0;
1811 my $ssh_grub = $ssh_exec;
1817 my $found = 0;
1839 my ($fp, $time) = @_;
1840 my $rin;
1841 my $rout;
1842 my $nr;
1843 my $buf;
1844 my $line;
1845 my $ch;
1903 my ($commit) = @_;
1906 my $sha1 = `git rev-list --max-count=1 $commit`;
1907 my $ret = $?;
1924 my $booted = 0;
1925 my $bug = 0;
1926 my $bug_ignored = 0;
1927 my $skip_call_trace = 0;
1928 my $loops;
1930 my $start_time = time;
1934 my $line;
1935 my $full_line = "";
1942 my $success_start;
1943 my $failure_start;
1944 my $monitor_start = time;
1945 my $done = 0;
1946 my $version_found = 0;
1952 my $time = $stop_after_failure - (time - $failure_start);
1962 my $s = $booted_timeout == 1 ? "" : "s";
1969 my $s = $timeout == 1 ? "" : "s";
1988 my $now = time;
2012 my $now = time;
2056 my $end_time = time;
2079 my ($option) = @_;
2090 my $cp_post_install = eval_kernel_version $post_install;
2107 my $start_time = time;
2110 my $cp_pre_install = eval_kernel_version $pre_install;
2115 my $cp_target = eval_kernel_version $target_image;
2122 my $install_mods = 0;
2140 my $end_time = time;
2148 my $modlib = "/lib/modules/$version";
2149 my $modtar = "ktest-mods.tar.bz2";
2170 my $end_time = time;
2202 my $check_build_re = ".*:.*(warning|error|Error):.*";
2203 my $utf8_quote = "\\x{e2}\\x{80}(\\x{98}|\\x{99})";
2206 my ($line) = @_;
2234 my %warnings_list;
2237 my $save_no_reboot = $no_reboot;
2246 my $warning = process_warning_line $_;
2260 my $warning = process_warning_line $_;
2274 my ($patch) = @_;
2276 my @files = `git show $patch | diffstat -l`;
2278 foreach my $file (@files) {
2295 my $err = $1;
2296 foreach my $file (@files) {
2297 my $fullpath = "$builddir/$file";
2310 my $outconfig = "$output_config.new";
2332 foreach my $config (keys %force_config) {
2342 my @force_list = keys %force_config;
2363 my ($config) = @_;
2380 my ($type) = @_;
2384 my $start_time = time;
2387 my $save_no_reboot = $no_reboot;
2394 my $ret = run_command $pre_build;
2447 my $build_ret = run_command "$make $build_options", $buildlog;
2453 my $ret = run_command $post_build;
2471 my $end_time = time;
2490 my ($i) = @_;
2498 my $name = "";
2525 my $ans = <STDIN>;
2540 my $failed = 0;
2552 my $child_done;
2559 my $child_pid;
2560 my $child_exit;
2561 my $line;
2562 my $full_line;
2563 my $bug = 0;
2564 my $bug_ignored = 0;
2566 my $start_time = time;
2613 my $failure_start = time;
2614 my $now;
2634 my $end_time = time;
2682 my ($command) = @_;
2686 my $output = `$command 2>&1`;
2687 my $ret = $?;
2718 my ($type, $buildtype) = @_;
2720 my $failed = 0;
2721 my $result;
2722 my $output;
2723 my $ret;
2769 my ($type) = @_;
2770 my $buildtype = "oldconfig";
2779 my $ret = 1;
2786 for (my $i = 0; $i < $bisect_tries; $i++) {
2788 my $t = $i + 1;
2816 my $tmp_log = "$tmpdir/ktest_bisect_log";
2823 my ($i) = @_;
2825 my $result;
2831 my $good = $bisect_good;
2832 my $bad = $bisect_bad;
2833 my $type = $bisect_type;
2834 my $start = $bisect_start;
2835 my $replay = $bisect_replay;
2836 my $start_files = $bisect_files;
2861 my $bisect_start_file = "$builddir/.git/BISECT_START";
2863 my $check = $bisect_check;
2864 my $do_check = defined($check) && $check ne "0";
2887 my $head = get_sha1("HEAD");
2939 my $test;
2960 my %config_ignore;
2963 my %config_set;
2968 my %config_off;
2971 my @config_off_tmp;
2974 my %config_list;
2975 my %null_config;
2977 my %dependency;
2980 my ($hash, $config) = @_;
3000 my ($config) = @_;
3006 my ($config) = @_;
3008 my $arr = $dependency{$config};
3013 my @deps = @{$arr};
3015 foreach my $dep (@{$arr}) {
3024 my ($pc, $file) = @_;
3026 my %configs = %{$pc};
3032 foreach my $config (keys %configs) {
3039 my ($name, $pc) = @_;
3051 my ($pa, $pb) = @_;
3054 my %a = %{$pa};
3055 my %b = %{$pb};
3057 my %ret;
3059 foreach my $item (keys %a) {
3070 my ($pa, $pb) = @_;
3072 my %ret;
3075 my %a = %{$pa};
3076 my %b = %{$pb};
3078 foreach my $item (keys %b) {
3092 my ($pa, $pb) = @_;
3094 my %ret;
3097 my %a = %{$pa};
3098 my %b = %{$pb};
3100 foreach my $item (keys %b) {
3109 foreach my $item (keys %a) {
3119 my ($type) = @_;
3121 my $ret = run_bisect_test $type, "oldconfig";
3131 my ($config) = @_;
3139 my $good_config;
3140 my $bad_config;
3143 my ($tc, $nc, $gc, $bc) = @_;
3145 my %tmp_config = %{$tc};
3146 my %good_configs = %{$gc};
3147 my %bad_configs = %{$bc};
3149 my %new_configs;
3151 my $runtest = 1;
3152 my $ret;
3177 my ($pgood, $pbad) = @_;
3179 my $type = $config_bisect_type;
3181 my %good_configs = %{$pgood};
3182 my %bad_configs = %{$pbad};
3184 my %diff_configs = diff_config_vals \%good_configs, \%bad_configs;
3185 my %b_configs = diff_configs \%good_configs, \%bad_configs;
3186 my %g_configs = diff_configs \%bad_configs, \%good_configs;
3188 my @diff_arr = keys %diff_configs;
3189 my $len_diff = $#diff_arr + 1;
3191 my @b_arr = keys %b_configs;
3192 my $len_b = $#b_arr + 1;
3194 my @g_arr = keys %g_configs;
3195 my $len_g = $#g_arr + 1;
3197 my $runtest = 1;
3198 my %new_configs;
3199 my $ret;
3217 my %tmp_config = %bad_configs;
3220 foreach my $item (@diff_arr) {
3235 my %tmp_config = %bad_configs;
3237 my $half = int($#diff_arr / 2);
3238 my @tophalf = @diff_arr[0 .. $half];
3242 foreach my $item (@tophalf) {
3250 my %tmp_config = %bad_configs;
3254 my @bottomhalf = @diff_arr[$half+1 .. $#diff_arr];
3256 foreach my $item (@bottomhalf) {
3288 my ($i) = @_;
3290 my $type = $config_bisect_type;
3291 my $ret;
3313 my %good_configs;
3314 my %bad_configs;
3315 my %tmp_configs;
3371 my ($i) = @_;
3378 my $start = $patchcheck_start;
3380 my $cherry = $patchcheck_cherry;
3385 my $end = "HEAD";
3396 my $type = $patchcheck_type;
3411 my @list;
3432 foreach my $l (@list) {
3436 my $save_clean = $noclean;
3437 my %ignored_warnings;
3440 foreach my $sha1 (split /\s+/, $ignore_warnings) {
3446 foreach my $item (@list) {
3447 my $sha1 = $item;
3479 my $failed = 0;
3500 my %depends;
3501 my %depcount;
3502 my $iflevel = 0;
3503 my @ifdeps;
3506 my %read_kconfigs;
3510 my ($config, $dep) = @_;
3528 my ($kconfig) = @_;
3530 my $state = "NONE";
3531 my $config;
3532 my @kconfigs;
3534 my $cont = 0;
3535 my $line;
3571 for (my $i = 0; $i < $iflevel; $i++) {
3588 my $deps = $1;
3593 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
3621 my $arch;
3644 my $kconfig = "$builddir/arch/$arch/Kconfig";
3647 my $orig = $arch;
3662 my @configs = @_;
3667 foreach my $config (@configs) {
3674 my ($config) = @_;
3682 my ($dep) = @_;
3684 my $kconfig = chomp_config $dep;
3692 my $valid = "A-Za-z_0-9";
3694 my @configs;
3699 my $conf = "CONFIG_" . $1;
3712 my %min_configs;
3713 my %keep_configs;
3714 my %save_configs;
3715 my %processed_configs;
3716 my %nochange_config;
3719 my ($config) = @_;
3721 my $found;
3734 my $kconfig = chomp_config $config;
3738 my @parents = get_depends $config;
3739 foreach my $parent (@parents) {
3753 my %configs = %min_configs;
3772 my ($i) = @_;
3774 my $type = $minconfig_type;
3805 my $temp_config = "$tmpdir/temp_config";
3811 my $save_minconfig = $minconfig;
3837 my @config_keys = keys %min_configs;
3840 foreach my $config (@config_keys) {
3841 my $kconfig = chomp_config $config;
3849 foreach my $config (@config_keys) {
3852 my $file = $ignore_config;
3874 my $done = 0;
3875 my $take_two = 0;
3879 my $config;
3880 my $found;
3885 my @test_configs = keys %min_configs;
3892 my $reset = 1;
3893 for (my $i = 0; $i < $#test_configs; $i++) {
3900 my $config = shift @test_configs;
3912 foreach my $config (@test_configs) {
3942 my $failed = 0;
3967 foreach my $config (keys %save_configs) {
3982 my %configs;
3984 my @config_keys = keys %min_configs;
3985 foreach my $config (@config_keys) {
3995 foreach my $config (keys %keep_configs) {
3998 foreach my $config (keys %min_configs) {
4016 my ($i) = @_;
4095 my @new_configs = keys %entered_configs;
4099 foreach my $config (@new_configs) {
4111 for (my $i = 0, my $repeat = 1; $i <= $opt{"NUM_TESTS"}; $i += $repeat) {
4124 foreach my $option (sort keys %opt) {
4137 my ($option) = @_;
4147 my ($name, $i) = @_;
4149 my $option = "$name\[$i\]";
4155 foreach my $test (keys %repeat_tests) {
4173 my ($name, $i) = @_;
4175 my $option = __set_test_option($name, $i);
4182 for (my $i = 1; $i <= $opt{"NUM_TESTS"}; $i++) {
4199 my $makecmd = set_test_option("MAKE_CMD", $i);
4214 foreach my $opt (keys %option_map) {
4262 my $run_type = $build_type;
4280 my $installme = "";
4283 my $name = "";
4301 my $min = $minconfig;
4353 my $failed = 0;
|
| /linux-4.1.27/tools/perf/scripts/perl/Perf-Trace-Util/lib/Perf/Trace/ |
| H A D | Core.pm | 24 my %trace_flags = (0x00 => "NONE",
33 my ($value) = @_;
35 my $string;
37 my $print_delim = 0;
39 foreach my $idx (sort {$a <=> $b} keys %trace_flags) {
58 my %flag_fields;
59 my %symbolic_fields;
63 my ($event_name, $field_name, $value) = @_;
65 my $string;
68 my $print_delim = 0;
69 foreach my $idx (sort {$a <=> $b} keys %{$flag_fields{$event_name}{$field_name}{"values"}}) {
90 my ($event_name, $field_name, $delim) = @_;
97 my ($event_name, $field_name, $value, $field_str) = @_;
104 for my $event (keys %flag_fields) {
106 for my $field (keys %{$flag_fields{$event}}) {
109 foreach my $idx (sort {$a <=> $b} keys %{$flag_fields{$event}{$field}{"values"}}) {
118 my ($event_name, $field_name, $value) = @_;
121 foreach my $idx (sort {$a <=> $b} keys %{$symbolic_fields{$event_name}{$field_name}{"values"}}) {
137 my ($event_name, $field_name) = @_;
144 my ($event_name, $field_name, $value, $field_str) = @_;
151 for my $event (keys %symbolic_fields) {
153 for my $field (keys %{$symbolic_fields{$event}}) {
155 foreach my $idx (sort {$a <=> $b} keys %{$symbolic_fields{$event}{$field}{"values"}}) {
|
| H A D | Util.pm | 25 my ($total, $n) = @_;
30 my $NSECS_PER_SEC = 1000000000;
34 my ($secs, $nsecs) = @_;
40 my ($nsecs) = @_;
46 my ($nsecs) = @_;
52 my ($nsecs) = @_;
54 my $str = sprintf("%5u.%09u", nsecs_secs($nsecs), nsecs_nsecs($nsecs));
|
| /linux-4.1.27/Documentation/trace/postprocess/ |
| H A D | trace-pagealloc-postprocess.pl | 39 my %perprocesspid;
40 my %perprocess;
41 my $opt_ignorepid;
42 my $opt_read_procstat;
43 my $opt_prepend_parent;
46 my $sigint_report = 0;
47 my $sigint_exit = 0;
48 my $sigint_pending = 0;
49 my $sigint_received = 0;
51 my $current_time = time;
80 my $regex_fragdetails_default = 'page=([0-9a-f]*) pfn=([0-9]*) alloc_order=([-0-9]*) fallback_order=([-0-9]*) pageblock_order=([-0-9]*) alloc_migratetype=([-0-9]*) fallback_migratetype=([-0-9]*) fragmenting=([-0-9]) change_ownership=([-0-9])';
83 my $regex_fragdetails;
87 my $regex_traceevent = '\s*([a-zA-Z0-9-]*)\s*(\[[0-9]*\])\s*([0-9.]*):\s*([a-zA-Z_]*):\s*(.*)';
88 my $regex_statname = '[-0-9]*\s\((.*)\).*';
89 my $regex_statppid = '[-0-9]*\s\(.*\)\s[A-Za-z]\s([0-9]*).*';
92 my $event = shift;
93 my $default = shift;
94 my $regex;
100 my $line;
113 my $tuple;
115 my ($key, $value) = split(/=/, $tuple);
116 my $expected = shift;
137 my $pid = $_[0];
138 my $statline;
153 my $pid = $_[0];
154 my $statline = $_[1];
167 my $pid = $_[0];
168 my $statline = $_[1];
169 my $ppid;
185 my $traceevent;
186 my $process_pid;
187 my $cpus;
188 my $timestamp;
189 my $tracepoint;
190 my $details;
191 my $statline;
202 my $process = $1;
203 my $pid = $2;
241 my ($page, $pfn);
242 my ($alloc_order, $fallback_order, $pageblock_order);
243 my ($alloc_migratetype, $fallback_migratetype);
244 my ($fragmenting, $change_ownership);
299 my $hashref = shift;
300 my %stats = %$hashref;
303 my $process_pid;
304 my $max_strlen = 0;
308 my $len = length($process_pid);
354 my $process_pid;
355 my $process;
392 my $sigint_processed;
399 my $current_time = time;
|
| H A D | trace-vmscan-postprocess.pl | 55 my %perprocesspid;
56 my %perprocess;
57 my %last_procmap;
58 my $opt_ignorepid;
59 my $opt_read_procstat;
61 my $total_wakeup_kswapd;
62 my ($total_direct_reclaim, $total_direct_nr_scanned);
63 my ($total_direct_nr_file_scanned, $total_direct_nr_anon_scanned);
64 my ($total_direct_latency, $total_kswapd_latency);
65 my ($total_direct_nr_reclaimed);
66 my ($total_direct_nr_file_reclaimed, $total_direct_nr_anon_reclaimed);
67 my ($total_direct_writepage_file_sync, $total_direct_writepage_file_async);
68 my ($total_direct_writepage_anon_sync, $total_direct_writepage_anon_async);
69 my ($total_kswapd_nr_scanned, $total_kswapd_wake);
70 my ($total_kswapd_nr_file_scanned, $total_kswapd_nr_anon_scanned);
71 my ($total_kswapd_writepage_file_sync, $total_kswapd_writepage_file_async);
72 my ($total_kswapd_writepage_anon_sync, $total_kswapd_writepage_anon_async);
73 my ($total_kswapd_nr_reclaimed);
74 my ($total_kswapd_nr_file_reclaimed, $total_kswapd_nr_anon_reclaimed);
77 my $sigint_report = 0;
78 my $sigint_exit = 0;
79 my $sigint_pending = 0;
80 my $sigint_received = 0;
82 my $current_time = time;
110 my $regex_direct_begin_default = 'order=([0-9]*) may_writepage=([0-9]*) gfp_flags=([A-Z_|]*)';
111 my $regex_direct_end_default = 'nr_reclaimed=([0-9]*)';
112 my $regex_kswapd_wake_default = 'nid=([0-9]*) order=([0-9]*)';
113 my $regex_kswapd_sleep_default = 'nid=([0-9]*)';
114 my $regex_wakeup_kswapd_default = 'nid=([0-9]*) zid=([0-9]*) order=([0-9]*)';
115 my $regex_lru_isolate_default = 'isolate_mode=([0-9]*) order=([0-9]*) nr_requested=([0-9]*) nr_scanned=([0-9]*) nr_taken=([0-9]*) file=([0-9]*)';
116 my $regex_lru_shrink_inactive_default = 'nid=([0-9]*) zid=([0-9]*) nr_scanned=([0-9]*) nr_reclaimed=([0-9]*) priority=([0-9]*) flags=([A-Z_|]*)';
117 my $regex_lru_shrink_active_default = 'lru=([A-Z_]*) nr_scanned=([0-9]*) nr_rotated=([0-9]*) priority=([0-9]*)';
118 my $regex_writepage_default = 'page=([0-9a-f]*) pfn=([0-9]*) flags=([A-Z_|]*)';
121 my $regex_direct_begin;
122 my $regex_direct_end;
123 my $regex_kswapd_wake;
124 my $regex_kswapd_sleep;
125 my $regex_wakeup_kswapd;
126 my $regex_lru_isolate;
127 my $regex_lru_shrink_inactive;
128 my $regex_lru_shrink_active;
129 my $regex_writepage;
133 my $regex_traceevent = '\s*([a-zA-Z0-9-]*)\s*(\[[0-9]*\])(\s*[dX.][Nnp.][Hhs.][0-9a-fA-F.]*|)\s*([0-9.]*):\s*([a-zA-Z_]*):\s*(.*)';
134 my $regex_statname = '[-0-9]*\s\((.*)\).*';
135 my $regex_statppid = '[-0-9]*\s\(.*\)\s[A-Za-z]\s([0-9]*).*';
138 my $event = shift;
139 my $default = shift;
140 my $regex;
147 my $line;
167 my $tuple;
169 my ($key, $value) = split(/=/, $tuple);
170 my $expected = shift;
229 my $pid = $_[0];
230 my $statline;
245 my $pid = $_[0];
246 my $statline = $_[1];
260 my $timestamp = $_[0];
262 my ($sec, $usec) = split (/\./, $timestamp);
267 my $traceevent;
268 my $process_pid;
269 my $cpus;
270 my $timestamp;
271 my $tracepoint;
272 my $details;
273 my $statline;
284 my $process = $1;
285 my $pid = $2;
316 my $order = $1;
321 my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_END};
327 my $order = $perprocesspid{$process_pid}->{STATE_DIRECT_ORDER};
328 my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_DIRECT_BEGIN});
340 my $order = $2;
354 my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_SLEEP};
359 my $order = $perprocesspid{$process_pid}->{STATE_KSWAPD_ORDER};
360 my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_KSWAPD_BEGIN});
373 my $order = $3;
383 my $isolate_mode = $1;
384 my $nr_scanned = $4;
385 my $file = $6;
409 my $nr_reclaimed = $4;
410 my $flags = $6;
411 my $file = 0;
430 my $flags = $3;
431 my $file = 0;
432 my $sync_io = 0;
463 my $hashref = shift;
464 my %stats = %$hashref;
467 my $process_pid;
468 my $max_strlen = 0;
472 my $len = length($process_pid);
490 my $index = 0;
496 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
500 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_KSWAPD_LATENCY}[$index]);
532 my $index = 0;
533 my $this_reclaim_delay = 0;
535 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
556 for (my $order = 0; $order < 20; $order++) {
557 my $count = $stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN_PERORDER}[$order];
565 for (my $order = 0; $order < 20; $order++) {
566 my $count = $stats{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD_PERORDER}[$order];
613 for (my $order = 0; $order < 20; $order++) {
614 my $count = $stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE_PERORDER}[$order];
622 for (my $order = 0; $order < 20; $order++) {
623 my $count = $stats{$process_pid}->{HIGH_KSWAPD_REWAKEUP_PERORDER}[$order];
665 my $process_pid;
666 my $process;
691 for (my $order = 0; $order < 20; $order++) {
699 my $wr_index = $perprocess{$process}->{MM_VMSCAN_DIRECT_RECLAIM_END};
700 my $rd_index = 0;
709 my $wr_index = $perprocess{$process}->{MM_VMSCAN_KSWAPD_SLEEP};
710 my $rd_index = 0;
731 my $sigint_processed;
738 my $current_time = time;
|
| /linux-4.1.27/Documentation/dvb/ |
| H A D | get_dvb_firmware | 63 my $sourcefile = "tt_Premium_217g.zip";
64 my $url = "http://www.softwarepatch.pl/9999ccd06a4813cb827dbb0005071c71/$sourcefile";
65 my $hash = "53970ec17a538945a6d8cb608a7b3899";
66 my $outfile = "dvb-fe-sp8870.fw";
67 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
80 my $sourcefile = "Dvbt1.3.57.6.zip";
81 my $url = "http://www.avermedia.com/software/$sourcefile";
82 my $cabfile = "DVBT Net Ver1.3.57.6/disk1/data1.cab";
83 my $hash = "237938d53a7f834c05c42b894ca68ac3";
84 my $outfile = "dvb-fe-sp887x.fw";
85 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
100 my $sourcefile = "tt_budget_217g.zip";
101 my $url = "http://www.technotrend.de/new/217g/$sourcefile";
102 my $hash = "2105fd5bf37842fbcdfa4bfd58f3594a";
103 my $outfile = "dvb-fe-tda10045.fw";
104 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
118 my $sourcefile = "TT_PCI_2.19h_28_11_2006.zip";
119 my $url = "http://technotrend.com.ua/download/software/219/$sourcefile";
120 my $hash = "6a7e1e2f2644b162ff0502367553c72d";
121 my $outfile = "dvb-fe-tda10046.fw";
122 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
136 my $sourcefile = "7%5Cdrv_2.11.02.zip";
137 my $url = "http://www.lifeview.hk/dbimages/document/$sourcefile";
138 my $hash = "1ea24dee4eea8fe971686981f34fd2e0";
139 my $outfile = "dvb-fe-tda10046.fw";
140 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
154 my $sourcefile = "dvb-ttpci-01.fw-261d";
155 my $url = "http://www.linuxtv.org/downloads/firmware/$sourcefile";
156 my $hash = "603431b6259715a8e88f376a53b64e2f";
157 my $outfile = "dvb-ttpci-01.fw";
169 my $sourcefile = "dec217g.exe";
170 my $url = "http://hauppauge.lightpath.net/de/$sourcefile";
171 my $hash = "bd86f458cee4a8f0a8ce2d20c66215a9";
172 my $outfile = "dvb-ttusb-dec-2000t.fw";
173 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
186 my $sourcefile = "dec217g.exe";
187 my $url = "http://hauppauge.lightpath.net/de/$sourcefile";
188 my $hash = "53e58f4f5b5c2930beee74a7681fed92";
189 my $outfile = "dvb-ttusb-dec-2540t.fw";
190 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
203 my $sourcefile = "dec217g.exe";
204 my $url = "http://hauppauge.lightpath.net/de/$sourcefile";
205 my $hash = "b013ececea83f4d6d8d2a29ac7c1b448";
206 my $outfile = "dvb-ttusb-dec-3000s.fw";
207 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
219 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 0);
222 my $fwfile1="dvb-usb-opera1-fpga-01.fw";
223 my $fwfile2="dvb-usb-opera-01.fw";
233 my $RES1="\x01\x92\x7f\x00\x01\x00";
234 my $RES0="\x01\x92\x7f\x00\x00\x00";
235 my $DAT1="\x01\x00\xe6\x00\x01\x00";
236 my $DAT0="\x01\x00\xe6\x00\x00\x00";
259 my $sourcefile = "2.422.zip";
260 my $url = "http://www.twinhan.com/files/driver/USB-Ter/$sourcefile";
261 my $hash = "e88c9372d1f66609a3e7b072c53fbcfe";
262 my $outfile = "dvb-vp7041-2.422.fw";
263 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
272 my $CMD = "\000\001\000\222\177\000";
273 my $PAD = "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000";
274 my ($FW);
293 my $fwfile = "dvb-usb-vp7049-0.95.fw";
294 my $url = "http://ao2.it/sites/default/files/blog/2012/11/06/linux-support-digicom-digitune-s-vp7049-udtt7049/$fwfile";
295 my $hash = "5609fd295168aea88b25ff43a6f79c36";
306 my $url = "http://www.linuxtv.org/downloads/firmware/dvb-usb-dibusb-5.0.0.11.fw";
307 my $outfile = "dvb-dibusb-5.0.0.11.fw";
308 my $hash = "fa490295a527360ca16dcdf3224ca243";
319 my $sourcefile = "Technisat_DVB-PC_4_4_COMPACT.zip";
320 my $url = "http://www.bbti.us/download/windows/$sourcefile";
321 my $hash = "476befae8c7c1bb9648954060b1eec1f";
322 my $outfile = "dvb-fe-nxt2002.fw";
323 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
336 my $sourcefile = "AVerTVHD_MCE_A180_Drv_v1.2.2.16.zip";
337 my $url = "http://www.avermedia-usa.com/support/Drivers/$sourcefile";
338 my $hash = "111cb885b1e009188346d72acfed024c";
339 my $outfile = "dvb-fe-nxt2004.fw";
340 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
353 my $fwfile = "dvb-fe-or51211.fw";
354 my $url = "http://linuxtv.org/downloads/firmware/$fwfile";
355 my $hash = "d830949c771a289505bf9eafc225d491";
366 my $fwfile = "v4l-cx231xx-avcore-01.fw";
367 my $url = "http://linuxtv.org/downloads/firmware/$fwfile";
368 my $hash = "7d3bb956dc9df0eafded2b56ba57cc42";
379 my $url = "http://linuxtv.org/downloads/firmware/";
381 my %files = (
389 my $allfiles;
390 foreach my $fwfile (keys %files) {
402 my $archive = 'Yuan MPC718 TV Tuner Card 2.13.10.1016.zip';
403 my $url = "ftp://ftp.work.acer-euro.com/desktop/aspire_idea510/vista/Drivers/$archive";
404 my $fwfile = "dvb-cx18-mpc718-mt352.fw";
405 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
411 my $sourcefile = "$tmpdir/Yuan MPC718 TV Tuner Card 2.13.10.1016/mpc718_32bit/yuanrap.sys";
412 my $found = 0;
420 my $prevlen = 0;
421 my $currlen;
453 my $url = "http://linuxtv.org/downloads/firmware/";
455 my %files = (
462 my $allfiles;
463 foreach my $fwfile (keys %files) {
475 my $url = "http://linuxtv.org/downloads/firmware/";
477 my %files = (
483 my $allfiles;
484 foreach my $fwfile (keys %files) {
496 my $fwfile = "dvb-fe-or51132-qam.fw";
497 my $url = "http://linuxtv.org/downloads/firmware/$fwfile";
498 my $hash = "7702e8938612de46ccadfe9b413cb3b5";
509 my $fwfile = "dvb-fe-or51132-vsb.fw";
510 my $url = "http://linuxtv.org/downloads/firmware/$fwfile";
511 my $hash = "c16208e02f36fc439a557ad4c613364a";
522 my $url = "http://www.linuxtv.org/download/dvb/firmware/dvb-usb-bluebird-01.fw";
523 my $outfile = "dvb-usb-bluebird-01.fw";
524 my $hash = "658397cb9eba9101af9031302671f49d";
535 my $sourcefile = "download.ashx?file=57";
536 my $url = "http://www.ite.com.tw/EN/Services/$sourcefile";
537 my $hash = "e3f08935158038d385ad382442f4bb2d";
538 my $outfile = "dvb-usb-af9015.fw";
539 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
540 my $fwoffset = 0x25690;
541 my $fwlength = 18725;
542 my ($chunklength, $buf, $rcount);
569 my $url = "http://www.digitaldevices.de/download/";
570 my $file1 = "ngene_15.fw";
571 my $hash1 = "d798d5a757121174f0dbc5f2833c0c85";
572 my $file2 = "ngene_17.fw";
573 my $hash2 = "26b687136e127b8ac24b81e0eeafc20b";
574 my $url2 = "http://l4m-daten.de/downloads/firmware/dvb-s2/linux/all/";
575 my $file3 = "ngene_18.fw";
576 my $hash3 = "ebce3ea769a53e3e0b0197c3b3f127e3";
593 my $firmware = "dvb-usb-az6027-03.fw";
594 my $url = "http://linux.terratec.de/files/TERRATEC_S7/$firmware";
602 my $sourcefile = "LMEBDA_DVBS.sys";
603 my $hash = "fc6017ad01e79890a97ec53bea157ed2";
604 my $outfile = "dvb-usb-lme2510-lg.fw";
605 my $hasho = "caa065d5fdbd2c09ad57b399bbf55cad";
616 my $sourcefile = "US2A0D.sys";
617 my $hash = "b0155a8083fb822a3bd47bc360e74601";
618 my $outfile = "dvb-usb-lme2510c-s7395.fw";
619 my $hasho = "3a3cf1aeebd17b6ddc04cebe131e94cf";
630 my $sourcefile = "LMEBDA_DVBS7395C.sys";
631 my $hash = "7572ae0eb9cdf91baabd7c0ba9e09b31";
632 my $outfile = "dvb-usb-lme2510c-s7395.fw";
633 my $hasho = "90430c5b435eb5c6f88fd44a9d950674";
644 my $url = "http://l4m-daten.de/files/";
645 my $zipfile = "DDTuner.zip";
646 my $hash = "f5a37b9a20a3534997997c0b1382a3e5";
647 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
648 my $drvfile = "DDTuner.sys";
649 my $fwfile = "drxk_a3.mc";
662 my $url = "http://www.wintvcd.co.uk/drivers/";
663 my $zipfile = "HVR-9x0_5_10_325_28153_SIGNED.zip";
664 my $hash = "83ab82e7e9480ec8bf1ae0155ca63c88";
665 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
666 my $drvfile = "HVR-900/emOEM.sys";
667 my $fwfile = "dvb-usb-hauppauge-hvr930c-drxk.fw";
680 my $url = "http://www.linuxtv.org/downloads/firmware/";
681 my $hash = "19000dada8e2741162ccc50cc91fa7f1";
682 my $fwfile = "dvb-usb-terratec-h5-drxk.fw";
693 my $url = "http://ftp.terratec.de/Receiver/Cinergy_HTC_Stick/Updates/History/";
694 my $zipfile = "Cinergy_HTC_Stick_Drv_5.09.1202.00_XP_Vista_7.exe";
695 my $hash = "6722a2442a05423b781721fbc069ed5e";
696 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 0);
697 my $drvfile = "Cinergy HTC Stick/BDA Driver 5.09.1202.00/Windows 32 Bit/emOEM.sys";
698 my $fwfile = "dvb-usb-terratec-htc-stick-drxk.fw";
711 my $url = "http://www.ite.com.tw/uploads/firmware/v3.25.0.0/";
712 my $file1 = "dvb-usb-it9135-01.zip";
713 my $fwfile1 = "dvb-usb-it9135-01.fw";
714 my $hash1 = "02fcf11174eda84745dae7e61c5ff9ba";
715 my $file2 = "dvb-usb-it9135-02.zip";
716 my $fwfile2 = "dvb-usb-it9135-02.fw";
717 my $hash2 = "d5e1437dc24358578e07999475d4cac9";
733 my $sourcefile = "PCTV_460e_reference.zip";
734 my $url = "ftp://ftp.pctvsystems.com/TV/driver/PCTV%2070e%2080e%20100e%20320e%20330e%20800e/";
735 my $hash = "4403de903bf2593464c8d74bbc200a57";
736 my $fwfile = "dvb-fe-tda10071.fw";
737 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
750 my $sourcefile = "PCTV_460e_reference.zip";
751 my $url = "ftp://ftp.pctvsystems.com/TV/driver/PCTV%2070e%2080e%20100e%20320e%20330e%20800e/";
752 my $hash = "4403de903bf2593464c8d74bbc200a57";
753 my $fwfile = "dvb-demod-drxk-pctv.fw";
754 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
767 my $url = "http://steventoth.net/linux/sms1xxx/";
768 my %files = (
776 my $allfiles;
777 foreach my $fwfile (keys %files) {
789 my $sourcefile = "model_111xxx_122xxx_driver_6_0_119_31191_WHQL.zip";
790 my $url = "http://www.hauppauge.de/files/drivers/";
791 my $hash = "76633e7c76b0edee47c3ba18ded99336";
792 my $fwfile = "dvb-demod-si2165.fw";
793 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);
805 my $CRC="\x0A\xCC";
806 my $BLOCKS_MAIN="\x27";
841 my ($sourcefile, $url) = @_;
849 my ($sourcefile, $todir) = @_;
858 my ($sourcefile, $todir) = @_;
864 my ($filename, $hash) = @_;
865 my ($testhash);
876 my ($from, $to) = @_;
882 my ($infile, $offset, $length, $outfile) = @_;
883 my ($chunklength, $buf, $rcount);
903 my ($FH, $infile) = @_;
904 my ($buf);
916 my ($infile,$outfile) =@_;
|
| /linux-4.1.27/scripts/kconfig/ |
| H A D | streamline_config.pl | 36 # Here's what I did with my Debian distribution.
50 my $debugprint = 0;
58 my $config = ".config";
60 my $uname = `uname -r`;
63 my @searchconfigs = (
104 foreach my $conf (@searchconfigs) {
105 my $file = $conf->{"file"};
114 my $exec = $conf->{"exec"};
118 open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file";
119 my @x = <$infile>;
126 my @config_file = read_config;
129 my $localmodconfig = 0;
130 my $localyesconfig = 0;
136 my $ksource = ($ARGV[0] ? $ARGV[0] : '.');
137 my $kconfig = $ARGV[1];
138 my $lsmod_file = $ENV{'LSMOD'};
140 my @makefiles = `find $ksource -name Makefile -or -name Kbuild 2>/dev/null`;
143 my %depends;
144 my %selects;
145 my %prompts;
146 my %objects;
147 my $var;
148 my $iflevel = 0;
149 my @ifdeps;
152 my %read_kconfigs;
155 my ($kconfig) = @_;
157 my $state = "NONE";
158 my $config;
160 my $cont = 0;
161 my $line;
163 my $source = "$ksource/$kconfig";
164 my $last_source = "";
168 my $env = $1;
173 open(my $kinfile, '<', $source) || die "Can't open $kconfig";
192 my $kconfig = $1;
207 for (my $i = 0; $i < $iflevel; $i++) {
223 my $dep = $3;
232 my $conf = $1;
246 my $deps = $1;
251 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
273 my ($line, %vars) = @_;
275 my $process = "";
278 my $start = $1;
279 my $variable = $2;
280 my $var = $3;
295 foreach my $makefile (@makefiles) {
297 my $line = "";
298 my %make_vars;
300 open(my $infile, '<', $makefile) || die "Can't open $makefile";
313 my $objs;
328 foreach my $obj (split /\s+/,$objs) {
333 my @arr;
351 my %modules;
352 my $linfile;
363 my $otype = ( -x $lsmod_file) ? '-|' : '<';
369 my $lsmod;
371 foreach my $dir ( ("/sbin", "/bin", "/usr/sbin", "/usr/bin") ) {
396 my %configs;
397 foreach my $module (keys(%modules)) {
399 my @arr = @{$objects{$module}};
400 foreach my $conf (@arr) {
404 my $c=$conf;
422 my %orig_configs;
423 my $valid = "A-Za-z_0-9";
425 foreach my $line (@config_file) {
433 my $repeat = 1;
435 my $depconfig;
447 my ($p) = @_;
452 my $conf = "CONFIG_" . $1;
486 my ($config, $p) = @_;
488 my $next_config;
493 my $conf = "CONFIG_" . $1;
538 my %process_selects;
548 foreach my $config (keys %configs) {
574 foreach my $config (keys %process_selects) {
594 my %setconfigs;
598 foreach my $line (@config_file) {
633 foreach my $module (keys(%modules)) {
635 my @arr = @{$objects{$module}};
636 foreach my $conf (@arr) {
642 foreach my $conf (@arr) {
|
| /linux-4.1.27/arch/mips/include/asm/mach-ip27/ |
| H A D | topology.h | 10 cnodeid_t p_nodeid; /* my node ID in compact-id-space */
11 nasid_t p_nasid; /* my node ID in numa-as-id-space */
|
| /linux-4.1.27/tools/perf/util/ |
| H A D | rblist.h | 11 * ... my data ...
17 * ... my data ...
|
| H A D | config.c | 507 * get a boolean value (i.e. "[my] var" means "true").
|
| /linux-4.1.27/Documentation/video4linux/ |
| H A D | extract_xc3028.pl | 25 my $debug=0;
29 my ($filename, $hash) = @_;
30 my ($testhash);
46 my ($offset, $length) = @_;
47 my ($chunklength, $buf, $rcount, $out);
65 my $val = shift;
66 my $msb = ($val >> 8) &0xff;
67 my $lsb = $val & 0xff;
74 my $val = shift;
75 my $l3 = ($val >> 24) & 0xff;
76 my $l2 = ($val >> 16) & 0xff;
77 my $l1 = ($val >> 8) & 0xff;
78 my $l0 = $val & 0xff;
85 my $msb_val = shift;
86 my $lsb_val = shift;
87 my $l7 = ($msb_val >> 24) & 0xff;
88 my $l6 = ($msb_val >> 16) & 0xff;
89 my $l5 = ($msb_val >> 8) & 0xff;
90 my $l4 = $msb_val & 0xff;
92 my $l3 = ($lsb_val >> 24) & 0xff;
93 my $l2 = ($lsb_val >> 16) & 0xff;
94 my $l1 = ($lsb_val >> 8) & 0xff;
95 my $l0 = $lsb_val & 0xff;
104 my ($offset, $length) = @_;
105 my $out = get_hunk($offset, $length);
109 for (my $i=0;$i<$length;$i++) {
119 my ($offset, $length) = @_;
120 my $out = get_hunk($offset, $length);
124 for (my $i=0;$i<$length;$i++) {
129 my $i=0;
131 my $size = ord(substr($out,$i,1))*256+ord(substr($out,$i+1,1));
136 for (my $j=0;$j<$size;$j++) {
146 my $out;
147 my $j=0;
148 my $outfile = shift;
149 my $name = shift;
150 my $version = shift;
151 my $nr_desc = shift;
912 my $out;
913 my $j=0;
914 my $outfile = shift;
915 my $name = shift;
916 my $version = shift;
917 my $nr_desc = shift;
1683 my $sourcefile_24 = "UDXTTM6000.sys";
1684 my $hash_24 = "cb9deb5508a5e150af2880f5b0066d78";
1685 my $outfile_24 = "xc3028-v24.fw";
1686 my $name_24 = "xc2028 firmware";
1687 my $version_24 = 516;
1688 my $nr_desc_24 = 77;
1689 my $out;
1691 my $sourcefile_27 = "hcw85bda.sys";
1692 my $hash_27 = "0e44dbf63bb0169d57446aec21881ff2";
1693 my $outfile_27 = "xc3028-v27.fw";
1694 my $name_27 = "xc2028 firmware";
1695 my $version_27 = 519;
1696 my $nr_desc_27 = 80;
1697 my $out;
|
| /linux-4.1.27/arch/arm/crypto/ |
| H A D | sha256-armv4.pl | 65 my ($i,$a,$b,$c,$d,$e,$f,$g,$h) = @_;
133 my ($i,$a,$b,$c,$d,$e,$f,$g,$h) = @_;
284 my @X=map("q$_",(0..3));
285 my ($T0,$T1,$T2,$T3,$T4,$T5)=("q8","q9","q10","q11","d24","d25");
286 my $Xfer=$t4;
287 my $j=0;
293 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://; $opcode =~ s/_/\./;
294 my $arg = pop;
301 my $body = shift;
302 my @insns = (&$body,&$body,&$body,&$body);
303 my ($a,$b,$c,$d,$e,$f,$g,$h);
402 my $body = shift;
403 my @insns = (&$body,&$body,&$body,&$body);
404 my ($a,$b,$c,$d,$e,$f,$g,$h);
578 my ($ABCD,$EFGH,$abcd)=map("q$_",(0..2));
579 my @MSG=map("q$_",(8..11));
580 my ($W0,$W1,$ABCD_SAVE,$EFGH_SAVE)=map("q$_",(12..15));
581 my $Ktbl="r3";
682 { my %opcode = (
687 my ($mnemonic,$arg)=@_;
690 my $word = $opcode{$mnemonic}|(($1&7)<<13)|(($1&8)<<19)
|
| H A D | bsaes-armv7.pl | 53 my ($inp,$out,$len,$key)=("r0","r1","r2","r3");
54 my @XMM=map("q$_",(0..15));
57 my ($key,$rounds,$const)=("r4","r5","r6");
65 my @b=@_[0..7];
66 my @t=@_[8..11];
67 my @s=@_[12..15];
76 my @b=@_[0..7];
99 my @b=@_[0..7];
120 my @b=@_[0..7];
121 my @t=@_[8..11];
122 my @s=@_[12..15];
129 my @b=@_[5,1,2,6,3,7,0,4];
149 my @b=@_[2,5,7,3,6,1,0,4];
173 my ($x0,$x1,$y0,$y1,$t0,$t1)=@_;
187 my ($x0,$x1,$y0,$y1,$t0)=@_;
201 my ($x0,$x1,$y0,$y1,$t0,
221 my @x=@_[0..7];
222 my @y=@_[8..11];
223 my @t=@_[12..15];
262 my @x=@_[0..7];
263 my @t=@_[8..11];
264 my @s=@_[12..15];
340 my @x=@_[0..7];
341 my @t=@_[8..11];
342 my $mask=pop;
378 my @x=@_[0..7];
379 my @t=@_[8..15];
380 my $inv=@_[16]; # optional
443 my @x=@_[0..7];
444 my @t=@_[8..15];
474 my @y = @x[7,5,0,2,1,3,4,6];
596 my @x=@_[0..7];
597 my @t=@_[8..15];
644 my ($a,$b,$n,$mask,$t)=@_;
655 my ($a0,$b0,$a1,$b1,$n,$mask,$t0,$t1)=@_;
673 my @x=reverse(@_[0..7]);
674 my ($t0,$t1,$t2,$t3)=@_[8..11];
896 my ($out,$inp,$rounds,$const)=("r12","r4","r5","r6");
899 my @x=reverse(@_[0..7]);
900 my ($bs0,$bs1,$bs2,$t2,$t3)=@_[8..12];
1084 my ($inp,$out,$len,$key, $ivp,$fp,$rounds)=map("r$_",(0..3,8..10));
1085 my ($keysched)=("sp");
1360 my ($inp,$out,$len,$key, $ctr,$fp,$rounds)=(map("r$_",(0..3,8..10)));
1361 my $const = "r6"; # shared with _bsaes_encrypt8_alt
1362 my $keysched = "sp";
1591 my ($inp,$out,$len,$key,$rounds,$magic,$fp)=(map("r$_",(7..10,1..3)));
1592 my $const="r6"; # returned by _bsaes_key_convert
1593 my $twmask=@XMM[5];
1594 my @T=@XMM[6..7];
|
| /linux-4.1.27/drivers/staging/fbtft/ |
| H A D | fb_hx8353d.c | 94 #define my (1 << 7) macro
109 write_reg(par, 0x36, mx | my | (par->bgr << 3)); set_var()
112 write_reg(par, 0x36, my | mv | (par->bgr << 3)); set_var()
|
| /linux-4.1.27/drivers/leds/ |
| H A D | leds-rb532.c | 7 * rb-diag.c (my own standalone driver for both LED and
|
| /linux-4.1.27/drivers/ide/ |
| H A D | cy82c693.c | 32 * the value above was tested on my machine and it seems to work okay
70 * I'm not absolutely sure what this does, but it solved my problem cy82c693_set_dma_mode()
72 * my IDE driver at the same time :-) cy82c693_set_dma_mode()
|
| H A D | dtc2278.c | 32 * /dev/hd.. ) for the drives connected to the EIDE interface. (I get my
|
| H A D | ali14xx.c | 20 * I've only tested this on my system, which only has one disk. I posted
|
| /linux-4.1.27/arch/mips/include/asm/mach-cavium-octeon/ |
| H A D | kernel-entry-init.h | 89 # Get my core id
110 # Get my GP from the global variable
113 # Get my SP from the global variable
|
| /linux-4.1.27/drivers/scsi/ |
| H A D | t128.h | 32 * equivalent (my sample board had part second sourced from ZILOG).
47 * Note : my sample board *WAS NOT* populated with the SRAM, so this
|
| H A D | sr_vendor.c | 7 * be exact: there is'nt anything in my draft copy).
9 * Aug 1997: Ha! Got a SCSI-3 cdrom spec across my fingers. SCSI-3 does
90 /* my NEC 3x returns the read-raw data if a read-raw sr_vendor_init()
|
| H A D | imm.h | 39 * Thirty minutes of further coding results in EPP working on my machine.
|
| H A D | mac_scsi.c | 166 XXX: Since bus errors in the PDMA routines never happen on my
|
| H A D | t128.c | 44 * T128/T128F jumper/dipswitch settings (note : on my sample, the switches
|
| H A D | wd7000.c | 20 * the 3.36 Owner's Manual, my latest reference) by the same method as
55 * More to my liking would be a LILO boot command line specification, such
61 * nomenclature describing WD7000's. To the best of my knowledge, the
89 * At the time of my documentation, the -?X boards were "future" products,
479 * (notably, get/set unsolicited interrupt status) in my copy of the OEM
|
| H A D | qlogicfas408.c | 15 help respectively, and for suffering through my foolishness during the
|
| H A D | in2000.h | 38 #define FAST_READ_IO /* No problems with these on my machine */
|
| /linux-4.1.27/arch/alpha/include/uapi/asm/ |
| H A D | fpu.h | 85 * Digital Unix engineers receive my thanks for not defining the
87 * receive my thanks for making all the not-implemented fpcr bits
|
| /linux-4.1.27/drivers/staging/comedi/drivers/ |
| H A D | jr3_pci.c | 178 s16 my; member in struct:six_axis_t
189 set_s16(&channel->full_scale.my, full_scale.my); set_full_scales()
203 result.my = get_s16(&channel->min_full_scale.my); get_min_full_scales()
217 result.my = get_s16(&channel->max_full_scale.my); get_max_full_scales()
250 val = get_s16(&spriv->channel->filter[filter].my); jr3_pci_ai_read_chan()
549 spriv->range[4].range.min = -get_s16(&fs->my) * 100; jr3_pci_poll_subdevice()
550 spriv->range[4].range.max = get_s16(&fs->my) * 100; jr3_pci_poll_subdevice()
575 set_s16(&channel->offsets.my, 0); jr3_pci_poll_subdevice()
|
| H A D | mpc624.c | 127 /* but my MPC-624 actually seems to have a range of 2.02 */
136 /* but my MPC-624 actually seems to have a range of 20.2 */
|
| H A D | adl_pci6208.c | 23 * Author: nsyeow <nsyeow@pd.jaring.my>
|
| H A D | cb_pcimdda.c | 64 file, but since that isn't my code, I didn't want to significantly
|
| H A D | quatech_daqp_cs.c | 300 /* Reset any pending interrupts (my card has a tendency to require daqp_ai_insn_read()
607 /* Reset any pending interrupts (my card has a tendency to require daqp_ai_cmd()
|
| H A D | jr3_pci.h | 58 s32 my; member in struct:force_array
72 s32 my; member in struct:six_axis_array
96 my = 0x0010, enumerator in enum:__anon9756
|
| H A D | das16m1.c | 38 handler, and it took my computer ~470 microseconds to pull 512
|
| /linux-4.1.27/arch/um/include/shared/ |
| H A D | user.h | 14 * copying too much infrastructure for my taste, so userspace files
|
| /linux-4.1.27/arch/mips/include/asm/ |
| H A D | prefetch.h | 20 * Hell (and the book on my shelf I can't open ...) know what the R8000 does.
|
| H A D | cpu.h | 20 I don't have docs for all the previous processors, but my impression is
|
| /linux-4.1.27/include/linux/ |
| H A D | lguest_launcher.h | 15 * device drivers. And one day when everyone uses virtio, my plan will be
|
| H A D | jhash.h | 23 * any bugs present are my fault.
|
| /linux-4.1.27/drivers/tty/ipwireless/ |
| H A D | tty.c | 290 unsigned int my = tty->control_lines; get_control_lines() local
293 if (my & IPW_CONTROL_LINE_RTS) get_control_lines()
295 if (my & IPW_CONTROL_LINE_DTR) get_control_lines()
297 if (my & IPW_CONTROL_LINE_CTS) get_control_lines()
299 if (my & IPW_CONTROL_LINE_DSR) get_control_lines()
301 if (my & IPW_CONTROL_LINE_DCD) get_control_lines()
|
| /linux-4.1.27/drivers/pci/hotplug/ |
| H A D | rpaphp_core.c | 200 * my-drc-index property. Next obtain the DRC list from it's parent. Use
201 * the my-drc-index for correlation, and obtain the requested properties.
212 my_index = of_get_property(dn, "ibm,my-drc-index", NULL); rpaphp_get_drc_props()
226 /* Iterate through parent properties, looking for my-drc-index */ rpaphp_get_drc_props()
|
| /linux-4.1.27/arch/unicore32/kernel/ |
| H A D | debug-macro.S | 40 /* Uartclk = MCLK/ 2, The MCLK on my board is 3686400 * 40 */
|
| /linux-4.1.27/fs/nfsd/ |
| H A D | stats.c | 65 /* show my rpc info */ nfsd_proc_show()
|
| /linux-4.1.27/include/net/irda/ |
| H A D | af_irda.h | 42 __u32 saddr; /* my local address */
|
| /linux-4.1.27/net/irda/irnet/ |
| H A D | irnet.h | 72 * o Some other bits from the kernel and my drivers...
76 * Thanks to all my colleagues in HP for helping me. In particular,
80 * Thanks to Alan Cox for answering lot's of my stupid questions, and
81 * to Paul Mackerras answering my questions on how to best integrate
123 * the time it takes to fire up pppd on my P133...
435 __u32 saddr; /* my local IrDA address */
|
| /linux-4.1.27/drivers/net/phy/ |
| H A D | qsemi.c | 71 * to 0, and bit 7, which doesn't specify. However, my qs6612_config_init()
|
| H A D | lxt.c | 48 /* The Level one LXT971 is used on some of my custom boards */
|
| /linux-4.1.27/arch/tile/lib/ |
| H A D | spinlock_64.c | 32 * Wait until the high bits (current) match my ticket.
|
| H A D | spinlock_32.c | 193 /* Take out the next ticket and extract my ticket value. */ arch_write_lock()
|
| /linux-4.1.27/include/uapi/linux/can/ |
| H A D | raw.h | 58 CAN_RAW_RECV_OWN_MSGS, /* receive my own msgs (default:off) */
|
| /linux-4.1.27/include/uapi/linux/netfilter/ |
| H A D | x_tables.h | 89 * ip6t_entry and arpt_entry. This sucks, and it is a hack. It will be my
|
| /linux-4.1.27/arch/powerpc/include/asm/ |
| H A D | pte-40x.h | 60 /* Until my rework is finished, 40x still needs atomic PTE updates */
|
| H A D | pte-8xx.h | 60 /* Until my rework is finished, 8xx still needs atomic PTE updates */
|
| /linux-4.1.27/arch/m68k/include/asm/ |
| H A D | bootstd.h | 23 #define __BN_gethwaddr 12 /* get the hardware address of my interfaces */
|
| H A D | elf.h | 58 passed in %a1. Although my copy of the ABI has no such statement, it
|
| H A D | mac_iop.h | 6 * rewriting (in fact my changes make this a bit more readable, IMHO) but some
|
| H A D | dvma.h | 195 /* Yes, I hack a lot of elisp in my spare time... */
|
| /linux-4.1.27/arch/arm/common/ |
| H A D | vlock.S | 70 strb r1, [r0, #VLOCK_OWNER_OFFSET] @ submit my vote
|
| /linux-4.1.27/arch/arm/mach-ep93xx/ |
| H A D | dma.c | 39 * On the EP93xx chip the following peripherals my be allocated to the 10
|
| /linux-4.1.27/net/ipv4/netfilter/ |
| H A D | nf_nat_masquerade_ipv4.c | 55 pr_info("%s ate my IP address\n", out->name); nf_nat_masquerade_ipv4()
|
| /linux-4.1.27/drivers/net/ethernet/i825xx/ |
| H A D | lasi_82596.c | 21 full rewrite can be my guest.
52 Most of my modifications relate to the braindead big-endian
|
| /linux-4.1.27/kernel/locking/ |
| H A D | rwsem-spinlock.c | 146 /* set up my own style of waitqueue */ __down_read()
202 /* set up my own style of waitqueue */ __down_write_nested()
|
| /linux-4.1.27/net/rose/ |
| H A D | rose_link.c | 97 * Interface to ax25_send_frame. Changes my level 2 callsign depending
120 * Interface to ax25_link_up. Changes my level 2 callsign depending
|
| /linux-4.1.27/drivers/input/touchscreen/ |
| H A D | touchit213.c | 64 * On my Sahara Touch-IT 213 I have observed x values from 0 to 0x7f0
|
| /linux-4.1.27/drivers/md/ |
| H A D | dm-exception-store.c | 64 * 'dm-exception-store-<type_name>' is too long of a name in my
|
| /linux-4.1.27/drivers/media/radio/ |
| H A D | radio-aimslab.c | 17 * to indicate that (on my card, at least) the frequency setting isn't
|
| H A D | radio-typhoon.c | 11 * sounds mono to me (even with the Win/DOS drivers). Maybe it's my
|
| H A D | radio-sf16fmi.c | 230 /* ladis: this is my card. does any other types exist? */
|
| /linux-4.1.27/drivers/media/usb/dvb-usb/ |
| H A D | a800.c | 8 * - Glen Harris who suffered from my mistakes during development.
|
| H A D | nova-t-usb2.c | 132 /* this is a complete guess, but works for my box */ nova_t_read_mac_address()
|
| H A D | friio.c | 272 /* my Friio White returns 0xffff. */ friio_initialize()
290 /* my Friio White returns 0xffff again. */ friio_initialize()
|
| H A D | vp702x.c | 259 /* remote control stuff (does not work with my box) */ vp702x_rc_query()
|
| /linux-4.1.27/drivers/scsi/sym53c8xx_2/ |
| H A D | sym53c8xx.h | 211 * Btw, all my testings of residuals have succeeded.
|
| /linux-4.1.27/drivers/staging/lustre/include/linux/lnet/ |
| H A D | ptllnd_wire.h | 84 __u16 ptlm_version; /* this is my version number */
|
| H A D | lib-types.h | 409 lnet_ni_status_t *ni_status; /* my health status */
512 __u32 lrn_net; /* my net number */
516 struct list_head rbp_bufs; /* my free buffer pool */
|
| /linux-4.1.27/drivers/rtc/ |
| H A D | rtc-efi.c | 160 * As of EFI 0.92 with the firmware I have on my efi_set_alarm()
|
| H A D | rtc-sa1100.c | 256 * Apparently this doesn't work, at least for my SA1110 rev 5. sa1100_rtc_probe()
|
| /linux-4.1.27/drivers/s390/net/ |
| H A D | ctcm_mpc.h | 238 /* --- This is the END my friend --- */
|
| H A D | ctcm_fsms.h | 356 /* --- This is the END my friend --- */
|
| /linux-4.1.27/drivers/staging/sm750fb/ |
| H A D | ddk750_mode.c | 163 /* May a hardware bug or just my test chip (not confirmed). programModeRegisters()
|
| /linux-4.1.27/drivers/staging/lustre/lnet/klnds/socklnd/ |
| H A D | socklnd.h | 129 __u64 ksnn_incarnation; /* my epoch */
149 /* hash table of all my known peers */
267 __u32 ksnc_myipaddr; /* my IP */
319 __u32 ksnr_myipaddr; /* my IP */
|
| H A D | socklnd.c | 393 /* peer's routelist takes over my ref on 'route' */ ksocknal_add_route_locked()
482 /* peer table takes my ref on peer */ ksocknal_add_peer()
1134 * table (which takes my ref) */ ksocknal_create_conn()
1166 * NB recv_hello may have returned EPROTO to signal my peer ksocknal_create_conn()
1236 * by routes in my peer to match my own route entries so I don't ksocknal_create_conn()
1248 conn->ksnc_peer = peer; /* conn takes my ref on peer */ ksocknal_create_conn()
1318 /* NB my callbacks block while I hold ksnd_global_lock */ ksocknal_create_conn()
|
| H A D | socklnd_lib-linux.c | 195 * on, introducing delay in completing zero-copy sends in my ksocknal_lib_eager_ack()
706 * return -ENOMEM to get my caller to retry ksocknal_lib_memory_pressure()
|
| H A D | socklnd_cb.c | 1450 /* drop my ref */ ksocknal_scheduler()
1522 /* drop my ref */ ksocknal_scheduler()
1741 /* unknown protocol from peer, tell peer my protocol */ ksocknal_recv_hello()
2608 /* Reduce my timeout if I rescheduled ENOMEM conns. ksocknal_reaper()
2610 * if any go back on my enomem list. */ ksocknal_reaper()
|
| /linux-4.1.27/arch/x86/math-emu/ |
| H A D | poly.h | 103 /* This is faster in a loop on my 386 than using the "neg" instruction. */ negate_Xsig()
|
| /linux-4.1.27/arch/sparc/include/asm/ |
| H A D | spinlock_32.h | 63 * XXX This might create some problems with my dual spinlock
|
| /linux-4.1.27/arch/microblaze/kernel/ |
| H A D | mcount.S | 158 /* MS: return value from ftrace_return_to_handler is my returning addr
|
| /linux-4.1.27/drivers/hid/ |
| H A D | hid-picolcd_cir.c | 62 * for space - is it a matter of IR chip? (pulse for my TSOP2236) picolcd_raw_cir()
|
| H A D | hid-roccat-kone.c | 303 /* I need to get my data in one piece */ kone_sysfs_write_settings()
363 /* I need to get my data in one piece */ kone_sysfs_write_profilex()
|
| /linux-4.1.27/drivers/video/fbdev/ |
| H A D | sunxvr2500.c | 164 * XXX with depth of 32 on my XVR-2500 which is clearly not s3d_pci_register()
|
| H A D | amifb.c | 275 so that's my motivation.
2056 short mx, my; ami_set_sprite() local
2062 my = par->crsr.crsr_y - par->crsr.spot_y; ami_set_sprite()
2065 my -= par->yoffset; ami_set_sprite()
2069 my > -(short)par->crsr.height && my < par->yres) { ami_set_sprite()
2072 vs = par->diwstrt_v + (my << par->line_shift); ami_set_sprite()
|
| /linux-4.1.27/drivers/watchdog/ |
| H A D | max63xx_wdt.c | 49 * offers. Typical values on my board are slightly over twice as long
|
| H A D | cpu5wdt.c | 240 pr_info("sorry, was my fault\n"); cpu5wdt_init()
|
| H A D | iTCO_vendor_support.c | 130 * motherboards, such as my X6DHR-8G2 (SuperServer 6014H-82).
|
| /linux-4.1.27/arch/mips/pci/ |
| H A D | fixup-sni.c | 40 * seem to be a documentation error. At least on my RM200C the Cirrus
|
| /linux-4.1.27/arch/mn10300/kernel/ |
| H A D | process.c | 178 c_regs->epsw &= ~EPSW_FE; /* my FPU */ copy_thread()
|
| /linux-4.1.27/arch/arm/kernel/ |
| H A D | dma-isa.c | 198 * Is this correct? According to my documentation, it isa_init_dma()
|
| /linux-4.1.27/arch/alpha/lib/ |
| H A D | ev6-copy_page.S | 56 destination pages are in the dcache, but it is my guess that this is
|
| /linux-4.1.27/tools/virtio/virtio-trace/ |
| H A D | trace-agent-rw.c | 101 /* bind my thread to cpu_num by assigning zero to the first argument */ bind_cpu()
|
| /linux-4.1.27/drivers/media/platform/s5p-tv/ |
| H A D | mixer.h | 211 /** auxiliary resources used my mixer */
266 /** auxiliary resources used my mixer */
|
| /linux-4.1.27/drivers/tty/ |
| H A D | tty_ldsem.c | 206 /* set up my own style of waitqueue */ down_read_failed()
275 /* set up my own style of waitqueue */ down_write_failed()
|
| /linux-4.1.27/drivers/usb/serial/ |
| H A D | ark3116.c | 703 * through the MCR. Since the pins are not available on my hardware,
712 * I got my ark3116 as part of a mobile phone adapter cable. On the
726 * On my chip, all signals seem to be 3.3V, but 5V tolerant. But that
|
| /linux-4.1.27/drivers/media/usb/usbvision/ |
| H A D | usbvision.h | 192 #define YUV_TO_RGB_BY_THE_BOOK(my, mu, mv, mr, mg, mb) { \
194 mm_y = (my) - 16; \
|
| /linux-4.1.27/drivers/scsi/mvsas/ |
| H A D | mv_defs.h | 306 PHYR_ADDR_LO = 0x04, /* my SAS address (low) */
307 PHYR_ADDR_HI = 0x08, /* my SAS address (high) */
|
| /linux-4.1.27/drivers/char/tpm/ |
| H A D | tpm_infineon.c | 423 /* publish my base address and request region */ tpm_inf_pnp_probe()
446 /* publish my base address and request region */ tpm_inf_pnp_probe()
|
| /linux-4.1.27/drivers/isdn/hardware/eicon/ |
| H A D | io.h | 137 dword ForceLaw; /* VoiceCoding - default:0, a-law: 1, my-law: 2 */
|
| /linux-4.1.27/drivers/net/appletalk/ |
| H A D | ltpc.c | 22 * talk to the card are guesswork on my part, so use at your own risk!
24 * This is my first try at writing Linux networking code, and is also
28 * This is a loadable kernel module which seems to work at my site
56 * I welcome comments and suggestions. This is my first try at Linux
|
| /linux-4.1.27/drivers/media/usb/dvb-usb-v2/ |
| H A D | anysee.h | 25 * In my understanding it should be implemented by making own module
|
| /linux-4.1.27/drivers/scsi/dpt/ |
| H A D | osd_util.h | 339 /* what is my thread id */
|
| /linux-4.1.27/drivers/staging/iio/accel/ |
| H A D | sca3000.h | 19 * Free fall detection mode - supported but untested as I'm not droping my
|
| /linux-4.1.27/drivers/pwm/ |
| H A D | pwm-imx.c | 72 * I cannot connect a scope on my device to the PWM line and imx_pwm_config_v1()
|
| /linux-4.1.27/arch/um/os-Linux/ |
| H A D | signal.c | 52 * profiling is not thread-safe, then that is not my problem. We can disable
|
| /linux-4.1.27/drivers/block/ |
| H A D | smart1,2.h | 28 * Compaq SMART-1 and SMART-2 controllers. To the best of my knowledge,
|
| /linux-4.1.27/drivers/char/ |
| H A D | efirtc.c | 225 * As of EFI 0.92 with the firmware I have on my efi_rtc_ioctl()
|
| H A D | toshiba.c | 394 the bx register holds 0xe6f5. However my code is producing tosh_get_machine_id()
|
| /linux-4.1.27/drivers/thunderbolt/ |
| H A D | tunnel_pci.c | 53 * my thunderbolt devices). Therefore at most ONE path per device may be
|
| /linux-4.1.27/include/net/netfilter/ |
| H A D | nf_conntrack.h | 89 /* These are my tuples; original and reply */
|
| /linux-4.1.27/arch/powerpc/kvm/ |
| H A D | e500.h | 91 /* Minimum and maximum address mapped my TLB1 */
|
| /linux-4.1.27/fs/ceph/ |
| H A D | snap.c | 325 /* do i actually need to update? not if my context seq build_snap_context()
326 matches realm seq, and my parents' does to. (this works build_snap_context()
361 /* include any of parent's snaps occurring _after_ my build_snap_context()
362 parent became my parent */ build_snap_context()
|
| /linux-4.1.27/net/netfilter/ |
| H A D | xt_limit.c | 37 /* Rusty: This is my (non-mathematically-inclined) understanding of
|
| /linux-4.1.27/sound/firewire/fireworks/ |
| H A D | fireworks_command.c | 335 * parameters are not immediately retrieved by get command. In my command_set_clock()
|
| /linux-4.1.27/sound/pci/cs46xx/ |
| H A D | cs46xx_dsp_task_types.h | 22 * provided by Tom Woller at Cirrus (my only
|
| /linux-4.1.27/sound/soc/au1x/ |
| H A D | dbdma2.c | 62 * These settings are somewhat okay, at least on my machine audio plays
|
| H A D | psc-i2s.c | 140 /* Configure PSC late: on my devel systems the codec is I2S master and
|
| /linux-4.1.27/include/linux/ceph/ |
| H A D | libceph.h | 30 #define CEPH_OPT_MYIP (1<<2) /* specified my ip */
|
| H A D | messenger.h | 55 struct ceph_entity_inst inst; /* my name+address */
|
| /linux-4.1.27/sound/soc/sh/ |
| H A D | dma-sh7760.c | 287 * fast-playback sound in my test application (ScummVM) camelot_pos()
|
| /linux-4.1.27/sound/oss/ |
| H A D | sb_ess.c | 77 * keep track of my latest insights about his here. If you have additional info,
91 * controls. To my surprise the ES888 documentation (1/14/96) claims that
103 * into ES1888 mode. This means that it claims IRQ 11, which happens to be my
105 * after rebooting 0x7f already was 0x05, the value of my choice: the BIOS
127 * of my ES1887. It resulted however in bad detection of 1688 (reported by mail)
930 * fact that my BIOS wants the same. But suppose someone's BIOS
1163 * the probing of bit 2 is my idea. The ES1887 docs want me to probe
|
| H A D | aedsp16.c | 114 /proc/dma. I can suppose this is a bug of AEDSP16. I know my hardware so
137 Just to let you know got my Audio Excel (emulating a MSS) working
138 with my original SB16, thanks for the driver!
|
| /linux-4.1.27/drivers/lguest/x86/ |
| H A D | switcher_32.S | 12 * Lguest is meant to be simple: my rule of thumb is that 1% more LOC must
60 * But this limerick is hurting my head.
|
| /linux-4.1.27/drivers/net/fddi/skfp/h/ |
| H A D | cmtdef.h | 247 #define RM_MY_BEACON 3 /* recvd my beacon MAC */
249 #define RM_MY_CLAIM 5 /* recvd my claim MAC */
|
| H A D | smt.h | 166 #define SMT_ST_MY_DUPA (1<<0) /* my station detected dupl. */
167 #define SMT_ST_UNA_DUPA (1<<1) /* my UNA detected duplicate */
|
| /linux-4.1.27/drivers/staging/lustre/lnet/lnet/ |
| H A D | lib-msg.c | 341 /* Now it's safe to drop my caller's ref */ lnet_msg_detach_md()
520 * anything, so my finalizing friends can chomp along too */ lnet_finalize()
|
| H A D | lib-move.c | 674 LASSERT(rc < 0); /* required by my callers */ lnet_ni_eager_recv()
1339 msg->msg_txpeer = lp; /* msg takes my ref on lp */ lnet_send()
1799 CERROR("%s, src %s: Bad dest nid %s (it's my nid but on a different network)\n", lnet_parse()
2232 /* NB I trusted my peer to RDMA. If she tells me she's written beyond lnet_set_reply_msg_len()
2233 * the end of my buffer, I might as well be dead. */ lnet_set_reply_msg_len()
|
| H A D | acceptor.c | 275 * query. I send back my current version to tell her I'm lnet_accept()
|
| /linux-4.1.27/arch/m68k/mac/ |
| H A D | iop.c | 31 * Sending _definitely_ works; my adb-bus.c mods can send
313 printk("IOP: oh my god, they killed the ISM IOP!\n"); iop_register_interrupts()
|
| /linux-4.1.27/fs/afs/ |
| H A D | rxrpc.c | 19 static struct socket *afs_socket; /* my RxRPC socket */
614 * - mustn't touch the call descriptor as the call my have completed by the
|
| /linux-4.1.27/drivers/i2c/busses/ |
| H A D | i2c-iop3xx.c | 242 /* avoid writing to my slave address (hangs on 80331), iop3xx_i2c_send_target_addr()
|
| /linux-4.1.27/drivers/mtd/maps/ |
| H A D | ichxrom.c | 183 /* Map the firmware hub into my address space. */ ichxrom_init_one()
|
| H A D | esb2rom.c | 250 /* Map the firmware hub into my address space. */ esb2rom_init_one()
|
| /linux-4.1.27/drivers/net/wimax/i2400m/ |
| H A D | i2400m-usb.h | 123 * if (edc_inc(&my->edc, MAX_ERRORS, MAX_TIMEFRAME))
|
| /linux-4.1.27/drivers/media/usb/stk1160/ |
| H A D | stk1160-core.c | 360 * To the best of my knowledge stk1160 boards only have stk1160_probe()
|
| /linux-4.1.27/arch/x86/kernel/cpu/microcode/ |
| H A D | intel.c | 46 * to be 0 on my machine which is why it worked even when I
|
| H A D | core.c | 46 * to be 0 on my machine which is why it worked even when I
|
| /linux-4.1.27/arch/sparc/kernel/ |
| H A D | wuf.S | 304 /* Did I ever tell you about my window lobotomy?
|
| H A D | prom_64.c | 69 * As an example, the boot device on my workstation has a full path:
|
| /linux-4.1.27/arch/sparc/mm/ |
| H A D | hypersparc.S | 164 /* Verified, my ass... */
|
| /linux-4.1.27/arch/tile/kernel/ |
| H A D | signal.c | 260 * here. In my experience this just turns weird crashes into do_signal()
|
| /linux-4.1.27/drivers/usb/usbip/ |
| H A D | stub_dev.c | 349 /* ok, this is my device */ stub_probe()
|
| /linux-4.1.27/drivers/video/backlight/ |
| H A D | as3711_bl.c | 394 * unsupported on my hardware. Anyone, wishing to use any of those modes as3711_backlight_probe()
|
| /linux-4.1.27/kernel/sched/ |
| H A D | clock.c | 255 * On 64bit the read of [my]scd->clock is atomic versus the sched_clock_remote()
|
| /linux-4.1.27/lib/ |
| H A D | textsearch.c | 92 * panic("Oh my god, dancing chickens at %d\n", pos);
|
| /linux-4.1.27/scripts/kconfig/lxdialog/ |
| H A D | menubox.c | 34 * *) Formerly if I selected something my scrolling would be broken because
|
| /linux-4.1.27/security/selinux/ss/ |
| H A D | ebitmap.c | 363 "match my size %Zd (high bit was %d)\n", ebitmap_read()
|
| /linux-4.1.27/drivers/hwmon/ |
| H A D | via686a.c | 194 * numbers on my machine (ie. they agree with what my BIOS tells me).
200 * finding my typos in this formula!)
|
| /linux-4.1.27/drivers/staging/lustre/lnet/klnds/o2iblnd/ |
| H A D | o2iblnd.h | 333 __u64 ibn_incarnation; /* my epoch */
377 /* hash table of all my known peers */
451 __u16 ibm_version; /* this is my version number */
|
| /linux-4.1.27/arch/powerpc/kernel/ |
| H A D | vio.c | 114 * ibm,my-dma-window OF property vio_cmo_num_OF_devs()
122 prop = of_find_property(of_node, "ibm,my-dma-window", for_each_child_of_node()
729 "ibm,my-dma-window", NULL)) vio_cmo_bus_probe()
1179 "ibm,my-dma-window", NULL); vio_build_iommu_table()
1424 if (of_get_property(viodev->dev.of_node, "ibm,my-dma-window", NULL)) { vio_register_device_node()
|
| /linux-4.1.27/net/ceph/ |
| H A D | messenger.c | 2015 dout("process_banner learned my addr is %s\n", process_banner()
2035 " my %llx < server's %llx, missing %llx\n", process_connect()
2045 " my %d != server's %d\n", process_connect()
2104 dout("process_connect got RETRY_SESSION my seq %u, peer %u\n", process_connect()
2120 dout("process_connect got RETRY_GLOBAL my %u peer_gseq %u\n", process_connect()
2136 " my required %llx > server's %llx, need %llx\n", process_connect()
|
| /linux-4.1.27/drivers/net/ethernet/smsc/ |
| H A D | smc9194.c | 836 . o print out my vanity message if not done so already
840 . o set up my private data
841 . o configure the dev structure with my subroutines
|
| H A D | smc911x.c | 965 /* Restart auto-negotiation process in order to advertise my caps */ smc911x_phy_configure()
1779 * o print out my vanity message if not done so already
1783 * o set up my private data
1784 * o configure the dev structure with my subroutines
|
| H A D | smc91x.c | 1129 /* Restart auto-negotiation process in order to advertise my caps */ smc_phy_configure()
1850 * o print out my vanity message if not done so already
1854 * o set up my private data
1855 * o configure the dev structure with my subroutines
|
| /linux-4.1.27/drivers/staging/lustre/lnet/selftest/ |
| H A D | framework.c | 319 /* my callers must finish all RPCs before shutting me down */ sfw_client_rpc_fini()
789 LASSERT(dests != NULL); /* my pages are within KVM always */ sfw_add_test_instance()
987 * - my batch is still active; no one can run it again now. sfw_run_test()
|
| /linux-4.1.27/drivers/media/i2c/ |
| H A D | bt819.c | 174 Bug in the bt819 stepping on my board? bt819_init()
|
| /linux-4.1.27/drivers/media/i2c/cx25840/ |
| H A D | cx25840-audio.c | 490 * this should be 19, but in my testing that was 4dB too loud */ set_volume()
|
| /linux-4.1.27/drivers/media/pci/cx18/ |
| H A D | cx18-av-audio.c | 351 * this should be 19, but in my testing that was 4dB too loud */ set_volume()
|
| /linux-4.1.27/drivers/net/wireless/ath/ath9k/ |
| H A D | common-spectral.c | 261 * (on my ar9220 to value 0x01002310) ath9k_cmn_spectral_scan_trigger()
|
| /linux-4.1.27/drivers/net/fddi/skfp/ |
| H A D | smt.c | 585 /* set my UNA */ smt_received_pack()
589 DB_SMT("SMT : updated my UNA = %s\n", smt_received_pack()
643 /* set my DNA */ smt_received_pack()
647 DB_SMT("SMT : updated my DNA\n",0,0) ; smt_received_pack()
|
| /linux-4.1.27/drivers/net/hamradio/ |
| H A D | bpqether.c | 44 * protocol stack and added my own
|
| H A D | scc.c | 62 1994-09-13 started to write the driver, rescued most of my own
66 though. The first version I put my hands on was sccdrv1.3
115 the version number. Just replace my callsign in
1440 * Damn, where is my Z8530 programming manual...? scc_start_calibrate()
|
| /linux-4.1.27/drivers/net/wireless/orinoco/ |
| H A D | orinoco_plx.c | 49 * first byte following the CIS. In my case (which may not have any
|
| /linux-4.1.27/drivers/net/wireless/brcm80211/brcmfmac/ |
| H A D | p2p.c | 867 brcmf_dbg(INFO, "Found my Listen Channel %d\n", listen_channel); brcmf_p2p_find_listen_channel()
894 /* find my listen channel */ brcmf_p2p_scan_prep()
1182 /* listen on my listen channel */ brcmf_p2p_af_searching_channel()
1314 /* if sa(peer) addr is less than da(my) addr, then this device brcmf_p2p_gon_req_collision()
|
| /linux-4.1.27/drivers/gpu/drm/ |
| H A D | drm_fops.c | 439 /* drop the reference held my the minor */ drm_release()
|
| /linux-4.1.27/drivers/input/misc/ |
| H A D | powermate.c | 13 * for one full rotation. Testing with my High Speed Rotation Actuator (ok, it was
|
| /linux-4.1.27/drivers/cpufreq/ |
| H A D | speedstep-centrino.c | 92 * are consistent with my IBM ThinkPad X31, which has a 1.3GHz Pentium
|
| /linux-4.1.27/drivers/gpu/drm/nouveau/nvkm/engine/fifo/ |
| H A D | nv04.c | 415 /* NV_PFIFO_CACHE1_GET actually goes to 0xffc before wrapping on my nv04_fifo_cache_error()
|
| /linux-4.1.27/drivers/gpu/drm/nouveau/nvkm/subdev/clk/ |
| H A D | gt215.c | 211 * and the VBIOS on my NVA8 seem to prefer using the PLL gt215_clk_info()
|